[FV5 Data] ver 592 memot MS 明朝 11 1 macro 122 Onload 初期化1 Sub 初期化1()#1 call 分割を非表示 b=0 draw end sub Sub 初期化2()#2 call 分割を非表示 b=1.5 draw end sub Sub 移動前の分割()#3 s=0 t=0 p=0 q=0 k=0 showgraph s1 s2 s3 s4 s5 draw end sub Sub 移動後の分割()#4 s=1 t=1 p=1 q=1 k=1 showgraph s1 s2 s3 s4 s5 draw end sub Sub 分割を非表示()#5 hidegraph s1 s2 s3 s4 s5 s=0 t=0 p=0 q=0 k=0 draw end sub sub 移動+()#6 calc afimageoff locusoff cls call 移動前の分割 draw wait 1000 for p=0 to 1 step 0.05 draw wait 40 next p wait 1000 for q=0 to 1 step 0.05 draw wait 40 next q wait 1000 for s=0 to 1 step 0.05 draw wait 40 next s wait 1000 for t=0 to 1 step 0.05 draw wait 40 next t wait 1000 for k=0 to 1 step 0.05 draw wait 40 next k end sub sub 移動−()#7 call 移動後の分割 calc afimageoff locusoff cls draw wait 1000 for a=0 to 20 step 1 p=1-0.05a q=1-0.05a s=1-0.05a t=1-0.05a k=1-0.05a draw wait 40 next a end sub sub 笑()#8 calc afimageoff locusoff cls call 移動前の分割 draw wait 500 for w=0 to 0.5pi step 0.002pi s=(sin(7w))^2 t=(sin(11w))^2 p=(sin(9w))^2 q=(sin(5w))^2 k=(sin(w))^2 draw next w wait 500 for w=0.5pi to pi step 0.002pi s=(sin(7w))^2 t=(sin(11w))^2 p=(sin(9w))^2 q=(sin(5w))^2 k=(sin(w))^2 draw next w end sub zan false zanC 1 locus false ckind 0 cowidth 1 1 lattice 12632256 1 false 0 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 -3 3.66666650772095 -1.5 3.5 20 0 1 1 9.24771838092941E-13 pq 6.19062147464572E-13 1.91068555833833E-13 sw 0 0 ks 7.64274270769177E-15 0.100000001490116 3.74494380818435E-13 0.100000001490116 syousai 2 0.1 0.249999986961484 0.1 0.1 0.100000001490116 0.1 0.1 0.100000001490116 0.100000001490116 0.1 0.1 1 1 0 0 graphmode 2 800 600 starting 5 end deffunc 0 defconst 0 Interval false true intevalcl 65535 1 0 36 5 t (cosh(b)) -(cosh(b)) 0 False True dash 255 1 0.1 1 5 -(cosh(b)) t 0 (cosh(b)) False True dash 255 1 0.1 1 5 t 0 -(cosh(b)) 0 False True dash 255 1 0.1 1 5 0 t -1 0 False True dash 16711680 1 0.1 1 5 1 t -1 0 False True dash 16711680 1 0.1 1 5 t -1 0 1 False True dash 16711680 1 0.1 1 7 EFG False True 255 2 7 false 1 255 7 HIJ False True 255 2 7 false 1 255 7 KLMN False True 255 2 7 false 1 255 7 PQRS False True 255 2 7 false 1 255 7 TUVW False True 16711680 2 7 false 1 16711680 7 ABCD False True dash 128 1 6 cont false 27 27 7 ABO False True 0 3 6 cont false 27 27 8 (1-p)(-(cosh(b)))+p((cosh(b))^3/((cosh(b))^2+1)-(cosh(b))+1) (1-p)(cosh(b))+p((cosh(b))^2/((cosh(b))^2+1)) E False True false 255 2 lk -1 5 3 1 8 (1-p)((cosh(b))/((cosh(b))^2+1)-(cosh(b)))+p (1-p)(-(cosh(b))^2/((cosh(b))^2+1)+(cosh(b))) F False True false 255 2 lk -1 21 3 1 8 p((cosh(b))^3/((cosh(b))^2+1)+1) (1-p)(cosh(b))+p((cosh(b))^2/((cosh(b))^2+1)) G False True false 255 2 lk -1 11 3 1 8 (1-q)(-(cosh(b)))+q((cosh(b))^3/((cosh(b))^2+1)+1) (1-q)(cosh(b))+q((cosh(b))^2/((cosh(b))^2+1)+1) H False True false 255 2 lk -1 12 3 1 8 (1-q)(-(cosh(b)))+q((cosh(b))^3/((cosh(b))^2+1)+1) (1-q)((cosh(b))-1)+q((cosh(b))^2/((cosh(b))^2+1)) I False True false 255 2 lk -1 24 3 1 8 (1-q)((cosh(b))/((cosh(b))^2+1)-(cosh(b)))+q((cosh(b))+1) (1-q)(-(cosh(b))^2/((cosh(b))^2+1)+(cosh(b)))+q*1 J False True false 255 2 lk -1 13 3 1 8 (1-s)(-(cosh(b)))+s(-(cosh(b))/((cosh(b))^2+1)+(cosh(b))) (1-s)((cosh(b))-1)+s((cosh(b))^2/((cosh(b))^2+1)+(cosh(b))) K False True false 255 2 lk -1 14 3 1 8 (1-s)((cosh(b))/((cosh(b))^2+1)-(cosh(b)))+s(cosh(b)) (1-s)(-(cosh(b))^2/((cosh(b))^2+1)+(cosh(b)))+s((cosh(b))+1) L False True false 255 2 lk -1 6 3 1 8 (1-s)(-(cosh(b))+1)+s((cosh(b))^3/((cosh(b))^2+1)+1) s((cosh(b))^2/((cosh(b))^2+1)+1) M False True false 255 2 lk -1 7 3 1 8 (1-s)(-(cosh(b)))+s((cosh(b))^3/((cosh(b))^2+1)) s((cosh(b))^2/((cosh(b))^2+1)+1) N False True false 255 2 lk -1 8 3 1 8 t((cosh(b))^3/((cosh(b))^2+1)) t((cosh(b))^2/((cosh(b))^2+1)) P False True false 255 2 lk -1 19 3 1 8 (1-t)(-(cosh(b))+1)+t((cosh(b))^3/((cosh(b))^2+1)+1-(cosh(b))) t((cosh(b))^2/((cosh(b))^2+1)) Q False True false 255 2 lk -1 22 3 1 8 (1-t)((cosh(b))/((cosh(b))^2+1)-(cosh(b))) (1-t)(-(cosh(b))^2/((cosh(b))^2+1)+(cosh(b)))+t(cosh(b)) R False True false 255 2 lk -1 9 3 1 8 t((cosh(b))-(cosh(b))/((cosh(b))^2+1)) (1-t)(cosh(b))+t((cosh(b))+(cosh(b))^2/((cosh(b))^2+1)) S False True false 255 2 lk -1 15 3 1 8 k((cosh(b))^3/((cosh(b))^2+1)) k((cosh(b))^2/((cosh(b))^2+1)+1) T False True false 16711680 2 lk -1 10 3 1 8 k((cosh(b))^3/((cosh(b))^2+1)) (1-k)(-1)+k((cosh(b))^2/((cosh(b))^2+1)) U False True false 16711680 2 lk -1 16 3 1 8 (1-k)+k((cosh(b))^3/((cosh(b))^2+1)+1) (1-k)(-1)+k((cosh(b))^2/((cosh(b))^2+1)) V False True false 16711680 2 lk -1 17 3 1 8 (1-k)+k((cosh(b))^3/((cosh(b))^2+1)+1) k((cosh(b))^2/((cosh(b))^2+1)+1) W False True false 16711680 2 lk -1 18 3 1 8 0 cosh(b) A False True false 0 2 lk -1 1 3 1 8 0 0 O False True false 0 2 lk -1 23 3 1 8 1 0 B False True false 0 2 lk -1 2 3 1 8 1+cosh(b) 1 C False True false 0 2 lk -1 3 3 1 8 cosh(b) 1+cosh(b) D False True false 0 2 lk -1 4 3 1