[FV5 Data] ver 592 memot MS 明朝 11 1 (1) パラメータの大雑把な説明 a … 円Cと直線OPの距離 b … 円Cの中心の位置(高さ) c … 円Cの半径 p … 電球Pの位置(高さ) θ … 動点Aのパラメータ(2π周期) (2) もっと詳しい説明 ●aを変化させると,円Cの直線OPからの距離が変化します。 macro 142 Onload リセット sub 点灯()#1 showgraph z2 z3 z4 p27 s1 s2 s3 s4 s5 p20 p21 p22 p23 p24 p25 B end sub sub 消灯()#2 hidegraph z2 z3 z4 p27 s1 s2 s3 s4 s5 p20 p21 p22 p23 p24 p25 B end sub Sub リセット()#3 call 消灯 a=2 b=1 c=1 p=3 r=0 draw end sub sub 1周() for j=1 to n r=r+(2*pi/n) draw wait w next j end sub sub ゆっくり1周()#4 hidegraph z3 z4 calc afimageoff locusoff cls n=40 w=40 draw wait 500 call 1周 end sub sub 素早く1周()#5 hidegraph z3 z4 calc afimageoff locusoff cls n=20 w=20 draw wait 500 call 1周 end sub sub DEMO()#6 calc afimageoff locusoff cls call リセット draw wait 1000 call 点灯 hidegraph z3 z4 draw wait 1000 n=20 w=20 call 1周 wait 1000 for p=3 to 4 step 0.1 draw wait 40 next p wait 500 call 1周 wait 1000 for c=1 to 2 step 0.1pi draw wait 40 next c wait 500 call 1周 wait 1000 for b=1 to 0 step -0.1 draw wait 40 next b wait 500 call 1周 wait 1000 for a=2 to 1 step -0.1 draw wait 40 next a wait 500 call 1周 wait 1000 for p=4 to 3 step -0.1 draw wait 40 next p wait 500 call 1周 wait 1000 for c=2 to 1 step -0.1pi draw wait 40 next c wait 500 call 1周 wait 1000 for a=1 to 2 step 0.1 draw wait 40 next a wait 500 call 1周 wait 1000 for b=0 to 1 step 0.1 draw wait 40 next b wait 500 call 1周 wait 1000 call 消灯 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 -2.6410723506437 9.7619105159269 -2.32271289825439 6.97952175140381 2 1 1 1 0 pq 3 1 sw 0 0 ks 1 0.1 1 0.1 syousai 2 0.500000002235174 0.250000000372529 0.500000005960464 0.1 0 0.100000001490116 0.1 0.500000005960464 0.1 0.1 0.1 1 20 0 0 labeldata 3 T 1 電球P 0 -45 -24 1 Px Py 0 12 255 0 1 0 0 16777215 4 5 1 円C 0 4 -16 1 Q3+(abs(c)*(1/2)) Max((abs(c)*(1/2))+Q2,abs(c)*(1/2)) 0 12 4227327 0 1 0 0 16777215 4 5 1 O 0 -16 -8 1 0 0 0 12 0 0 1 0 0 16777215 4 5 graphmode 2 800 600 starting 5 end deffunc 2 Q3+abs(c)*sin(x)/2 abs(c)*sin(x)/2+Q2+abs(c)*cos(x) defconst 5 Max(abs(p),1.1(b+abs(c))) Min(b,0.9(Q1-abs(c))) Max(abs(a),1.1abs(c)/2) -(arcsin(abs(c)/sqrt(4*(Q3)^2+(-Q1+Q2-Q3)^2))+arcsin((-Q1+Q2-Q3)/sqrt(4*(Q3)^2+(-Q1+Q2-Q3)^2))) (π+(arcsin(abs(c)/sqrt(4*(Q3)^2+(-Q1+Q2-Q3)^2))-arcsin((-Q1+Q2-Q3)/sqrt(4*(Q3)^2+(-Q1+Q2-Q3)^2)))) Interval false true intevalcl 65535 1 0 43 3 ((2(x-Q3))^2+((y-Q2)-(x-Q3))^2<=c^2)∩(y>=x-Q3) True True 4227327 1 Nbd 1 4227327 3 ((2*Q3*y)^2+((Q1-Q2)(x-y)-Q3*Q1)^2<=(c(x-y))^2)∩((y<=x-Q3)∪(y>=x)) True True false 4210816 1 Nbd 1 4210816 3 (y<=((cos(Q4)-2sin(Q4))x+(Q2-Q3)cos(Q4)+2*Q3*sin(Q4)+c)/cos(Q4))∩(y>=((cos(Q5)-2sin(Q5))x+(Q2-Q3)cos(Q5)+2*Q3*sin(Q5)+c)/cos(Q5))∩(y>=(F2(Q5)-F2(Q4))(x-F1(Q4))/(F1(Q5)-F1(Q4))+F2(Q4))∩((2(x-Q3))^2+((y-Q2)-(x-Q3))^2>=c^2) True True false 65535 1 Nbd 2 65535 3 ((y<=((cos(Q4)-2sin(Q4))x+(Q2-Q3)cos(Q4)+2*Q3*sin(Q4)+c)/cos(Q4))∩(y>=((cos(Q5)-2sin(Q5))x+(Q2-Q3)cos(Q5)+2*Q3*sin(Q5)+c)/cos(Q5))∩(y<=(Dy-Cy)(x-Cx)/(Dx-Cx)+Cy)∩(y>=(Fy-Ey)(x-Ex)/(Fx-Ex)+Ey))∪(((2(x-Q3))^2+((y-Q2)-(x-Q3))^2<=c^2)∩(y>=x-Q3))∪(((2*Q3*y)^2+((Q1-Q2)(x-y)-Q3*Q1)^2<=(c(x-y))^2)∩(y<=x-Q3)) True True false 0 1 Nbd 2 0 5 t t -1 1 False True 12632256 1 0.1 1 5 t t-1 0 2 False True 12632256 1 0.1 1 5 t t-2 1 3 False True 12632256 1 0.1 1 5 t t-3 2 4 False True 12632256 1 0.1 1 5 t t-4 3 5 False True 12632256 1 0.1 1 5 t t-5 4 6 False True 12632256 1 0.1 1 5 t t-6 5 7 False True 12632256 1 0.1 1 5 t -1 -1 5 False True 12632256 1 0.1 1 5 t -1/2 -1/2 11/2 False True 12632256 1 0.1 1 5 t 0 0 6 False True 12632256 1 0.1 1 5 t 1/2 1/2 13/2 False True 12632256 1 0.1 1 5 t 1 1 7 False True 12632256 1 0.1 1 5 0 t 0 100 False True 0 3 0.1 1 5 Q3 Max(Q2+t,0) -abs(c) +abs(c) False True 4227327 2 0.1 1 5 Q3-abs(c)/2 Max(Q2-abs(c)/2+t,-abs(c)/2) -abs(c) +abs(c) False True 4227327 2 0.1 1 5 Q3+abs(c)/2 Max(Q2+abs(c)/2+t,abs(c)/2) -abs(c) +abs(c) False True 4227327 2 0.1 1 5 Q3+t/2 Max(Q2+t/2,t/2) -abs(c) abs(c) False True 4227327 2 0.1 1 5 Q3+t/2 Max(Q2-abs(c)+t/2,t/2) -abs(c) abs(c) False True 4227327 2 0.1 1 5 Q3+t/2 Max(Q2+abs(c)+t/2,t/2) -abs(c) abs(c) False True 4227327 2 0.1 1 5 Max(Q1*Q3/(Q1-(Q2+t)),Q3) 0 -abs(c) abs(c) False True false 16512 2 0.1 1 5 Max(Q1*Q3/(Q1-(Q2+t))+(1/2)*Q1*abs(c)/(Q1-(Q2+t)),Q3+abs(c)/2) Max((1/2)*Q1*abs(c)/(Q1-(Q2+t)),abs(c)/2) -abs(c) abs(c) False True false 16512 2 0.1 1 5 Max(Q1*Q3/(Q1-(Q2+t))-(1/2)*Q1*abs(c)/(Q1-(Q2+t)),Q3-abs(c)/2) Min(-(1/2)*Q1*abs(c)/(Q1-(Q2+t)),-abs(c)/2) -abs(c) abs(c) False True false 16512 2 0.1 1 5 Max(Q1*(2*Q3+t)/2(Q1-Q2),Q3+t/2) sgn(t)*Max(abs(Q1*t/2(Q1-Q2)),abs(t/2)) -abs(c) abs(c) False True false 4210816 2 0.1 1 5 Max(Q1*(2*Q3+t)/2(Q1-Q2+abs(c)),Q3+t/2) sgn(t)*Max(abs(Max(abs(p),1.1(b+abs(c)))*t/2(Max(abs(p),1.1(b+abs(c)))-Min(b,0.9(Max(abs(p),1.1(b+abs(c)))-abs(c)))+abs(c))),abs(t/2)) -abs(c) abs(c) False True false 4210816 2 0.1 1 5 Max(Q1*(2*Q3+t)/2(Q1-Q2-abs(c)),Q3+t/2) sgn(t)*Max(abs(Q1*t/2(Q1-Q2-abs(c))),abs(t/2)) -abs(c) abs(c) False True false 4210816 2 0.1 1 5 Q3+abs(c)*sin(t)/2 Max(abs(c)*sin(t)/2+abs(c)*cos(t)+Q2,abs(c)*sin(t)/2) -π π False True 4227327 2 0.01 1 5 Max((Q1*Q3/(Q1-(abs(c)*cos(t)+Q2)))+Q1*abs(c)*sin(t)/(2*(Q1-(abs(c)*cos(t)+Q2))),Q3+(abs(c)*sin(t)/2)) sgn(sin(t))*Max(abs((1/2)*Q1*abs(c)*sin(t)/(Q1-(abs(c)*cos(t)+Q2))),abs(c*sin(t)/2)) -π π False True false 4210816 2 0.01 1 7 P B False True false 255 2 3 1 false 19 2 7 P C False True false 65535 3 3 1 false 19 3 7 P D False True false 65535 3 3 1 false 19 4 7 C E False True false 8421504 3 3 1 false 3 5 7 D F False True false 8421504 3 3 1 false 4 21 8 0 Q1 P 0 False True 255 3 lk -1 19 3 1 8 Q3+(abs(c)*sin(θ)/2) Max((abs(c)*sin(θ)/2)+abs(c)*cos(θ)+Q2,abs(c)*sin(θ)/2) A 0 False True 16711680 3 lk -1 1 7 1 8 Max((Q1*Q3/(Q1-(abs(c)*cos(θ)+Q2)))+Q1*abs(c)*sin(θ)/(2*(Q1-(abs(c)*cos(θ)+Q2))),Q3+(abs(c)*sin(θ)/2)) sgn(sin(θ))*Max(abs((1/2)*Q1*abs(c)*sin(θ)/(Q1-(abs(c)*cos(θ)+Q2))),abs(c*sin(θ)/2)) A' 0 False True false 16711680 3 lk -1 2 8 1 8 F1(Q4) F2(Q4) C 0 False True false 16711935 2 lk -1 3 4 1 8 F1(Q5) F2(Q5) D 0 False True false 16711935 2 lk -1 4 4 1 8 Q1*F1(Q4)/(Q1-(F2(Q4)-(F1(Q4)-Q3))) Q1*(F1(Q4)-Q3)/(Q1-(F2(Q4)-(F1(Q4)-Q3))) C' 0 False True false 16711935 2 lk -1 5 4 1 8 Q1*F1(Q5)/(Q1-(F2(Q5)-(F1(Q5)-Q3))) Q1*(F1(Q5)-Q3)/(Q1-(F2(Q5)-(F1(Q5)-Q3))) D' 0 False True false 16711935 2 lk -1 21 4 1