高大連携Winter School前準備

水曜に附属の高２生対象の高大連携授業。
その前準備でLaTeX原稿やパフォーマンスに使う10進BASICプログラムなど、準備中。


今回もまた折り紙数学。芳賀の第１定理周辺で遊んでみる。
藤田の折り紙公理と２次関数とのかかわり、
時間的に深くは突っ込んで話ができないのが残念。


以下、パフォーマンス用プログラム公開。

【使い方】
マウスを動かすと三角定規がくっついてきて、
左クリックしながらドラッグすると２次関数の軌跡が残り、
右クリックでクリア。両クリックで終了。

こんなかんじ↓





10進BASICプログラム→[parabolic_move.bas]

REM [parabolic_move.bas]

REM 高大連携2007winter用

REM 放物線を直角定規で描く
LET  wx=400

LET  wy=wx

SET bitmap SIZE wx,wy

SET WINDOW -2,2,-1.5,2.5

DRAW axes

SET POINT STYLE 3

SET POINT COLOR 7

DIM d(wx+1)
DO UNTIL( right=1 AND left=1)
   mouse poll mx,my,left,right

    

   IF mx<-2 THEN LET  mx=-2

   IF mx>2 THEN LET  mx=2

   IF right=1 AND left=0 THEN MAT d=ZER

   IF left=1 THEN LET  d(INT((2+mx)*wx/4)+1)=1

    

   SET DRAW mode hidden

   CLEAR

    

   SET LINE COLOR 2

   PLOT LINES : -2,-.5; 2,-.5

   PLOT TEXT ,AT 1.2,-.7:"準線 y=-1/2"

   DRAW triangle WITH SHIFT(mx,-.5)

   FOR i=1 TO wx

      IF d(i)=1 THEN

         LET  x=i/wx*4-2

         PLOT POINTS: x,x*x/2

      END IF

   NEXT i

   SET LINE COLOR 2

   LET  y=mx*mx/2

   PLOT LINES : mx,2; mx,y; 0,.5

   DRAW disk WITH SCALE(.02)*SHIFT(mx,y)

    

   SET LINE width 1

   DRAW axes

   PLOT TEXT ,AT .1,.5:"焦点F(0,1/2)"

   DRAW disk WITH SCALE(.02)*SHIFT(0,.5)

    

   SET DRAW mode explicit    

LOOP
PICTURE triangle

   IF mx<0 THEN LET  pt=-1 ELSE LET  pt=1

   SET AREA COLOR 6

   PLOT AREA: 0,0; pt,0; 0,2.5; 0,0

   SET LINE width 2

   SET LINE COLOR 3

   PLOT LINES: 0,0; pt,0; 0,2.5; 0,0

   SET AREA COLOR 4

   DRAW disk WITH SCALE(.02)*SHIFT(0,2.5)

END PICTURE

END