[FV5 Data] ver 592 memot MS 明朝 11 1 macro 173 Onload 【 reset 】 sub 【 reset 】()#4 a=2 b=0 c=0 h=3 p=0 q=0 o=o-int(o/2pi)*2pi for o=o to 0 step 0.1*pi draw next o for o=o to 0 step -0.1*pi draw next o r=0 draw end sub sub Oを北へ()#1 locusoff afimageoff cls r=0 p=0 q=0 showgraph s1 s2 draw wait 500 for j=1 to 9 p=p+0.1*sin(r) q=q-0.1*cos(r) b=b+0.1*sin(r) c=c-0.1*cos(r) draw next j p=0 q=0 b=b+0.1*sin(r) c=c-0.1*cos(r) draw hidegraph s1 s2 draw end sub sub Oを北東へ()#2 locusoff afimageoff cls r=-pi/4 p=0 q=0 showgraph s1 s2 draw wait 500 for j=1 to 9 p=p+0.1*sqrt(2)*sin(r) q=q-0.1*sqrt(2)*cos(r) b=b+0.1*sqrt(2)*sin(r) c=c-0.1*sqrt(2)*cos(r) draw next j p=0 q=0 b=b+0.1*sqrt(2)*sin(r) c=c-0.1*sqrt(2)*cos(r) draw hidegraph s1 s2 draw end sub sub Oを西へ()#3 locusoff afimageoff cls r=pi/2 p=0 q=0 showgraph s1 s2 draw wait 500 for j=1 to 9 p=p+0.1*sin(r) q=q-0.1*cos(r) b=b+0.1*sin(r) c=c-0.1*cos(r) draw next j p=0 q=0 b=b+0.1*sin(r) c=c-0.1*cos(r) draw hidegraph s1 s2 draw end sub sub Oを東へ()#5 locusoff afimageoff cls r=-pi/2 p=0 q=0 showgraph s1 s2 draw wait 500 for j=1 to 9 p=p+0.1*sin(r) q=q-0.1*cos(r) b=b+0.1*sin(r) c=c-0.1*cos(r) draw next j p=0 q=0 b=b+0.1*sin(r) c=c-0.1*cos(r) draw hidegraph s1 s2 draw end sub sub 左45度回転()#6 locusoff afimageoff cls draw for i=1 to 10 o=o+0.025*pi r=r-0.025*pi draw next i end sub sub Oを南へ()#7 locusoff afimageoff cls r=pi p=0 q=0 showgraph s1 s2 draw wait 500 for j=1 to 9 p=p+0.1*sin(r) q=q-0.1*cos(r) b=b+0.1*sin(r) c=c-0.1*cos(r) draw next j p=0 q=0 b=b+0.1*sin(r) c=c-0.1*cos(r) draw hidegraph s1 s2 draw end sub sub 右45度回転()#8 locusoff afimageoff cls draw for i=1 to 10 o=o-0.025*pi r=r+0.025*pi draw next i end sub zan false zanC 0 locus false ckind 0 cowidth 1 0 lattice 12632256 1 false 1 scale true true xcoodi false ycoodi false x y xmemori 1 ymemori 1 0 0 1 scrl 0 font 0 Times New Roman 12 0 pfont 0 Times New Roman 12 1 -5 5 -0.624 7.71 2 0 0 1 0 pq 0 0 sw 0 0 ks 2 0.250000011548399 0.5 0.1 syousai 3 1 0.249999990686774 0.249999986961484 0.250000013038516 0 0 0.0500000026077032 0 0 1 0.1 0 3 0 0 labeldata 10 T 7 〔パラメータの説明〕 ● a, b, c   … 放物線 y = a (x-b)^2 + c の定数 ● h … 視点の高さ ● ω … 平面の回転角 ※p, q, θ はマクロで使うパラメータのため  値を手動では変更しないでください。 0 3 3 0 F3(a,0,c) F4(a,0,c) 0 12 0 0 1 0 1 16777215 4 5 1 北 0 -5 -10 1 2(-2sin(ω+0))/(2cos(ω+0)+3) (-h)/(2cos(ω+0)+3)+h 0 12 255 0 1 0 0 16777215 4 5 1 北 0 -5 -10 1 -sin(ω+0)+3 cos(ω+0)+h+2.5 0 12 255 0 1 0 0 16777215 4 5 1 西 0 -5 -10 1 2(-2sin(ω+π/2))/(2cos(ω+π/2)+3) (-h)/(2cos(ω+π/2)+3)+h 0 12 255 0 1 0 0 16777215 4 5 1 西 0 -5 -10 1 -sin(ω+π/2)+3 cos(ω+π/2)+h+2.5 0 12 255 0 1 0 0 16777215 4 5 1 東 0 -5 -10 1 2(-2sin(ω-π/2))/(2cos(ω-π/2)+3) (-h)/(2cos(ω-π/2)+3)+h 0 12 255 0 1 0 0 16777215 4 5 1 東 0 -5 -10 1 -sin(ω-π/2)+3 cos(ω-π/2)+h+2.5 0 12 255 0 1 0 0 16777215 4 5 1 南 0 -5 -10 1 2(-2sin(ω+π))/(2cos(ω+π)+3) (-h)/(2cos(ω+π)+3)+h 0 12 255 0 1 0 0 16777215 4 5 1 南 0 -5 -10 1 -sin(ω+π)+3 cos(ω+π)+h+2.5 0 12 255 0 1 0 0 16777215 4 5 1 y = {a}(x{+b})^2;{+c} 0 -20 -30 1 2 h+3.5 0 16 4227327 0 1 0 0 16777215 4 5 graphmode 2 600 500 starting 5 end deffunc 6 tan(x/2)-p a*(tan(x/2)-b)^2+c-q 2((x+p)*cos(ω)-(y+q)*sin(ω))/((x+p)*sin(ω)+(y+q)*cos(ω)+3) Min(h,(-h)/((x+p)*sin(ω)+(y+q)*cos(ω)+3)+h) Max(2,Min(4,((x+p)*cos(ω)-(y+q)*sin(ω))/2+3)) Max(h+1.5,Min(h+3.5,((x+p)*sin(ω)+(y+q)*cos(ω))/2+h+2.5)) defconst 0 Interval false true intevalcl 65535 1 0 49 5 F3(-4,tan(t)) F4(-4,tan(t)) -π/2 π/2 False True 12632256 1 0.01 1 5 F3(-3,tan(t)) F4(-3,tan(t)) -π/2 π/2 False True 12632256 1 0.01 1 5 F3(-2,tan(t)) F4(-2,tan(t)) -π/2 π/2 False True 12632256 1 0.01 1 5 F3(-1,tan(t)) F4(-1,tan(t)) -π/2 π/2 False True 12632256 1 0.01 1 5 F3(0,tan(t)) F4(0,tan(t)) -π/2 +π/2 False True 12632256 1 0.01 1 5 F3(1,tan(t)) F4(1,tan(t)) -π/2 π/2 False True 12632256 1 0.01 1 5 F3(2,tan(t)) F4(2,tan(t)) -π/2 π/2 False True 12632256 1 0.01 1 5 F3(3,tan(t)) F4(3,tan(t)) -π/2 π/2 False True 12632256 1 0.01 1 5 F3(4,tan(t)) F4(4,tan(t)) -π/2 π/2 False True 12632256 1 0.01 1 5 F3(tan(t),-4) F4(tan(t),-4) -π/2 π/2 False True 12632256 1 0.01 1 5 F3(tan(t),-3) F4(tan(t),-3) -π/2 π/2 False True 12632256 1 0.01 1 5 F3(tan(t),-2) F4(tan(t),-2) -π/2 π/2 False True 12632256 1 0.01 1 5 F3(tan(t),-1) F4(tan(t),-1) -π/2 π/2 False True 12632256 1 0.01 1 5 F3(tan(t),0) F4(tan(t),0) -π/2 π/2 False True 12632256 1 0.01 1 5 F3(tan(t),1) F4(tan(t),1) -π/2 π/2 False True 12632256 1 0.01 1 5 F3(tan(t),2) F4(tan(t),2) -π/2 π/2 False True 12632256 1 0.01 1 5 F3(tan(t),3) F4(tan(t),3) -π/2 π/2 False True 12632256 1 0.01 1 5 F3(tan(t),4) F4(tan(t),4) -π/2 π/2 False True 12632256 1 0.01 1 5 F3(F1(t),F2(t)) F4(F1(t),F2(t)) -π π False True 4227327 3 0.01 1 5 F5(-3,t) F6(-3,t) -8 8 False True 12632256 1 0.01 1 5 F5(-2,t) F6(-2,t) -8 8 False True 12632256 1 0.01 1 5 F5(-1,t) F6(-1,t) -8 8 False True 12632256 1 0.01 1 5 F5(0,t) F6(0,t) -8 8 False True 12632256 1 0.01 1 5 F5(1,t) F6(1,t) -8 8 False True 12632256 1 0.01 1 5 F5(2,t) F6(2,t) -8 8 False True 12632256 1 0.01 1 5 F5(3,t) F6(3,t) -8 8 False True 12632256 1 0.01 1 5 F5(t,-3) F6(t,-3) -8 8 False True 12632256 1 0.01 1 5 F5(t,-2) F6(t,-2) -8 8 False True 12632256 1 0.01 1 5 F5(t,-1) F6(t,-1) -8 8 False True 12632256 1 0.01 1 5 F5(t,0) F6(t,0) -8 8 False True 12632256 1 0.01 1 5 F5(t,1) F6(t,1) -8 8 False True 12632256 1 0.01 1 5 F5(t,2) F6(t,2) -8 8 False True 12632256 1 0.01 1 5 F5(t,3) F6(t,3) -8 8 False True 12632256 1 0.01 1 5 F5(F1(t),F2(t)) F6(F1(t),F2(t)) -π π False True 4227327 3 0.01 1 5 -2*2/(t+3) -h/(t+3)+h -2 2 False True 16711680 3 0.1 1 5 -2*(-2)/(t+3) -h/(t+3)+h -2 2 False True 16711680 3 0.1 1 5 -2*t/(3+2) -h/(3+2)+h -2 2 False True 16711680 3 0.1 1 5 -2*t/(3-2) -h/(3-2)+h -2 2 False True 16711680 3 0.1 1 5 2 t h+1.5 h+3.5 False True 16711680 3 0.1 1 5 4 t h+1.5 h+3.5 False True 16711680 3 0.1 1 5 t h+3.5 2 4 False True 16711680 3 0.1 1 5 t h+1.5 2 4 False True 16711680 3 0.1 1 5 tan(t) h -π/2 π/2 False True 0 3 0.1 1 7 O A False False false 255 2 4 1 false 23 1 7 P B False False false 255 2 4 1 false 19 2 8 -0 -h/3+h O False True 0 2 lk -1 23 6 1 8 3.00 h+2.5 O False True 0 2 lk -1 19 6 1 8 2(-2*0.8*sin(ω+θ))/(2*0.8*cos(ω+θ)+3) (-h)/(2*0.8*cos(ω+θ)+3)+h A False True false 255 1 lk -1 1 3 1 8 0.8*(-sin(ω+θ))+3 0.8*cos(ω+θ)+h+2.5 B False True false 255 1 lk -1 2 3 1