4eec38ab-9114-4d97-8e24-281dfbdfd0e3 136 Jesus 4 5 false false 0 0 decimal

&[DATE] &[TIME] - &[FILENAME]

Rotation Matrix ϕ R ϕ cos ϕ sin - ϕ sin ϕ cos 22 mat :

Angle of Rotation α π 4 / :

Rotation Function rect_p α Rotation_func col_p rect_p transpose cols : rect_pn rect_p rows rect_p cols Zeros : Rotation Matrix ϕ R ϕ cos ϕ sin - ϕ sin ϕ cos 22 mat : i 1 col_p range i 1 ≡ tmp α R rect_p transpose i col (* : 11 line tmp tmp α R rect_p transpose i col (* augment : 11 line if 11 line for rect_pn tmp transpose : rect_pn 71 line :

Base 1 bw b_1 2 :

Base 2 bw b_2 2 :

Depth dw h_1 4 :

Depth df h_2 2 :

Base 1 bf b_3 6 :

Base 2 bf b_4 6 :

x b_1 - 2 / b_1 2 / b_1 2 / b_3 2 / b_3 2 / b_3 2 / - b_3 2 / - b_1 - 2 / b_1 - 2 / 91 mat :

y 00 h_1 h_1 h_1 h_2 + h_1 h_2 + h_1 h_1 091 mat :

x x 1.5 x length Ones * - :

y y 1.5 y length Ones * - :

irre_pol x y augment :

Division of layers n_div 30 :

General Division n_div Poly α r_per Fiber_function y_min y_max x_min x_max 22 mat Poly 2 col min Poly 2 col max Poly 1 col min Poly 1 col max 22 mat : Points_new Poly α Rotation_func : yn_min yn_max xn_min xn_max 22 mat Points_new 2 col min Points_new 2 col max Points_new 1 col min Points_new 1 col max 22 mat : k_m yn_min : d yn_max yn_min - abs n_div / : long n_div 1 - : rect_p long Zeros : H.p 0012 mat 11 mat : C.p Poly gpc_polygon : i 1 n_div (range i 1 ≡ Px_1 r_per x_min y_min Min * i 1 - (d * 12 mat : Px_2 r_per x_max y_max Max * i 1 - (d * 12 mat : Px_3 Px_2 1 el d i (* 12 mat : Px_4 Px_1 1 el d i (* 12 mat : tmp_p Px_1 Px_2 Px_3 Px_4 stack : tmp_p tmp_p tmp_p 1 row stack : tmp_p tmp_p α Rotation_func : P_m tmp_p rows Zeros tmp_p rows Ones augment : P_m P_m α Rotation_func : rect_p i el tmp_p k_m P_m * + : L.p rect_p i el gpc_polygon : tmp_Hp 1 C.p L.p gpc_clip : tmp_Hp 11 el 0 ≡ continue 11 line tmp_Hp 11 el 1 ≥ j 1 tmp_Hp 11 el range H.p H.p tmp_Hp j 1 gpc_get_contour 11 mat stack : 11 line for 11 line continue 11 line if 131 line rect_p i el rect_p 1 el i 1 - (d * P_m * + : L.p rect_p i el gpc_polygon : tmp_Hp 1 C.p L.p gpc_clip : tmp_Hp 11 el 0 ≡ continue 11 line tmp_Hp 11 el 1 ≥ j 1 tmp_Hp 11 el range H.p H.p tmp_Hp j 1 gpc_get_contour 11 mat stack : 11 line for 11 line continue 11 line if 41 line if 11 line for m_hp H.p rows : H.p H.p 2 m_hp range el : H.p rect_p 12 mat 131 line :

plot_f n_div irre_pol α 1.5 Fiber_function :

plot_f 1 el irre_pol 2 1 sys plot_f 1 el 1 10 range el irre_pol 2 1 sys

plot_f 2 el