// xcas version=0.7.0 fontsize=16
// fltk 7Fl_Tile 33 44 1627 27 16
[
// fltk N4xcas23Comment_Multiline_InputE 33 44 1627 26 16
Loi de Descartes sur la reflexion
,
// fltk N4xcas10Log_OutputE 33 70 1627 1 16

]
,
// fltk 7Fl_Tile 33 73 1627 1118 16
[
// fltk N4xcas6FigureE 33 73 1627 1118 16 landscape=0 history=0.28334 geo=0.58205  mouse_param=0.1346
// fltk N4xcas12History_PackE 35 95 455 1050 16
[
// fltk 7Fl_Tile 55 95 435 50 16
[
// fltk N4xcas19Multiline_Input_tabE 55 95 435 26 16
assume(a:=[10.0,0,10])
,
// fltk N4xcas10Log_OutputE 55 121 435 1 16

,
// fltk N4xcas10Gen_OutputE 55 122 435 23 16
parameter(a,0.0,10.0,10.0)
]
,
// fltk 7Fl_Tile 55 147 435 50 16
[
// fltk N4xcas19Multiline_Input_tabE 55 147 435 26 16
assume(x:=[2.1,0,a])
,
// fltk N4xcas10Log_OutputE 55 173 435 1 16

,
// fltk N4xcas10Gen_OutputE 55 174 435 23 16
parameter(x,0.0,10.0,2.1)
]
,
// fltk 7Fl_Tile 55 199 435 52 16
[
// fltk N4xcas19Multiline_Input_tabE 55 199 435 28 16
assume(Y=[10.0,0,10])
,
// fltk N4xcas10Log_OutputE 55 227 435 1 16

,
// fltk N4xcas10Gen_OutputE 55 228 435 23 16
parameter(Y,0.0,10.0,10.0)
]
,
// fltk 7Fl_Tile 55 253 435 50 16
[
// fltk N4xcas19Multiline_Input_tabE 55 253 435 26 16
O:=point(0,0)
,
// fltk N4xcas10Log_OutputE 55 279 435 1 16

,
// fltk N4xcas10Gen_OutputE 55 280 435 23 16
point(0,0)
]
,
// fltk 7Fl_Tile 55 305 435 50 16
[
// fltk N4xcas19Multiline_Input_tabE 55 305 435 26 16
A:=point(a,0)
,
// fltk N4xcas10Log_OutputE 55 331 435 1 16

,
// fltk N4xcas10Gen_OutputE 55 332 435 23 16
point(a)
]
,
// fltk 7Fl_Tile 55 357 435 50 16
[
// fltk N4xcas19Multiline_Input_tabE 55 357 435 26 16
R:=point(0,Y)
,
// fltk N4xcas10Log_OutputE 55 383 435 1 16

,
// fltk N4xcas10Gen_OutputE 55 384 435 23 16
point((i)*Y)
]
,
// fltk 7Fl_Tile 55 409 435 49 16
[
// fltk N4xcas19Multiline_Input_tabE 55 409 435 25 16
M:=point(x,0)
,
// fltk N4xcas10Log_OutputE 55 434 435 1 16

,
// fltk N4xcas10Gen_OutputE 55 435 435 23 16
point(x)
]
,
// fltk 7Fl_Tile 55 460 435 50 16
[
// fltk N4xcas19Multiline_Input_tabE 55 460 435 26 16
miroir:=line(O,A)
,
// fltk N4xcas10Log_OutputE 55 486 435 1 16

,
// fltk N4xcas10Gen_OutputE 55 487 435 23 16
droite(y=0)
]
,
// fltk 7Fl_Tile 55 512 435 50 16
[
// fltk N4xcas19Multiline_Input_tabE 55 512 435 26 16
mur:=perpendicular(A,miroir)
,
// fltk N4xcas10Log_OutputE 55 538 435 1 16

,
// fltk N4xcas10Gen_OutputE 55 539 435 23 16
droite(x=a)
]
,
// fltk 7Fl_Tile 55 564 435 50 16
[
// fltk N4xcas19Multiline_Input_tabE 55 564 435 26 16
incident:=color(line(R,M),vert)
,
// fltk N4xcas10Log_OutputE 55 590 435 1 16

,
// fltk N4xcas10Gen_OutputE 55 591 435 23 16
droite(y=((-Y)/x*x+Y))
]
,
// fltk 7Fl_Tile 55 616 435 47 16
[
// fltk N4xcas19Multiline_Input_tabE 55 616 435 23 16
axe:=color(perpendicular(M,miroir ),ligne_point+bleu)
,
// fltk N4xcas10Log_OutputE 55 639 435 1 16

,
// fltk N4xcas10Gen_OutputE 55 640 435 23 16
droite(x=x)
]
,
// fltk 7Fl_Tile 55 665 435 68 16
[
// fltk N4xcas19Multiline_Input_tabE 55 665 435 26 16
r:=reflection(axe,R)
,
// fltk N4xcas10Log_OutputE 55 691 435 1 16

,
// fltk 9Fl_Scroll 55 692 435 41 16
[
// fltk N4xcas10Gen_OutputE 55 692 481 23 16
point((i)*Y-2*(i)*(x+(i)*a-x)*(-x)*(-a)/((i)*(x+(i)*a-x)*(-i)*(x+(-i)*a-x)))
,
// fltk 12Fl_Scrollbar 55 717 435 16 16
[]
,
// fltk 12Fl_Scrollbar 490 692 16 25 16
[]
]
]
,
// fltk 7Fl_Tile 55 735 435 65 16
[
// fltk N4xcas19Multiline_Input_tabE 55 735 435 23 16
reflechi:=color(half_line(M,r),magenta)
,
// fltk N4xcas10Log_OutputE 55 758 435 1 16

,
// fltk 9Fl_Scroll 55 759 435 41 16
[
// fltk N4xcas10Gen_OutputE 55 759 623 23 16
demi_droite(point(x),point((i)*Y-(2*i)*(x+(i)*a-x)*(-x)*(-a)*(-i)/(x+(i)*a-x)*(i)/(x+(-i)*a-x)))
,
// fltk 12Fl_Scrollbar 55 784 435 16 16
[]
,
// fltk 12Fl_Scrollbar 490 759 16 25 16
[]
]
]
,
// fltk 7Fl_Tile 55 802 435 50 16
[
// fltk N4xcas19Multiline_Input_tabE 55 802 435 26 16
H:=single_inter(mur,reflechi)
,
// fltk N4xcas10Log_OutputE 55 828 435 1 16

,
// fltk N4xcas10Gen_OutputE 55 829 435 23 16
point((-Y*a+Y*x-(-i)*a*x)/((i)*x))
]
,
// fltk 7Fl_Tile 55 854 435 86 16
[
// fltk N4xcas19Multiline_Input_tabE 55 854 435 26 16
h:=x->distance(A,H):;
,
// fltk N4xcas10Log_OutputE 55 880 435 37 16
// Warning: A H  declared as global variable(s)£// End defining h£
,
// fltk N4xcas10Gen_OutputE 55 917 435 23 16
"Done"
]
,
// fltk 7Fl_Tile 55 942 435 50 16
[
// fltk N4xcas19Multiline_Input_tabE 55 942 435 26 16
factoriser(h(x))
,
// fltk N4xcas10Log_OutputE 55 968 435 1 16

,
// fltk N4xcas10Gen_OutputE 55 969 435 23 16
Y*(a-x)/x
]
,
// fltk 7Fl_Tile 55 994 435 68 16
[
// fltk N4xcas19Multiline_Input_tabE 55 994 435 26 16
graphe(h(x),x=0..a,color=jaune)
,
// fltk N4xcas10Log_OutputE 55 1020 435 1 16

,
// fltk 9Fl_Scroll 55 1021 435 41 16
[
// fltk N4xcas10Gen_OutputE 55 1021 643 23 16
plotparam(x+(i)*sqrt((a+(-(-a)*x)*(-x)/x^2)^2+(-(-Y*a+Y*x)*(-x)/x^2)^2),x=0.025..10.0125)
,
// fltk 12Fl_Scrollbar 55 684 435 16 16
[]
,
// fltk 12Fl_Scrollbar 490 659 16 25 16
[]
]
]
,
// fltk 7Fl_Tile 55 1064 435 50 16
[
// fltk N4xcas19Multiline_Input_tabE 55 1064 435 26 16
Hp:=line_inter(mur,incident)
,
// fltk N4xcas10Log_OutputE 55 1090 435 1 16

,
// fltk N4xcas10Gen_OutputE 55 1091 435 23 16
point((Y*a-Y*x+(i)*a*x)/((i)*x))
]
,
// fltk 7Fl_Tile 55 1116 435 27 16
[
// fltk N4xcas19Multiline_Input_tabE 55 1116 435 26 16

,
// fltk N4xcas10Log_OutputE 55 1142 435 1 16

]
]
// fltk N4xcas5Geo2dE 494 95 947 1096 16
-0.5,10.5,-9.7096,95.788,[parameter(a,0.0,10.0,10.0),parameter(x,0.0,10.0,2.1),parameter(Y,0.0,10.0,10.0),pnt(pnt[0,[0],"O"]),pnt(pnt[a,[0],"A"]),pnt(pnt[(i)*Y,[0],"R"]),pnt(pnt[x,[0],"M"]),pnt(pnt[line[0,a],0,"miroir"]),pnt(pnt[line[a,a+(i)*a],0,"mur"]),pnt(pnt[line[(i)*Y,x],vert,"incident"]),pnt(pnt[line[x,x+(i)*a],8388612,"axe"]),pnt(pnt[(i)*Y-2*(i)*(x+(i)*a-x)*(-x)*(-a)/((i)*(x+(i)*a-x)*(-i)*(x+(-i)*a-x)),0,"r"]),pnt(pnt[[x,(i)*Y-(2*i)*(x+(i)*a-x)*(-x)*(-a)*(-i)/(x+(i)*a-x)*(i)/(x+(-i)*a-x)],magenta,"reflechi"]),pnt(pnt[(-Y*a+Y*x-(-i)*a*x)/((i)*x),0,"H"]),"Done",Y*(a-x)/x,pnt(pnt[curve(group[pnt[x+(i)*sqrt((a+(-(-a)*x)*(-x)/x^2)^2+(-(-Y*a+Y*x)*(-x)/x^2)^2),x,0.025,10.0125],group[0.025+3990*i,0.05+1990*i,0.075+1323.333333*i,0.1+990*i,0.125+790*i,0.15+656.6666667*i,0.175+561.4285714*i,0.2+490*i,0.225+434.4444444*i,0.25+390*i,0.275+353.6363636*i,0.3+323.3333333*i,0.325+297.6923077*i,0.35+275.7142857*i,0.375+256.6666667*i,0.4+240*i,0.425+225.2941176*i,0.45+212.2222222*i,0.475+200.5263158*i,0.5+190.0*i,0.525+180.4761905*i,0.55+171.8181818*i,0.575+163.9130435*i,0.6+156.6666667*i,0.625+150*i,0.65+143.8461538*i,0.675+138.1481481*i,0.7+132.8571429*i,0.725+127.9310345*i,0.75+123.3333333*i,0.775+119.0322581*i,0.8+115*i,0.825+111.2121212*i,0.85+107.6470588*i,0.875+104.2857143*i,0.9+101.1111111*i,0.925+98.10810811*i,0.95+95.26315789*i,0.975+92.56410256*i,1+90.0*i,1.025+87.56097561*i,1.05+85.23809524*i,1.075+83.02325581*i,1.1+80.90909091*i,1.125+78.88888889*i,1.15+76.95652174*i,1.175+75.10638298*i,1.2+73.33333333*i,1.225+71.63265306*i,1.25+70*i,1.275+68.43137255*i,1.3+66.92307692*i,1.325+65.47169811*i,1.35+64.07407407*i,1.375+62.72727273*i,1.4+61.42857143*i,1.425+60.1754386*i,1.45+58.96551724*i,1.475+57.79661017*i,1.5+56.66666667*i,1.525+55.57377049*i,1.55+54.51612903*i,1.575+53.49206349*i,1.6+52.5*i,1.625+51.53846154*i,1.65+50.60606061*i,1.675+49.70149254*i,1.7+48.82352941*i,1.725+47.97101449*i,1.75+47.14285714*i,1.775+46.33802817*i,1.8+45.55555556*i,1.825+44.79452055*i,1.85+44.05405405*i,1.875+43.33333333*i,1.9+42.63157895*i,1.925+41.94805195*i,1.95+41.28205128*i,1.975+40.63291139*i,2+40*i,2.025+39.38271605*i,2.05+38.7804878*i,2.075+38.19277108*i,2.1+37.61904762*i,2.125+37.05882353*i,2.15+36.51162791*i,2.175+35.97701149*i,2.2+35.45454545*i,2.225+34.94382022*i,2.25+34.44444444*i,2.275+33.95604396*i,2.3+33.47826087*i,2.325+33.01075269*i,2.35+32.55319149*i,2.375+32.10526316*i,2.4+31.66666667*i,2.425+31.2371134*i,2.45+30.81632653*i,2.475+30.4040404*i,2.5+30*i,2.525+29.6039604*i,2.55+29.21568627*i,2.575+28.83495146*i,2.6+28.46153846*i,2.625+28.0952381*i,2.65+27.73584906*i,2.675+27.38317757*i,2.7+27.03703704*i,2.725+26.69724771*i,2.75+26.36363636*i,2.775+26.03603604*i,2.8+25.71428571*i,2.825+25.39823009*i,2.85+25.0877193*i,2.875+24.7826087*i,2.9+24.48275862*i,2.925+24.18803419*i,2.95+23.89830508*i,2.975+23.61344538*i,3+23.33333333*i,3.025+23.05785124*i,3.05+22.78688525*i,3.075+22.5203252*i,3.1+22.25806452*i,3.125+22*i,3.15+21.74603175*i,3.175+21.49606299*i,3.2+21.25*i,3.225+21.00775194*i,3.25+20.76923077*i,3.275+20.53435115*i,3.3+20.3030303*i,3.325+20.07518797*i,3.35+19.85074627*i,3.375+19.62962963*i,3.4+19.41176471*i,3.425+19.19708029*i,3.45+18.98550725*i,3.475+18.77697842*i,3.5+18.57142857*i,3.525+18.36879433*i,3.55+18.16901408*i,3.575+17.97202797*i,3.6+17.77777778*i,3.625+17.5862069*i,3.65+17.39726027*i,3.675+17.21088435*i,3.7+17.02702703*i,3.725+16.84563758*i,3.75+16.66666667*i,3.775+16.49006623*i,3.8+16.31578947*i,3.825+16.14379085*i,3.85+15.97402597*i,3.875+15.80645161*i,3.9+15.64102564*i,3.925+15.47770701*i,3.95+15.3164557*i,3.975+15.1572327*i,4+15*i,4.025+14.8447205*i,4.05+14.69135802*i,4.075+14.5398773*i,4.1+14.3902439*i,4.125+14.24242424*i,4.15+14.09638554*i,4.175+13.95209581*i,4.2+13.80952381*i,4.225+13.66863905*i,4.25+13.52941176*i,4.275+13.39181287*i,4.3+13.25581395*i,4.325+13.12138728*i,4.35+12.98850575*i,4.375+12.85714286*i,4.4+12.72727273*i,4.425+12.59887006*i,4.45+12.47191011*i,4.475+12.34636872*i,4.5+12.22222222*i,4.525+12.09944751*i,4.55+11.97802198*i,4.575+11.8579235*i,4.6+11.73913043*i,4.625+11.62162162*i,4.65+11.50537634*i,4.675+11.39037433*i,4.7+11.27659574*i,4.725+11.16402116*i,4.75+11.05263158*i,4.775+10.94240838*i,4.8+10.83333333*i,4.825+10.7253886*i,4.85+10.6185567*i,4.875+10.51282051*i,4.9+10.40816327*i,4.925+10.30456853*i,4.95+10.2020202*i,4.975+10.10050251*i,5+10*i,5.025+9.900497512*i,5.05+9.801980198*i,5.075+9.704433498*i,5.1+9.607843137*i,5.125+9.512195122*i,5.15+9.417475728*i,5.175+9.323671498*i,5.2+9.230769231*i,5.225+9.138755981*i,5.25+9.047619048*i,5.275+8.957345972*i,5.3+8.867924528*i,5.325+8.779342723*i,5.35+8.691588785*i,5.375+8.604651163*i,5.4+8.518518519*i,5.425+8.433179724*i,5.45+8.348623853*i,5.475+8.264840183*i,5.5+8.181818182*i,5.525+8.099547511*i,5.55+8.018018018*i,5.575+7.937219731*i,5.6+7.857142857*i,5.625+7.777777778*i,5.65+7.699115044*i,5.675+7.621145374*i,5.7+7.543859649*i,5.725+7.467248908*i,5.75+7.391304348*i,5.775+7.316017316*i,5.8+7.24137931*i,5.825+7.167381974*i,5.85+7.094017094*i,5.875+7.021276596*i,5.9+6.949152542*i,5.925+6.877637131*i,5.95+6.806722689*i,5.975+6.736401674*i,6+6.666666667*i,6.025+6.597510373*i,6.05+6.52892562*i,6.075+6.46090535*i,6.1+6.393442623*i,6.125+6.326530612*i,6.15+6.260162602*i,6.175+6.194331984*i,6.2+6.129032258*i,6.225+6.064257028*i,6.25+6*i,6.275+5.93625498*i,6.3+5.873015873*i,6.325+5.81027668*i,6.35+5.748031496*i,6.375+5.68627451*i,6.4+5.625*i,6.425+5.564202335*i,6.45+5.503875969*i,6.475+5.444015444*i,6.5+5.384615385*i,6.525+5.325670498*i,6.55+5.267175573*i,6.575+5.209125475*i,6.6+5.151515152*i,6.625+5.094339623*i,6.65+5.037593985*i,6.675+4.981273408*i,6.7+4.925373134*i,6.725+4.869888476*i,6.75+4.814814815*i,6.775+4.760147601*i,6.8+4.705882353*i,6.825+4.652014652*i,6.85+4.598540146*i,6.875+4.545454545*i,6.9+4.492753623*i,6.925+4.440433213*i,6.95+4.388489209*i,6.975+4.336917563*i,7+4.285714286*i,7.025+4.234875445*i,7.05+4.184397163*i,7.075+4.134275618*i,7.1+4.084507042*i,7.125+4.035087719*i,7.15+3.986013986*i,7.175+3.93728223*i,7.2+3.888888889*i,7.225+3.84083045*i,7.25+3.793103448*i,7.275+3.745704467*i,7.3+3.698630137*i,7.325+3.651877133*i,7.35+3.605442177*i,7.375+3.559322034*i,7.4+3.513513514*i,7.425+3.468013468*i,7.45+3.422818792*i,7.475+3.377926421*i,7.5+3.333333333*i,7.525+3.289036545*i,7.55+3.245033113*i,7.575+3.201320132*i,7.6+3.157894737*i,7.625+3.114754098*i,7.65+3.071895425*i,7.675+3.029315961*i,7.7+2.987012987*i,7.725+2.944983819*i,7.75+2.903225806*i,7.775+2.861736334*i,7.8+2.820512821*i,7.825+2.779552716*i,7.85+2.738853503*i,7.875+2.698412698*i,7.9+2.658227848*i,7.925+2.61829653*i,7.95+2.578616352*i,7.975+2.539184953*i,8+2.5*i,8.025+2.46105919*i,8.05+2.422360248*i,8.075+2.383900929*i,8.1+2.345679012*i,8.125+2.307692308*i,8.15+2.26993865*i,8.175+2.232415902*i,8.2+2.195121951*i,8.225+2.158054711*i,8.25+2.121212121*i,8.275+2.084592145*i,8.3+2.048192771*i,8.325+2.012012012*i,8.35+1.976047904*i,8.375+1.940298507*i,8.4+1.904761905*i,8.425+1.869436202*i,8.45+1.834319527*i,8.475+1.799410029*i,8.5+1.764705882*i,8.525+1.730205279*i,8.55+1.695906433*i,8.575+1.66180758*i,8.6+1.627906977*i,8.625+1.594202899*i,8.65+1.560693642*i,8.675+1.527377522*i,8.7+1.494252874*i,8.725+1.461318052*i,8.75+1.428571429*i,8.775+1.396011396*i,8.8+1.363636364*i,8.825+1.331444759*i,8.85+1.299435028*i,8.875+1.267605634*i,8.9+1.235955056*i,8.925+1.204481793*i,8.95+1.173184358*i,8.975+1.142061281*i,9+1.111111111*i,9.025+1.08033241*i,9.05+1.049723757*i,9.075+1.019283747*i,9.1+0.989010989*i,9.125+0.9589041096*i,9.15+0.9289617486*i,9.175+0.8991825613*i,9.2+0.8695652174*i,9.225+0.8401084011*i,9.25+0.8108108108*i,9.275+0.781671159*i,9.3+0.752688172*i,9.325+0.7238605898*i,9.35+0.6951871658*i,9.375+0.6666666667*i,9.4+0.6382978723*i,9.425+0.6100795756*i,9.45+0.582010582*i,9.475+0.5540897098*i,9.5+0.5263157895*i,9.525+0.498687664*i,9.55+0.4712041885*i,9.575+0.4438642298*i,9.6+0.4166666667*i,9.625+0.3896103896*i,9.65+0.3626943005*i,9.675+0.3359173127*i,9.7+0.3092783505*i,9.725+0.2827763496*i,9.75+0.2564102564*i,9.775+0.2301790281*i,9.8+0.2040816327*i,9.825+0.1781170483*i,9.85+0.152284264*i,9.875+0.1265822785*i,9.9+0.101010101*i,9.925+0.07556675063*i,9.95+0.05025125628*i,9.975+0.02506265664*i,10]]),3]),pnt(pnt[(Y*a-Y*x+(i)*a*x)/((i)*x),0,"Hp"])],-14.127,14.127,1,0,0,0,1,5,1,131184,1,2,0,1,1,[],24,18,0,0,2,0,0,1,0

,
// fltk N4xcas10Log_OutputE 33 1191 1627 0 16

]
,
// fltk 7Fl_Tile 33 1193 1627 27 16
[
// fltk N4xcas23Comment_Multiline_InputE 33 1193 1627 26 16
Pour Y=5m, a=18m, on veut savoir où placer M pour atteindre sur le mur un objet à 6m de haut
,
// fltk N4xcas10Log_OutputE 33 1219 1627 1 16

]
,
// fltk 7Fl_Tile 33 1222 1627 82 16
[
// fltk N4xcas19Multiline_Input_tabE 33 1222 1627 26 16
Y:=5:;a:=18:;resoudre(h(x)=6,x)
,
// fltk N4xcas10Log_OutputE 33 1248 1627 1 16

,
// fltk N4xcas8EquationE 33 1249 1627 55 16
"Done","Done",[-90,90/11]
]
,
// fltk 7Fl_Tile 33 1306 1627 78 16
[
// fltk N4xcas23Comment_Multiline_InputE 33 1306 1627 77 16
Exercice Roméo et Juliette :£Roméo veut rejoindre Juliette en allant lui ceuillir une rose dans un jardin rectiligne. Sa trajectoire£est une ligne brisée du style loi de Descarte sans bissectrice. Minimiser le trajet.£HR=5m, KJ=7m, HK=20m
,
// fltk N4xcas10Log_OutputE 33 1383 1627 1 16

]
,
// fltk 7Fl_Tile 33 1386 1627 697 16
[
// fltk N4xcas6FigureE 33 1386 1627 697 16 landscape=0 history=0.25446 geo=0.18869  mouse_param=0.55685
// fltk N4xcas12History_PackE 35 1408 408 671 16
[
// fltk 7Fl_Tile 55 1408 388 50 16
[
// fltk N4xcas19Multiline_Input_tabE 55 1408 388 26 16
H:=point(0,0)
,
// fltk N4xcas10Log_OutputE 55 1434 388 1 16

,
// fltk N4xcas10Gen_OutputE 55 1435 388 23 16
point(0,0)
]
,
// fltk 7Fl_Tile 55 1460 388 50 16
[
// fltk N4xcas19Multiline_Input_tabE 55 1460 388 26 16
R:=point(0,5)
,
// fltk N4xcas10Log_OutputE 55 1486 388 1 16

,
// fltk N4xcas10Gen_OutputE 55 1487 388 23 16
point(0,5)
]
,
// fltk 7Fl_Tile 55 1512 388 50 16
[
// fltk N4xcas19Multiline_Input_tabE 55 1512 388 26 16
K:=point(18,0)
,
// fltk N4xcas10Log_OutputE 55 1538 388 1 16

,
// fltk N4xcas10Gen_OutputE 55 1539 388 23 16
point(18,0)
]
,
// fltk 7Fl_Tile 55 1564 388 50 16
[
// fltk N4xcas19Multiline_Input_tabE 55 1564 388 26 16
J:=point(18,7)
,
// fltk N4xcas10Log_OutputE 55 1590 388 1 16

,
// fltk N4xcas10Gen_OutputE 55 1591 388 23 16
point(18,7)
]
,
// fltk 7Fl_Tile 55 1616 388 50 16
[
// fltk N4xcas19Multiline_Input_tabE 55 1616 388 26 16
color(open_polygon(R,H,K,J),rouge+epaisseur_ligne_3)
,
// fltk N4xcas10Log_OutputE 55 1642 388 1 16

,
// fltk N4xcas10Gen_OutputE 55 1643 388 23 16
polygone(point(0,5),point(0,0),point(18,0),point(18,7))
]
,
// fltk 7Fl_Tile 55 1668 388 50 16
[
// fltk N4xcas19Multiline_Input_tabE 55 1668 388 26 16
assume(x:=[14.04,0,18])
,
// fltk N4xcas10Log_OutputE 55 1694 388 1 16

,
// fltk N4xcas10Gen_OutputE 55 1695 388 23 16
parameter(x,0.0,18.0,14.04)
]
,
// fltk 7Fl_Tile 55 1720 388 50 16
[
// fltk N4xcas19Multiline_Input_tabE 55 1720 388 26 16
M:=point(x,0)
,
// fltk N4xcas10Log_OutputE 55 1746 388 1 16

,
// fltk N4xcas10Gen_OutputE 55 1747 388 23 16
point(x)
]
,
// fltk 7Fl_Tile 55 1772 388 50 16
[
// fltk N4xcas19Multiline_Input_tabE 55 1772 388 26 16
trajet:=color(open_polygon(R,M,J),bleu+line_width_3)
,
// fltk N4xcas10Log_OutputE 55 1798 388 1 16

,
// fltk N4xcas10Gen_OutputE 55 1799 388 23 16
polygone(point(0,5),point(x),point(18,7))
]
,
// fltk 7Fl_Tile 55 1824 388 50 16
[
// fltk N4xcas19Multiline_Input_tabE 55 1824 388 26 16
h:=unapply(distance(R,M)+distance(M,J),x)
,
// fltk N4xcas10Log_OutputE 55 1850 388 1 16

,
// fltk N4xcas10Gen_OutputE 55 1851 388 23 16
 (x)->sqrt((-x)^2+25)+sqrt((x-18)^2+49)
]
,
// fltk 7Fl_Tile 55 1876 388 68 16
[
// fltk N4xcas19Multiline_Input_tabE 55 1876 388 26 16
graphe(h(x),x=0..18,color=vert)
,
// fltk N4xcas10Log_OutputE 55 1902 388 1 16

,
// fltk 9Fl_Scroll 55 1903 388 41 16
[
// fltk N4xcas10Gen_OutputE 55 1903 495 23 16
plotparam(x+(i)*(sqrt((-x)^2+25)+sqrt((x-18)^2+49)),x=0.0..18.0225)
,
// fltk 12Fl_Scrollbar 55 118 388 16 16
[]
,
// fltk 12Fl_Scrollbar 443 93 16 25 16
[]
]
]
,
// fltk 7Fl_Tile 55 1946 388 50 16
[
// fltk N4xcas19Multiline_Input_tabE 55 1946 388 26 16
m:=point(x,h(x))
,
// fltk N4xcas10Log_OutputE 55 1972 388 1 16

,
// fltk N4xcas10Gen_OutputE 55 1973 388 23 16
point(x+(i)*(sqrt((-x)^2+25)+sqrt((x-18)^2+49)))
]
,
// fltk 7Fl_Tile 55 1998 388 50 16
[
// fltk N4xcas19Multiline_Input_tabE 55 1998 388 26 16
h(7.4);h(7.5);h(7.6)
,
// fltk N4xcas10Log_OutputE 55 2024 388 1 16

,
// fltk N4xcas10Gen_OutputE 55 2025 388 23 16
21.63360103,21.63330765,21.63359949
]
,
// fltk 7Fl_Tile 55 2050 388 27 16
[
// fltk N4xcas19Multiline_Input_tabE 55 2050 388 26 16

,
// fltk N4xcas10Log_OutputE 55 2076 388 1 16

]
]
// fltk N4xcas5Geo2dE 447 1408 307 675 16
-0.9,18.9,-1,9,[pnt(pnt[0,[0],"H"]),pnt(pnt[5*i,[0],"R"]),pnt(pnt[18,[0],"K"]),pnt(pnt[18+7*i,[0],"J"]),pnt(pnt[group[5*i,0,18,18+7*i],131073]),parameter(x,0.0,18.0,14.04),pnt(pnt[x,[0],"M"]),pnt(pnt[group[5*i,x,18+7*i],131076,"trajet"]), (x)->sqrt((-x)^2+25)+sqrt((x-18)^2+49),pnt(pnt[curve(group[pnt[x+(i)*(sqrt((-x)^2+25)+sqrt((x-18)^2+49)),x,0.0,18.0225],group[24.31320792*i,0.045+24.2714771*i,0.09+24.2301651*i,0.135+24.18927184*i,0.18+24.14879718*i,0.225+24.10874087*i,0.27+24.06910255*i,0.315+24.02988179*i,0.36+23.99107803*i,0.405+23.95269066*i,0.45+23.91471894*i,0.495+23.87716206*i,0.54+23.84001909*i,0.585+23.80328903*i,0.63+23.7669708*i,0.675+23.73106321*i,0.72+23.695565*i,0.765+23.66047482*i,0.81+23.62579122*i,0.855+23.59151271*i,0.9+23.55763767*i,0.945+23.52416444*i,0.99+23.49109127*i,1.035+23.45841634*i,1.08+23.42613775*i,1.125+23.39425354*i,1.17+23.36276168*i,1.215+23.33166008*i,1.26+23.30094657*i,1.305+23.27061894*i,1.35+23.24067492*i,1.395+23.21111215*i,1.44+23.18192827*i,1.485+23.15312084*i,1.53+23.12468736*i,1.575+23.0966253*i,1.62+23.0689321*i,1.665+23.04160513*i,1.71+23.01464173*i,1.755+22.98803921*i,1.8+22.96179484*i,1.845+22.93590586*i,1.89+22.91036948*i,1.935+22.88518289*i,1.98+22.86034324*i,2.025+22.83584766*i,2.07+22.81169326*i,2.115+22.78787715*i,2.16+22.76439639*i,2.205+22.74124806*i,2.25+22.7184292*i,2.295+22.69593686*i,2.34+22.67376805*i,2.385+22.65191982*i,2.43+22.63038918*i,2.475+22.60917314*i,2.52+22.58826873*i,2.565+22.56767295*i,2.61+22.54738283*i,2.655+22.52739539*i,2.7+22.50770766*i,2.745+22.48831667*i,2.79+22.46921945*i,2.835+22.45041308*i,2.88+22.43189459*i,2.925+22.41366108*i,2.97+22.39570962*i,3.015+22.37803733*i,3.06+22.3606413*i,3.105+22.34351869*i,3.15+22.32666664*i,3.195+22.31008232*i,3.24+22.29376292*i,3.285+22.27770566*i,3.33+22.26190776*i,3.375+22.24636647*i,3.42+22.23107908*i,3.465+22.21604287*i,3.51+22.20125518*i,3.555+22.18671336*i,3.6+22.17241477*i,3.645+22.15835681*i,3.69+22.14453692*i,3.735+22.13095254*i,3.78+22.11760115*i,3.825+22.10448025*i,3.87+22.09158739*i,3.915+22.07892013*i,3.96+22.06647604*i,4.005+22.05425277*i,4.05+22.04224795*i,4.095+22.03045926*i,4.14+22.0188844*i,4.185+22.00752112*i,4.23+21.99636719*i,4.275+21.98542038*i,4.32+21.97467854*i,4.365+21.96413952*i,4.41+21.9538012*i,4.455+21.94366149*i,4.5+21.93371835*i,4.545+21.92396974*i,4.59+21.91441367*i,4.635+21.90504818*i,4.68+21.89587132*i,4.725+21.8868812*i,4.77+21.87807593*i,4.815+21.86945367*i,4.86+21.8610126*i,4.905+21.85275093*i,4.95+21.84466689*i,4.995+21.83675877*i,5.04+21.82902485*i,5.085+21.82146346*i,5.13+21.81407297*i,5.175+21.80685174*i,5.22+21.79979819*i,5.265+21.79291076*i,5.31+21.78618792*i,5.355+21.77962816*i,5.4+21.77322999*i,5.445+21.76699198*i,5.49+21.76091269*i,5.535+21.75499073*i,5.58+21.74922472*i,5.625+21.74361332*i,5.67+21.73815521*i,5.715+21.7328491*i,5.76+21.72769371*i,5.805+21.7226878*i,5.85+21.71783015*i,5.895+21.71311958*i,5.94+21.70855491*i,5.985+21.704135*i,6.03+21.69985872*i,6.075+21.69572498*i,6.12+21.69173272*i,6.165+21.68788087*i,6.21+21.68416841*i,6.255+21.68059435*i,6.3+21.67715769*i,6.345+21.67385749*i,6.39+21.6706928*i,6.435+21.66766271*i,6.48+21.66476634*i,6.525+21.6620028*i,6.57+21.65937126*i,6.615+21.65687089*i,6.66+21.65450088*i,6.705+21.65226044*i,6.75+21.65014881*i,6.795+21.64816525*i,6.84+21.64630902*i,6.885+21.64457944*i,6.93+21.64297581*i,6.975+21.64149748*i,7.02+21.64014378*i,7.065+21.63891411*i,7.11+21.63780785*i,7.155+21.63682441*i,7.2+21.63596323*i,7.245+21.63522376*i,7.29+21.63460546*i,7.335+21.63410782*i,7.38+21.63373035*i,7.425+21.63347257*i,7.47+21.63333401*i,7.515+21.63331423*i,7.56+21.63341282*i,7.605+21.63362936*i,7.65+21.63396346*i,7.695+21.63441475*i,7.74+21.63498288*i,7.785+21.6356675*i,7.83+21.63646828*i,7.875+21.63738493*i,7.92+21.63841716*i,7.965+21.63956468*i,8.01+21.64082725*i,8.055+21.64220461*i,8.1+21.64369655*i,8.145+21.64530285*i,8.19+21.64702332*i,8.235+21.64885779*i,8.28+21.65080607*i,8.325+21.65286804*i,8.37+21.65504356*i,8.415+21.6573325*i,8.46+21.65973477*i,8.505+21.66225027*i,8.55+21.66487895*i,8.595+21.66762073*i,8.64+21.67047558*i,8.685+21.67344346*i,8.73+21.67652437*i,8.775+21.67971831*i,8.82+21.68302528*i,8.865+21.68644532*i,8.91+21.68997848*i,8.955+21.69362481*i,9+21.69738439*i,9.045+21.7012573*i,9.09+21.70524364*i,9.135+21.70934354*i,9.18+21.7135571*i,9.225+21.71788449*i,9.27+21.72232586*i,9.315+21.72688138*i,9.36+21.73155122*i,9.405+21.7363356*i,9.45+21.74123473*i,9.495+21.74624882*i,9.54+21.75137812*i,9.585+21.75662289*i,9.63+21.76198338*i,9.675+21.76745989*i,9.72+21.7730527*i,9.765+21.77876212*i,9.81+21.78458848*i,9.855+21.7905321*i,9.9+21.79659334*i,9.945+21.80277256*i,9.99+21.80907013*i,10.035+21.81548644*i,10.08+21.8220219*i,10.125+21.82867691*i,10.17+21.83545192*i,10.215+21.84234735*i,10.26+21.84936367*i,10.305+21.85650134*i,10.35+21.86376085*i,10.395+21.87114269*i,10.44+21.87864738*i,10.485+21.88627543*i,10.53+21.89402737*i,10.575+21.90190377*i,10.62+21.90990517*i,10.665+21.91803216*i,10.71+21.92628533*i,10.755+21.93466527*i,10.8+21.94317261*i,10.845+21.95180796*i,10.89+21.96057198*i,10.935+21.96946532*i,10.98+21.97848864*i,11.025+21.98764263*i,11.07+21.99692799*i,11.115+22.00634542*i,11.16+22.01589564*i,11.205+22.02557939*i,11.25+22.03539742*i,11.295+22.04535049*i,11.34+22.05543937*i,11.385+22.06566485*i,11.43+22.07602773*i,11.475+22.08652882*i,11.52+22.09716896*i,11.565+22.10794898*i,11.61+22.11886974*i,11.655+22.12993211*i,11.7+22.14113695*i,11.745+22.15248518*i,11.79+22.16397768*i,11.835+22.17561539*i,11.88+22.18739923*i,11.925+22.19933015*i,11.97+22.2114091*i,12.015+22.22363706*i,12.06+22.23601501*i,12.105+22.24854395*i,12.15+22.26122488*i,12.195+22.27405884*i,12.24+22.28704684*i,12.285+22.30018994*i,12.33+22.3134892*i,12.375+22.3269457*i,12.42+22.3405605*i,12.465+22.35433472*i,12.51+22.36826946*i,12.555+22.38236585*i,12.6+22.396625*i,12.645+22.41104808*i,12.69+22.42563624*i,12.735+22.44039064*i,12.78+22.45531247*i,12.825+22.47040292*i,12.87+22.4856632*i,12.915+22.50109451*i,12.96+22.51669808*i,13.005+22.53247516*i,13.05+22.54842699*i,13.095+22.56455482*i,13.14+22.58085993*i,13.185+22.5973436*i,13.23+22.61400712*i,13.275+22.63085179*i,13.32+22.64787891*i,13.365+22.66508981*i,13.41+22.68248583*i,13.455+22.70006828*i,13.5+22.71783854*i,13.545+22.73579794*i,13.59+22.75394787*i,13.635+22.77228968*i,13.68+22.79082477*i,13.725+22.80955452*i,13.77+22.82848033*i,13.815+22.84760361*i,13.86+22.86692577*i,13.905+22.88644823*i,13.95+22.90617241*i,13.995+22.92609974*i,14.04+22.94623167*i,14.085+22.96656964*i,14.13+22.98711509*i,14.175+23.00786948*i,14.22+23.02883426*i,14.265+23.05001091*i,14.31+23.07140088*i,14.355+23.09300564*i,14.4+23.11482667*i,14.445+23.13686544*i,14.49+23.15912343*i,14.535+23.18160212*i,14.58+23.20430299*i,14.625+23.22722751*i,14.67+23.25037718*i,14.715+23.27375346*i,14.76+23.29735786*i,14.805+23.32119183*i,14.85+23.34525687*i,14.895+23.36955445*i,14.94+23.39408605*i,14.985+23.41885313*i,15.03+23.44385716*i,15.075+23.46909962*i,15.12+23.49458195*i,15.165+23.52030561*i,15.21+23.54627206*i,15.255+23.57248273*i,15.3+23.59893905*i,15.345+23.62564247*i,15.39+23.65259439*i,15.435+23.67979624*i,15.48+23.7072494*i,15.525+23.73495529*i,15.57+23.76291527*i,15.615+23.79113072*i,15.66+23.81960301*i,15.705+23.84833347*i,15.75+23.87732345*i,15.795+23.90657427*i,15.84+23.93608723*i,15.885+23.96586363*i,15.93+23.99590475*i,15.975+24.02621184*i,16.02+24.05678616*i,16.065+24.08762893*i,16.11+24.11874136*i,16.155+24.15012465*i,16.2+24.18177996*i,16.245+24.21370846*i,16.29+24.24591127*i,16.335+24.2783895*i,16.38+24.31114426*i,16.425+24.3441766*i,16.47+24.37748757*i,16.515+24.41107819*i,16.56+24.44494947*i,16.605+24.47910237*i,16.65+24.51353785*i,16.695+24.54825682*i,16.74+24.5832602*i,16.785+24.61854883*i,16.83+24.65412358*i,16.875+24.68998526*i,16.92+24.72613464*i,16.965+24.7625725*i,17.01+24.79929956*i,17.055+24.83631651*i,17.1+24.87362404*i,17.145+24.91122277*i,17.19+24.94911332*i,17.235+24.98729626*i,17.28+25.02577213*i,17.325+25.06454146*i,17.37+25.10360471*i,17.415+25.14296235*i,17.46+25.18261477*i,17.505+25.22256236*i,17.55+25.26280546*i,17.595+25.3033444*i,17.64+25.34417945*i,17.685+25.38531084*i,17.73+25.4267388*i,17.775+25.4684635*i,17.82+25.51048507*i,17.865+25.55280363*i,17.91+25.59541923*i,17.955+25.63833192*i,18+25.68154169*i]]),2]),pnt(pnt[x+(i)*(sqrt((-x)^2+25)+sqrt((x-18)^2+49)),[0],"m"]),21.63360103,21.63330765,21.63359949],-4.9985,4.9985,1,0,0,0,1,2,1,268435456,1,2.25,0,1,1,[],24,18,0,0,2,0,0,1,0.1

,
// fltk N4xcas10Log_OutputE 33 2083 1627 0 16

]
,
// fltk 7Fl_Tile 33 2085 1627 180 16
[
// fltk N4xcas19Multiline_Input_tabE 33 2085 1627 125 16
X:=7.4+10^(-6):; £Y:=h(7.4):;£ tantque evalf(h(X))<Y faire£        Y:=evalf(h(X)); £       X:=evalf(X+10^(-6));  £ ftantque:; £X-10^(-6)
,
// fltk N4xcas10Log_OutputE 33 2210 1627 20 16
Evaluation time: 5.54£
,
// fltk N4xcas8EquationE 33 2230 1627 35 16
"Done","Done","Done",7.5
]
,
// fltk 7Fl_Tile 33 2267 1627 27 16
[
// fltk N4xcas23Comment_Multiline_InputE 33 2267 1627 26 16
Pour vérifier si on a trouvé la bonne solution, un petit bond dans le programme de 1ère
,
// fltk N4xcas10Log_OutputE 33 2293 1627 1 16

]
,
// fltk 7Fl_Tile 33 2296 1627 117 16
[
// fltk N4xcas19Multiline_Input_tabE 33 2296 1627 26 16
hp:=fonction_derivee(h)
,
// fltk N4xcas10Log_OutputE 33 2322 1627 20 16
// Success£
,
// fltk N4xcas8EquationE 33 2342 1627 71 16
 (` x`)->(-2*(-` x`))*1/2*1/((-` x`)^2+25)*sqrt((-` x`)^2+25)+2*(` x`-18)*1/2*1/((` x`-18)^2+49)*sqrt((` x`-18)^2+49)
]
,
// fltk 7Fl_Tile 33 2415 1627 82 16
[
// fltk N4xcas19Multiline_Input_tabE 33 2415 1627 26 16
resoudre(hp(t)=0,t)
,
// fltk N4xcas10Log_OutputE 33 2441 1627 1 16

,
// fltk N4xcas8EquationE 33 2442 1627 55 16
[-45,15/2]
]
,
// fltk 7Fl_Tile 33 2499 1627 62 16
[
// fltk N4xcas19Multiline_Input_tabE 33 2499 1627 26 16
simplifier(hp(15/2))
,
// fltk N4xcas10Log_OutputE 33 2525 1627 1 16

,
// fltk N4xcas8EquationE 33 2526 1627 35 16
0
]
,
// fltk 7Fl_Tile 33 2563 1627 27 16
[
// fltk N4xcas23Comment_Multiline_InputE 33 2563 1627 26 16
EXERCICE DENTS DE LA MER
,
// fltk N4xcas10Log_OutputE 33 2589 1627 1 16

]
,
// fltk 7Fl_Tile 33 2592 1627 746 16
[
// fltk N4xcas6FigureE 33 2592 1627 745 16 landscape=0 history=0.33313 geo=0.11002  mouse_param=0.55685
// fltk N4xcas12History_PackE 35 2614 536 549 16
[
// fltk 7Fl_Tile 55 2614 516 50 16
[
// fltk N4xcas19Multiline_Input_tabE 55 2614 516 26 16
H:=point(0,0)
,
// fltk N4xcas10Log_OutputE 55 2640 516 1 16

,
// fltk N4xcas10Gen_OutputE 55 2641 516 23 16
point(0,0)
]
,
// fltk 7Fl_Tile 55 2666 516 50 16
[
// fltk N4xcas19Multiline_Input_tabE 55 2666 516 26 16
B:=point(30,0)
,
// fltk N4xcas10Log_OutputE 55 2692 516 1 16

,
// fltk N4xcas10Gen_OutputE 55 2693 516 23 16
point(30,0)
]
,
// fltk 7Fl_Tile 55 2718 516 50 16
[
// fltk N4xcas19Multiline_Input_tabE 55 2718 516 26 16
A:=point(0,-18)
,
// fltk N4xcas10Log_OutputE 55 2744 516 1 16

,
// fltk N4xcas10Gen_OutputE 55 2745 516 23 16
point(0,-18)
]
,
// fltk 7Fl_Tile 55 2770 516 50 16
[
// fltk N4xcas19Multiline_Input_tabE 55 2770 516 26 16
assume(x:=[23.1,0,30])
,
// fltk N4xcas10Log_OutputE 55 2796 516 1 16

,
// fltk N4xcas10Gen_OutputE 55 2797 516 23 16
parameter(x,0.0,30.0,23.1)
]
,
// fltk 7Fl_Tile 55 2822 516 50 16
[
// fltk N4xcas19Multiline_Input_tabE 55 2822 516 26 16
M:=point(x,0)
,
// fltk N4xcas10Log_OutputE 55 2848 516 1 16

,
// fltk N4xcas10Gen_OutputE 55 2849 516 23 16
point(x)
]
,
// fltk 7Fl_Tile 55 2874 516 50 16
[
// fltk N4xcas19Multiline_Input_tabE 55 2874 516 26 16
color(open_polygon(A,H,B),bleu+epaisseur_ligne_3)
,
// fltk N4xcas10Log_OutputE 55 2900 516 1 16

,
// fltk N4xcas10Gen_OutputE 55 2901 516 23 16
polygone(point(0,-18),point(0,0),point(30,0))
]
,
// fltk 7Fl_Tile 55 2926 516 50 16
[
// fltk N4xcas19Multiline_Input_tabE 55 2926 516 26 16
color(open_polygon(A,M,B),rouge+epaisseur_ligne_3)
,
// fltk N4xcas10Log_OutputE 55 2952 516 1 16

,
// fltk N4xcas10Gen_OutputE 55 2953 516 23 16
polygone(point(0,-18),point(x),point(30,0))
]
,
// fltk 7Fl_Tile 55 2978 516 50 16
[
// fltk N4xcas19Multiline_Input_tabE 55 2978 516 26 16
t:=unapply(distance(A,M)/(7.2/3.6)+distance(M,B)/(9/3.6),x)
,
// fltk N4xcas10Log_OutputE 55 3004 516 1 16

,
// fltk N4xcas10Gen_OutputE 55 3005 516 23 16
 (x)->sqrt((-x)^2+324)/2.0+(-x+30)/2.5
]
,
// fltk 7Fl_Tile 55 3030 516 50 16
[
// fltk N4xcas19Multiline_Input_tabE 55 3030 516 26 16
graphe(t(x),x=0..30,color=vert)
,
// fltk N4xcas10Log_OutputE 55 3056 516 1 16

,
// fltk N4xcas10Gen_OutputE 55 3057 516 23 16
plotparam(x+(i)*(sqrt((-x)^2+324)*0.5+(-x+30)*0.4),x=0.0..30.0375)
]
,
// fltk 7Fl_Tile 55 3082 516 50 16
[
// fltk N4xcas19Multiline_Input_tabE 55 3082 516 26 16
m:=point(x,t(x))
,
// fltk N4xcas10Log_OutputE 55 3108 516 1 16

,
// fltk N4xcas10Gen_OutputE 55 3109 516 23 16
point(23.1,17.40248954)
]
,
// fltk 7Fl_Tile 55 3134 516 27 16
[
// fltk N4xcas19Multiline_Input_tabE 55 3134 516 26 16

,
// fltk N4xcas10Log_OutputE 55 3160 516 1 16

]
]
// fltk N4xcas5Geo2dE 575 2614 179 723 16
-8.331,38.331,-29.356,34.556,[pnt(pnt[0,[0],"H"]),pnt(pnt[30,[0],"B"]),pnt(pnt[-18*i,[0],"A"]),parameter(x,0.0,30.0,2.7),pnt(pnt[x,[0],"M"]),pnt(pnt[group[-18*i,0,30],131076]),pnt(pnt[group[-18*i,x,30],131073]), (x)->sqrt((-x)^2+324)/2.0+(-x+30)/2.5,pnt(pnt[curve(group[pnt[x+(i)*(sqrt((-x)^2+324)*0.5+(-x+30)*0.4),x,0.0,30.0375],group[21.0*i,0.075+20.97007812*i,0.15+20.94031249*i,0.225+20.9107031*i,0.3+20.88124991*i,0.375+20.85195291*i,0.45+20.82281206*i,0.525+20.79382731*i,0.6+20.76499861*i,0.675+20.7363259*i,0.75+20.70780911*i,0.825+20.67944817*i,0.9+20.65124298*i,0.975+20.62319345*i,1.05+20.5952995*i,1.125+20.56756099*i,1.2+20.53997783*i,1.275+20.51254988*i,1.35+20.485277*i,1.425+20.45815907*i,1.5+20.43119593*i,1.575+20.40438743*i,1.65+20.3777334*i,1.725+20.35123367*i,1.8+20.32488806*i,1.875+20.29869638*i,1.95+20.27265845*i,2.025+20.24677405*i,2.1+20.22104299*i,2.175+20.19546503*i,2.25+20.17003997*i,2.325+20.14476756*i,2.4+20.11964757*i,2.475+20.09467975*i,2.55+20.06986386*i,2.625+20.04519963*i,2.7+20.02068679*i,2.775+19.99632507*i,2.85+19.97211419*i,2.925+19.94805386*i,3+19.9241438*i,3.075+19.90038369*i,3.15+19.87677323*i,3.225+19.85331211*i,3.3+19.83*i,3.375+19.80683659*i,3.45+19.78382153*i,3.525+19.76095449*i,3.6+19.73823512*i,3.675+19.71566308*i,3.75+19.693238*i,3.825+19.67095953*i,3.9+19.64882729*i,3.975+19.6268409*i,4.05+19.605*i,4.125+19.58330419*i,4.2+19.56175308*i,4.275+19.54034628*i,4.35+19.51908338*i,4.425+19.49796398*i,4.5+19.47698766*i,4.575+19.45615401*i,4.65+19.4354626*i,4.725+19.41491302*i,4.8+19.39450482*i,4.875+19.37423757*i,4.95+19.35411083*i,5.025+19.33412416*i,5.1+19.3142771*i,5.175+19.2945692*i,5.25+19.275*i,5.325+19.25556904*i,5.4+19.23627586*i,5.475+19.21711998*i,5.55+19.19810092*i,5.625+19.17921822*i,5.7+19.16047139*i,5.775+19.14185994*i,5.85+19.12338338*i,5.925+19.10504123*i,6+19.08683298*i,6.075+19.06875814*i,6.15+19.05081621*i,6.225+19.03300668*i,6.3+19.01532905*i,6.375+18.99778279*i,6.45+18.98036741*i,6.525+18.96308238*i,6.6+18.94592719*i,6.675+18.9289013*i,6.75+18.91200421*i,6.825+18.89523539*i,6.9+18.8785943*i,6.975+18.86208041*i,7.05+18.8456932*i,7.125+18.82943212*i,7.2+18.81329665*i,7.275+18.79728625*i,7.35+18.78140036*i,7.425+18.76563846*i,7.5+18.75*i,7.575+18.73448443*i,7.65+18.71909122*i,7.725+18.7038198*i,7.8+18.68866963*i,7.875+18.67364017*i,7.95+18.65873086*i,8.025+18.64394115*i,8.1+18.62927049*i,8.175+18.61471832*i,8.25+18.60028409*i,8.325+18.58596724*i,8.4+18.57176721*i,8.475+18.55768346*i,8.55+18.54371542*i,8.625+18.52986254*i,8.7+18.51612425*i,8.775+18.5025*i,8.85+18.48898923*i,8.925+18.47559138*i,9+18.4623059*i,9.075+18.44913222*i,9.15+18.43606978*i,9.225+18.42311803*i,9.3+18.4102764*i,9.375+18.39754435*i,9.45+18.3849213*i,9.525+18.3724067*i,9.6+18.36*i,9.675+18.34770063*i,9.75+18.33550805*i,9.825+18.32342168*i,9.9+18.31144099*i,9.975+18.29956541*i,10.05+18.28779438*i,10.125+18.27612736*i,10.2+18.26456379*i,10.275+18.25310312*i,10.35+18.2417448*i,10.425+18.23048827*i,10.5+18.21933299*i,10.575+18.20827841*i,10.65+18.19732399*i,10.725+18.18646917*i,10.8+18.17571341*i,10.875+18.16505617*i,10.95+18.1544969*i,11.025+18.14403507*i,11.1+18.13367013*i,11.175+18.12340154*i,11.25+18.11322877*i,11.325+18.10315129*i,11.4+18.09316854*i,11.475+18.08328001*i,11.55+18.07348517*i,11.625+18.06378347*i,11.7+18.0541744*i,11.775+18.04465742*i,11.85+18.03523202*i,11.925+18.02589766*i,12+18.01665383*i,12.075+18.0075*i,12.15+17.99843566*i,12.225+17.98946029*i,12.3+17.98057338*i,12.375+17.97177441*i,12.45+17.96306287*i,12.525+17.95443826*i,12.6+17.94590005*i,12.675+17.93744776*i,12.75+17.92908088*i,12.825+17.9207989*i,12.9+17.91260132*i,12.975+17.90448765*i,13.05+17.89645739*i,13.125+17.88851006*i,13.2+17.88064514*i,13.275+17.87286217*i,13.35+17.86516064*i,13.425+17.85754008*i,13.5+17.85*i,13.575+17.84253992*i,13.65+17.83515936*i,13.725+17.82785785*i,13.8+17.8206349*i,13.875+17.81349006*i,13.95+17.80642284*i,14.025+17.79943278*i,14.1+17.79251941*i,14.175+17.78568227*i,14.25+17.7789209*i,14.325+17.77223484*i,14.4+17.76562363*i,14.475+17.75908681*i,14.55+17.75262395*i,14.625+17.74623457*i,14.7+17.73991824*i,14.775+17.73367452*i,14.85+17.72750295*i,14.925+17.72140309*i,15+17.71537451*i,15.075+17.70941678*i,15.15+17.70352944*i,15.225+17.69771209*i,15.3+17.69196427*i,15.375+17.68628558*i,15.45+17.68067557*i,15.525+17.67513383*i,15.6+17.66965994*i,15.675+17.66425349*i,15.75+17.65891404*i,15.825+17.65364119*i,15.9+17.64843454*i,15.975+17.64329366*i,16.05+17.63821815*i,16.125+17.63320761*i,16.2+17.62826164*i,16.275+17.62337984*i,16.35+17.6185618*i,16.425+17.61380713*i,16.5+17.60911545*i,16.575+17.60448635*i,16.65+17.59991945*i,16.725+17.59541437*i,16.8+17.59097072*i,16.875+17.58658811*i,16.95+17.58226618*i,17.025+17.57800453*i,17.1+17.5738028*i,17.175+17.56966062*i,17.25+17.5655776*i,17.325+17.5615534*i,17.4+17.55758763*i,17.475+17.55367993*i,17.55+17.54982995*i,17.625+17.54603732*i,17.7+17.54230169*i,17.775+17.5386227*i,17.85+17.535*i,17.925+17.53143324*i,18+17.52792206*i,18.075+17.52446613*i,18.15+17.5210651*i,18.225+17.51771862*i,18.3+17.51442636*i,18.375+17.51118798*i,18.45+17.50800314*i,18.525+17.50487152*i,18.6+17.50179277*i,18.675+17.49876657*i,18.75+17.49579259*i,18.825+17.49287051*i,18.9+17.49*i,18.975+17.48718075*i,19.05+17.48441242*i,19.125+17.48169472*i,19.2+17.47902732*i,19.275+17.47640991*i,19.35+17.47384217*i,19.425+17.47132381*i,19.5+17.46885451*i,19.575+17.46643397*i,19.65+17.46406188*i,19.725+17.46173795*i,19.8+17.45946187*i,19.875+17.45723336*i,19.95+17.4550521*i,20.025+17.45291782*i,20.1+17.45083022*i,20.175+17.44878901*i,20.25+17.4467939*i,20.325+17.44484461*i,20.4+17.44294086*i,20.475+17.44108236*i,20.55+17.43926883*i,20.625+17.4375*i,20.7+17.43577559*i,20.775+17.43409532*i,20.85+17.43245893*i,20.925+17.43086614*i,21+17.42931669*i,21.075+17.4278103*i,21.15+17.42634671*i,21.225+17.42492566*i,21.3+17.42354689*i,21.375+17.42221014*i,21.45+17.42091515*i,21.525+17.41966166*i,21.6+17.41844942*i,21.675+17.41727817*i,21.75+17.41614767*i,21.825+17.41505766*i,21.9+17.4140079*i,21.975+17.41299814*i,22.05+17.41202814*i,22.125+17.41109765*i,22.2+17.41020644*i,22.275+17.40935425*i,22.35+17.40854087*i,22.425+17.40776604*i,22.5+17.40702953*i,22.575+17.40633112*i,22.65+17.40567057*i,22.725+17.40504765*i,22.8+17.40446212*i,22.875+17.40391378*i,22.95+17.40340238*i,23.025+17.40292771*i,23.1+17.40248954*i,23.175+17.40208766*i,23.25+17.40172184*i,23.325+17.40139186*i,23.4+17.40109752*i,23.475+17.40083859*i,23.55+17.40061487*i,23.625+17.40042613*i,23.7+17.40027217*i,23.775+17.40015279*i,23.85+17.40006777*i,23.925+17.40001691*i,24+17.4*i,24.075+17.40001684*i,24.15+17.40006723*i,24.225+17.40015097*i,24.3+17.40026785*i,24.375+17.40041769*i,24.45+17.40060028*i,24.525+17.40081544*i,24.6+17.40106296*i,24.675+17.40134265*i,24.75+17.40165432*i,24.825+17.40199779*i,24.9+17.40237286*i,24.975+17.40277935*i,25.05+17.40321708*i,25.125+17.40368585*i,25.2+17.40418548*i,25.275+17.4047158*i,25.35+17.40527661*i,25.425+17.40586775*i,25.5+17.40648904*i,25.575+17.40714028*i,25.65+17.40782132*i,25.725+17.40853198*i,25.8+17.40927207*i,25.875+17.41004144*i,25.95+17.41083991*i,26.025+17.4116673*i,26.1+17.41252346*i,26.175+17.41340821*i,26.25+17.41432138*i,26.325+17.41526282*i,26.4+17.41623235*i,26.475+17.41722981*i,26.55+17.41825505*i,26.625+17.4193079*i,26.7+17.42038819*i,26.775+17.42149578*i,26.85+17.42263051*i,26.925+17.42379221*i,27+17.42498074*i,27.075+17.42619593*i,27.15+17.42743764*i,27.225+17.42870572*i,27.3+17.43*i,27.375+17.43132035*i,27.45+17.4326666*i,27.525+17.43403862*i,27.6+17.43543626*i,27.675+17.43685937*i,27.75+17.4383078*i,27.825+17.43978142*i,27.9+17.44128007*i,27.975+17.44280362*i,28.05+17.44435192*i,28.125+17.44592484*i,28.2+17.44752223*i,28.275+17.44914396*i,28.35+17.45078989*i,28.425+17.45245988*i,28.5+17.45415379*i,28.575+17.4558715*i,28.65+17.45761286*i,28.725+17.45937775*i,28.8+17.46116604*i,28.875+17.46297758*i,28.95+17.46481226*i,29.025+17.46666994*i,29.1+17.46855049*i,29.175+17.47045379*i,29.25+17.47237971*i,29.325+17.47432813*i,29.4+17.47629891*i,29.475+17.47829193*i,29.55+17.48030708*i,29.625+17.48234422*i,29.7+17.48440324*i,29.775+17.48648402*i,29.85+17.48858643*i,29.925+17.49071036*i,30+17.49285568*i]]),2]),pnt(pnt[23.1+17.40248954*i,[0],"m"])],-7.07,7.07,1,0,0,0,2,2,1,0,1,2.25,0,1,1,[],24,18,0,0,2,0,0,1,0.1

,
// fltk N4xcas10Log_OutputE 33 3337 1627 1 16

]
,
// fltk 7Fl_Tile 33 3340 1627 569 16
[
// fltk N4xcas19Multiline_Input_tabE 33 3340 1627 26 16
graphe(t(x),x=0..30,color=vert)
,
// fltk N4xcas10Log_OutputE 33 3366 1627 1 16

,
// fltk 7Fl_Tile 33 3367 1627 542 16
[
// fltk N4xcas7Graph2dE 33 3367 721 542 16
23.5,24.5,17.4,17.402,[pnt(pnt[curve(group[pnt[x+(i)*(sqrt((-x)^2+324)*0.5+(-x+30)*0.4),x,0.0,30.0375],group[21.0*i,0.075+20.97007812*i,0.15+20.94031249*i,0.225+20.9107031*i,0.3+20.88124991*i,0.375+20.85195291*i,0.45+20.82281206*i,0.525+20.79382731*i,0.6+20.76499861*i,0.675+20.7363259*i,0.75+20.70780911*i,0.825+20.67944817*i,0.9+20.65124298*i,0.975+20.62319345*i,1.05+20.5952995*i,1.125+20.56756099*i,1.2+20.53997783*i,1.275+20.51254988*i,1.35+20.485277*i,1.425+20.45815907*i,1.5+20.43119593*i,1.575+20.40438743*i,1.65+20.3777334*i,1.725+20.35123367*i,1.8+20.32488806*i,1.875+20.29869638*i,1.95+20.27265845*i,2.025+20.24677405*i,2.1+20.22104299*i,2.175+20.19546503*i,2.25+20.17003997*i,2.325+20.14476756*i,2.4+20.11964757*i,2.475+20.09467975*i,2.55+20.06986386*i,2.625+20.04519963*i,2.7+20.02068679*i,2.775+19.99632507*i,2.85+19.97211419*i,2.925+19.94805386*i,3+19.9241438*i,3.075+19.90038369*i,3.15+19.87677323*i,3.225+19.85331211*i,3.3+19.83*i,3.375+19.80683659*i,3.45+19.78382153*i,3.525+19.76095449*i,3.6+19.73823512*i,3.675+19.71566308*i,3.75+19.693238*i,3.825+19.67095953*i,3.9+19.64882729*i,3.975+19.6268409*i,4.05+19.605*i,4.125+19.58330419*i,4.2+19.56175308*i,4.275+19.54034628*i,4.35+19.51908338*i,4.425+19.49796398*i,4.5+19.47698766*i,4.575+19.45615401*i,4.65+19.4354626*i,4.725+19.41491302*i,4.8+19.39450482*i,4.875+19.37423757*i,4.95+19.35411083*i,5.025+19.33412416*i,5.1+19.3142771*i,5.175+19.2945692*i,5.25+19.275*i,5.325+19.25556904*i,5.4+19.23627586*i,5.475+19.21711998*i,5.55+19.19810092*i,5.625+19.17921822*i,5.7+19.16047139*i,5.775+19.14185994*i,5.85+19.12338338*i,5.925+19.10504123*i,6+19.08683298*i,6.075+19.06875814*i,6.15+19.05081621*i,6.225+19.03300668*i,6.3+19.01532905*i,6.375+18.99778279*i,6.45+18.98036741*i,6.525+18.96308238*i,6.6+18.94592719*i,6.675+18.9289013*i,6.75+18.91200421*i,6.825+18.89523539*i,6.9+18.8785943*i,6.975+18.86208041*i,7.05+18.8456932*i,7.125+18.82943212*i,7.2+18.81329665*i,7.275+18.79728625*i,7.35+18.78140036*i,7.425+18.76563846*i,7.5+18.75*i,7.575+18.73448443*i,7.65+18.71909122*i,7.725+18.7038198*i,7.8+18.68866963*i,7.875+18.67364017*i,7.95+18.65873086*i,8.025+18.64394115*i,8.1+18.62927049*i,8.175+18.61471832*i,8.25+18.60028409*i,8.325+18.58596724*i,8.4+18.57176721*i,8.475+18.55768346*i,8.55+18.54371542*i,8.625+18.52986254*i,8.7+18.51612425*i,8.775+18.5025*i,8.85+18.48898923*i,8.925+18.47559138*i,9+18.4623059*i,9.075+18.44913222*i,9.15+18.43606978*i,9.225+18.42311803*i,9.3+18.4102764*i,9.375+18.39754435*i,9.45+18.3849213*i,9.525+18.3724067*i,9.6+18.36*i,9.675+18.34770063*i,9.75+18.33550805*i,9.825+18.32342168*i,9.9+18.31144099*i,9.975+18.29956541*i,10.05+18.28779438*i,10.125+18.27612736*i,10.2+18.26456379*i,10.275+18.25310312*i,10.35+18.2417448*i,10.425+18.23048827*i,10.5+18.21933299*i,10.575+18.20827841*i,10.65+18.19732399*i,10.725+18.18646917*i,10.8+18.17571341*i,10.875+18.16505617*i,10.95+18.1544969*i,11.025+18.14403507*i,11.1+18.13367013*i,11.175+18.12340154*i,11.25+18.11322877*i,11.325+18.10315129*i,11.4+18.09316854*i,11.475+18.08328001*i,11.55+18.07348517*i,11.625+18.06378347*i,11.7+18.0541744*i,11.775+18.04465742*i,11.85+18.03523202*i,11.925+18.02589766*i,12+18.01665383*i,12.075+18.0075*i,12.15+17.99843566*i,12.225+17.98946029*i,12.3+17.98057338*i,12.375+17.97177441*i,12.45+17.96306287*i,12.525+17.95443826*i,12.6+17.94590005*i,12.675+17.93744776*i,12.75+17.92908088*i,12.825+17.9207989*i,12.9+17.91260132*i,12.975+17.90448765*i,13.05+17.89645739*i,13.125+17.88851006*i,13.2+17.88064514*i,13.275+17.87286217*i,13.35+17.86516064*i,13.425+17.85754008*i,13.5+17.85*i,13.575+17.84253992*i,13.65+17.83515936*i,13.725+17.82785785*i,13.8+17.8206349*i,13.875+17.81349006*i,13.95+17.80642284*i,14.025+17.79943278*i,14.1+17.79251941*i,14.175+17.78568227*i,14.25+17.7789209*i,14.325+17.77223484*i,14.4+17.76562363*i,14.475+17.75908681*i,14.55+17.75262395*i,14.625+17.74623457*i,14.7+17.73991824*i,14.775+17.73367452*i,14.85+17.72750295*i,14.925+17.72140309*i,15+17.71537451*i,15.075+17.70941678*i,15.15+17.70352944*i,15.225+17.69771209*i,15.3+17.69196427*i,15.375+17.68628558*i,15.45+17.68067557*i,15.525+17.67513383*i,15.6+17.66965994*i,15.675+17.66425349*i,15.75+17.65891404*i,15.825+17.65364119*i,15.9+17.64843454*i,15.975+17.64329366*i,16.05+17.63821815*i,16.125+17.63320761*i,16.2+17.62826164*i,16.275+17.62337984*i,16.35+17.6185618*i,16.425+17.61380713*i,16.5+17.60911545*i,16.575+17.60448635*i,16.65+17.59991945*i,16.725+17.59541437*i,16.8+17.59097072*i,16.875+17.58658811*i,16.95+17.58226618*i,17.025+17.57800453*i,17.1+17.5738028*i,17.175+17.56966062*i,17.25+17.5655776*i,17.325+17.5615534*i,17.4+17.55758763*i,17.475+17.55367993*i,17.55+17.54982995*i,17.625+17.54603732*i,17.7+17.54230169*i,17.775+17.5386227*i,17.85+17.535*i,17.925+17.53143324*i,18+17.52792206*i,18.075+17.52446613*i,18.15+17.5210651*i,18.225+17.51771862*i,18.3+17.51442636*i,18.375+17.51118798*i,18.45+17.50800314*i,18.525+17.50487152*i,18.6+17.50179277*i,18.675+17.49876657*i,18.75+17.49579259*i,18.825+17.49287051*i,18.9+17.49*i,18.975+17.48718075*i,19.05+17.48441242*i,19.125+17.48169472*i,19.2+17.47902732*i,19.275+17.47640991*i,19.35+17.47384217*i,19.425+17.47132381*i,19.5+17.46885451*i,19.575+17.46643397*i,19.65+17.46406188*i,19.725+17.46173795*i,19.8+17.45946187*i,19.875+17.45723336*i,19.95+17.4550521*i,20.025+17.45291782*i,20.1+17.45083022*i,20.175+17.44878901*i,20.25+17.4467939*i,20.325+17.44484461*i,20.4+17.44294086*i,20.475+17.44108236*i,20.55+17.43926883*i,20.625+17.4375*i,20.7+17.43577559*i,20.775+17.43409532*i,20.85+17.43245893*i,20.925+17.43086614*i,21+17.42931669*i,21.075+17.4278103*i,21.15+17.42634671*i,21.225+17.42492566*i,21.3+17.42354689*i,21.375+17.42221014*i,21.45+17.42091515*i,21.525+17.41966166*i,21.6+17.41844942*i,21.675+17.41727817*i,21.75+17.41614767*i,21.825+17.41505766*i,21.9+17.4140079*i,21.975+17.41299814*i,22.05+17.41202814*i,22.125+17.41109765*i,22.2+17.41020644*i,22.275+17.40935425*i,22.35+17.40854087*i,22.425+17.40776604*i,22.5+17.40702953*i,22.575+17.40633112*i,22.65+17.40567057*i,22.725+17.40504765*i,22.8+17.40446212*i,22.875+17.40391378*i,22.95+17.40340238*i,23.025+17.40292771*i,23.1+17.40248954*i,23.175+17.40208766*i,23.25+17.40172184*i,23.325+17.40139186*i,23.4+17.40109752*i,23.475+17.40083859*i,23.55+17.40061487*i,23.625+17.40042613*i,23.7+17.40027217*i,23.775+17.40015279*i,23.85+17.40006777*i,23.925+17.40001691*i,24+17.4*i,24.075+17.40001684*i,24.15+17.40006723*i,24.225+17.40015097*i,24.3+17.40026785*i,24.375+17.40041769*i,24.45+17.40060028*i,24.525+17.40081544*i,24.6+17.40106296*i,24.675+17.40134265*i,24.75+17.40165432*i,24.825+17.40199779*i,24.9+17.40237286*i,24.975+17.40277935*i,25.05+17.40321708*i,25.125+17.40368585*i,25.2+17.40418548*i,25.275+17.4047158*i,25.35+17.40527661*i,25.425+17.40586775*i,25.5+17.40648904*i,25.575+17.40714028*i,25.65+17.40782132*i,25.725+17.40853198*i,25.8+17.40927207*i,25.875+17.41004144*i,25.95+17.41083991*i,26.025+17.4116673*i,26.1+17.41252346*i,26.175+17.41340821*i,26.25+17.41432138*i,26.325+17.41526282*i,26.4+17.41623235*i,26.475+17.41722981*i,26.55+17.41825505*i,26.625+17.4193079*i,26.7+17.42038819*i,26.775+17.42149578*i,26.85+17.42263051*i,26.925+17.42379221*i,27+17.42498074*i,27.075+17.42619593*i,27.15+17.42743764*i,27.225+17.42870572*i,27.3+17.43*i,27.375+17.43132035*i,27.45+17.4326666*i,27.525+17.43403862*i,27.6+17.43543626*i,27.675+17.43685937*i,27.75+17.4383078*i,27.825+17.43978142*i,27.9+17.44128007*i,27.975+17.44280362*i,28.05+17.44435192*i,28.125+17.44592484*i,28.2+17.44752223*i,28.275+17.44914396*i,28.35+17.45078989*i,28.425+17.45245988*i,28.5+17.45415379*i,28.575+17.4558715*i,28.65+17.45761286*i,28.725+17.45937775*i,28.8+17.46116604*i,28.875+17.46297758*i,28.95+17.46481226*i,29.025+17.46666994*i,29.1+17.46855049*i,29.175+17.47045379*i,29.25+17.47237971*i,29.325+17.47432813*i,29.4+17.47629891*i,29.475+17.47829193*i,29.55+17.48030708*i,29.625+17.48234422*i,29.7+17.48440324*i,29.775+17.48648402*i,29.85+17.48858643*i,29.925+17.49071036*i,30+17.49285568*i]]),2])],-5,5,1,0,0,0,2,0.2,1,0,1,2.25,0,0,1,[],24,18,0,0,2,0,0,1,0
,
// fltk 7Fl_Tile 754 3367 906 542 16
[
// fltk N4xcas14Mouse_PositionE 754 3367 906 32 16
[]
,
// fltk 8Fl_Group 754 3399 906 95 16
[
// fltk 9Fl_Button 754 3399 301 19 16
[]
,
// fltk 9Fl_Button 1055 3399 301 19 16
[]
,
// fltk 9Fl_Button 1356 3399 301 19 16
[]
,
// fltk 9Fl_Button 754 3418 301 19 16
[]
,
// fltk 9Fl_Button 1055 3418 301 19 16
[]
,
// fltk 9Fl_Button 1356 3418 301 19 16
[]
,
// fltk 9Fl_Button 754 3437 301 19 16
[]
,
// fltk 9Fl_Button 1055 3437 301 19 16
[]
,
// fltk 9Fl_Button 1356 3437 301 19 16
[]
,
// fltk 9Fl_Button 754 3456 301 19 16
[]
,
// fltk 9Fl_Button 1055 3456 301 19 16
[]
,
// fltk 9Fl_Button 1356 3456 301 19 16
[]
,
// fltk 9Fl_Button 754 3475 301 19 16
[]
,
// fltk 11Fl_Menu_Bar 1055 3475 602 19 16
[]
]
,
// fltk 8Fl_Group 754 3494 906 415 16
[
]
]
]
]
,
// fltk 7Fl_Tile 33 3911 1627 217 16
[
// fltk N4xcas19Multiline_Input_tabE 33 3911 1627 145 16
mini(xo,p):={£X:=xo+10^(-p):;Y:=t(xo):;£tantque evalf(t(X))<Y faire £    Y:=evalf(t(X)); £    X:=X+10^(-p); £ftantque:;£ X-10^(-p) £}:;
,
// fltk N4xcas10Log_OutputE 33 4056 1627 37 16
// Parsing mini£// Warning: X t Y  declared as global variable(s) compiling mini£
,
// fltk N4xcas8EquationE 33 4093 1627 35 16
"Done"
]
,
// fltk 7Fl_Tile 33 4130 1627 81 16
[
// fltk N4xcas19Multiline_Input_tabE 33 4130 1627 26 16
mini(23.8,6)
,
// fltk N4xcas10Log_OutputE 33 4156 1627 20 16
Evaluation time: 8.86£
,
// fltk N4xcas8EquationE 33 4176 1627 35 16
24
]
,
// fltk 7Fl_Tile 33 4213 1627 27 16
[
// fltk N4xcas23Comment_Multiline_InputE 33 4213 1627 26 16
En 1ère
,
// fltk N4xcas10Log_OutputE 33 4239 1627 1 16

]
,
// fltk 7Fl_Tile 33 4242 1627 117 16
[
// fltk N4xcas19Multiline_Input_tabE 33 4242 1627 26 16
tp:=fonction_derivee(t)
,
// fltk N4xcas10Log_OutputE 33 4268 1627 20 16
// Success£
,
// fltk N4xcas8EquationE 33 4288 1627 71 16
 (` x`)->(-2*(-` x`))*1/2*1/((-` x`)^2+324)*sqrt((-` x`)^2+324)*0.5-0.4
]
,
// fltk 7Fl_Tile 33 4361 1627 62 16
[
// fltk N4xcas19Multiline_Input_tabE 33 4361 1627 26 16
tp(24)
,
// fltk N4xcas10Log_OutputE 33 4387 1627 1 16

,
// fltk N4xcas8EquationE 33 4388 1627 35 16
0.0
]
,
// fltk 7Fl_Tile 33 4425 1627 62 16
[
// fltk N4xcas19Multiline_Input_tabE 33 4425 1627 26 16
resoudre(tp(t)=0,t)
,
// fltk N4xcas10Log_OutputE 33 4451 1627 1 16

,
// fltk N4xcas8EquationE 33 4452 1627 35 16
[24]
]
,
// fltk 7Fl_Tile 33 4489 1627 27 16
[
// fltk N4xcas19Multiline_Input_tabE 33 4489 1627 26 16

,
// fltk N4xcas10Log_OutputE 33 4515 1627 1 16

]