'come realizzare pavimentazioni esagonali? fai delle prove ... noscrivi=1 nolista=1 font= tempo 0.01 #a=val(100*gr*(1+(rnd-1/2))) #r=val(1.2+(rnd-1/2)) axes 0 punt 0 color 14 p3 scala sx:@-0.15 sy:-3.2..3.2 #x=1 #y=0 #s=val(#r) g(x,y)=direzione f(x)=#x+#r*cos(x) g(x)=#y+#r*sin(x) tempo 0.5 plot x:s y:14 plot x:1 y:0 plot x:1+#r*cos(#a) y:#r*sin(#a) plot x:#a..#a+120*gr N=50 P y:f,g | 9 tempo 0.01 plot x:s y:14 plot x:1 y:0 tempo 0.5 plot x:1+#r*cos(#a+120*gr) y:#r*sin(#a+120*gr) plot x:cos(240*gr) y:sin(240*gr) tempo 0.01 #x=cos(240*gr) #y=sin(240*gr) g(1+#r*cos(#a+120*gr)-#x,#r*sin(#a+120*gr)-#y) #d=%*gr #r=val(sqr((#x-1-#r*cos(#a+120*gr))^2+(#y-#r*sin(#a+120*gr))^2)) tempo 0.5 plot x:#d..#d+120*gr N=50 P y:f,g | 9 tempo 0.01 plot x:s y:14 plot x:#x y:#y plot x:#x+#r*cos(#d+120*gr) y:#y+#r*sin(#d+120*gr) tempo 0.7 plot x:cos(120*gr) y:sin(120*gr) #r=#s plot x:1+#r*cos(#a) y:#r*sin(#a) color 12 ruota dx:c1 dy:c0 gradi:120 color 6 ruota dx:c1 dy:c0 gradi:120 trasla dx:-2*cos(60gr)*(1-cos(120gr)) dy:-2*sin(60gr)*(1-cos(120gr)) trasla dx:-2*cos(60gr)*(1-cos(120gr)) dy:2*sin(60gr)*(1-cos(120gr)) ruota dx:C-0.5 dy:Csin(120gr) gradi:-120 trasla dx:-2*cos(60gr)*(1-cos(120gr)) dy:-2*sin(60gr)*(1-cos(120gr)) ruota dx:c-2 dy:c0 gradi:-120 scrivi -3.1,3.05:Gli archi man mano tracciati sono di 120°. Prova a riavviare il demo scrivi -3.1,2.83:e cerca di capire (e poi dimostrare) come si puo' costruire una scrivi -3.1,-3.05:pavimentazione esagonale del piano nolista=0 noscrivi=0 ---