Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.06.05;
Скачать: CL | DM;

Вниз

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

 
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;
Скачать: CL | DM;

Наверх




Память: 0.49 MB
Время: 0.021 c
14-13413
Один из тех
2003-05-17 11:26
2003.06.05
Озабоченные всего мира, объединяйтесь!


1-13113
Song
2003-05-23 08:38
2003.06.05
TListView, родительский TListItem. vsReport


14-13472
XobBIT
2003-05-19 20:55
2003.06.05
TWebBrowser и anchor ....


7-13482
Ал
2003-04-02 13:48
2003.06.05
Обойти ограничения usera NT,2000,XP не имеющего прав админа


11-13104
Gandalf
2002-09-16 22:22
2003.06.05
KOLnMCK 1.47&1.46!