Магическая кладка. K 8. 000

Настало время рассказать, как я формирую задания для студентов, зная уже известную магическую кладку. Например, имеющую основной критерий К=8.
Заношу целочисленные параметры во вторую строку проги. Далее пишу произвольные реальные параметры Br и ro. Например, Br=64 и ro=0.0024.
Очень важно! Во второй строке из размеров блоков "l", "b", "l1" и "b1" самое большое число должно быть у "l", а самое малое - у "b".

rem РАЗМЕРЫ В см, ВЕС В кг
B=168:L=504:l=72:b=49:l1=63:b1=56:Br=64:ro=0.0024
Lr=Br/B*L
l0=Br/B*l:b0=Br/B*b:l10=Br/B*l1:b10=Br/B*b1
print "Lr = ";:print Lr
hmax=int(b0):hmin=l0/3:
if hmin<>int(hmin) then hmin=int(hmin)+1:fi
print "h_max= ";:print hmax
print "h_min= ";:print hmin
K=B^2/l/b
for h=hmin to hmax
G0=l0*b0*h*ro
print h,G0
next h
print "INPUT hr ";:input hr
Gr=Br^2*hr*ro/K*10
Gr1=int(Gr)
if Gr-Gr1<=0.5 then Gr=Gr1:fi
if Gr-Gr1>0.5 then Gr=Gr1+1:fi
Gr=Gr/10
K1=Br^2*hr*ro/Gr
print "K=";:print K
print "Br=";:print Br
print "hr=";:print hr
print "ro=";:print ro
print "Gr=";:print Gr
print "K1=";:print K1
print l0 using "###.###";:print "  x  ";
print b0 using "###.###";:print "  x  ";
print hr using "###.###";:print "    TIPE 1"
print l10 using "###.###";:print "  x  ";
print b10 using "###.###";:print "  x  ";
print hr using "###.###";:print "    TIPE 2"

В результате получаем:

Lr = 192
h_max= 18
h_min= 10
10 12.288
11 13.5168
12 14.7456
13 15.9744
14 17.2032
15 18.432
16 19.6608
17 20.8896
18 22.1184
INPUT hr ?16
K=8
Br=64
hr=16
ro=0.0024
Gr=19.7
K1=7.98408
 27.429  x   18.667  x   16.000    TIPE 1
 24.000  x   21.333  x   16.000    TIPE 2


После Lr=192 см и возможного диапазона высот блоков (от 10 до 18 см) идут девять различных вариантов высот блоков hr и их веса. Программа запрашивает, какое значение hr хотите выбрать? Тут я выбрал 16 (это в сантиметрах). Ну, захотелось, чтобы блок не весил более 20 кг. Прога вычисляет остальные параметры, в том числе и критерий кладки К1, определяемый через реальные параметры с индексом r. Значение К1 должно быть близко к математическому критерию К. У нас К=8, а для реального случая имеем К1=7.98408. Все путём!

31 мая 2021 г.