R=5008 F. ?0 X2 c" ~' x; v2 y
Rtype = class(R)2 q* a, |$ f% V* s
f=250.0& y/ J+ j1 @8 i6 Z! _. K" Q$ d- k+ C
d=250.0) [: N3 v+ T- v3 k& [
k=0 " d% J1 {9 C; @, d" s3 a7 Mtheta=acos(1-d/(2*f))*180/pi# A6 D" q4 i+ m3 j6 t0 k6 v
; C! d6 y& k- w9 o! Z' F7 Ifor i=1:10% \0 q0 a' `( P& z/ d. a
N =2.0*(2.0*i+1.0); % v) {$ E/ |' {$ ?+ c - w8 N# E1 I- e2 S7 j e m=2.0*i*180.0;1 v, x) E. d* Q6 |5 G- Y8 R
y=N*theta;5 C. K* ?' k' H/ w/ k2 R
if y==m- u0 ^" x; H# r: H
disp(N)( b) i; h5 t" A% l% @! j
end- A! Y% T3 a0 y7 T
end* P$ l o U7 d: ^& d