# Make more exercises & passepartouts for "optics" (2/2007)
n=$counter
mathview=0
questiontype=0
image=0
applet=1
cols=10
rows=1
draw=0
plot=0
math=0
inputs=1
checkfile=exos/checkfile9.proc
!if $level=0
    R=$counter
!else
    R=$level
!endif
!if $teaching=0
    helptext=$empty
    exotext=$empty
!else
    helptext=!record 63 of $remarkdir/commonremarks.$taal
    exotext=$empty
!endif
keuzekleur=blue
centrumkleur=red
restkleur=green
coord=$empty
tekst=!record 47 of lang/remarks.$taal
#@ <small>Voor de intrede van digitale aftast-apparatuur,<br>was de enige mogelijkheid om extreem nauwkeurig te meten,<br>gebruik te maken van kijklijnen.(optische meetappatatuur).<br>Hier onder staat zo'n meetinstrument. <br>Bovenin (de gele punt) staat een zeer sterke lamp.<br>Er ligt boven op een glasplaat het "ding" dat gemeten moet gaan worden.<br></small>

var1=75
XSIZE=800
YSIZE=400
xmax=100
ymax=100
# object
# 12.5 op x-schaal is op meetliniaal 10
dx=!randint 10,180
dx=$[$dx/10]
x11=$[50-$dx]
x12=$[50+$dx]
lengte1=$[($x12-$x11)/1.25]
# bovenste lijn meetlineaal y=60 : let op YSIZE/yrange niet veranderen
y1=60
object=segment $x11,$y1,$x12,$y1,$keuzekleur
# de lamp altijd in't midden van object
x0=50
y0=95
m1=$[($y0-$y1)/($x0-$x11)]
m2=$[($y0-$y1)/($x0-$x12)]
q1=$[($y1 - (($m1)*$x11))]
q2=$[($y1 - (($m2)*$x12))]
lijn1=($m1)*x+($q1)
lijn2=($m2)*x+($q2)
# zoek naar snijpunt met de meetlineaal y=10 : let op YSIZE/yrange niet veranderen
y2=10
x21=$[($y2 - ($q1))/($m1)]
x22=$[($y2 - ($q2))/($m2)]
# 5 = 4*1.25 !
vergrotingsfactor=$[($x22-$x21)/($x12-$x11)]
plaatje=transparent white\
xrange 0,$xmax\
yrange 0,$ymax\
copy 0,$[0.6*$ymax],-1,-1,-1,-1,gifs/meetinstrument.gif\
linewidth 20\
point $x0,$y0,yellow\
linewidth 2\
point $x0,$y0,black\
linewidth 3\
$object
    
#    linewidth 1\
#    curve red,$lijn1\
#    curve red,$lijn2\
#    segment $x21,$y2,$x22,$y2,red    
#    vline 5.1,0,$keuzekleur\
#    vline 17.6,0,$keuzekleur\
#    vline 30.1,0,$keuzekleur\
#    vline 42.6,0,$keuzekleur\
#    vline 55.1,0,$keuzekleur\
#    vline 67.6,0,$keuzekleur\
#    vline 80.1,0,$keuzekleur\
#    vline 92.6,0,$keuzekleur\
#    hline 0,60,green\
#    hline 0,10,green\
#    hline 0,65,green\
#    hline 0,95,green
#   

!if $R=1
    answer$n=$[($x22 - $x21)/12.5]
    ss=!record 48 of lang/remarks.$taal
    #@ Bepaal zo nauwkeurig mogelijk de lengte van de schaduw die de lamp werpt op de onderste schaalverdeling.
    rr=!record 49 of lang/remarks.$taal
    #@ Het object was $lengte1 groot<br>Door de lamp werd op de onderste meetschaal een schaduw geworpen van $(answer$n)
    question$n=$tekst <br>$ss
    textanswer$n=$rr
    var2=0.4
    var3=0.6
!endif
!if $R>1
    answer$n=$[($x22-$x21)/($x12-$x11)]
    # var2 /var3 zijn tolleranties
    var2=0.1
    var3=0.2
    lengte2=$[($x22 - $x21)/12.5]
    ss=!record 50 of lang/remarks.$taal
    #@  Bepaal zo nauwkeurig mogelijk de vergrotingsfactor.
    rr=!record 51 of lang/remarks.$taal
    #@ De vergrotingsfactor = (lengte schaduw) &divide; (lengte origineel) = $lengte1 &divide; $lengte2 = $(answer$n)
    question$n=$tekst<br>$ss
    textanswer$n=$rr
!endif
    
insdraw_size=$XSIZE,$YSIZE
!insdraw $plaatje
object$n=<applet codebase="$module_dir/java" archive="noninput.jar" code="noninput.class" width="$XSIZE" height="$YSIZE"><param name="type" value="line"><param name="background" value="$ins_url">$nojava</applet>
