'da pavimentazioni esagonali ad altre pavimentazioni noscrivi=1 nolista=1 font= tempo 0.01 #a=val(100*gr*(1+(0.9-1/2))) #r=val(1.2+(0.3-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) stop 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 plot x:s y:14 plot x:1 y:0 stop plot x:1+#r*cos(#a+120*gr) y:#r*sin(#a+120*gr) plot x:cos(240*gr) y:sin(240*gr) #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)) stop plot x:#d..#d+120*gr N=50 P y:f,g | 9 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) stop plot x:cos(120gr) y:sin(120gr) #r=#s plot x:1+#r*cos(#a) y:#r*sin(#a) stop 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 trasla dx:2*cos(60gr)*(1-cos(120gr)) dy:2*sin(60gr)*(1-cos(120gr)) trasla dx:0 dy:-3*r2(3) trasla dx:9/2 dy:3*r2(3)/2 scrivi -3.1,3.05:Da una pavimentazione esagonale a un'altra pavimentazione stop scrivi -3.1,3.05: axes 0 punt 0 color 8 p3 scala sx:@-0.15 sy:-3.2..3.2 #x=1 #y=0 #s=val(#r) plot x:s y:8 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 plot x:s y:8 plot x:1 y:0 plot x:1+#r*cos(#a+120*gr) y:#r*sin(#a+120*gr) plot x:cos(240*gr) y:sin(240*gr) #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)) plot x:#d..#d+120*gr N=50 P y:f,g | 9 plot x:s y:8 plot x:#x y:#y plot x:#x+#r*cos(#d+120*gr) y:#y+#r*sin(#d+120*gr) plot x:cos(120gr) y:sin(120gr) #r=#s plot x:1+#r*cos(#a) y:#r*sin(#a) color 6 plot x:s y:14 plot x:-1/2 y:r2(3)/2 plot x:-0.88 y:0.512 plot x:-0.5 y:0.3 plot x:-0.5 y:0 plot x:-0.854 y:-0.1 plot x:-0.81 y:-0.198 plot x:-0.4 y:-0.1 plot x:-0.16 y:-0.5 plot x:-0.5 y:-r2(3)/2 plot x:0.5 y:-0.5 plot x:0.6 y:-0.6 plot x:0 y:-0.911 plot x:0.67 y:-0.971 plot x:0.894 y:-0.6 plot x:0.936 y:-0.36 plot x:0.6 y:-0.36 plot x:0.6 y:0.333 plot x:0.4 y:0.5 plot x:-0.25 y:0.5 plot x:-0.25 y:0.79 plot x:-1/2 y:r2(3)/2 plot x:-1/2 y:r2(3)/2 plot x:-0.88 y:0.512 plot x:-0.5 y:0.3 plot x:-0.5 y:0 plot x:-0.854 y:-0.1 plot x:-0.81 y:-0.198 plot x:-0.4 y:-0.1 plot x:-0.16 y:-0.5 plot x:-0.5 y:-r2(3)/2 plot x:0.5 y:-0.5 plot x:0.6 y:-0.6 plot x:0 y:-0.911 plot x:0.67 y:-0.971 plot x:0.894 y:-0.6 plot x:0.936 y:-0.36 plot x:0.6 y:-0.36 plot x:0.6 y:0.333 plot x:0.4 y:0.5 plot x:-0.25 y:0.5 plot x:-0.25 y:0.79 plot x:-1/2 y:r2(3)/2 stop scrivi 3,3: n scala sx:@-0.15 sy:-3.2..3.2 plot x:s y:14 plot x:-1/2 y:r2(3)/2 plot x:-0.88 y:0.512 plot x:-0.5 y:0.3 plot x:-0.5 y:0 plot x:-0.854 y:-0.1 plot x:-0.81 y:-0.198 plot x:-0.4 y:-0.1 plot x:-0.16 y:-0.5 plot x:-0.5 y:-r2(3)/2 plot x:0.5 y:-0.5 plot x:0.6 y:-0.6 plot x:0 y:-0.911 plot x:0.67 y:-0.971 plot x:0.894 y:-0.6 plot x:0.936 y:-0.36 plot x:0.6 y:-0.36 plot x:0.6 y:0.333 plot x:0.4 y:0.5 plot x:-0.25 y:0.5 plot x:-0.25 y:0.79 plot x:-1/2 y:r2(3)/2 plot x:-1/2 y:r2(3)/2 plot x:-0.88 y:0.512 plot x:-0.5 y:0.3 plot x:-0.5 y:0 plot x:-0.854 y:-0.1 plot x:-0.81 y:-0.198 plot x:-0.4 y:-0.1 plot x:-0.16 y:-0.5 plot x:-0.5 y:-r2(3)/2 plot x:0.5 y:-0.5 plot x:0.6 y:-0.6 plot x:0 y:-0.911 plot x:0.67 y:-0.971 plot x:0.894 y:-0.6 plot x:0.936 y:-0.36 plot x:0.6 y:-0.36 plot x:0.6 y:0.333 plot x:0.4 y:0.5 plot x:-0.25 y:0.5 plot x:-0.25 y:0.79 plot x:-1/2 y:r2(3)/2 plot x:s y:14 plot x:-0.51..-0.47 y:0.61..0.65 stop 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 trasla dx:2*cos(60gr)*(1-cos(120gr)) dy:2*sin(60gr)*(1-cos(120gr)) trasla dx:0 dy:-3*r2(3) trasla dx:9/2 dy:3*r2(3)/2 fill 0,2:4|14 fill 2,1:4|14 fill 0,0:4|14 fill 1.5,-0.5:4|14 fill 0,-1.7:4|14 fill -1.6,-0.7:4|14 fill -1.6,0.9:4|14 fill -3,0:4|14 fill -1.5,-2.5:4|14 fill -1.5,2.5:4|14 fill 3,0:4|14 nolista=0 noscrivi=0 ---