Упростить / цивилизовать запись

[kta87]

Доброго всем. Что то не приходят в голову идеи как цивилизованнее записать следующее

  if Lambda <= 0.3 then Result := 1;
  if Lambda = 0.4 then Result := 0.997;
  if Lambda = 0.5 then Result := 0.964;
  if Lambda = 0.6 then Result := 0.864;
  if Lambda = 0.7 then Result := 0.711;
  if Lambda = 0.8 then Result := 0.544;
  if Lambda = 0.9 then Result := 0.393;
  if Lambda = 1.0 then Result := 0.27;
  if Lambda = 1.1 then Result := 0.178;
  if Lambda = 1.2 then Result := 0.112;
  if Lambda = 1.3 then Result := 0.068;
  if Lambda = 1.4 then Result := 0.04;

Ходил да около вокруг типов и массивов, но так ничего толкового не придумал. Есть идеи?

[Poma][a]

Умножить на 10 и бахнуть константный массив, не?

[Stilet]

Как идея:

const lare:array[1..14] of float=(0,0,0,0.997,0.964,... остальное);
...
var i:integer;
...
i:=trunc(lambda*10);
if (i>=Low(lare))and(i<=High(Lare)) then Result:=lare[i];

Или двумерным массивом-словарем и цикл для поиска.

Poma][a

Тоже об этом подумал но пока писал код ты опередил.

[Аватар]

тут round луше, а то trunc от 3.999999999 троечку вместо ожидаемой четверочки вернет

[kta87]

Спасибо уважаемые! Stilet, забрал твой вариант с доработкой от Аватар и с исправлениями от себя

const lare:array[1..14] of float=(1,1,1,0.997,0.964,... остальное);

[Stilet]

Вообще я бы делал словарем... Надежнее.

[kta87]

Stilet, я не в теме словарей видимо... научишь?

[Poma][a]

Бахаешь массив записей..
Одно поле есть ключ, другое - значение..

Бежим по массиву и ищем наш ключ. Вот. А еще можно отсортировать по ключу и баловаться бинарным поиском

[Stilet]

Вот вот.

const lare:array[1..14,1..2] of float=((0.3,0.997),(0.4,0.964)...);
...
var i:integer;
...
for i:=Low(lare) to High(lare) do
 if lare[i,1] = Lambda then нужный коэффициент lare[i,2];

Зато этот код не зависит от наполнения массива-словаря. А если массив огромный можно и бинарный поиск применить для скорости. Надежнее просто.

[Вадим Мошев]

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

Что если выполнить интерполяцию для указанных эспериментальных данных?
Массивы экспериментальных данных можно засунуть в константный массив, использовать его в подпрограмме-функции, которой потом просто передаётся аргумент, а она даёт значение интерполированной функции. Тогда появится возможность вычислять функция не только, например, от 0.8 и 0.9, но и между ними, например, для 0.88547, 0.81142 и т. п. Правда, не будет возможности вычислить значение для аргумента, превышающего максимальное значение (либо наоборот, предшествующее минимальное) из экспериментальных данных - для этого придётся выполнять уже экстраполяцию данных.

Кода, конечно, будет побольше, но функционал расширится...