[]
    8509-93 

[]
1=
2=
3=

[]
Icon=_8509-93.GIF

[]
Icon=_8509-93-.GIF

[]
Icon=_8509-93-.GIF


[-LISP]
(defun $main$ ( / b h t1 r1 a r2 p p4 p5 p7 p11 ee ptr)
  (begin_vc++)
  (setq b (* $b$ $Scale$ 10))
  (setq t1 (* $t$ $Scale$ 10))
  (setq h (* $b$ $Scale$ 10))
  ;;;(if (< $t$ 0.7) (setq t1 (* 0.7 $Scale$ 10)))

  (setq r1 (* h 0.09) r2 (* h 0.03))
  (setq a (- t1 r2))
  (initget 1)
  (setq ptr (getpoint "\n  : "))
  (setvar "OSMODE" 0)
  (command "_.pline" ptr "_w" 0 0
  (setq p (rc_vc++ ptr b 0))
  (setq p (rc_vc++ p 0 (- t1 r2)))
   "_arc" "_ce"
  (setq p (rc_vc++ p (* -1 r2) 0))
  (setq p4 (rc_vc++ p 0 r2))
  "_line"
  (setq p5 (rc_vc++ ptr (+ t1 r1) t1))
  "_arc"
  (setq p7 (rc_vc++ p5 (* -1 r1) r1))
  "_line"
  (setq p (rc_vc++ ptr t1 (- h r2)))
  "_arc" "_ce"
  (setq p (rc_vc++ p (* -1 r2) 0))
  (setq p (rc_vc++ p 0 r2))
  "_line"
  (setq p11 (rc_vc++ ptr 0 h))
  "_c")
  (setq ee (entlast))
  (prompt "\n : ")
  (command "_.rotate" ee "" ptr pause)
 
  (end_vc++)
  (princ)
)

[-LISP]
(defun $main$ ( / h tt ptr1 ptr2 pangle angp90 angm90 pl p1 p)
  (begin_vc++)
  (setq b (* $b$ $Scale$ 10))
  (setq s (* $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 (/ 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)) (- (/ b 2) s)))
  (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 (* $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 (/ 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)) (- (/ b 2) s)))
  (command "_.pline" p (polar p pangle pl) "")
  (end_vc++)
  (princ)
)


[]
	b,	t,	r1,	r2,	A,2	Iy=Iz,4	Wy,3	iy,	Iu,4		iu,	Iv,4		Wv,3	iv,	Iyz,4		yo,	P,/
L50x5	5.000	0.500	0.550	0.180	4.800	11.200		3.130	1.530	17.770		1.920	4.630		2.300	0.980	6.570		1.420	0.004
L63x5	6.300	0.500	0.700	0.230	6.130	23.100		5.050	1.940	36.800		2.440	9.520		3.870	1.250	13.700		1.740	0.005
L70x5	7.000	0.500	0.800	0.270	6.860	31.940		6.270	2.160	50.670		2.720	13.220		4.920	1.390	18.700		1.900	0.005
L75x6	7.500	0.600	0.900	0.300	8.780	46.570		8.570	2.300	73.870		2.900	19.280		6.620	1.480	27.300		2.060	0.007
L80x6	8.000	0.600	0.900	0.300	9.380	56.970		9.800	2.470	90.400		3.110	23.540		7.600	1.580	33.400		2.190	0.007
L90x6	9.000	0.600	1.000	0.330	10.610	82.100		12.490	2.780	130.000		3.500	33.970		9.880	1.790	48.100		2.430	0.008
L90x7	9.000	0.700	1.000	0.330	12.280	94.300		14.450	2.770	149.670		3.490	38.940		11.150	1.780	55.400		2.470	0.010
L100x7	10.000	0.700	1.200	0.400	13.750	130.590		17.900	3.080	207.010		3.880	54.160		14.130	1.980	76.400		2.710	0.011
L100x8	10.000	0.800	1.200	0.400	15.600	147.190		20.300	3.070	233.460		3.870	60.920		15.660	1.980	86.300		2.750	0.012
L110x8	11.000	0.800	1.200	0.400	17.200	198.170		24.770	3.390	314.510		4.280	81.830		19.290	2.180	116.000		3.000	0.013
L125x8	12.500	0.800	1.400	0.460	19.690	294.360		32.200	3.870	466.760		4.870	121.980		25.670	2.490	172.000		3.360	0.015
L125x9	12.500	0.900	1.400	0.460	22.000	327.480		36.000	3.860	520.000		4.860	135.880		28.260	2.480	192.000		3.400	0.017
L140x9	14.000	0.900	1.400	0.460	24.720	465.720		45.550	4.340	739.420		5.470	192.030		35.920	2.790	274.000		3.780	0.019
L140x10	14.000	1.000	1.400	0.460	27.330	512.290		50.320	4.330	813.620		5.460	210.960		39.050	2.780	301.000		3.820	0.021
L160x10	16.000	1.000	1.600	0.530	31.430	774.240		66.190	4.960	1229.100	6.250	319.380		52.520	3.190	455.000		4.300	0.025
L160x11	16.000	1.100	1.600	0.530	34.420	844.210		72.440	4.950	1340.060	6.240	347.770		56.530	3.180	496.000		4.350	0.027
L160x16	16.000	1.600	1.600	0.530	49.070	1175.190	102.640	4.890	1865.730	6.170	484.640		75.920	3.140	690.000		4.550	0.039
L180x11	18.000	1.100	1.600	0.530	38.800	1216.440	92.470	5.600	1933.100	7.060	499.780		72.860	3.590	716.000		4.850	0.030
L180x12	18.000	1.200	1.600	0.530	42.190	1316.620	100.410	5.590	2092.780	7.040	540.450		78.150	3.580	776.000		4.890	0.033
L200x12	20.000	1.200	1.800	0.600	47.100	1822.780	124.610	6.220	2896.160	7.840	749.400		98.680	3.990	1073.000	5.370	0.037
L200x14	20.000	1.400	1.800	0.600	54.600	2097.000	144.170	6.200	3333.000	7.810	861.000		111.500	3.970	1236.000	5.460	0.043
L200x25	20.000	2.500	1.800	0.600	94.290	3466.210	245.590	6.060	5494.040	7.630	1438.380	172.680	3.910	2028.000	5.890	0.074
L200x30	20.000	3.000	1.800	0.600	111.540	4019.600	288.570	6.000	6351.050	7.550	1698.160	193.060	3.890	2332.000	6.070	0.088
L220x16	22.000	1.600	2.100	0.700	68.580	3175.440	198.710	6.800	5045.370	8.580	1305.520	153.340	4.360	1869.000	6.020	0.054
L250x16	25.000	1.600	2.400	0.800	78.400	4717.100	258.430	7.760	7492.100	9.780	1942.090	203.450	4.980	2775.000	6.750	0.062
L250x20	25.000	2.000	2.400	0.800	96.960	5764.870	318.760	7.710	9159.730	9.720	2370.010	242.520	4.940	3395.000	6.910	0.076
