Excelで双対多面体諸量計算 3
原点に戻って 四角棒で作る 手芸木工 を今年のテーマにしようと思っています。
上の画像は既に掲載しているものですが 二十年ほど前に作った私の作品の一部です。
思ったイメージを形にしたいという意気込みで かなり熱をいれて作った記憶があります。
いい思い出です。
でも これらの作品の形状維持はあと数年で終わりそうです。
一部のものはすでにバラバラです。
なぜかというと
部材の接着に 合成ゴム系ボンドを使用していて 劣化が進行しているからです。
合成ゴム系ボンドは可塑性があって 結合部分の微調整がきき 形状作成が容易でした。
これからは 木工用ボンドや デンプン質の接着剤を使って 作業方法を考えてゆきます。
でも 部分の正確な形状維持から 全体へという 難度の高い作業が必要です。
原点に戻るためには これを回避するわけにはゆきません。
以下は 部分形状維持に 必要となってくる 面角計算の エクセルデータです。
2018年1月8日に載せた簡略版に追加したものです。
角数 S 角数 M 角数 L 頂芯寸 11 [3,5,3,5] 3 5 0 =SQRT(1/2*(3+SQRT(5))) SM 多角形の辺の中点に かどが接する相似多角形 (内多角形)の諸量 角数 辺心寸 稜芯寸 面芯寸 面角 角数 内辺寸/2 内辺心寸 内かど開き寸/2 =B2 =0.5/TAN(PI()/B5) =SQRT(E2^2-0.5^2) =SQRT(D5^2-C5^2) =DEGREES(ATAN(E5/C5)) =B2 =0.5*COS(PI()/B5) =I5/TAN(PI()/B5) =I5*2*COS(PI()/B5) =C2 =IF(B6>0,0.5/TAN(PI()/B6),"") =IF(B6>0,D5,"") =IF(B6>0,SQRT(D6^2-C6^2),"") =IF(B6>0,DEGREES(ATAN(E6/C6)),"") =C2 =IF(B6>0,0.5*COS(PI()/B6),"") =IF(B6>0,I6/TAN(PI()/B6),"") =IF(B6>0,I6*2*COS(PI()/B6),"") =D2 =IF(B7>0,0.5/TAN(PI()/B7),"") =IF(B7>0,D6,"") =IF(B7>0,SQRT(D7^2-C7^2),"") =IF(B7>0,DEGREES(ATAN(E7/C7)),"") =D2 =IF(B7>0,0.5*COS(PI()/B7),"") =IF(B7>0,I7/TAN(PI()/B7),"") =IF(B7>0,I7*2*COS(PI()/B7),"") 双稜寸 仰角 接合角/2 =A2&"双対 稜寸" 開き角/2 開き寸 二面角 双稜 S =C5*D5/E5 =DEGREES(ASIN(C5/D5)) =360/B5/2 =F2 =IF(F10="SS",B10*2,B10+B11) =ASIN(I5/B10) =I5*2*COS(I10) =DEGREES(ASIN(K5/J10)*2) 双稜 M =IF(B6>0,C6*D6/E6,"") =IF(B6>0,DEGREES(ASIN(C6/D6)),"") =IF(B6>0,360/B6/2,"") =IF(G2="","",G2) =IF(F11="MM",B11*2,IF(F11="SM",B10+B11,IF(F11="ML",B11+B12,IF(F11="SL",B10+B12,"")))) =IF(B6>0,ASIN(I6/B11),"") =IF(B6>0,I6*2*COS(I11),"") =IF(B6>0,DEGREES(ASIN(K5/J10)*2),"") 双稜 L =IF(B7>0,C7*D7/E7,"") =IF(B7>0,DEGREES(ASIN(C7/D7)),"") =IF(B7>0,360/B7/2,"") =IF(H2="","",H2) =IF(F12="ML",B11+B12,"") =IF(B7>0,ASIN(I7/B12),"") =IF(B7>0,I7*2*COS(I12),"") =IF(B7>0,DEGREES(ASIN(K6/J11)*2),"")
2018年2月27日
