2 5 decimal

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

Значит так, цель у меня такая: Есть матрица с характеристиками грунта и есть глубина заложения фундамента, Необходимо получить матрицу грунтов выше подошвы фундамента, и матрицу грунтов ниже подошвы фундамента

Оператор break с if x breakIf x break 0 if 11 line :

Удаление заданной строки из матрицы m r rmRow cols m cols : rows m rows : m1 r 1 ≤ 0 cols matrix m 1 r 1 - rows 12 mat min 1 cols submatrix if : m2 r rows ≥ 0 cols matrix m r 1 + 112 mat max rows 1 cols submatrix if : m1 m2 stack 51 line :

Геология №ИГЭ L, м γII, тс/м3 cII, тс/м2 φII, град γs, тс/м3 e ИГЭ-1 3.1 1.952 2.5 23 2.690 0.65 ИГЭ-2 2.1 1.952 2.5 23 2.690 0.75 ИГЭ-3 2.5 1.952 2.5 23 2.690 0.70 ИГЭ-4 2 1.952 2.5 23 2.690 0.80 57 mat :

d 7.7 :

Грунты выше подошвы фундамента:

i.геология ΣИГЭ 0 : i 2 Геология rows range ΣИГЭ d < I i : ОШИБКА if ΣИГЭ ΣИГЭ Геология i 2 el + : 21 line for I 31 line :

i.геология 4

x Геология :

Геология_выше d x 22 el ≤ x 22 el d : x i.геология 2 el d x i 2 el i 2 i.геология 1 - sum - : if 11 line :

i.геология x rows ≡ i i.геология x rows range x i 2 el 0 : i i 1 + : 21 line for i i.геология 1 + x rows range x i 2 el 0 : i i 1 + : 21 line for if

Геология_1 Геология_выше 1 i.геология 1 Геология cols submatrix :

Геология_1 №ИГЭ L, м γII, тс/м3 cII, тс/м2 φII, град γs, тс/м3 e ИГЭ-1 3.1 1.95 2.5 23 2.69 0.65 ИГЭ-2 2.1 1.95 2.5 23 2.69 0.75 ИГЭ-3 2.5 1.95 2.5 23 2.69 0.7 47 mat

Получилось вроде как, возможно есть решение и проще, но не нашел

Матрица грунтов выше подошвы фундамента

Грунты ниже подошвы фундамента:

z Геология 2 Геология rows 22 submatrix Геология_выше 2 Геология_выше rows 22 submatrix - :

y Геология :

i 2 y rows range y i 2 el z i 1 - el : I i : 21 line for I 21 line

Геология_ниже y :

Геология_ниже №ИГЭ L, м γII, тс/м3 cII, тс/м2 φII, град γs, тс/м3 e ИГЭ-1 0 1.95 2.5 23 2.69 0.65 ИГЭ-2 0 1.95 2.5 23 2.69 0.75 ИГЭ-3 0 1.95 2.5 23 2.69 0.7 ИГЭ-4 2 1.95 2.5 23 2.69 0.8 57 mat

Строки с нулевым значением длины удалить

Матрица грунтов ниже подошвы фундамента

Тут пробовал найти пределы равенства толщины слоя "0"

i.строки_1 i 2 Геология_ниже rows range I i : Геология_ниже i 2 el 0 ≥ (breakIf 21 line for I 21 line :

С первой границей проблем нет

i.строки_1 2

i.строки_2 i i.строки_1 1 + Геология_ниже rows range I i : Геология_ниже i 2 el 0 ≡ (breakIf 21 line for I 21 line :

А вот тут загвоздка

i.строки_2 3

Геология_ниже 0 rmRow №ИГЭ L, м γII, тс/м3 cII, тс/м2 φII, град γs, тс/м3 e ИГЭ-1 0 1.95 2.5 23 2.69 0.65 ИГЭ-2 0 1.95 2.5 23 2.69 0.75 ИГЭ-3 0 1.95 2.5 23 2.69 0.7 ИГЭ-4 2 1.95 2.5 23 2.69 0.8 57 mat

c i 2 Геология_ниже rows range Геология_ниже i 2 el 0 ≡ c i 1 el Геология_ниже i 2 el : 1 if 11 line for c 21 line :

c 000041 mat