Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Потрепаться";
Текущий архив: 2003.06.05;
Скачать: [xml.tar.bz2];

Вниз

Как сделать чтоб работала моя процедура   Найти похожие ветки 

 
nevalex   (2003-05-13 15:41) [0]

Юзверь вводит в edit1 фунцию (sin например) и кликает на бутон с таким обработчиком fun(paintbox1.canvas,edit1.text)

а вот и сама процедура

procedure FUNC(Canv:Tcanvas;fun:string);
var x1:real;
n:integer;
begin
Canv.MoveTo(0,200);
for n:=1 to 360 do
begin
x1:=n/pi;
Canv.LineTo(round(x1*10),(round(FUN(x1)*100+200)));
end;


СПаСИбО


 
evvcom   (2003-05-13 15:49) [1]

пОжАлУйСтА


 
evvcom   (2003-05-13 15:56) [2]

Н...да. Если по-простому, то определись, какие функции будешь использовать и делай проверку. Если же функции по-сложнее могут быть, то без интерпретатора уже не обойтись. Поищи по форуму, недавно, до праздников (в смысле 9 мая) этот вопрос уже поднимался и были кое-какие советы.


 
nevalex   (2003-05-13 16:08) [3]

В поиске не чего существеного не нашел
может кто нибудь объяснит как ... [я не про происк :)]


 
Dms   (2003-05-13 16:20) [4]

:)


 
Думкин   (2003-05-16 06:54) [5]

Рисуешь на TPainBox - он рисунок не сохраняет.
Или замени на TImage или посади рисование на onPaint or WM_Paint.
Или сообщи что именно не работает - с этого и надо в общем-то начинать.


 
Separator   (2003-05-16 07:40) [6]

Если я правильно понял, то > nevalex © хочет строить график функций (например sin).


 
Palladin   (2003-05-16 07:54) [7]

если бы еще правильно вопрос читали то просекли бы что он эту функцию в TEdit вводить хочет


 
Думкин   (2003-05-16 08:02) [8]

> Palladin © (16.05.03 07:54)
Не - тут ясно. Да - промахнулся - такой дикости не заметил.
Но - можно. Только тогда надо будет с процедурными типами сделать.


 
Separator   (2003-05-16 08:31) [9]

Если я ещё правильней понял, то ему надо строить график введенной функции.
Допустим Edit1.Text = "sin(x)", то должен строиться график y = sin(x) и т.д.
Короче нужно писать разбор формулы с одной переменной, а потом по ней строить график.

> nevalex ©
Это так?


 
nevalex   (2003-05-16 18:22) [10]

Да!!!Но как это сделать?


 
circul   (2003-05-16 23:07) [11]

>nevalex © (16.05.03 18:22)
Да!!!Но как это сделать?

Бери строку, определяй, какая в ней функция, какие параметры, и строй график. Делов-то...


 
Separator   (2003-05-17 05:59) [12]


> nevalex © (16.05.03 18:22)

Если честно, то это сложный вопрос, так как тебе нужно написать свой нтерпритаор для разбора формул. А постройка графика, это очень легко. Я тебе кое-что по этому вопросу выслал на почту


 
Думкин   (2003-05-17 08:26) [13]

Разбирать - необязательно. Тут надо вопрос точнее формулировать - если функции стандартные - то делается на уровне Case.
Если нет - то смотри выше - точнее надо формулировать.


 
nevalex   (2003-05-17 18:53) [14]

>Separator ©
Спасибо , это вроде то что мне надо (покрайней мере для начала)

>Думкин ©
Конечно нет,т.е функции не стандартные но одной переменной



Страницы: 1 вся ветка

Форум: "Потрепаться";
Текущий архив: 2003.06.05;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.47 MB
Время: 0.008 c
1-13167
alexus
2003-05-26 13:51
2003.06.05
закачать данные в ресурс


3-13062
denick
2003-05-17 18:16
2003.06.05
Мастера, помогите пожалуйста исправить ошибку.


9-12984
konstantionov
2002-12-27 23:25
2003.06.05
Статистика игроков


14-13431
Кузькина мать
2003-05-17 12:03
2003.06.05
Supreme 2 набирает популярность


7-13495
Жук
2003-04-02 16:12
2003.06.05
Закрытие программы





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский