exemples/BOOT.JLOGO

; un beau polygone 
POUR POLY :N :C  
REPETE :N [AV :C TD 360 / :N] 
FIN 
 
; calcul des puissances 
POUR P2 :X 
EC PH [P2 X=] :X 
RENDS PROD :X :X 
FIN 
 
POUR P3 :X 
RENDS :X * P2 :X 
FIN 
 
POUR P4 :X 
EC PH [P4 X=] :X 
RENDS P2 :X * :X 
FIN 
 
; un peu d'arithm?tique, le Plus Grand Commun Diviseur 
POUR PGCD :A :B 
SI EGAL? RESTE :A :B 0 [RENDS :B ] [RENDS PGCD :B RESTE :A :B ]  
FIN 
 
; Fractales : courbe de Von Koch. N est l'ordre du trac?, P la dimension de son support 
POUR KOCH :N :P 
SI :N = 0 [AV :P] [KOCH :N - 1 :P / 3 TG 60 KOCH :N - 1 :P / 3 TD 120 KOCH :N - 1 :P / 3 TG 60 KOCH :N - 1 :P / 3] 
FIN 
 
; pour dessiner une grande courbe de Koch en donnant son ordre N 
POUR BOKOCH :N 
SOIT "Y ITEM 1 TGRAPH 
SOIT "X ITEM 2 TGRAPH 
VE LC FPOS PH :Y * -0,46 :X * -0,4 BC TD 90 CT 
KdsOCH :N :Y * 0,92 
FIN 
 

Retour - Back