Форум: "Начинающим";
Текущий архив: 2006.11.19;
Скачать: [xml.tar.bz2];
ВнизСПАСИТЕЕЕЕЕ!!!! Найти похожие ветки
← →
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 - эта?
Поставь точку с запятой в конце, двоешник!
← →
REaper85 © (2006-11-02 01:51) [30]не......кабы все заработало...потом дописал про график и....все перестало работать....
← →
Ketmar © (2006-11-02 01:52) [31]>[30] REaper85(c) 2-Nov-2006, 01:51
quousque tandem???
http://antigreen.org/bioreactor/
← →
Старуха 87 (2006-11-02 01:53) [32]Сейчас же впишет точку с запятой в комментарии, и будет удивлятся, что опять не компилируется. Гы-гы...
← →
REaper85 © (2006-11-02 01:55) [33]да не двоешник...просто нам ни чегошеньки не объясняют...думайте мол сами....вы, мол, будущие инженеры....а потом сами жалуются типа: вам че простейших вещей не объясняли......вот так и живем..
← →
Старуха 87 (2006-11-02 01:56) [34]А учебники, книги вам запрещают читать под страхом смерти?
Пиши:end;
← →
Ketmar © (2006-11-02 01:57) [35]ну да. думать сложно, понимаю. инета нет. совсем. читать в школе обучили, но процесс этот, видимо, до сих пор болезненый.
нам не нужны такие инженеры!!!
← →
Старуха 87 (2006-11-02 01:58) [36]http://antigreen.org/bioreactor/
Харошая штуковина, полезная... где б себе домой такую штуку раздобыть?
← →
Ketmar © (2006-11-02 01:59) [37]>[36] Старуха 87 2-Nov-2006, 01:58
>где б себе домой такую штуку раздобыть?
не надо дробить ресурсы. стране нужен метан!
← →
REaper85 © (2006-11-02 02:01) [38]у нас помимо этой лабы еще 5(прописью ПЯТЬ) курсовиков....причем ДАААААЛЕКО не маленьких.....поймите правильно книги читать времени нету....я тока сегодня выцарапал время на эту лабу.....
← →
Ketmar © (2006-11-02 02:01) [39]ты неверно выбрал специальность.
← →
REaper85 © (2006-11-02 02:02) [40]с чегой то???
Страницы: 1 2 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.11.19;
Скачать: [xml.tar.bz2];
Память: 0.54 MB
Время: 0.036 c