諸量の計算プログラム 3 双対多面体
[3,4,4,4] の複合多面体 compounds の製作の説明をすべきですが
同じ作業を長く続けるのが苦手な私は 稜部品の製作が 遅々として進んでいません。
5×5 のすす竹で 12cm の大きさで作ろうとしています。
時間稼ぎとして 双対多面体の諸量計算のシンプルな BASIC プログラムを お伝えしておきます。
!! コピー開始
! 双対多面体の諸量の計算
! 元の多面体の稜寸を 1 として
OPTION ANGLE DEGREES
! 求める双対多面体に対応する元の多面体の
! 稜芯寸を入力 し 正n角形の 角数を 入力
! *********************************
LET b00=1.30656296487639 ! 稜芯寸
LET b01=3 ! 角数
! *********************************
LET b02=360/b01/2 ! 接合角/2
LET b03=.5/TAN(b02) ! 辺心寸
LET b04=ASIN(b03/b00) ! 仰角
LET b05=b03/COS(b04) ! 稜寸
PRINT "稜寸 = "; 1
PRINT "稜芯寸 = "; b00
PRINT "正n角形 = "; b01
PRINT "接合角/2 = "; b02
PRINT "仰角 = "; b04
PRINT "双対稜寸 = "; b05
END
! コピー終わり
2013年1月31日
