delphi численное интегрирование

← →
spbstu_helpme © (2011-11-20 22:00) [0]

Народ помоги тепожалуйста!!!
задание: Провести численное интегрирование ф-ции у(с точкой над) =abs(а)*y на интервале времени от 0 до момента когда интеграл достигнет 1000000 в зависимости от коэфицента и нач значения у0. Автоматическим уменьшением шага интегрирования добиться точности определения времени завершения 0.01%. Вывести значение времени завершения и полученный шаг интегрирования)

← →
DVM © (2011-11-20 22:11) [1]

В Санкт-Петербургском политехническом так плохо учат? В анкете высшее стоит.

← →
Jeer © (2011-11-20 22:34) [2]

> тепожалуйста!!!

Расшифруй.
За это могу не численное интегрирование сделать.

← →
spbstu_helpme © (2011-11-20 22:46) [3]

ПОМОГИТЕ) описался

← →
spbstu_helpme © (2011-11-20 22:47) [4]

так что? кто-нибудь может помочь написать вычислительную часть?

← →
Сергей М. © (2011-11-20 22:50) [5]

> ПОМОГИТЕ) описался

Ладно хоть не обк..

← →
spbstu_helpme © (2011-11-20 22:57) [6]

ну я набросал вот немного, но не считает почему то
unit Unit2; interface procedure Make; var a,y0,t,t0,h,x,b,y,e,h0 : single; z,p,i : integer; s,s1 : string; implementation procedure Make; begin y:= abs(a)*y0+abs(a)*(y0+h); b:= 1000000; e:= 0.000001; t:= 0; h:=1; repeat t:=t+h; h:=h/2; until (y>b) or (abs(y)<e); end; end.

← →
spbstu_helpme © (2011-11-20 22:58) [7]

скажите где ошибки?

← →
spbstu_helpme © (2011-11-20 23:12) [8]

> Jeer

не высшее(

← →
spbstu_helpme © (2011-11-20 23:45) [9]

ну где вы delphi masters?

← →
Jeer © (2011-11-20 23:58) [10]

Немалый труд, Вам, вероятно,
Затратить следует и безвозвратно,
До тех известных пор , пока,
Из Вас не выйдет D-Дока.
(C) Jeer

← →
DVM © (2011-11-21 00:02) [11]

> spbstu_helpme © (20.11.11 23:45) [9]

спят все, ты бы еще ночью пришел.

Не вникая в предметную область твоей задачи, просто глядя на код, можно увидеть, что:
1)
procedure Make; begin y:= abs(a)*y0+abs(a)*(y0+h);
переменным a, y0, h не заданы значения, y будет вычислен неправильно. Тебе компилятор кстати выдает предупреждения наверняка.

2)
repeat t:=t+h; h:=h/2; until (y>b) or (abs(y)<e);
Ни y, ни b, ни e в теле цикла не меняются, цикл бестолковый получается.

← →
Jeer © (2011-11-21 00:23) [12]

> DVM © (21.11.11 00:02) [11]

Под жарким ветром желт-песок
Перетекает в Дюны плавно.
И до сих пор нам непонятно -
Важнее ветер иль песок ?

> Jeer © (21.11.11 00:23) [12]

Не надо, тёзка так уж жестоко относиться к учащимся колледжей. Они не виноваты, в том,что Jeer физически не может преподавать во всех колледжах, даже если захочет. :)
Мне вот тоже как-то предложили преподавать в Московском Колледже Электроники. (Я даже как-то постил об этом на ДМ). Ну это просто был бред! Когда я представил минимальный набор технического оборудования для этого курса, то увидел кучу "расширенных" глаз.

> Германн © (21.11.11 01:04) [13]
>
>
> > Jeer © (21.11.11 00:23) [12]
>
> Не надо, тёзка так уж жестоко относиться

Не надо испрашивать выполнение личных заданий.

Если бы чел (студент) попросил подготовить его по любой теме за 2-3 недели, я бы сделал это бесплатно и без нареканий.
Мои студенты ( когда я занимался их подготовкой ) сдавали диплом на 5 и выше ( красный ).

> Не надо испрашивать выполнение личных заданий.

Это само собой. Двоешники, да и троешники идут лесом.
Но автор всё-таки привёл некий код. Если есть основания удтвердждать, что автор сей код стырил, то...

> Но автор всё-таки привёл некий код.
набор операторов без малейшего смысла... это не код, это "отмазка" т.к. чел знает что тут его "требуют"/охотнее помогают если видят что-то сделанное самостоятельно.

Удалено модератором
Примечание: мат

delphi численное интегрирование Найти похожие ветки