遊び tokidoki 仕事

数学と音楽と教育と遊び

Top | おしごと | ゼミ | がくせい | すうがく | かがく | きょういく | おんがく | おきにー | Tips | Photo | イベント | ものもう | あれこれ | About

高大連携Winter School前準備

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


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


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

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

こんなかんじ↓





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