.


:




:

































 

 

 

 





. - . . , . , , .

, . 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.

, ( ), , , ( ). .

, (, ). , , . (, ). , , .





:


: 2016-11-12; !; : 426 |


:

:

- - , .
==> ...

1873 - | 1824 -


© 2015-2024 lektsii.org - -

: 0.009 .