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

Вниз

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

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

Наверх




Память: 0.56 MB
Время: 0.05 c
11-1139198605
sff
2006-02-06 07:03
2006.11.19
ppDelphi


2-1162664078
dbnz3
2006-11-04 21:14
2006.11.19
вопрос


6-1151044736
yaral
2006-06-23 10:38
2006.11.19
Кодировка писма IdMessage


2-1162479656
horse
2006-11-02 18:00
2006.11.19
Открыть почтового клиента


2-1162380210
Hommy
2006-11-01 14:23
2006.11.19
Excel и отчеты