如何求長方體各表面在內建半球上的投影面積?

時間 2021-06-03 09:41:15

1樓:王超

可知面AOB法向量=(-a,b,0知乎不支援向量符號,用短橫代替.

面DOA法向量=(0,0,1),根據空間向量夾角公式,

則cos==0,即=,同理=;

又已知C(b,a.H),可求得面COD法向量=(a,-b,0);

面BOC法向量=(-bH,-aH,);

則cos==(用Mathematica計算得出截圖中的結果)

分割線算到這兒已經完全崩潰了,決定全部使用Mathematica來做,

寫的乙個Mathematica的計算過程(用W代替E):

Subscript[A, A] = ;(*點的座標,同時也是向量*)

Subscript[A, B] = ;

Subscript[A, C] = ;

Subscript[A, D] = ;

Subscript[A, W] = ;

Subscript[A, F] = ;

DOA = ;(*面的法向量,右手法則*)

COD = Cross[Subscript[A, D], Subscript[A, C]];

AOB = Cross[Subscript[A, B], Subscript[A, A]];

BOC = Cross[Subscript[A, C], Subscript[A, B]];

Subscript[b, 1] =

ArcCos[(AOB.BOC)/(Norm[AOB]*

Norm[BOC])];(*Subscript[L, 1]對應的球面四個角,順時針分布*)

Subscript[b, 2] = ArcCos[(COD.BOC)/(Norm[COD]*Norm[BOC])];

Subscript[b, 3] = ArcCos[(COD.DOA)/(Norm[COD]*Norm[DOA])];

Subscript[b, 4] = ArcCos[(AOB.DOA)/(Norm[AOB]*Norm[DOA])];

Subscript[S, 1] =

2 Pi - (Subscript[b, 1] + Subscript[b, 2] + Subscript[b, 3] +

Subscript[b, 4]);(*令球半徑為1,Subscript[S, 1]Subscript[為L, 1]對應的球面*)

Subscript[A, G] = ;

Subscript[A, H] = ;

DOC = Cross[Subscript[A, C], Subscript[A, D]];

COF = Cross[Subscript[A, F], Subscript[A, C]];

FOH = Cross[Subscript[A, H], Subscript[A, F]];

HOD = ;

Subscript[b, 5] =

ArcCos[(DOC.COF)/(Norm[DOC]*

Norm[COF])];(*Subscript[L, 2]對應的球面四個角,順時針分布*)

Subscript[b, 6] = ArcCos[(FOH.COF)/(Norm[FOH]*Norm[COF])];

Subscript[b, 7] = ArcCos[(FOH.HOD)/(Norm[FOH]*Norm[HOD])];

Subscript[b, 8] = ArcCos[(DOC.HOD)/(Norm[DOC]*Norm[HOD])];

Subscript[S, 2] =

2 Pi - (Subscript[b, 5] + Subscript[b, 6] + Subscript[b, 7] +

Subscript[b, 8]);(*Subscript[S, 2]Subscript[為L, 2]對應的球面*)

HOF = Cross[Subscript[A, F], Subscript[A, H]];

GOH = ;

WOG = Cross[Subscript[A, G], Subscript[A, W]];

FOW = Cross[Subscript[A, W], Subscript[A, F]];

Subscript[b, 9] = ArcCos[(HOF.FOW)/(Norm[HOF]*Norm[FOW])];

Subscript[b, 10] = ArcCos[(WOG.FOW)/(Norm[WOG]*Norm[FOW])];

Subscript[b, 11] = ArcCos[(WOG.GOH)/(Norm[WOG]*Norm[GOH])];

Subscript[b, 12] = ArcCos[(HOF.GOH)/(Norm[HOF]*Norm[GOH])];

Subscript[S, 3] =

2 Pi - (Subscript[b, 9] + Subscript[b, 10] + Subscript[b, 11] +

Subscript[b, 12]);(*Subscript[S, 3]Subscript[為L, 1]對面的球面*)

BOA = Cross[Subscript[A, A], Subscript[A, B]];

WOB = Cross[Subscript[A, B], Subscript[A, W]];

GOW = Cross[Subscript[A, W], Subscript[A, G]];

AOG = ;

Subscript[b, 13] = ArcCos[(GOW.WOB)/(Norm[GOW]*Norm[WOB])];

Subscript[b, 14] = ArcCos[(BOA.WOB)/(Norm[BOA]*Norm[WOB])];

Subscript[b, 15] = ArcCos[(BOA.AOG)/(Norm[BOA]*Norm[AOG])];

Subscript[b, 16] = ArcCos[(GOW.AOG)/(Norm[GOW]*Norm[AOG])];

Subscript[S, 4] =

2 Pi - (Subscript[b, 13] + Subscript[b, 14] + Subscript[b, 15] +

Subscript[b, 16]);(*Subscript[S, 4]Subscript[為L, 2]對面的球面*)

BOW = Cross[Subscript[A, W], Subscript[A, B]];

COB = Cross[Subscript[A, B], Subscript[A, C]];

FOC = Cross[Subscript[A, C], Subscript[A, F]];

WOF = Cross[Subscript[A, F], Subscript[A, W]];

Subscript[b, 17] = ArcCos[(WOF.BOW)/(Norm[WOF]*Norm[BOW])];

Subscript[b, 18] = ArcCos[(WOF.FOC)/(Norm[WOF]*Norm[FOC])];

Subscript[b, 19] = ArcCos[(COB.FOC)/(Norm[COB]*Norm[FOC])];

Subscript[b, 20] = ArcCos[(COB.BOW)/(Norm[COB]*Norm[BOW])];

Subscript[S, 5] =

2 Pi - (Subscript[b, 17] + Subscript[b, 18] + Subscript[b, 19] +

Subscript[b, 20]);(*Subscript[S, 4]為頂球面*)

S = Subscript[S, 1] + Subscript[S, 2] + Subscript[S, 3] + Subscript[S,

4] + Subscript[S, 5];

最後一步是驗證,得到近似2Pi,不知道是不是因為結果過於複雜沒有化簡得到2Pi。

最終得到頂面積投影佔總投影比例公式為

同表面積長方體和正方體哪個容積大

No Vacancy 強答一波。鑑於題主數學素養可能不是很高,本回答盡量寫的通俗易懂些。不妨設 長方體中,長為a,寬為b,高為c.正方體邊長為m.由長方體表面積公式 由正方體表面積公式 因為 所以有 整理,得 由長方體體積公式和正方體體積公式,有 採用作商法 體積均大於0 顯然,若 1 eeimg ...

當四維的球體,正方體,長方體,正四面體在我們所在的三維空間中穿越的時候我們看到的會是什麼?

墨淺 首先,乙個完美的四維超球在三維空間正投影為乙個完美的球體,不論任意角度旋轉,投影都為球體,大小不變。其次,正四維方超體,各邊長均為1且互相垂直 各面正投影都是1x1的正方形,各體正投影都是1x1x1的正立方體。在三維空間內正投影始終是乙個正立方體,旋轉情況非常複雜。1.以垂直於三維空間的過質心...

求問女生體虛如何調理,

壽貴人 體虛是變醜的基礎 女人血虛,肯定就會無精打采,血虛還常常會伴有面色蒼白或萎黃,唇甲色淡等症狀。此外,眼白的顏色變得混濁了,變黃了,有血絲了,眼睛乾澀,沉重,睜不大了,以及常出現眼袋,也說明氣血不足了。頭髮由過去的烏黑 濃密 柔順變得乾枯 開叉甚至掉發 顏色發黃都是氣血不足的表現。我們仔細想一...