. - . . , . , , .
, . q :
:
:
.
;
(defun c:q()
(setq l (getreal n\ ))
(setq p (getpoint \n ))
(setq b (polar p (/ pi 2)))
(setq b1 (polar b 0.0 1))
(setq k (polar p (/ pi 2) (* 0.1 1)))
(setq k1 (polar k 0.0 1))
(setq k2 (polar p (/ pi 2) (* 0.3 1)))
(setq k3 (polar k2 0.0 1))
(setq k4 (polar p (/ pi 2) (* 0.5 1)))
(setq k5 (polar k4 0.0 1))
(setq k6 (polar p (/ pi 2) (* 0.7 1)))
(setq k7 (polar k6 0.0 1))
(setq z1 (polar k6 0.0 1))
(setq s 2/5)
(setq k11 (polar k 0.0 s))
(command p ػ 0 0 b b1 z1 )
(command k k1 )
(command k2 k3 )
(command k4 k5 )
(command k6 k7 ) (setq k21 (polar k2 0.0 s))
(setq k31 (polar k4 0.0 s))
(setq k41 (polar k6 0.0 s))
(command b z1 p )
(command k11 k21 k31 k41 z1 p )
(command )
);
. 2.2. : 1 ; 2 ; 3 - |
(. 2.2). , , , , , , (1). , . (1), , . (2) (3).
3
________________________________________________________________
________________________________________________________________
|
|
, . . . . 1955-1959 . , . .
. 50- , .
() 50- , , , 60- . 1963 , -1. . 1966 . GINO. 1967-1968 . ASP ( ).
1969 . - , .
U, 1971 ., , 1962 . . , . TIPS-1, GEOMAP. BUILD .
. , 1985 . 1000.
, ( ), , , ( ). .
, (, ). , , . (, ). , , .