[FV5 Data] ver 592 memot MS 明朝 11 1 〔パラメータの説明〕 ・a … x軸上の点Aのx座標を動かす。 ・b … y軸上の点Bのx座標を動かす。 ・c … z軸上の点Cのx座標を動かす。 ・d … 切り口を△ABCに平行に動かす。 ・h,s … 図の微調整用。 macro 55 Onload 全て初期化 Sub 切断ON() #1 showgraph z1 s1 End sub Sub 切断OFF() #2 hidegraph z1 s1 End sub Sub 全て初期化() #3 a=0 b=0 c=0 d=0.5 h=-0.15 s=1.3 draw End sub Sub d初期化() #4 d=0.5 draw End sub Sub hとs初期化() #5 h=-0.15 s=1.3 draw End sub Sub DEMO() #6 call 全て初期化 wait 500 For d=0.5 to 4.5 step 0.2 draw Next d wait 500 For d=4.5 to 0.5 step -0.2 draw Next d wait 500 For b=0 to -3 step -0.3 draw Next b wait 500 For a=0 to -1 step -0.1 draw Next a wait 500 For d=0.5 to 14 step 0.5 draw Next d wait 500 End sub zan false zanC 0 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 608 font 0 Times New Roman 12 0 pfont 0 Times New Roman 12 1 -3.5 6.5 -3 7 0 0 0 0.5 0 pq 1 1 sw 0.461814105510712 0 ks 1 0.1 1.29999995231628 0.0999999850988388 syousai 2 0.200000001490116 0.200000001490116 0.200000001490116 0.200000001490116 0 0.200000002980232 0.1 0.1 0.1 0.1 0.1 1 1 0.146999999880791 0 labeldata 1 T 2 ●パラメータ a,b,c で,3点A,B,Cの位置を変更できます。 ●パラメータ d で,切り口を△ABCに平行に動かします。 0 8 8 0 0 0 0 16 255 0 1 0 1 16777215 4 5 graphmode 1 starting 5 end deffunc 0 defconst 7 abs(d)+1/2 Q1((arctn(a)+π/2)/π) Q1*3((arctn(b)+π/2)/π) Q1*3((arctn(c)+π/2)/π) (arctn(h)+π/2)/2 -abs(s)*cos(Q5) -abs(s)*sin(Q5) Interval false true intevalcl 65535 1 0 0 0 21 3 (y<(Q7*Q2-Q4)x/(Q6*Q2)+Q4)∩(y>Q7*Q2(x-Q3)/(Q6*Q2-Q3))∩(y<-Q4*x/Q3+Q4)∩(y>-Q4(x-Q6)/Q3+(Q2*Q4+Q7*Q2-Q4)/Q2)∩(y>(Q7*Q2-Q4)(x-3)/(Q6*Q2)+Q4(Q3-3)/Q3)∩(y