Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 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
15-1162385965
kick
2006-11-01 15:59
2006.11.19
Наследник от TForm запустить не могу :) :)


2-1161636887
vidiv
2006-10-24 00:54
2006.11.19
JvDBTreeView


15-1162464326
GRAND25
2006-11-02 13:45
2006.11.19
А как вам звонят 1С франчайзи?


15-1162202770
SerJaNT
2006-10-30 13:06
2006.11.19
Отказано в доступе


2-1162736465
Student2007
2006-11-05 17:21
2006.11.19
Убрать границы после использования Rectagle





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