Предел магии кладок. Ч 6. Самый лучший проект

Предыдущую часть см. по ссылке:
http://proza.ru/2025/08/08/1799

Математическая модель ротационной кладки оказалась на редкость простой. В иллюстрации показаны ограничение-равенство и ограничения неравенства. Они легко программируются и здесь её приведем для блоков 28 х 20:

del=4
l=28
b=20
P=200
dM=2
B=140
t=0.02
for delmin=0.5 to 0.9 step 0.01
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 Mr 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
Mr=lr*br*hr*ro
if abs(P-Mr)<=dM then
if k*del>=delmin*(P/100)^(1/3) then
N=N+1
Br=B*k-t
print N using "###",k using "##.##";
print lr using "##.##",br using "##.##";
print hr using "##.##",Mr using "####.#";
print k*del using "##.###";
print Br using "###.##"
fi:fi
next hr
next k
print
print
next delmin
print
print

Следующую часть см. по ссылке
http://proza.ru/2025/08/09/1001

8 августа 2025 г.