Прога расчета ротационных кладок

Эту программу я отлаживал более трех месяцев. Причина - нервозное состояние из-за войны между братскими народами. И только сегодня ночью получил очень важные результаты, а именно таблицы размеров кладки и отдельных блоков с учетом довольно существенных ограничений. Наверняка скоро конкретные данные здесь приведу, но сейчас важно сохранить текст программы, поскольку опыт показывает, что компьютер в любой момент может выйти из строя и восстановить прогу будет очень тяжело. Правда, сегодня попытаюсь все команды записать на листочках, но лучше уж в печатном виде здесь, в "прозе ру".

rem РАСЧЕТ РОТАЦИОННЫХ КЛАДОК
t=0.02:P=100:ro=2.4
b=12:l=21
for i=1 to 9
L=b*i
for j=1 to 10
B=l*j
if B=L then
BB=B:LL=L
fi
next j
next i
del=(l-b)/2
print "t=";:print t;
print "   P=";:print P;
print "   l=";:print l;:print "   b=";
print b;:print "   del=";:print del;
print "   B=";:print BB
print " N k lr br hr Gr  Br = Lr  "
print "---------------------------"
k1=0.9/del*(P/100)^1/3+t
k1a=int(k1*100)/100+0.01
k2=(P/l/b^2/ro)^(1/3)
k2a=int(k2*100)/100+0.01
k3=(3*P/l^2/b/ro)^(1/3)
kmax=int(k3*100)/100+0.01
kmin=max(k1a,k2a)
rem print kmin,kmax
if kmax<kmin then
print "kmax<kmin"
end
fi
for k=kmin to kmax step 0.01
lr=l*k-t:br=b*k-t
hr_min=int(lr/3*100)/100
hr_max=int(br*100)/100
for hr=hr_min to hr_max step 0.01
Gr=lr*br*hr*ro
if abs(P-Gr)<=0.5 then
N=N+1
B=BB*k-t
print N using "###",k using "##.##";
print lr using "##.##",br using "##.##";
print hr using "##.##",Gr using "####.#";
print B using "###.##"
fi
next hr
next k
print
print

Получим следующую таблицу решений что в иллюстрации.
Справа от таблицы даны совмещенные планы смежных курсов (это вариант № 4).
Толщина швов между блоками принята равной 2 см. Минимальные перекрытия
швов равны k*del=0.26*4.5=1.17 м. Для стотонных блоков по строительным
нормам минимум равен 0.90 м.
Кладка примечательна тем, что используется только один тип блока размером
5.44 х 3.10 х 2,47 м.


11 июня 2025 г.