Главная страница
    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
3-13097
гончий
2003-05-19 10:10
2003.06.05
Я тут недавно потестировал скоростные возможности EasyTable...


14-13387
nick_vstu
2003-05-13 13:26
2003.06.05
Нам запретили держать компютеры в общежитии!!!!!!! :(((((((


1-13273
Dima1
2003-05-23 17:59
2003.06.05
Как значение в Edit преобразовать в Hex значение.


14-13444
race1
2003-05-18 13:04
2003.06.05
лета


4-13520
Arkara
2003-04-07 04:49
2003.06.05
RasDial - как подключить WinAPI?





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский