вывести в мемо числа из интервала при h=1

[izmailov]

вот исходники. нужно мемо1 добавить и вывести в мемо1 числа из интервала
0 до t, при которых h=1

[Serge_Bliznykov]

во-первых, если это не ваш код (а судя по тому, что Вы даже Memo1 добавить не можете),то зачем Вы в раздел вопросов Delphi обращаетесь, подобным просьбам место в разделе "Помощь студентам".

а во-вторых, не разбирался в коде, но вы посмотрите график! при t=1 получемые значения получаются (на графике по вертикали значения h, верно?) менее единицы.
Таким образом, похоже, что мемо у Вас будет пустовать.
посмотрел в код. так и есть.

//вероятность отказа
   if t<0 then h:=0 else h:=(1-exp(-l*t));

запишете вычисление h в виде математической формулы, поймёте, почему для целых значений t значение функции h никогда не будет равным единице...

[izmailov]

Сообщение от Serge_Bliznykov

во-первых, если это не ваш код (а судя по тому, что Вы даже Memo1 добавить не можете),то зачем Вы в раздел вопросов Delphi обращаетесь, подобным просьбам место в разделе "Помощь студентам".

а во-вторых, не разбирался в коде, но вы посмотрите график! при t=1 получемые значения получаются (на графике по вертикали значения h, верно?) менее единицы.
Таким образом, похоже, что мемо у Вас будет пустовать.
посмотрел в код. так и есть.

запишете вычисление h в виде математической формулы, поймёте, почему для целых значений t значение функции h никогда не будет равным единице...

как это не мой код если я сам это писал лично и я удалил лишние компоненты так как вы не знаете сколько у меня там кода, и вы легко можете заблудиться в тексте. я просто решил упростить чтобы вы смогли мне помочь немного.
вы правы h - это по вертикальной оси, я просто немогу понять как это реализовать, чтобы при h=1 вывести числа в мемо1.
матем атический код для h = 1-exp(- лямбда *t)

[Serge_Bliznykov]

вы правы h - это по вертикальной оси, я просто немогу понять как это реализовать, чтобы при h=1 вывести числа в мемо1.

так не при каких целых t значение h не станет равных единице!!
Как можно вывести в мемо то, чего нет?!

[izmailov]

Сообщение от Serge_Bliznykov

так не при каких целых t значение h не станет равных единице!!
Как можно вывести в мемо то, чего нет?!

h=1 когда t=100 и т.д.

вертикальная ось y на графике это вероятность безотказной работы вычисляется по формуле p(t)=exp(-лямбда*t) это не h, h=1-p(t)=1-exp(-лямбда*t);

h примет значение 1 когда система получит отказ, то есть когда p(t) будет равно 0, а он p(t)=0 когда t>99 т.е. от 100 до бесконечности

Есле надо могу начерить график h В делфи

[izmailov]

вот исходник с график на h, теперь по графику видно когда h=1

[izmailov]

должно получиться вот так, только у меня в мемо повторяются числа

[Serge_Bliznykov]

Сообщение от izmailov

h=1 когда t=100 и т.д.

вертикальная ось y на графике это вероятность безотказной работы вычисляется по формуле p(t)=exp(-лямбда*t) это не h, h=1-p(t)=1-exp(-лямбда*t);

h примет значение 1 когда система получит отказ, то есть когда p(t) будет равно 0, а он p(t)=0 когда t>99 т.е. от 100 до бесконечности

Есле надо могу начерить график h В делфи

ну, строго говоря:
t=100 h=0.9999546000702375200

а в чём, собственно, вопрос?
кидайте на форму Memo (пусть будет Memo1 для определённости) и задайте целочисленную переменную var j: integer;
и добавьте такой код (в любом месте после задания лямбда)

   Memo1.Lines.Clear;
   for j:=1 to t do
     if (1.0-exp(-l*j))>=0.99995 then Memo1.Lines.Append('t = '+IntToStr(j));

код не проверял, идея, думаю, понятна...

[izmailov]

Сообщение от Serge_Bliznykov

ну, строго говоря:
t=100 h=0.9999546000702375200

а в чём, собственно, вопрос?
кидайте на форму Memo (пусть будет Memo1 для определённости) и задайте целочисленную переменную var j: integer;
и добавьте такой код (в любом месте после задания лямбда)

   Memo1.Lines.Clear;
   for j:=1 to t do
     if (1.0-exp(-l*j))>=0.99995 then Memo1.Lines.Append('t = '+IntToStr(j));

код не проверял, идея, думаю, понятна...

спасибо вопрос решен. Помогли, я тоже один вариант нашел, но ваш вариант наиболее проще. Спасибо