СПАСИТЕЕЕЕЕ!!!!

← →
Reaper85 © (2006-11-01 23:18) [0]

товарищи профы....помогите пожалуйста..
есть функция
H:=K*((Vr-tau)-T*(1-Exp(-(Vr-tau)/T)))
где Vr:=Vr+step
k,t и tau задается, а также кол-во точек расчета....
надо нарисовать в чарте графиг H(Vr) так чтобы при Vr<=tau шел один шаг а для tau<Vr<=T шел шаг побольше, а для Vr>T третий еще больше.... Оченььь надо СРочно.....ПОЖАЛУЙСТА ПОМОГИТЕ!!!

← →
Ketmar © (2006-11-01 23:27) [1]

какова оплата?

← →
Leonid Troyanovsky © (2006-11-01 23:32) [2]

> Ketmar © (01.11.06 23:27) [1]

> какова оплата?

Дык, пошаговая:
один шаг а для tau шаг побольше, а для третий еще больше..

--
Regards, LVT.

← →
Gero © (2006-11-02 00:16) [3]

ЛОВИ СПАСАТЕЛЬНЫЙ КРУУУУУГ!!!!

← →
Anatoly Podgoretsky © (2006-11-02 00:18) [4]

> Reaper85 (01.11.2006 23:18:00) [0]

← →
Anatoly Podgoretsky © (2006-11-02 00:23) [5]

> Gero (02.11.2006 0:16:03) [3]

> ЛОВИ СПАСАТЕЛЬНЫЙ КРУУУУУГ!!!!

Ты чего молчишь, поймал

2Gero, а ты точно круг бросил, не топор?

← →
Ketmar © (2006-11-02 00:25) [6]

>[5] Anatoly Podgoretsky(c) 2-Nov-2006, 00:23
>2Gero, а ты точно круг бросил, не топор?
круг. но, возможно, чугунный.

← →
Anatoly Podgoretsky © (2006-11-02 00:29) [7]

> Ketmar (02.11.2006 0:25:06) [6]

Вот я и думаю почему молчит.

← →
REaper85 © (2006-11-02 00:40) [8]

да че говорить то.....чего за круг...блин люди завтра сдавать лабу я весь день парился пытался решить проблему...НЕ ПОЛУЧАЕТСЯ.....помогите плиз....

← →
Gero © (2006-11-02 00:41) [9]

> [8] REaper85 © (02.11.06 00:40)
> я весь день парился пытался решить проблему

Ok, покажи что получилось-то?

← →
REaper85 © (2006-11-02 00:43) [10]

блин как показать то......тут же нельзя файлы прикреплять,а весь код довольно большой.....че делать

← →
Anatoly Podgoretsky © (2006-11-02 00:43) [11]

> Gero (02.11.2006 0:41:09) [9]

Нельзя, она денег стоит, вдруг другому студенту продашь

← →
Anatoly Podgoretsky © (2006-11-02 00:44) [12]

> REaper85 (02.11.2006 0:43:10) [10]

Ты не в курсе, что можно вырезать проблемный кусок и его опубликовать с
точными объяснениями.

← →
MikePetrichenko © (2006-11-02 00:53) [13]

> че делать

Копить денег.

← →
REaper85 © (2006-11-02 00:56) [14]

какой продавать...мне бы самому сдать....а на счет кода....
//расчет вспомогательных переменных
step1:=tau/10;
step2:=T/10;
//задание начальных условий
Vr:=-step;
Series1.Clear;
//расчет переходной функции, согласно задания
for I:=1 to N do
begin //2
If Vr<=tau then
step:=step1
else step:=step2;
Vr:=Vr+step;
If Vr<=tau then w:=0
else
w:=K*((Vr-tau)-T*(1-Exp(-(Vr-tau)/T)));

ну типа вот..но как сделать чтоб для tau<Vr<=T и Vr>T шаги были разными УМА НЕ ПРИЛОЖУ!!!

← →
REaper85 © (2006-11-02 00:58) [15]

думал step3 сделать....Vr2 задать...пробовал черездругие переменные выразить..не доходит...

← →
Gero © (2006-11-02 01:01) [16]

> [14] REaper85 © (02.11.06 00:56)

Оформи нормально код, по стандартам VCL, это же читать невозможно.

← →
REaper85 © (2006-11-02 01:08) [17]

блин....стандарты...не обучали нас стандартам....показали как похожую (но естественно элементарную) задачу решить, дали задание и вперед с песней...а к преподу не подойти проконсультироваться....старухе 87 лет..у нее маразм на всю голову не понимает что вокруг происходитююювот и выкручиваемся как можем...лутше скажите может кто нибудь что нибудь посоветовать???или мне все таки придется самому...

← →
Старуха 87 (2006-11-02 01:11) [18]

//расчет вспомогательных переменных
step1 := tau/10;
step2 := T/10;
step3 := T/100;

//задание начальных условий
Vr := -step;
Series1.Clear;

//расчет переходной функции, согласно задания
for I := 1 to N do // мне это не нравится
begin //2
if Vr <= tau then
step := step1
else if Vr < T than
step := step2
else
step := step3;

Vr := Vr + step;

if Vr <= tau then
w:=0
else
w := K*((Vr - tau) - T*(1 - Exp(-(Vr - tau)/T)));

// значение куда-то выводиться будет?
end;

← →
REaper85 © (2006-11-02 01:14) [19]

в чарте рисуется график:

Series1.AddXY(Vr,w,"",clTeeColor);

и еще табличка

//Отображение расчета
With StringGrid1 Do
Begin//5
Cells[0,I]:=FloatToStrF(Vr,ffFixed,8,4);
Cells[1,I]:=FloatToStrF(w,ffFixed,8,4);
End;//5

← →
REaper85 © (2006-11-02 01:30) [20]

Ладно...хоть подскажите где здесь ошибка:

//Расчет вспомогательных переменных
step1:=tau/3;
step2:=T/10;
step3:=T/5;

//расчет дополнительных переменных
M:=Vr-tau;

//Задание начальных условий
Vr:=-step;
Series1.Clear;

//Расчет по алгоритму выходных переменных
For I:=1 To N Do
Begin //1
If M<=0 Then
step:=step1;
Vr:=Vr+step
Else
Begin//2
If M<=T then
step:=step2;
Vr:=Vr+step;
H:=K*((Vr-tau)-T*(1-Exp(-(Vr-tau)/T)));
Else
step:=step3;
Vr:=Vr+step;
H:=K*((Vr-tau)-T*(1-Exp(-(Vr-tau)/T)));
End;//2

//Отображение расчета в графичесских элементах
With StringGrid1 Do
Cells[0,I]:=FloatToStrF(Vr,ffFixed,8,5);
Cells[1,I];=FloatToStrF(H,ffFixed,8,5);
End//1

Пишет:

[Error] Unit1.pas(104): "END" expected but "ELSE" found

причем выделяет первый Элсе...

← →
Старуха 87 (2006-11-02 01:35) [21]

Операторные скобки в институте теперь не учат?

begin
//...
end

На всякий begin обязательно должен быть свой end.

← →
Gero © (2006-11-02 01:36) [22]

> If M<=0 Then
> step:=step1;
> Vr:=Vr+step
> Else

begin и end забыл.

← →
Gero © (2006-11-02 01:37) [23]

> If M<=T then
> step:=step2;
> Vr:=Vr+step;
> H:=K*((Vr-tau)-T*(1-Exp(-(Vr-tau)/T)));
> Else
> step:=step3;
> Vr:=Vr+step;
> H:=K*((Vr-tau)-T*(1-Exp(-(Vr-tau)/T)));

Здесь то же самое.

> With StringGrid1 Do
> Cells[0,I]:=FloatToStrF(Vr,ffFixed,8,5);
> Cells[1,I];=FloatToStrF(H,ffFixed,8,5);

И здесь.

← →
REaper85 © (2006-11-02 01:39) [24]

ага все прописал....но опять какаято беда....:

[Error] Unit1.pas(125): Undeclared identifier: "Cells"

указывает на последний Cells....я поменял ; на : все равно енто пишет...вот предыдущий му нравиться а последний нет...

← →
Старуха 87 (2006-11-02 01:41) [25]

Cells[1,I] := FloatToStrF(H,ffFixed,8,5);

← →
Старуха 87 (2006-11-02 01:43) [26]

Тебе ж уже сказали в [23]:

with StringGrid1 do
begin
Cells[0, I] := FloatToStrF(Vr, ffFixed, 8, 5);
Cells[1, I] := FloatToStrF(H, ffFixed, 8, 5);
end;

← →
REaper85 © (2006-11-02 01:48) [27]

Все уже давно сделал
//Отображение расчета в графичесских элементах
With StringGrid1 Do
Begin//6
Cells[0,I]:=FloatToStrF(Vr,ffFixed,8,5);
Cells[1,I]:=FloatToStrF(H,ffFixed,8,5);
RowCount:=RowCount+1;
End//6
//Отображение на графике
Series1.AddXY(Vr,H,"",clTeeColor);
End//1
end;

.....заработало...теперь думаю почему о мне H одни нули считает..и почему такая штука пишеться...:

[Error] Unit1.pas(129): Missing operator or semicolon

и указывает на Series..

← →
Ketmar © (2006-11-02 01:49) [28]

интересно, как она заработало, если даже не скомпилялось? круты нонешние студиозусы...

← →
Старуха 87 (2006-11-02 01:51) [29]

Осталось только нам тут строки твои считать.
Где эта твоя 129-я строка?
End//6 - эта?
Поставь точку с запятой в конце, двоешник!

не......кабы все заработало...потом дописал про график и....все перестало работать....

>[30] REaper85(c) 2-Nov-2006, 01:51
quousque tandem???
http://antigreen.org/bioreactor/

← →
Старуха 87 (2006-11-02 01:53) [32]

Сейчас же впишет точку с запятой в комментарии, и будет удивлятся, что опять не компилируется. Гы-гы...

да не двоешник...просто нам ни чегошеньки не объясняют...думайте мол сами....вы, мол, будущие инженеры....а потом сами жалуются типа: вам че простейших вещей не объясняли......вот так и живем..

← →
Старуха 87 (2006-11-02 01:56) [34]

А учебники, книги вам запрещают читать под страхом смерти?

Пиши:

end;

ну да. думать сложно, понимаю. инета нет. совсем. читать в школе обучили, но процесс этот, видимо, до сих пор болезненый.

нам не нужны такие инженеры!!!

← →
Старуха 87 (2006-11-02 01:58) [36]

http://antigreen.org/bioreactor/

Харошая штуковина, полезная... где б себе домой такую штуку раздобыть?

>[36] Старуха 87 2-Nov-2006, 01:58
>где б себе домой такую штуку раздобыть?
не надо дробить ресурсы. стране нужен метан!

у нас помимо этой лабы еще 5(прописью ПЯТЬ) курсовиков....причем ДАААААЛЕКО не маленьких.....поймите правильно книги читать времени нету....я тока сегодня выцарапал время на эту лабу.....

ты неверно выбрал специальность.

с чегой то???

СПАСИТЕЕЕЕЕ!!!! Найти похожие ветки