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

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

rem РАСЧЕТ РОТАЦИОННЫХ КЛАДОК
del=3
l=15
b=12
P=100
dG=0.3
B=60
t=0.02
for delmin=0.5 to 0.9 step 0.1
N=0
ro=2.4
print "   del = ";:print del
print " t=";:print t;
print "  P=";:print P;
print "  l=";:print l;
print "  b=";:print b;
print "  delmin=";
print delmin;
print "  B=";:print B
print " N k lr br hr Gr delr Br=Lr  "
print "-----------------------------"
k1=delmin/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)
if kmax<kmin then
print "kmin>kmax"
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)<=dG then
if k*del>=delmin*(P/100)^(1/3) then
N=N+1
Br=B*k-t
print N,k,lr,br,hr,Gr,k*del, Br
fi:fi
next hr
next k
print
print
next delmin


Получим следующую таблицу решений что в иллюстрации.
Для стотонных блоков по строительным нормам минимум равен 0.90 м. Кладка примечательна тем, что используется только один тип блока.

11 июня 2025 г.