[]
p      8239-89 

[]
1=
2=
3=

[]
Icon=_8239-89.gif

[]
Icon=_8239-89-.gif

[]
Icon=_8239-89-.gif

[-LISP]
(defun $main$ ( /  h b t1 s p1 p1a p2 p3 p4 p5 p6 p7 p8 p9 p10 p11 p12 p13 p14 p15 p16 p17 ee)
  (begin_vc++)
  (setq h (* $h$ $Scale$ 10))
  (setq t1 (* $t$ $Scale$ 10))
  (setq b (* $b$ $Scale$ 10))
  (setq s (* $s$ $Scale$ 10))
  
  ;;;(if (< $s$ 0.7) (setq s (* 0.7 $Scale$ 10)))
  ;;;(if (< $t$ 0.7) (setq t1 (* 0.7 $Scale$ 10)))
 
  (initget 1)
  (setq p1 (getpoint "\n : "))
  (setq p1a (rc_vc++ p1 0 h))
  (setq p2 (rc_vc++ p1 (/ b -2) 0))
  (setq p17 (rc_vc++ p1 (/ b 2) 0))
  (setq p9 (rc_vc++ p2 0 h))
  (setq p10 (rc_vc++ p17 0 h))
  (setvar "OSMODE" 0)
  (command "_.pline" p1
   "_w" 0 0 p2
  (setq p3 (rc_vc++ p2 t1 t1))
  (setq p4 (rc_vc++ p1 (- (/ s -2) t1) t1))
  (setq p5 (rc_vc++ p1 (/ s -2) (+ t1 t1)))
  (setq p6 (rc_vc++ p1a (/ s -2) (- 0 t1 t1)))
  (setq p7 (rc_vc++ p1a (- (/ s -2) t1) (* -1 t1)))
  (setq p8 (rc_vc++ p9 t1 (* -1 t1)))
  p9
  p10
  (setq p11 (rc_vc++ p10 (* -1 t1) (* -1 t1)))
  (setq p12 (rc_vc++ p1a (+ (/ s 2) t1) (* -1 t1)))
  (setq p13 (rc_vc++ p1a (/ s 2) (* -1 (+ t1 t1))))
  (setq p14 (rc_vc++ p1 (/ s 2) (+ t1 t1)))
  (setq p15 (rc_vc++ p1 (+ (/ s 2) t1) t1))
  (setq p16 (rc_vc++ p17 (* -1 t1) t1))
  p17
  "_c")
  (setq ee (entlast))
  (princ "\n : ")
  (command "_.rotate" ee "" p1 pause)
  (end_vc++)
  (princ)
)


[-LISP]
(defun $main$ ( / h tt ptr1 ptr2 pangle angp90 angm90 pl p1 p)
  (begin_vc++)
  (setq h (* $h$ $Scale$ 10))
  (setq tt (* $t$ $Scale$ 10))
  (initget 1)
  (setq ptr1 (getpoint "\n : "))
  (initget 1)
  (setq ptr2 (getpoint ptr1 "\n : "))
  (setq pangle (angle ptr1 ptr2))
  (setq angp90 (+ pangle (/ pi 2)))
  (setq angm90 (- pangle (/ pi 2)))
  (setq pl (distance ptr1 ptr2))
  (setvar "OSMODE" 0)
  (command "_.pline"
  (setq p1 (polar ptr1 angm90 (/ h 2)))
   "_w" 0 0
  (setq p (polar p1 pangle pl))
  (setq p (polar p angp90 h))
  (polar p (+ pangle pi) pl)
   "_c")
  (setq p (polar p1 (+ pangle (/ pi 2)) tt))
  (command "_.pline" p (polar p pangle pl) "")
  (setq p1 (polar ptr1 angp90 (/ h 2)))
  (setq p (polar p1 (- pangle (/ pi 2)) tt))
  (command "_.pline" p (polar p pangle pl) "")
  (end_vc++)
  (princ)
)

[-LISP]
(defun $main$ ( / b s ptr1 ptr2 pangle angp90 angm90 pl p1 p)
  (begin_vc++)
  (setq b (* $b$ $Scale$ 10))
  (setq s (* $s$ $Scale$ 10))
  (initget 1)
  (setq ptr1 (getpoint "\n : "))
  (initget 1)
  (setq ptr2 (getpoint ptr1 "\n : "))
  (setq pangle (angle ptr1 ptr2))
  (setq angp90 (+ pangle (/ pi 2)))
  (setq angm90 (- pangle (/ pi 2)))
  (setq pl (distance ptr1 ptr2))
  (setvar "OSMODE" 0)
  (command "_.pline"
  (setq p1 (polar ptr1 angm90 (/ b 2)))
   "_w" 0 0
  (setq p (polar p1 pangle pl))
  (setq p (polar p angp90 b))
  (polar p (+ pangle pi) pl)
   "_c")
  (setq p (polar ptr1 (+ pangle (/ pi 2)) (/ s 2)))
  (command "_.pline" p (polar p pangle pl) "")
  (setq p (polar ptr1 (- pangle (/ pi 2)) (/ s 2)))
  (command "_.pline" p (polar p pangle pl) "")
  (end_vc++)
  (princ)
)


[]
	h,	b,	s,	t,	r1,	r2,	A,2	P,/	Iy,4		Wy,3		iy,	Sy,3		Iz,4		Wz,3	iz,
10	10.000	5.500	0.450	0.720	0.700	0.250	12.000	0.009	198.000		39.700		4.060	23.000		17.900		6.490	1.220
12	12.000	6.400	0.480	0.730	0.750	0.300	14.700	0.012	350.000		58.400		4.880	33.700		27.900		8.720	1.380
14	14.000	7.300	0.490	0.750	0.800	0.300	17.400	0.014	572.000		81.700		5.730	46.800		41.900		11.500	1.550
16	16.000	8.100	0.500	0.780	0.850	0.350	20.200	0.016	873.000		109.000		6.570	62.300		58.600		14.500	1.700
18	18.000	9.000	0.510	0.810	0.900	0.350	23.400	0.018	1290.000	143.000		7.420	81.400		82.600		18.400	1.880
20	20.000	10.000	0.520	0.840	0.950	0.400	26.800	0.021	1840.000	184.000		8.280	104.000		115.000		23.100	2.070
22	22.000	11.000	0.540	0.870	1.000	0.400	30.600	0.024	2550.000	232.000		9.130	131.000		157.000		28.600	2.270
24	24.000	11.500	0.560	0.950	1.050	0.400	34.800	0.027	3460.000	289.000		9.970	163.000		198.000		34.500	2.370
27	27.000	12.500	0.600	0.980	1.100	0.450	40.200	0.032	5010.000	371.000		11.200	210.000		260.000		41.500	2.540
30	30.000	13.500	0.650	1.020	1.200	0.500	46.500	0.037	7080.000	472.000		12.300	268.000		337.000		49.900	2.690
33	33.000	14.000	0.700	1.120	1.300	0.500	53.800	0.042	9840.000	597.000		13.500	339.000		419.000		59.900	2.790
36	36.000	14.500	0.750	1.230	1.400	0.600	61.900	0.049	13380.000	743.000		14.700	423.000		516.000		71.100	2.890
40	40.000	15.500	0.830	1.300	1.500	0.600	72.600	0.057	19062.000	953.000		16.200	545.000		667.000		86.100	3.030
45	45.000	16.000	0.900	1.420	1.600	0.700	84.700	0.067	27696.000	1231.000	18.100	708.000		808.000		101.000	3.090
50	50.000	17.000	1.000	1.520	1.700	0.700	100.000	0.078	39727.000	1589.000	19.900	919.000		1043.000	123.000	3.230
55	55.000	18.000	1.100	1.650	1.800	0.700	118.000	0.093	55962.000	2035.000	21.800	1181.000	1356.000	151.000	3.390
60	60.000	19.000	1.200	1.780	2.000	0.800	138.000	0.108	76806.000	2560.000	23.600	1491.000	1725.000	182.000	3.540
