4 5 decimal

&[DATE] &[TIME] - &[FILENAME]

L.пр 5.62 :

Опирание_сваи 3 :

Опирание сваи на дисперстный грунт:

Маркер_Lпр 0.5 0.6 0.7 0.8 0.9 1 1.1 1.2 1.3 1.4 1.5 1.6 1.7 1.8 1.9 2 2.2 2.4 2.6 2.8 3 3.5 4231 mat :

A.01 72.004 50.007 36.745 28.14 22.244 18.03 14.916 12.552 10.717 9.266 8.101 7.154 6.375 5.73 5.19 4.737 4.032 3.526 3.163 2.905 2.727 2.502 2.441 231 mat :

B.01 192.026 111.149 70.023 46.943 33.008 24.106 18.16 14.041 11.103 8.954 7.349 6.129 5.189 4.456 3.878 3.418 2.756 2.327 2.048 1.869 1.758 1.641 1.621 231 mat :

C.01 576.243 278.069 150.278 88.279 55.307 36.486 25.123 17.944 13.235 10.05 7.838 6.268 5.133 4.299 3.679 3.213 2.591 2.227 2.013 1.889 1.818 1.757 1.751 231 mat :

i.Lпр_Б 0 : i.Lпр_М 0 : i 2 : i Маркер_Lпр rows ≤ Маркер_Lпр i 1 - el L.пр < (Маркер_Lпр i el L.пр > (& i.Lпр_М i 1 - : i.Lпр_Б i : i Маркер_Lпр rows : 31 line 1 if Маркер_Lпр i 1 - el L.пр ≡ i.Lпр_Б i 1 - : i.Lпр_М i 1 - : 21 line 1 if L.пр Маркер_Lпр 1 el < i.Lпр_М 1 : i.Lпр_Б 1 : 21 line 1 if L.пр Маркер_Lпр Маркер_Lпр rows el ≥ i.Lпр_М Маркер_Lпр rows : i.Lпр_Б Маркер_Lпр rows : 21 line 1 if i i 1 + : 51 line while 41 line

Как можно реализовать нижеприведенный код?

Смысл такой: нужно найти номер строки матрицы Маркер_Lпр которому соответствует глубина Lпр, причем если Lпр больше самого большого значения (в данном случае 4), то принимается самое большое значение Далее определяется ближайшая строка со значением близким к Lпр значение - либо iLпр_Б, либо iLпр_Б-1

В данном файле приведен расчет, работает, хотелось бы упростить в связи с появлением break

i.Lпр_М 23

i.Lпр_Б 23

i.Lпр Маркер_Lпр i.Lпр_Б el L.пр - L.пр Маркер_Lпр i.Lпр_М el - ≤ i.Lпр_Б i.Lпр_М if 11 line :

i.Lпр 23