十進BASIC第2掲示板過去ログ

再帰図形

投稿者：しばっち投稿日：2012年10月21日(日)16時11分14秒

PUBLIC STRING F$ LET XSIZE=800 LET YSIZE=800 SET BITMAP SIZE XSIZE,YSIZE SET WINDOW 0 , XSIZE-1 , YSIZE-1, 0 SET POINT STYLE 1 SET COLOR MODE "REGULAR" LET X=400 LET Y=400 LET L=3^5 LET N=4 !'INPUT PROMPT "LEVEL=": N !'LET F$="シェルピンスキーのカーペット.svg" IF F$<>"" THEN OPEN #1:NAME F$ ERASE #1 PRINT #1:"<?xml version=";CHR$(34);"1.0";CHR$(34);" encoding=";CHR$(34);"utf-8";CHR$(34);"?>" PRINT #1:"<!DOCTYPE svg PUBLIC ";CHR$(34);"-//W3C//DTD SVG 1.1//EN";CHR$(34);" ";CHR$(34);"http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd";CHR$(34);" [" PRINT #1:" <!ENTITY ns_svg ";CHR$(34);"http://www.w3.org/2000/svg";CHR$(34);">" PRINT #1:" <!ENTITY ns_xlink ";CHR$(34);"http://www.w3.org/1999/xlink";CHR$(34);">" PRINT #1:"]>" PRINT #1:"<svg version=";CHR$(34);"1.1";CHR$(34);" xmlns=";CHR$(34);"&ns_svg;";CHR$(34);" width=";CHR$(34);STR$(XSIZE);CHR$(34);" height=";CHR$(34);STR$(YSIZE);CHR$(34);" viewBox=";CHR$(34);"0 0 ";STR$(XSIZE);" ";STR$(YSIZE);CHR$(34) PRINT #1:" overflow=";CHR$(34);"visible";CHR$(34);" enable-background=";CHR$(34);"new 0 0 ";STR$(XSIZE);" ";STR$(YSIZE);CHR$(34);" xml:space=";CHR$(34);"preserve";CHR$(34);">" END IF CALL RECURSIVE(N,X,Y,L,#1) IF F$<>"" THEN PRINT #1:"</svg>" CLOSE #1 END IF END EXTERNAL SUB RECURSIVE(N,X,Y,L,#1) IF N=0 THEN PLOT AREA:X-2*L,Y-2*L;X-2*L,Y+2*L;X+2*L,Y+2*L;X+2*L,Y-2*L IF F$<>"" THEN PRINT #1:"<polygon points=";CHR$(34);STR$(INT(X-2*L));",";STR$(INT(Y-2*L));" "; PRINT #1:STR$(INT(X-2*L));",";STR$(INT(Y+2*L));" "; PRINT #1:STR$(INT(X+2*L));",";STR$(INT(Y+2*L));" "; PRINT #1:STR$(INT(X+2*L));",";STR$(INT(Y-2*L));" "; PRINT #1:STR$(INT(X-2*L));",";STR$(INT(Y-2*L));CHR$(34);" fill=";CHR$(34);"black";CHR$(34);" stork=";CHR$(34);"black";CHR$(34);" stroke-width=";CHR$(34);"1";CHR$(34);"/>" END IF ELSE CALL RECURSIVE(N-1,X-L,Y-L,L/3,#1) CALL RECURSIVE(N-1,X-L,Y,L/3,#1) CALL RECURSIVE(N-1,X-L,Y+L,L/3,#1) CALL RECURSIVE(N-1,X,Y-L,L/3,#1) CALL RECURSIVE(N-1,X,Y+L,L/3,#1) CALL RECURSIVE(N-1,X+L,Y-L,L/3,#1) CALL RECURSIVE(N-1,X+L,Y,L/3,#1) CALL RECURSIVE(N-1,X+L,Y+L,L/3,#1) END IF END SUB

再帰図形

投稿者：しばっち投稿日：2012年10月21日(日)16時11分57秒

PUBLIC NUMERIC XSIZE,YSIZE PUBLIC STRING F$ LET XSIZE=400 LET YSIZE=400 SET BITMAP SIZE XSIZE,YSIZE SET WINDOW 0 , XSIZE-1 , YSIZE-1,0 SET POINT STYLE 1 SET COLOR MODE "REGULAR" LET D=.3 !'DO !' INPUT PROMPT "比率(0<D<1)=": D !'LOOP WHILE D <= 0 OR D >= 1 LET N=3 !'INPUT PROMPT "LEVEL": N !'LET F$="カントル集合.svg" IF F$<>"" THEN OPEN #1:NAME F$ ERASE #1 PRINT #1:"<?xml version=";CHR$(34);"1.0";CHR$(34);" encoding=";CHR$(34);"utf-8";CHR$(34);"?>" PRINT #1:"<!DOCTYPE svg PUBLIC ";CHR$(34);"-//W3C//DTD SVG 1.1//EN";CHR$(34);" ";CHR$(34);"http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd";CHR$(34);" [" PRINT #1:" <!ENTITY ns_svg ";CHR$(34);"http://www.w3.org/2000/svg";CHR$(34);">" PRINT #1:" <!ENTITY ns_xlink ";CHR$(34);"http://www.w3.org/1999/xlink";CHR$(34);">" PRINT #1:"]>" PRINT #1:"<svg version=";CHR$(34);"1.1";CHR$(34);" xmlns=";CHR$(34);"&ns_svg;";CHR$(34);" width=";CHR$(34);STR$(XSIZE);CHR$(34);" height=";CHR$(34);STR$(YSIZE);CHR$(34);" viewBox=";CHR$(34);"0 0 ";STR$(XSIZE);" ";STR$(YSIZE);CHR$(34) PRINT #1:" overflow=";CHR$(34);"visible";CHR$(34);" enable-background=";CHR$(34);"new 0 0 ";STR$(XSIZE);" ";STR$(YSIZE);CHR$(34);" xml:space=";CHR$(34);"preserve";CHR$(34);">" END IF LET X = XSIZE/2 LET L = XSIZE CALL RECURSIVE(N,X,L,D,#1) IF F$<>"" THEN PRINT #1:"</svg>" CLOSE #1 END IF END EXTERNAL SUB RECURSIVE(N,X,L,D,#1) IF N>0 THEN LET XS = X - L * D / 2 LET XE = X + L * D / 2 CALL BOXFULL(XS, 0,XE, YSIZE-1, #1) CALL BOXFULL(0, XS,XSIZE-1, XE, #1) CALL RECURSIVE(N-1,X - L * ((D / 2 + (1 - D) / 4)),L * (1 - D) / 2,D,#1) CALL RECURSIVE(N-1,X + L * ((D / 2 + (1 - D) / 4)),L * (1 - D) / 2,D,#1) END IF END SUB EXTERNAL SUB BOXFULL(XS,YS,XE,YE,#1) PLOT AREA:XS,YS;XS,YE;XE,YE;XE,YS IF F$<>"" THEN PRINT #1:"<polygon points=";CHR$(34); PRINT #1:STR$(INT(XS));",";STR$(INT(YS));" "; PRINT #1:STR$(INT(XS));",";STR$(INT(YE));" "; PRINT #1:STR$(INT(XE));",";STR$(INT(YE));" "; PRINT #1:STR$(INT(XE));",";STR$(INT(YS));" "; PRINT #1:STR$(INT(XS));",";STR$(INT(YS));" "; PRINT #1:CHR$(34);" fill=";CHR$(34);"black";CHR$(34);" stork=";CHR$(34);"black";CHR$(34);" stroke-width=";CHR$(34);"1";CHR$(34);"/>" END IF END SUB

再帰図形

投稿者：しばっち投稿日：2012年10月21日(日)16時12分35秒

PUBLIC NUMERIC X,Y,THETA PUBLIC STRING F$ LET XSIZE=600 LET YSIZE=600 SET BITMAP SIZE XSIZE,YSIZE SET WINDOW 0 , XSIZE-1 , YSIZE-1, 0 SET POINT STYLE 1 SET COLOR MODE "REGULAR" LET N=4 !'INPUT PROMPT "LEVEL=": N !'LET F$="コッホ星.svg" IF F$<>"" THEN OPEN #1:NAME F$ ERASE #1 PRINT #1:"<?xml version=";CHR$(34);"1.0";CHR$(34);" encoding=";CHR$(34);"utf-8";CHR$(34);"?>" PRINT #1:"<!DOCTYPE svg PUBLIC ";CHR$(34);"-//W3C//DTD SVG 1.1//EN";CHR$(34);" ";CHR$(34);"http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd";CHR$(34);" [" PRINT #1:" <!ENTITY ns_svg ";CHR$(34);"http://www.w3.org/2000/svg";CHR$(34);">" PRINT #1:" <!ENTITY ns_xlink ";CHR$(34);"http://www.w3.org/1999/xlink";CHR$(34);">" PRINT #1:"]>" PRINT #1:"<svg version=";CHR$(34);"1.1";CHR$(34);" xmlns=";CHR$(34);"&ns_svg;";CHR$(34);" width=";CHR$(34);STR$(XSIZE);CHR$(34);" height=";CHR$(34);STR$(YSIZE);CHR$(34);" viewBox=";CHR$(34);"0 0 ";STR$(XSIZE);" ";STR$(YSIZE);CHR$(34) PRINT #1:" overflow=";CHR$(34);"visible";CHR$(34);" enable-background=";CHR$(34);"new 0 0 ";STR$(XSIZE);" ";STR$(YSIZE);CHR$(34);" xml:space=";CHR$(34);"preserve";CHR$(34);">" END IF LET X=10 LET Y=380 LET L=550 FOR I=1 TO 5 CALL RECURSIVE(N,L,#1) LET THETA=THETA+144 NEXT I IF F$<>"" THEN PRINT #1:"</svg>" CLOSE #1 END IF END EXTERNAL SUB RECURSIVE(LEV,L,#1) IF LEV=0 THEN LET XX=X+L*COS(THETA*PI/180) LET YY=Y-L*SIN(THETA*PI/180) PLOT LINES: X,Y;XX,YY IF F$<>"" THEN PRINT #1:"<line x1=";CHR$(34);STR$(INT(X));CHR$(34);" y1=";CHR$(34);STR$(INT(Y));CHR$(34);" x2=";CHR$(34);STR$(INT(XX));CHR$(34);" y2=";CHR$(34);STR$(INT(YY));CHR$(34);" stroke=";CHR$(34);"black";CHR$(34);" stroke-width=";CHR$(34);"1";CHR$(34);"/>" LET X=XX LET Y=YY ELSE CALL RECURSIVE(LEV-1,L/3,#1) LET THETA=THETA+60 CALL RECURSIVE(LEV-1,L/3,#1) LET THETA=THETA-120 CALL RECURSIVE(LEV-1,L/3,#1) LET THETA=THETA+60 CALL RECURSIVE(LEV-1,L/3,#1) END IF END SUB

再帰図形

投稿者：しばっち投稿日：2012年10月21日(日)16時13分43秒

PUBLIC NUMERIC X,Y,THETA,RR,L1,L2 PUBLIC STRING F$ LET XSIZE=600 LET YSIZE=600 SET BITMAP SIZE XSIZE,YSIZE SET WINDOW 0 , XSIZE-1 , YSIZE-1, 0 SET POINT STYLE 1 SET COLOR MODE "REGULAR" LET N=3 !'INPUT PROMPT "LEVEL=": N LET K=5 LET L=450 LET PX=.3 LET PY=0 LET THETA=90 LET GX=.5*COS(PI/K) LET GY=.5*SIN(PI/K) LET L1=PX LET L2=SQR((PX-GX)^2+(PY-GY)^2) LET RR=ATN((GY-PY)/(GX-PX))*180/PI !'LET F$="再帰図形.svg" IF F$<>"" THEN OPEN #1:NAME F$ ERASE #1 PRINT #1:"<?xml version=";CHR$(34);"1.0";CHR$(34);" encoding=";CHR$(34);"utf-8";CHR$(34);"?>" PRINT #1:"<!DOCTYPE svg PUBLIC ";CHR$(34);"-//W3C//DTD SVG 1.1//EN";CHR$(34);" ";CHR$(34);"http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd";CHR$(34);" [" PRINT #1:" <!ENTITY ns_svg ";CHR$(34);"http://www.w3.org/2000/svg";CHR$(34);">" PRINT #1:" <!ENTITY ns_xlink ";CHR$(34);"http://www.w3.org/1999/xlink";CHR$(34);">" PRINT #1:"]>" PRINT #1:"<svg version=";CHR$(34);"1.1";CHR$(34);" xmlns=";CHR$(34);"&ns_svg;";CHR$(34);" width=";CHR$(34);STR$(XSIZE);CHR$(34);" height=";CHR$(34);STR$(YSIZE);CHR$(34);" viewBox=";CHR$(34);"0 0 ";STR$(XSIZE);" ";STR$(YSIZE);CHR$(34) PRINT #1:" overflow=";CHR$(34);"visible";CHR$(34);" enable-background=";CHR$(34);"new 0 0 ";STR$(XSIZE);" ";STR$(YSIZE);CHR$(34);" xml:space=";CHR$(34);"preserve";CHR$(34);">" END IF FOR I=1 TO K LET X=300 LET Y=300 LET THETA=THETA+360/K CALL RECURSIVE1(N,L,#1) LET X=300 LET Y=300 CALL RECURSIVE2(N,L,#1) NEXT I IF F$<>"" THEN PRINT #1:"</svg>" CLOSE #1 END IF END EXTERNAL SUB RECURSIVE1(LEV,L,#1) IF LEV=0 THEN LET XX=X+L*COS(THETA*PI/180) LET YY=Y-L*SIN(THETA*PI/180) PLOT LINES: X,Y;XX,YY IF F$<>"" THEN PRINT #1:"<line x1=";CHR$(34);STR$(INT(X));CHR$(34);" y1=";CHR$(34);STR$(INT(Y));CHR$(34);" x2=";CHR$(34);STR$(INT(XX));CHR$(34);" y2=";CHR$(34);STR$(INT(YY));CHR$(34);" stroke=";CHR$(34);"black";CHR$(34);" stroke-width=";CHR$(34);"1";CHR$(34);"/>" LET X=XX LET Y=YY ELSE CALL RECURSIVE1(LEV-1,L*L1,#1) LET THETA=THETA+RR CALL RECURSIVE1(LEV-1,L*L2,#1) LET THETA=THETA-2*RR CALL RECURSIVE1(LEV-1,L*L2,#1) LET THETA=THETA+RR CALL RECURSIVE1(LEV-1,L*L1,#1) END IF END SUB EXTERNAL SUB RECURSIVE2(LEV,L,#1) IF LEV=0 THEN LET XX=X+L*COS(THETA*PI/180) LET YY=Y-L*SIN(THETA*PI/180) PLOT LINES: X,Y;XX,YY IF F$<>"" THEN PRINT #1:"<line x1=";CHR$(34);STR$(INT(X));CHR$(34);" y1=";CHR$(34);STR$(INT(Y));CHR$(34);" x2=";CHR$(34);STR$(INT(XX));CHR$(34);" y2=";CHR$(34);STR$(INT(YY));CHR$(34);" stroke=";CHR$(34);"black";CHR$(34);" stroke-width=";CHR$(34);"1";CHR$(34);"/>" LET X=XX LET Y=YY ELSE CALL RECURSIVE2(LEV-1,L*L1,#1) LET THETA=THETA-RR CALL RECURSIVE2(LEV-1,L*L2,#1) LET THETA=THETA+2*RR CALL RECURSIVE2(LEV-1,L*L2,#1) LET THETA=THETA-RR CALL RECURSIVE2(LEV-1,L*L1,#1) END IF END SUB

再帰図形

投稿者：しばっち投稿日：2012年10月21日(日)16時14分36秒

PUBLIC NUMERIC X,Y,THETA PUBLIC STRING F$ LET XSIZE=640 LET YSIZE=400 SET BITMAP SIZE XSIZE,YSIZE SET WINDOW 0 , XSIZE-1 , YSIZE-1,0 SET POINT STYLE 1 SET COLOR MODE "REGULAR" LET N=6 !'INPUT PROMPT "LEVEL=": N LET X=0 LET Y=300 !'LET F$="森.svg" IF F$<>"" THEN OPEN #1:NAME F$ ERASE #1 PRINT #1:"<?xml version=";CHR$(34);"1.0";CHR$(34);" encoding=";CHR$(34);"utf-8";CHR$(34);"?>" PRINT #1:"<!DOCTYPE svg PUBLIC ";CHR$(34);"-//W3C//DTD SVG 1.1//EN";CHR$(34);" ";CHR$(34);"http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd";CHR$(34);" [" PRINT #1:" <!ENTITY ns_svg ";CHR$(34);"http://www.w3.org/2000/svg";CHR$(34);">" PRINT #1:" <!ENTITY ns_xlink ";CHR$(34);"http://www.w3.org/1999/xlink";CHR$(34);">" PRINT #1:"]>" PRINT #1:"<svg version=";CHR$(34);"1.1";CHR$(34);" xmlns=";CHR$(34);"&ns_svg;";CHR$(34);" width=";CHR$(34);STR$(XSIZE);CHR$(34);" height=";CHR$(34);STR$(YSIZE);CHR$(34);" viewBox=";CHR$(34);"0 0 ";STR$(XSIZE);" ";STR$(YSIZE);CHR$(34) PRINT #1:" overflow=";CHR$(34);"visible";CHR$(34);" enable-background=";CHR$(34);"new 0 0 ";STR$(XSIZE);" ";STR$(YSIZE);CHR$(34);" xml:space=";CHR$(34);"preserve";CHR$(34);">" END IF CALL RECURSIVE(N,640,#1) IF F$<>"" THEN PRINT #1:"</svg>" CLOSE #1 END IF END EXTERNAL SUB RECURSIVE(LEV,L,#1) IF LEV=0 THEN LET XX=X+L*COS(THETA*PI/180) LET YY=Y-L*SIN(THETA*PI/180) IF F$<>"" THEN PRINT #1:"<line x1=";CHR$(34);STR$(INT(X));CHR$(34);" y1=";CHR$(34);STR$(INT(Y));CHR$(34);" x2=";CHR$(34);STR$(INT(XX));CHR$(34);" y2=";CHR$(34);STR$(INT(YY));CHR$(34);" stroke=";CHR$(34);"black";CHR$(34);" stroke-width=";CHR$(34);"1";CHR$(34);"/>" PLOT LINES: X,Y;XX,YY LET X=XX LET Y=YY ELSE CALL RECURSIVE(LEV-1,L*.26500453458963,#1) !'.3-.4/TAN(85*PI/180) LET THETA=THETA+85 CALL RECURSIVE(LEV-1,L*.401527935017339,#1) !'SQR((.3-.26500453458963)^2+.4^2) LET THETA=THETA-170 CALL RECURSIVE(LEV-1,L*.401527935017339,#1) LET THETA=THETA+85 CALL RECURSIVE(LEV-1,L*.66500453458963,#1) !'1-(.3+(.3-.26500453458963)) END IF END SUB

再帰図形

投稿者：しばっち投稿日：2012年10月21日(日)16時16分41秒

PUBLIC NUMERIC X,Y,THETA PUBLIC STRING F$ LET XSIZE=600 LET YSIZE=600 SET BITMAP SIZE XSIZE,YSIZE SET WINDOW 0 , XSIZE-1 , YSIZE-1, 0 SET POINT STYLE 1 SET COLOR MODE "REGULAR" LET N=4 !'INPUT PROMPT "LEVEL=": N !'LET F$="海岸線.svg" IF F$<>"" THEN OPEN #1:NAME F$ ERASE #1 PRINT #1:"<?xml version=";CHR$(34);"1.0";CHR$(34);" encoding=";CHR$(34);"utf-8";CHR$(34);"?>" PRINT #1:"<!DOCTYPE svg PUBLIC ";CHR$(34);"-//W3C//DTD SVG 1.1//EN";CHR$(34);" ";CHR$(34);"http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd";CHR$(34);" [" PRINT #1:" <!ENTITY ns_svg ";CHR$(34);"http://www.w3.org/2000/svg";CHR$(34);">" PRINT #1:" <!ENTITY ns_xlink ";CHR$(34);"http://www.w3.org/1999/xlink";CHR$(34);">" PRINT #1:"]>" PRINT #1:"<svg version=";CHR$(34);"1.1";CHR$(34);" xmlns=";CHR$(34);"&ns_svg;";CHR$(34);" width=";CHR$(34);STR$(XSIZE);CHR$(34);" height=";CHR$(34);STR$(YSIZE);CHR$(34);" viewBox=";CHR$(34);"0 0 ";STR$(XSIZE);" ";STR$(YSIZE);CHR$(34) PRINT #1:" overflow=";CHR$(34);"visible";CHR$(34);" enable-background=";CHR$(34);"new 0 0 ";STR$(XSIZE);" ";STR$(YSIZE);CHR$(34);" xml:space=";CHR$(34);"preserve";CHR$(34);">" END IF LET L=600 LET X=0 LET Y=350 CALL RECURSIVE(N,L,L/40,#1) IF F$<>"" THEN PRINT #1:"</svg>" CLOSE #1 END IF END EXTERNAL SUB RECURSIVE(LEV,L,L2,#1) IF LEV=0 THEN LET XX=X+L*COS(THETA) LET YY=Y-L*SIN(THETA) PLOT LINES: X,Y;XX,YY IF F$<>"" THEN PRINT #1:"<line x1=";CHR$(34);STR$(INT(X));CHR$(34);" y1=";CHR$(34);STR$(INT(Y));CHR$(34);" x2=";CHR$(34);STR$(INT(XX));CHR$(34);" y2=";CHR$(34);STR$(INT(YY));CHR$(34);" stroke=";CHR$(34);"black";CHR$(34);" stroke-width=";CHR$(34);"1";CHR$(34);"/>" LET X=XX LET Y=YY ELSE LET ALPHA=ATN(L2/(L/4)) LET LL=SQR((L/4)^2+L2^2) CALL RECURSIVE(LEV-1,L/4,L2*.6,#1) LET THETA=THETA+ALPHA CALL RECURSIVE(LEV-1,LL,L2*.6,#1) LET THETA=THETA-2*ALPHA CALL RECURSIVE(LEV-1,LL,L2*.6,#1) LET THETA=THETA+ALPHA CALL RECURSIVE(LEV-1,L/4,L2*.6,#1) END IF END SUB

再帰図形

投稿者：しばっち投稿日：2012年10月21日(日)16時17分16秒

PUBLIC STRING F$ LET XSIZE=600 LET YSIZE=600 SET BITMAP SIZE XSIZE,YSIZE SET WINDOW 0 , XSIZE-1 , YSIZE-1,0 SET POINT STYLE 1 SET COLOR MODE "REGULAR" LET N=1 !'LET F$="銀河.svg" IF F$<>"" THEN OPEN #1:NAME F$ ERASE #1 PRINT #1:"<?xml version=";CHR$(34);"1.0";CHR$(34);" encoding=";CHR$(34);"utf-8";CHR$(34);"?>" PRINT #1:"<!DOCTYPE svg PUBLIC ";CHR$(34);"-//W3C//DTD SVG 1.1//EN";CHR$(34);" ";CHR$(34);"http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd";CHR$(34);" [" PRINT #1:" <!ENTITY ns_svg ";CHR$(34);"http://www.w3.org/2000/svg";CHR$(34);">" PRINT #1:" <!ENTITY ns_xlink ";CHR$(34);"http://www.w3.org/1999/xlink";CHR$(34);">" PRINT #1:"]>" PRINT #1:"<svg version=";CHR$(34);"1.1";CHR$(34);" xmlns=";CHR$(34);"&ns_svg;";CHR$(34);" width=";CHR$(34);STR$(XSIZE);CHR$(34);" height=";CHR$(34);STR$(YSIZE);CHR$(34);" viewBox=";CHR$(34);"0 0 ";STR$(XSIZE);" ";STR$(YSIZE);CHR$(34) PRINT #1:" overflow=";CHR$(34);"visible";CHR$(34);" enable-background=";CHR$(34);"new 0 0 ";STR$(XSIZE);" ";STR$(YSIZE);CHR$(34);" xml:space=";CHR$(34);"preserve";CHR$(34);">" END IF CALL RECURSIVE(N,300,300,250,#1) IF F$<>"" THEN PRINT #1:"</svg>" CLOSE #1 END IF END EXTERNAL SUB RECURSIVE(N,XX,YY,RR,#1) IF N=0 THEN FOR THETA=0 TO 360 STEP 60 LET TH=0 DO LET R=EXP(TH*PI/180) LET X=XX+R*COS((THETA+TH)*PI/180) LET Y=YY-R*SIN((THETA+TH)*PI/180) PLOT POINTS: X , Y IF F$<>"" THEN PRINT #1:"<circle cx=";CHR$(34);STR$(INT(X));CHR$(34);" cy=";CHR$(34);STR$(INT(Y));CHR$(34);" r=";CHR$(34);"1";CHR$(34);" fill=";CHR$(34);"black";CHR$(34);" stroke=";CHR$(34);"black";CHR$(34);" stroke-width=";CHR$(34);"1";CHR$(34);" />" LET TH=TH+10 LOOP WHILE R<RR NEXT THETA ELSE FOR I=0 TO 5 LET THETA=I*60 LET TH=0 DO LET R=EXP(TH*PI/180) LET X=XX+R*COS((THETA+TH)*PI/180) LET Y=YY-R*SIN((THETA+TH)*PI/180) CALL RECURSIVE(N-1,X,Y,RR*.5,#1) LET TH=TH+10 LOOP WHILE R<RR NEXT I END IF END SUB

再帰図形

投稿者：しばっち投稿日：2012年10月21日(日)16時18分0秒

PUBLIC NUMERIC L,X,Y,THETA,SP,XA(200),YA(200),TH(200),XMAX,XMIN,YMAX,YMIN,XSIZE,YSIZE PUBLIC STRING F$ LET XMAX=-1E10 LET YMAX=-1E10 LET XMIN=1E10 LET YMIN=1E10 LET XSIZE=600 LET YSIZE=600 SET BITMAP SIZE XSIZE,YSIZE SET WINDOW 0 , XSIZE-1 , YSIZE-1, 0 SET POINT STYLE 1 SET COLOR MODE "REGULAR" LET N=4 !'INPUT PROMPT "LEVEL=": N LET PARA$="FX++FX++FX++FX++FX" LET P$=PARA$ LET SP=1 LET L=10 LET X=140 LET Y=50 LET THETA=0 CALL RECURSIVE(N,P$,#1) SET BITMAP SIZE XSIZE,YSIZE*(YMAX-YMIN)/(XMAX-XMIN) SET WINDOW XMIN,XMAX,YMAX,YMIN CLEAR !'LET F$="再帰図形.svg" IF F$<>"" THEN OPEN #1:NAME F$ ERASE #1 PRINT #1:"<?xml version=";CHR$(34);"1.0";CHR$(34);" encoding=";CHR$(34);"utf-8";CHR$(34);"?>" PRINT #1:"<!DOCTYPE svg PUBLIC ";CHR$(34);"-//W3C//DTD SVG 1.1//EN";CHR$(34);" ";CHR$(34);"http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd";CHR$(34);" [" PRINT #1:" <!ENTITY ns_svg ";CHR$(34);"http://www.w3.org/2000/svg";CHR$(34);">" PRINT #1:" <!ENTITY ns_xlink ";CHR$(34);"http://www.w3.org/1999/xlink";CHR$(34);">" PRINT #1:"]>" PRINT #1:"<svg version=";CHR$(34);"1.1";CHR$(34);" xmlns=";CHR$(34);"&ns_svg;";CHR$(34);" width=";CHR$(34);STR$(XSIZE);CHR$(34);" height=";CHR$(34);STR$(YSIZE);CHR$(34);" viewBox=";CHR$(34);"0 0 ";STR$(XSIZE);" ";STR$(YSIZE);CHR$(34) PRINT #1:" overflow=";CHR$(34);"visible";CHR$(34);" enable-background=";CHR$(34);"new 0 0 ";STR$(XSIZE);" ";STR$(YSIZE);CHR$(34);" xml:space=";CHR$(34);"preserve";CHR$(34);">" END IF LET P$=PARA$ LET SP=1 LET L=10 LET X=140 LET Y=50 LET THETA=0 CALL RECURSIVE(N,P$,#1) IF F$<>"" THEN PRINT #1:"</svg>" CLOSE #1 END IF END EXTERNAL SUB RECURSIVE(N,PARA$,#1) IF N>0 THEN FOR I=1 TO LEN(PARA$) SELECT CASE UCASE$(PARA$(I:I)) CASE "+" CALL RECURSIVE(N-1,"+",#1) CASE "-" CALL RECURSIVE(N-1,"-",#1) CASE "[" CALL RECURSIVE(N-1,"[",#1) CASE "]" CALL RECURSIVE(N-1,"]",#1) CASE "F" CALL RECURSIVE(N-1,"",#1) CASE "G" CALL RECURSIVE(N-1,"",#1) CASE "X" CALL RECURSIVE(N-1,"FY++FY-FY+++++FY+[A]+FY++FY",#1) CASE "Y" CALL RECURSIVE(N-1,"+GZ--GZ+FX++FX[++FX++FX++FX]-FX++FX++FX++FX++FX-GZ++GZ",#1) CASE "Z" CALL RECURSIVE(N-1,"+GW-GW-GW+",#1) CASE "W" CALL RECURSIVE(N-1,"+GZGZ-GZ-GZGZ+",#1) CASE "A" CALL RECURSIVE(N-1,"+GZ--GZ+FX++FX++FX++FX++FX",#1) END SELECT NEXT I ELSE FOR I=1 TO LEN(PARA$) SELECT CASE UCASE$(PARA$(I:I)) CASE "+" LET THETA=THETA+36 CASE "-" LET THETA=THETA-36 CASE "F" LET XMAX=MAX(XMAX,X) LET XMIN=MIN(XMIN,X) LET YMAX=MAX(YMAX,Y) LET YMIN=MIN(YMIN,Y) LET XX=X+L*COS(THETA*PI/180) LET YY=Y+L*SIN(THETA*PI/180) PLOT LINES: X,Y;XX,YY IF F$<>"" THEN PRINT #1:"<line x1=";CHR$(34);STR$(PIXELX(X));CHR$(34);" y1=";CHR$(34);STR$(YSIZE-PIXELY(Y));CHR$(34);" x2=";CHR$(34);STR$(PIXELX(XX));CHR$(34);" y2=";CHR$(34);STR$(YSIZE-PIXELY(YY));CHR$(34);" stroke=";CHR$(34);"black";CHR$(34);" stroke-width=";CHR$(34);"1";CHR$(34);"/>" LET X=XX LET Y=YY LET XMAX=MAX(XMAX,X) LET XMIN=MIN(XMIN,X) LET YMAX=MAX(YMAX,Y) LET YMIN=MIN(YMIN,Y) CASE "G" LET X=X+L*COS(THETA*PI/180) LET Y=Y+L*SIN(THETA*PI/180) CASE "[" LET XA(SP)=X LET YA(SP)=Y LET TH(SP)=THETA LET SP=SP+1 CASE "]" LET SP=SP-1 LET X=XA(SP) LET Y=YA(SP) LET THETA=TH(SP) CASE ELSE END SELECT NEXT I END IF END SUB

再帰図形

投稿者：しばっち投稿日：2012年10月21日(日)16時18分37秒

PUBLIC NUMERIC X,Y,THETA,XMAX,XMIN,YMAX,YMIN PUBLIC STRING F$ LET XMAX=-1E10 LET YMAX=-1E10 LET XMIN=1E10 LET YMIN=1E10 LET XSIZE=600 LET YSIZE=600 SET BITMAP SIZE XSIZE,YSIZE SET WINDOW 0 , XSIZE-1 , YSIZE-1, 0 SET POINT STYLE 1 SET COLOR MODE "REGULAR" LET N=3 !'INPUT PROMPT "LEVEL=": N LET L=10 LET X=0 LET Y=200 CALL RECURSIVE(N,L,#1) LET XSIZE=600*(XMAX-XMIN)/(YMAX-YMIN) LET YSIZE=600 SET BITMAP SIZE XSIZE,YSIZE SET WINDOW XMIN,XMAX,YMAX,YMIN CLEAR !'LET F$="再帰図形.svg" IF F$<>"" THEN OPEN #1:NAME F$ ERASE #1 PRINT #1:"<?xml version=";CHR$(34);"1.0";CHR$(34);" encoding=";CHR$(34);"utf-8";CHR$(34);"?>" PRINT #1:"<!DOCTYPE svg PUBLIC ";CHR$(34);"-//W3C//DTD SVG 1.1//EN";CHR$(34);" ";CHR$(34);"http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd";CHR$(34);" [" PRINT #1:" <!ENTITY ns_svg ";CHR$(34);"http://www.w3.org/2000/svg";CHR$(34);">" PRINT #1:" <!ENTITY ns_xlink ";CHR$(34);"http://www.w3.org/1999/xlink";CHR$(34);">" PRINT #1:"]>" PRINT #1:"<svg version=";CHR$(34);"1.1";CHR$(34);" xmlns=";CHR$(34);"&ns_svg;";CHR$(34);" width=";CHR$(34);STR$(XSIZE);CHR$(34);" height=";CHR$(34);STR$(YSIZE);CHR$(34);" viewBox=";CHR$(34);"0 0 ";STR$(XSIZE);" ";STR$(YSIZE);CHR$(34) PRINT #1:" overflow=";CHR$(34);"visible";CHR$(34);" enable-background=";CHR$(34);"new 0 0 ";STR$(XSIZE);" ";STR$(YSIZE);CHR$(34);" xml:space=";CHR$(34);"preserve";CHR$(34);">" END IF LET THETA=0 LET X=0 LET Y=200 LET L=10 CALL RECURSIVE(N,L,#1) IF F$<>"" THEN PRINT #1:"</svg>" CLOSE #1 END IF END EXTERNAL SUB RECURSIVE(LEV,L,#1) IF LEV=0 THEN LET XX=X+L*COS(THETA*PI/180) LET YY=Y-L*SIN(THETA*PI/180) PLOT LINES: X,Y;XX,YY IF F$<>"" THEN PRINT #1:"<line x1=";CHR$(34);STR$(PIXELX(X));CHR$(34);" y1=";CHR$(34);STR$(PIXELY(Y));CHR$(34);" x2=";CHR$(34);STR$(PIXELX(XX));CHR$(34);" y2=";CHR$(34);STR$(PIXELY(YY));CHR$(34);" stroke=";CHR$(34);"black";CHR$(34);" stroke-width=";CHR$(34);"1";CHR$(34);"/>" LET X=XX LET Y=YY LET XMAX=MAX(XMAX,X) LET YMAX=MAX(YMAX,Y) LET XMIN=MIN(XMIN,X) LET YMIN=MIN(YMIN,Y) ELSE CALL RECURSIVE(LEV-1,L/2,#1) LET THETA=THETA-45 CALL RECURSIVE(LEV-1,L/2,#1) LET THETA=THETA+30 CALL RECURSIVE(LEV-1,L/2,#1) LET THETA=THETA+30 CALL RECURSIVE(LEV-1,L/2,#1) LET THETA=THETA+30 CALL RECURSIVE(LEV-1,L/2,#1) LET THETA=THETA+90 CALL RECURSIVE(LEV-1,L/2,#1) LET THETA=THETA+30 CALL RECURSIVE(LEV-1,L/2,#1) LET THETA=THETA+30 CALL RECURSIVE(LEV-1,L/2,#1) LET THETA=THETA+120 CALL RECURSIVE(LEV-1,L/2,#1) LET THETA=THETA+30 CALL RECURSIVE(LEV-1,L/2,#1) LET THETA=THETA+30 CALL RECURSIVE(LEV-1,L/2,#1) LET THETA=THETA-15 CALL RECURSIVE(LEV-1,L/2,#1) END IF END SUB

再帰図形

投稿者：しばっち投稿日：2012年10月21日(日)16時19分42秒

PUBLIC NUMERIC X,Y,THETA,XMAX,XMIN,YMAX,YMIN,XSIZE,YSIZE PUBLIC STRING F$ LET XMAX=-1E10 LET YMAX=-1E10 LET XMIN=1E10 LET YMIN=1E10 LET XSIZE=600 LET YSIZE=600 SET BITMAP SIZE XSIZE,YSIZE SET WINDOW 0 , XSIZE-1 , YSIZE-1, 0 SET POINT STYLE 1 SET COLOR MODE "REGULAR" LET N=5 !'INPUT PROMPT "LEVEL=": N LET L=30 LET THETA=0 LET X=0 LET Y=300 CALL RECURSIVE(N,L,#1) LET XSIZE=600*(XMAX-XMIN)/(YMAX-YMIN) LET YSIZE=600 SET BITMAP SIZE XSIZE,YSIZE SET WINDOW XMIN,XMAX,YMAX,YMIN CLEAR LET L=30 LET THETA=0 LET X=0 LET Y=300 !'LET F$="サンゴ礁.svg" IF F$<>"" THEN OPEN #1:NAME F$ ERASE #1 PRINT #1:"<?xml version=";CHR$(34);"1.0";CHR$(34);" encoding=";CHR$(34);"utf-8";CHR$(34);"?>" PRINT #1:"<!DOCTYPE svg PUBLIC ";CHR$(34);"-//W3C//DTD SVG 1.1//EN";CHR$(34);" ";CHR$(34);"http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd";CHR$(34);" [" PRINT #1:" <!ENTITY ns_svg ";CHR$(34);"http://www.w3.org/2000/svg";CHR$(34);">" PRINT #1:" <!ENTITY ns_xlink ";CHR$(34);"http://www.w3.org/1999/xlink";CHR$(34);">" PRINT #1:"]>" PRINT #1:"<svg version=";CHR$(34);"1.1";CHR$(34);" xmlns=";CHR$(34);"&ns_svg;";CHR$(34);" width=";CHR$(34);STR$(XSIZE);CHR$(34);" height=";CHR$(34);STR$(YSIZE);CHR$(34);" viewBox=";CHR$(34);"0 0 ";STR$(XSIZE);" ";STR$(YSIZE);CHR$(34) PRINT #1:" overflow=";CHR$(34);"visible";CHR$(34);" enable-background=";CHR$(34);"new 0 0 ";STR$(XSIZE);" ";STR$(YSIZE);CHR$(34);" xml:space=";CHR$(34);"preserve";CHR$(34);">" END IF CALL RECURSIVE(N,L,#1) IF F$<>"" THEN PRINT #1:"</svg>" CLOSE #1 END IF END EXTERNAL SUB RECURSIVE(LEV,L,#1) IF LEV=0 THEN LET XMAX=MAX(XMAX,X) LET YMAX=MAX(YMAX,Y) LET XMIN=MIN(XMIN,X) LET YMIN=MIN(YMIN,Y) LET XX=X+L*COS(THETA*PI/180) LET YY=Y-L*SIN(THETA*PI/180) PLOT LINES: X,Y;XX,YY IF F$<>"" THEN PRINT #1:"<line x1=";CHR$(34);STR$(PIXELX(X));CHR$(34);" y1=";CHR$(34);STR$(YSIZE-PIXELY(Y));CHR$(34);" x2=";CHR$(34);STR$(PIXELX(XX));CHR$(34);" y2=";CHR$(34);STR$(YSIZE-PIXELY(YY));CHR$(34);" stroke=";CHR$(34);"black";CHR$(34);" stroke-width=";CHR$(34);"1";CHR$(34);"/>" LET X=XX LET Y=YY ELSE CALL RECURSIVE(LEV-1,L*.5,#1) LET THETA=THETA+90 CALL RECURSIVE(LEV-1,L*.5,#1) LET THETA=THETA-90 CALL RECURSIVE(LEV-1,L*.5,#1) LET THETA=THETA-90 CALL RECURSIVE(LEV-1,L,#1) LET THETA=THETA+90 CALL RECURSIVE(LEV-1,L,#1) LET THETA=THETA+45 CALL RECURSIVE(LEV-1,L*SQR(.5),#1) LET THETA=THETA-45 END IF END SUB

再帰図形

投稿者：しばっち投稿日：2012年10月21日(日)16時20分47秒

PUBLIC NUMERIC X,Y,THETA,XMAX,XMIN,YMAX,YMIN PUBLIC STRING F$ LET XMAX=-1E10 LET YMAX=-1E10 LET XMIN=1E10 LET YMIN=1E10 LET XSIZE=600 LET YSIZE=600 SET BITMAP SIZE XSIZE,YSIZE SET WINDOW 0 , XSIZE-1 , YSIZE-1, 0 SET POINT STYLE 1 SET COLOR MODE "REGULAR" LET N=3 !'INPUT PROMPT "LEVEL=": N LET L=180 LET THETA=90 LET X=590 LET Y=450 FOR I=1 TO 6 CALL RECURSIVE(N,L,#1) LET THETA=THETA+60 NEXT I LET XSIZE=600*(XMAX-XMIN)/(YMAX-YMIN) LET YSIZE=600 SET BITMAP SIZE XSIZE,YSIZE SET WINDOW XMIN,XMAX,YMAX,YMIN CLEAR !'LET F$="雪の結晶.svg" IF F$<>"" THEN OPEN #1:NAME F$ ERASE #1 PRINT #1:"<?xml version=";CHR$(34);"1.0";CHR$(34);" encoding=";CHR$(34);"utf-8";CHR$(34);"?>" PRINT #1:"<!DOCTYPE svg PUBLIC ";CHR$(34);"-//W3C//DTD SVG 1.1//EN";CHR$(34);" ";CHR$(34);"http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd";CHR$(34);" [" PRINT #1:" <!ENTITY ns_svg ";CHR$(34);"http://www.w3.org/2000/svg";CHR$(34);">" PRINT #1:" <!ENTITY ns_xlink ";CHR$(34);"http://www.w3.org/1999/xlink";CHR$(34);">" PRINT #1:"]>" PRINT #1:"<svg version=";CHR$(34);"1.1";CHR$(34);" xmlns=";CHR$(34);"&ns_svg;";CHR$(34);" width=";CHR$(34);STR$(XSIZE);CHR$(34);" height=";CHR$(34);STR$(YSIZE);CHR$(34);" viewBox=";CHR$(34);"0 0 ";STR$(XSIZE);" ";STR$(YSIZE);CHR$(34) PRINT #1:" overflow=";CHR$(34);"visible";CHR$(34);" enable-background=";CHR$(34);"new 0 0 ";STR$(XSIZE);" ";STR$(YSIZE);CHR$(34);" xml:space=";CHR$(34);"preserve";CHR$(34);">" END IF LET L=180 LET THETA=90 LET X=590 LET Y=450 FOR I=1 TO 6 CALL RECURSIVE(N,L,#1) LET THETA=THETA+60 NEXT I IF F$<>"" THEN PRINT #1:"</svg>" CLOSE #1 END IF END EXTERNAL SUB RECURSIVE(N,L,#1) IF N=0 THEN LET XX=X+L*COS(THETA*PI/180) LET YY=Y-L*SIN(THETA*PI/180) PLOT LINES: X,Y;XX,YY; IF F$<>"" THEN PRINT #1:"<line x1=";CHR$(34);STR$(PIXELX(X));CHR$(34);" y1=";CHR$(34);STR$(PIXELY(Y));CHR$(34);" x2=";CHR$(34);STR$(PIXELX(XX));CHR$(34);" y2=";CHR$(34);STR$(PIXELY(YY));CHR$(34);" stroke=";CHR$(34);"black";CHR$(34);" stroke-width=";CHR$(34);"1";CHR$(34);"/>" LET X=XX LET Y=YY LET XMAX=MAX(XMAX,X) LET YMAX=MAX(YMAX,Y) LET XMIN=MIN(XMIN,X) LET YMIN=MIN(YMIN,Y) ELSE CALL RECURSIVE(N-1,L*.5,#1) LET THETA=THETA+90 CALL RECURSIVE(N-1,L*.23,#1) LET THETA=THETA+90 CALL RECURSIVE(N-1,L*.15,#1) LET THETA=THETA-90 CALL RECURSIVE(N-1,L*.4,#1) LET THETA=THETA-90 CALL RECURSIVE(N-1,L*.5,#1) LET THETA=THETA-90 CALL RECURSIVE(N-1,L*.4,#1) LET THETA=THETA-90 CALL RECURSIVE(N-1,L*.15,#1) LET THETA=THETA+90 CALL RECURSIVE(N-1,L*.23,#1) LET THETA=THETA+90 CALL RECURSIVE(N-1,L*.5,#1) END IF END SUB

再帰図形

投稿者：しばっち投稿日：2012年10月21日(日)16時21分25秒

PUBLIC NUMERIC THETA,X,Y PUBLIC STRING F$ LET XSIZE=600 LET YSIZE=600 SET BITMAP SIZE XSIZE,YSIZE SET WINDOW 0 , XSIZE-1 , YSIZE-1,0 SET POINT STYLE 1 SET COLOR MODE "REGULAR" LET N=8 !'INPUT PROMPT "LEVEL=": N LET L=100 LET THETA=90 LET X=XSIZE/2+L/2 LET Y=YSIZE-L !'LET F$="樹木.svg" IF F$<>"" THEN OPEN #1:NAME F$ ERASE #1 PRINT #1:"<?xml version=";CHR$(34);"1.0";CHR$(34);" encoding=";CHR$(34);"utf-8";CHR$(34);"?>" PRINT #1:"<!DOCTYPE svg PUBLIC ";CHR$(34);"-//W3C//DTD SVG 1.1//EN";CHR$(34);" ";CHR$(34);"http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd";CHR$(34);" [" PRINT #1:" <!ENTITY ns_svg ";CHR$(34);"http://www.w3.org/2000/svg";CHR$(34);">" PRINT #1:" <!ENTITY ns_xlink ";CHR$(34);"http://www.w3.org/1999/xlink";CHR$(34);">" PRINT #1:"]>" PRINT #1:"<svg version=";CHR$(34);"1.1";CHR$(34);" xmlns=";CHR$(34);"&ns_svg;";CHR$(34);" width=";CHR$(34);STR$(XSIZE);CHR$(34);" height=";CHR$(34);STR$(YSIZE);CHR$(34);" viewBox=";CHR$(34);"0 0 ";STR$(XSIZE);" ";STR$(YSIZE);CHR$(34) PRINT #1:" overflow=";CHR$(34);"visible";CHR$(34);" enable-background=";CHR$(34);"new 0 0 ";STR$(XSIZE);" ";STR$(YSIZE);CHR$(34);" xml:space=";CHR$(34);"preserve";CHR$(34);">" END IF CALL RECURSIVE(N,X,Y,L,#1) IF F$<>"" THEN PRINT #1:"</svg>" CLOSE #1 END IF END EXTERNAL SUB RECURSIVE(LEV,X,Y,L,#1) IF LEV>0 THEN CALL BOX(X,Y,L,#1) LET THETA=THETA-45 LET XX=X+L/SQR(2)*COS(THETA*PI/180) LET YY=Y-L/SQR(2)*SIN(THETA*PI/180) CALL RECURSIVE(LEV-1,XX,YY,L/SQR(2),#1) LET THETA=THETA+90 LET XX=X+L*SQR(2)*COS(THETA*PI/180) LET YY=Y-L*SQR(2)*SIN(THETA*PI/180) CALL RECURSIVE(LEV-1,XX,YY,L/SQR(2),#1) LET THETA=THETA-45 END IF END SUB EXTERNAL SUB BOX(X,Y,L,#1) FOR I=1 TO 4 LET THETA=THETA+90 LET XX=X+L*COS(THETA*PI/180) LET YY=Y-L*SIN(THETA*PI/180) PLOT LINES: X,Y;XX,YY IF F$<>"" THEN PRINT #1:"<line x1=";CHR$(34);STR$(INT(X));CHR$(34);" y1=";CHR$(34);STR$(INT(Y));CHR$(34);" x2=";CHR$(34);STR$(INT(XX));CHR$(34);" y2=";CHR$(34);STR$(INT(YY));CHR$(34);" stroke=";CHR$(34);"black";CHR$(34);" stroke-width=";CHR$(34);"1";CHR$(34);"/>" LET X=XX LET Y=YY NEXT I PLOT LINES END SUB

再帰図形

投稿者：しばっち投稿日：2012年10月21日(日)16時22分3秒

PUBLIC NUMERIC AR, AI, BR, BI, CR, CI, DR, DI,XMIN,XMAX,YMIN,YMAX,XSIZE,YSIZE PUBLIC STRING F$ LET XMAX=-1E10 LET YMAX=-1E10 LET XMIN=1E10 LET YMIN=1E10 LET XSIZE=600 LET YSIZE=600 SET BITMAP SIZE XSIZE,YSIZE SET POINT STYLE 1 SET COLOR MODE "REGULAR" LET N=15 !'INPUT PROMPT "LEVEL=": N READ AR, AI, BR, BI, CR, CI, DR, DI DATA 0,0,.5,.2887,0,0,.5,-.2887 !'DATA .5,.5,0,0,.5,-.5,0,0 !'DATA 0,0,.4,.5,0,0,.4,-.5 !'DATA 0,0,.5,.28867,0,0,.6667,0 !'DATA 0,.707,0,0,.5,0,0,0 !'DATA 0,0,.4614,.4614,.622,-.196,0,0 !'DATA .4614,.4614,0,0,0,0,.622,-.196 !'DATA .4614,.4614,0,0,0,0,.2896,-.585 !'DATA .4614,.4614,0,0,.622,-.196,0,0 !'DATA 0,0,0,.6667,0,0,.6667,0 CALL RECURSIVE(10,0,0,#1) SET BITMAP SIZE XSIZE,YSIZE*(YMAX-YMIN)/(XMAX-XMIN) SET WINDOW XMIN,XMAX,YMIN,YMAX CLEAR !'LET F$="再帰図形.svg" IF F$<>"" THEN OPEN #1:NAME F$ ERASE #1 PRINT #1:"<?xml version=";CHR$(34);"1.0";CHR$(34);" encoding=";CHR$(34);"utf-8";CHR$(34);"?>" PRINT #1:"<!DOCTYPE svg PUBLIC ";CHR$(34);"-//W3C//DTD SVG 1.1//EN";CHR$(34);" ";CHR$(34);"http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd";CHR$(34);" [" PRINT #1:" <!ENTITY ns_svg ";CHR$(34);"http://www.w3.org/2000/svg";CHR$(34);">" PRINT #1:" <!ENTITY ns_xlink ";CHR$(34);"http://www.w3.org/1999/xlink";CHR$(34);">" PRINT #1:"]>" PRINT #1:"<svg version=";CHR$(34);"1.1";CHR$(34);" xmlns=";CHR$(34);"&ns_svg;";CHR$(34);" width=";CHR$(34);STR$(XSIZE);CHR$(34);" height=";CHR$(34);STR$(YSIZE);CHR$(34);" viewBox=";CHR$(34);"0 0 ";STR$(XSIZE);" ";STR$(YSIZE);CHR$(34) PRINT #1:" overflow=";CHR$(34);"visible";CHR$(34);" enable-background=";CHR$(34);"new 0 0 ";STR$(XSIZE);" ";STR$(YSIZE);CHR$(34);" xml:space=";CHR$(34);"preserve";CHR$(34);">" END IF CALL RECURSIVE(N,0,0,#1) IF F$<>"" THEN PRINT #1:"</svg>" CLOSE #1 END IF END EXTERNAL SUB RECURSIVE(N,X,Y,#1) IF N>0 THEN PLOT POINTS: X , Y IF F$<>"" THEN PRINT #1:"<circle cx=";CHR$(34);STR$(PIXELX(X));CHR$(34);" cy=";CHR$(34);STR$(YSIZE-PIXELY(Y));CHR$(34);" r=";CHR$(34);"1";CHR$(34);" fill=";CHR$(34);"black";CHR$(34);" stroke=";CHR$(34);"black";CHR$(34);" stroke-width=";CHR$(34);"1";CHR$(34);" />" LET XMIN=MIN(XMIN,X) LET XMAX=MAX(XMAX,X) LET YMIN=MIN(YMIN,Y) LET YMAX=MAX(YMAX,Y) CALL RECURSIVE(N-1,X * (AR + BR) - Y * (AI - BI), X * (AI + BI) + Y * (AR - BR),#1) CALL RECURSIVE(N-1,X * (CR + DR) - Y * (CI - DI) - CR - DR + 1, X * (CI + DI) + Y * (CR - DR) - CI - DI,#1) END IF END SUB

再帰図形

投稿者：しばっち投稿日：2012年10月21日(日)16時22分55秒

PUBLIC STRING F$ LET XSIZE=640 LET YSIZE=400 SET BITMAP SIZE XSIZE,YSIZE SET WINDOW 0 , XSIZE-1 , YSIZE-1,0 SET POINT STYLE 1 SET COLOR MODE "REGULAR" CLEAR LET N=8 !'INPUT PROMPT "LEVEL=": N !'LET F$="再帰図形.svg" IF F$<>"" THEN OPEN #1:NAME F$ ERASE #1 PRINT #1:"<?xml version=";CHR$(34);"1.0";CHR$(34);" encoding=";CHR$(34);"utf-8";CHR$(34);"?>" PRINT #1:"<!DOCTYPE svg PUBLIC ";CHR$(34);"-//W3C//DTD SVG 1.1//EN";CHR$(34);" ";CHR$(34);"http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd";CHR$(34);" [" PRINT #1:" <!ENTITY ns_svg ";CHR$(34);"http://www.w3.org/2000/svg";CHR$(34);">" PRINT #1:" <!ENTITY ns_xlink ";CHR$(34);"http://www.w3.org/1999/xlink";CHR$(34);">" PRINT #1:"]>" PRINT #1:"<svg version=";CHR$(34);"1.1";CHR$(34);" xmlns=";CHR$(34);"&ns_svg;";CHR$(34);" width=";CHR$(34);STR$(XSIZE);CHR$(34);" height=";CHR$(34);STR$(YSIZE);CHR$(34);" viewBox=";CHR$(34);"0 0 ";STR$(XSIZE);" ";STR$(YSIZE);CHR$(34) PRINT #1:" overflow=";CHR$(34);"visible";CHR$(34);" enable-background=";CHR$(34);"new 0 0 ";STR$(XSIZE);" ";STR$(YSIZE);CHR$(34);" xml:space=";CHR$(34);"preserve";CHR$(34);">" END IF CALL RECURSIVE(N,0,350,640,350,#1) IF F$<>"" THEN PRINT #1:"</svg>" CLOSE #1 END IF END EXTERNAL SUB RECURSIVE(N,X1,Y1,X2,Y2,#1) LET XX=(X1+X2)/2 LET YY=(Y1+Y2)/2 LET TH=PI-ATN(5/4)*2 LET L=SQR((XX-X2)^2+(YY-Y2)^2) LET THETA=-ANGLE((X2-XX),(Y2-YY)) LET X3=XX+L*COS(THETA+TH) LET Y3=YY-L*SIN(THETA+TH) LET X4=XX+L*COS(PI+THETA-TH) LET Y4=YY-L*SIN(PI+THETA-TH) IF N=0 THEN PLOT AREA:XX,YY;X2,Y2;X3,Y3 IF F$<>"" THEN PRINT #1:"<polygon fill=";CHR$(34);"black";CHR$(34);" stroke=";CHR$(34);"black";CHR$(34);" stork-width=";CHR$(34);"1";CHR$(34);" points=";CHR$(34);STR$(INT(XX));",";STR$(INT(YY));" ";STR$(INT(X2));",";STR$(INT(Y2));" ";STR$(INT(X3));",";STR$(INT(Y3));" ";STR$(INT(XX));",";STR$(INT(YY));CHR$(34);"/>" PLOT AREA:XX,YY;X1,Y1;X4,Y4 IF F$<>"" THEN PRINT #1:"<polygon fill=";CHR$(34);"black";CHR$(34);" stroke=";CHR$(34);"black";CHR$(34);" stork-width=";CHR$(34);"1";CHR$(34);" points=";CHR$(34);STR$(INT(XX));",";STR$(INT(YY));" ";STR$(INT(X1));",";STR$(INT(Y1));" ";STR$(INT(X4));",";STR$(INT(Y4));" ";STR$(INT(XX));",";STR$(INT(YY));CHR$(34);"/>" ELSE CALL RECURSIVE(N-1,X2,Y2,X3,Y3,#1) CALL RECURSIVE(N-1,X4,Y4,X1,Y1,#1) END IF END SUB

再帰図形

投稿者：しばっち投稿日：2012年10月21日(日)16時23分35秒

PUBLIC NUMERIC XSIZE,YSIZE PUBLIC STRING F$ LET XSIZE=600 LET YSIZE=600 SET BITMAP SIZE XSIZE,YSIZE SET WINDOW 0,1,-.5,.5 SET POINT STYLE 1 SET COLOR MODE "REGULAR" LET N=12 !'INPUT PROMPT "LEVEL=": N !'LET F$="葉脈.svg" IF F$<>"" THEN OPEN #1:NAME F$ ERASE #1 PRINT #1:"<?xml version=";CHR$(34);"1.0";CHR$(34);" encoding=";CHR$(34);"utf-8";CHR$(34);"?>" PRINT #1:"<!DOCTYPE svg PUBLIC ";CHR$(34);"-//W3C//DTD SVG 1.1//EN";CHR$(34);" ";CHR$(34);"http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd";CHR$(34);" [" PRINT #1:" <!ENTITY ns_svg ";CHR$(34);"http://www.w3.org/2000/svg";CHR$(34);">" PRINT #1:" <!ENTITY ns_xlink ";CHR$(34);"http://www.w3.org/1999/xlink";CHR$(34);">" PRINT #1:"]>" PRINT #1:"<svg version=";CHR$(34);"1.1";CHR$(34);" xmlns=";CHR$(34);"&ns_svg;";CHR$(34);" width=";CHR$(34);STR$(XSIZE);CHR$(34);" height=";CHR$(34);STR$(YSIZE);CHR$(34);" viewBox=";CHR$(34);"0 0 ";STR$(XSIZE);" ";STR$(YSIZE);CHR$(34) PRINT #1:" overflow=";CHR$(34);"visible";CHR$(34);" enable-background=";CHR$(34);"new 0 0 ";STR$(XSIZE);" ";STR$(YSIZE);CHR$(34);" xml:space=";CHR$(34);"preserve";CHR$(34);">" END IF LET X1=0 LET Y1=0 LET X2=1 LET Y2=0 LET X3=.5 LET Y3=SQR(3)/6 CALL RECURSIVE(N,X1,Y1,X2,Y2,X3,Y3,#1) IF F$<>"" THEN PRINT #1:"</svg>" CLOSE #1 END IF END EXTERNAL SUB RECURSIVE(N,X1, Y1, X2, Y2, X3, Y3,#1) LET X4 = (2*X1 + X2) / 3 LET Y4 = (2*Y1 + Y2) / 3 LET X5 = (4*X1 - 3*X3 + 5*X2) / 6 LET Y5 = (4*Y1 - 3*Y3 + 5*Y2) / 6 IF N = 0 THEN PLOT LINES: X1,Y1;X3,Y3 IF F$<>"" THEN PRINT #1:"<line x1=";CHR$(34);STR$(PIXELX(X1));CHR$(34);" y1=";CHR$(34);STR$(YSIZE-PIXELY(Y1));CHR$(34);" x2=";CHR$(34);STR$(PIXELX(X3));CHR$(34);" y2=";CHR$(34);STR$(YSIZE-PIXELY(Y3));CHR$(34);" stroke=";CHR$(34);"black";CHR$(34);" stroke-width=";CHR$(34);"1";CHR$(34);"/>" PLOT LINES: X4,Y4;X2,Y2 IF F$<>"" THEN PRINT #1:"<line x1=";CHR$(34);STR$(PIXELX(X4));CHR$(34);" y1=";CHR$(34);STR$(YSIZE-PIXELY(Y4));CHR$(34);" x2=";CHR$(34);STR$(PIXELX(X2));CHR$(34);" y2=";CHR$(34);STR$(YSIZE-PIXELY(Y2));CHR$(34);" stroke=";CHR$(34);"black";CHR$(34);" stroke-width=";CHR$(34);"1";CHR$(34);"/>" ELSE CALL RECURSIVE(N-1, X1, Y1, X3, Y3, X4, Y4,#1) CALL RECURSIVE(N-1, X4, Y4, X2, Y2, X5, Y5,#1) END IF END SUB

再帰図形

投稿者：しばっち投稿日：2012年10月21日(日)16時24分23秒

PUBLIC NUMERIC XMIN,XMAX,YMIN,YMAX,XSIZE,YSIZE PUBLIC STRING F$ LET XSIZE=600 LET YSIZE=600 SET BITMAP SIZE XSIZE,YSIZE SET WINDOW 0,1,-.5,.5 SET POINT STYLE 1 SET COLOR MODE "REGULAR" LET N=10 !'INPUT PROMPT "LEVEL=": N !'LET F$="葉脈.svg" IF F$<>"" THEN OPEN #1:NAME F$ ERASE #1 PRINT #1:"<?xml version=";CHR$(34);"1.0";CHR$(34);" encoding=";CHR$(34);"utf-8";CHR$(34);"?>" PRINT #1:"<!DOCTYPE svg PUBLIC ";CHR$(34);"-//W3C//DTD SVG 1.1//EN";CHR$(34);" ";CHR$(34);"http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd";CHR$(34);" [" PRINT #1:" <!ENTITY ns_svg ";CHR$(34);"http://www.w3.org/2000/svg";CHR$(34);">" PRINT #1:" <!ENTITY ns_xlink ";CHR$(34);"http://www.w3.org/1999/xlink";CHR$(34);">" PRINT #1:"]>" PRINT #1:"<svg version=";CHR$(34);"1.1";CHR$(34);" xmlns=";CHR$(34);"&ns_svg;";CHR$(34);" width=";CHR$(34);STR$(XSIZE);CHR$(34);" height=";CHR$(34);STR$(YSIZE);CHR$(34);" viewBox=";CHR$(34);"0 0 ";STR$(XSIZE);" ";STR$(YSIZE);CHR$(34) PRINT #1:" overflow=";CHR$(34);"visible";CHR$(34);" enable-background=";CHR$(34);"new 0 0 ";STR$(XSIZE);" ";STR$(YSIZE);CHR$(34);" xml:space=";CHR$(34);"preserve";CHR$(34);">" END IF CALL RECURSIVE(N,.5,SQR(3)/6,0,0,1,0,#1) IF F$<>"" THEN PRINT #1:"</svg>" CLOSE #1 END IF END EXTERNAL SUB RECURSIVE(N,AX,AY,BX,BY,CX,CY,#1) IF N=0 THEN PLOT AREA:AX,AY;BX,BY;CX,CY IF F$<>"" THEN PRINT #1:"<polygon fill=";CHR$(34);"black";CHR$(34);" stroke=";CHR$(34);"black";CHR$(34);" stork-width=";CHR$(34);"1";CHR$(34);" points=";CHR$(34);STR$(PIXELX(AX));",";STR$(YSIZE-PIXELY(AY));" ";STR$(PIXELX(BX));",";STR$(YSIZE-PIXELY(BY));" ";STR$(PIXELX(CX));",";STR$(YSIZE-PIXELY(CY));" ";STR$(PIXELX(AX));",";STR$(YSIZE-PIXELY(AY));CHR$(34);"/>" ELSE CALL RECURSIVE(N-1,(CX+2*BX)/3,(CY+2*BY)/3,BX,BY,AX,AY,#1) CALL RECURSIVE(N-1,(3*CX+2*BX-2*AX)/3,(3*CY+2*BY-2*AY)/3,(CX+2*BX)/3,(CY+2*BY)/3,CX,CY,#1) END IF END SUB

再帰図形

投稿者：しばっち投稿日：2012年10月21日(日)16時25分16秒

PUBLIC NUMERIC L1,L2,LTH,RTH,XSIZE,YSIZE PUBLIC STRING F$ LET XSIZE=600 LET YSIZE=600 SET BITMAP SIZE XSIZE,YSIZE SET WINDOW 0 , XSIZE-1 , 0,YSIZE-1 SET POINT STYLE 1 SET COLOR MODE "REGULAR" CLEAR LET N=11 !'INPUT PROMPT "LEVEL":N LET L1=.6523 LET L2=.6523 LET LTH=45 LET RTH=17.5 !'LET F$="雲.svg" IF F$<>"" THEN OPEN #1:NAME F$ ERASE #1 PRINT #1:"<?xml version=";CHR$(34);"1.0";CHR$(34);" encoding=";CHR$(34);"utf-8";CHR$(34);"?>" PRINT #1:"<!DOCTYPE svg PUBLIC ";CHR$(34);"-//W3C//DTD SVG 1.1//EN";CHR$(34);" ";CHR$(34);"http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd";CHR$(34);" [" PRINT #1:" <!ENTITY ns_svg ";CHR$(34);"http://www.w3.org/2000/svg";CHR$(34);">" PRINT #1:" <!ENTITY ns_xlink ";CHR$(34);"http://www.w3.org/1999/xlink";CHR$(34);">" PRINT #1:"]>" PRINT #1:"<svg version=";CHR$(34);"1.1";CHR$(34);" xmlns=";CHR$(34);"&ns_svg;";CHR$(34);" width=";CHR$(34);STR$(XSIZE);CHR$(34);" height=";CHR$(34);STR$(YSIZE);CHR$(34);" viewBox=";CHR$(34);"0 0 ";STR$(XSIZE);" ";STR$(YSIZE);CHR$(34) PRINT #1:" overflow=";CHR$(34);"visible";CHR$(34);" enable-background=";CHR$(34);"new 0 0 ";STR$(XSIZE);" ";STR$(YSIZE);CHR$(34);" xml:space=";CHR$(34);"preserve";CHR$(34);">" END IF CALL RECURSIVE(N,150,300,550,300,#1) IF F$<>"" THEN PRINT #1:"</svg>" CLOSE #1 END IF END EXTERNAL SUB RECURSIVE(N,X1,Y1,X2,Y2,#1) IF N=0 THEN PLOT LINES: X1,Y1;X2,Y2 IF F$<>"" THEN PRINT #1:"<line x1=";CHR$(34);STR$(INT(X1));CHR$(34);" y1=";CHR$(34);STR$(INT(YSIZE-Y1));CHR$(34);" x2=";CHR$(34);STR$(INT(X2));CHR$(34);" y2=";CHR$(34);STR$(INT(YSIZE-Y2));CHR$(34);" stroke=";CHR$(34);"black";CHR$(34);" stroke-width=";CHR$(34);"1";CHR$(34);"/>" ELSE CALL RECURSIVE(N-1,X1,Y1,L1*(X2-X1)*COS(LTH*PI/180)-L1*(Y2-Y1)*SIN(LTH*PI/180)+X1,L1*(X2-X1)*SIN(LTH*PI/180)+L1*(Y2-Y1)*COS(LTH*PI/180)+Y1,#1) CALL RECURSIVE(N-1,L2*(X1-X2)*COS(-RTH*PI/180)-L2*(Y1-Y2)*SIN(-RTH*PI/180)+X2,L2*(X1-X2)*SIN(-RTH*PI/180)+L2*(Y1-Y2)*COS(-RTH*PI/180)+Y2,X2,Y2,#1) END IF END SUB

再帰図形

投稿者：しばっち投稿日：2012年10月21日(日)16時26分1秒

PUBLIC NUMERIC L1,L2,LTH,RTH,XSIZE,YSIZE PUBLIC STRING F$ LET XSIZE=600 LET YSIZE=600 SET BITMAP SIZE XSIZE,YSIZE SET WINDOW 0 , XSIZE-1 , 0,YSIZE-1 SET POINT STYLE 1 SET COLOR MODE "REGULAR" LET N=12 !'INPUT PROMPT "LEVEL":N LET L1=1/SQR(2) LET L2=.5 LET LTH=90 LET RTH=0 !'LET F$="霜柱.svg" IF F$<>"" THEN OPEN #1:NAME F$ ERASE #1 PRINT #1:"<?xml version=";CHR$(34);"1.0";CHR$(34);" encoding=";CHR$(34);"utf-8";CHR$(34);"?>" PRINT #1:"<!DOCTYPE svg PUBLIC ";CHR$(34);"-//W3C//DTD SVG 1.1//EN";CHR$(34);" ";CHR$(34);"http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd";CHR$(34);" [" PRINT #1:" <!ENTITY ns_svg ";CHR$(34);"http://www.w3.org/2000/svg";CHR$(34);">" PRINT #1:" <!ENTITY ns_xlink ";CHR$(34);"http://www.w3.org/1999/xlink";CHR$(34);">" PRINT #1:"]>" PRINT #1:"<svg version=";CHR$(34);"1.1";CHR$(34);" xmlns=";CHR$(34);"&ns_svg;";CHR$(34);" width=";CHR$(34);STR$(XSIZE);CHR$(34);" height=";CHR$(34);STR$(YSIZE);CHR$(34);" viewBox=";CHR$(34);"0 0 ";STR$(XSIZE);" ";STR$(YSIZE);CHR$(34) PRINT #1:" overflow=";CHR$(34);"visible";CHR$(34);" enable-background=";CHR$(34);"new 0 0 ";STR$(XSIZE);" ";STR$(YSIZE);CHR$(34);" xml:space=";CHR$(34);"preserve";CHR$(34);">" END IF CALL RECURSIVE(N,200,300,600,300,#1) IF F$<>"" THEN PRINT #1:"</svg>" CLOSE #1 END IF END EXTERNAL SUB RECURSIVE(N,X1,Y1,X2,Y2,#1) IF N=0 THEN PLOT LINES: X1,Y1;X2,Y2 IF F$<>"" THEN PRINT #1:"<line x1=";CHR$(34);STR$(INT(X1));CHR$(34);" y1=";CHR$(34);STR$(INT(YSIZE-Y1));CHR$(34);" x2=";CHR$(34);STR$(INT(X2));CHR$(34);" y2=";CHR$(34);STR$(INT(YSIZE-Y2));CHR$(34);" stroke=";CHR$(34);"black";CHR$(34);" stroke-width=";CHR$(34);"1";CHR$(34);"/>" ELSE CALL RECURSIVE(N-1,X1,Y1,L1*(X2-X1)*COS(LTH*PI/180)-L1*(Y2-Y1)*SIN(LTH*PI/180)+X1,L1*(X2-X1)*SIN(LTH*PI/180)+L1*(Y2-Y1)*COS(LTH*PI/180)+Y1,#1) CALL RECURSIVE(N-1,L2*(X1-X2)*COS(-RTH*PI/180)-L2*(Y1-Y2)*SIN(-RTH*PI/180)+X2,L2*(X1-X2)*SIN(-RTH*PI/180)+L2*(Y1-Y2)*COS(-RTH*PI/180)+Y2,X2,Y2,#1) END IF END SUB

戻る

十進BASIC 第2掲示板 過去ログ

十進BASIC 第2掲示板過去ログ