// xcas version=0.7.4 fontsize=20 font=0 // fltk 7Fl_Tile 13 -47 930 520 20 0 [ // fltk N4xcas6FigureE 13 -47 930 519 20 0 landscape=0 history=0.33333 geo=0.55591 mouse_param=0.11075 // fltk N4xcas12History_PackE 15 -473 290 945 20 0 [ // fltk 7Fl_Tile 37 -473 268 58 20 0 [ // fltk N4xcas19Multiline_Input_tabE 37 -473 268 30 20 0 A:=point(0) , // fltk N4xcas10Log_OutputE 37 -443 268 1 20 0 , // fltk N4xcas10Gen_OutputE 37 -442 268 27 20 0 point(0,0) ] , // fltk 7Fl_Tile 37 -413 268 58 20 0 [ // fltk N4xcas19Multiline_Input_tabE 37 -413 268 30 20 0 B:=point(4,0) , // fltk N4xcas10Log_OutputE 37 -383 268 1 20 0 , // fltk N4xcas10Gen_OutputE 37 -382 268 27 20 0 point(4,0) ] , // fltk 7Fl_Tile 37 -353 268 58 20 0 [ // fltk N4xcas19Multiline_Input_tabE 37 -353 268 30 20 0 b:=rotation(B,-pi/2,A) , // fltk N4xcas10Log_OutputE 37 -323 268 1 20 0 , // fltk N4xcas10Gen_OutputE 37 -322 268 27 20 0 point(4,4) ] , // fltk 7Fl_Tile 37 -293 268 58 20 0 [ // fltk N4xcas19Multiline_Input_tabE 37 -293 268 30 20 0 Bb:=line(B,b,legend="") , // fltk N4xcas10Log_OutputE 37 -263 268 1 20 0 , // fltk N4xcas10Gen_OutputE 37 -262 268 27 20 0 line(x=4) ] , // fltk 7Fl_Tile 37 -233 268 58 20 0 [ // fltk N4xcas19Multiline_Input_tabE 37 -233 268 30 20 0 assume(t=[0.7,-5,5,0.1]) , // fltk N4xcas10Log_OutputE 37 -203 268 1 20 0 , // fltk N4xcas10Gen_OutputE 37 -202 268 27 20 0 parameter(t,-5.0,5.0,0.7,0.1) ] , // fltk 7Fl_Tile 37 -173 268 58 20 0 [ // fltk N4xcas19Multiline_Input_tabE 37 -173 268 30 20 0 M:=element(Bb,t) , // fltk N4xcas10Log_OutputE 37 -143 268 1 20 0 , // fltk N4xcas10Gen_OutputE 37 -142 268 27 20 0 point((1-t)*4+t*(4+4*i)) ] , // fltk 7Fl_Tile 37 -113 268 58 20 0 [ // fltk N4xcas19Multiline_Input_tabE 37 -113 268 30 20 0 I:=midpoint(B,b) , // fltk N4xcas10Log_OutputE 37 -83 268 1 20 0 , // fltk N4xcas10Gen_OutputE 37 -82 268 27 20 0 point(4,2) ] , // fltk 7Fl_Tile 37 -53 268 80 20 0 [ // fltk N4xcas19Multiline_Input_tabE 37 -53 268 30 20 0 m:=rotation(M,-pi/2,A) , // fltk N4xcas10Log_OutputE 37 -23 268 1 20 0 , // fltk 9Fl_Scroll 37 -22 268 49 20 0 [ // fltk N4xcas10Gen_OutputE 37 -22 365 27 20 0 point((1-t)*4+t*(4+4*i)+(-i)*(-(1-t)*4-t*(4+4*i))) , // fltk 12Fl_Scrollbar 37 76 268 20 20 0 [] , // fltk 12Fl_Scrollbar 305 47 16 29 20 0 [] ] ] , // fltk 7Fl_Tile 37 29 268 80 20 0 [ // fltk N4xcas19Multiline_Input_tabE 37 29 268 30 20 0 J:=midpoint(M,m) , // fltk N4xcas10Log_OutputE 37 59 268 1 20 0 , // fltk 9Fl_Scroll 37 60 268 49 20 0 [ // fltk N4xcas10Gen_OutputE 37 60 517 27 20 0 point((1-t)*4+t*(4+4*i)+(1-t)*4+t*(4+4*i)+(-i)*(-(1-t)*4-t*(4+4*i))/2) , // fltk 12Fl_Scrollbar 37 89 268 20 20 0 [] , // fltk 12Fl_Scrollbar 305 60 16 29 20 0 [] ] ] , // fltk 7Fl_Tile 37 111 268 102 20 0 [ // fltk N4xcas19Multiline_Input_tabE 37 111 268 30 20 0 locus(J,M) , // fltk N4xcas10Log_OutputE 37 141 268 45 20 0 // Warning: B b A declared as global variable(s)£Equation 0 = 2*(2*x+y-10)£ , // fltk N4xcas10Gen_OutputE 37 186 268 27 20 0 line(y=(-2*x+10)) ] , // fltk 7Fl_Tile 37 215 268 80 20 0 [ // fltk N4xcas19Multiline_Input_tabE 37 215 268 30 20 0 triangle(A,M,J,display=bleu) , // fltk N4xcas10Log_OutputE 37 245 268 1 20 0 , // fltk 9Fl_Scroll 37 246 268 49 20 0 [ // fltk N4xcas10Gen_OutputE 37 246 961 27 20 0 polygon(point(0,0),point((1-t)*4+t*(4+4*i)),point((1-t)*4+t*(4+4*i)+(1-t)*4+t*(4+4*i)+(-i)*(-(1-t)*4-t*(4+4*i))/2),point(0,0)) , // fltk 12Fl_Scrollbar 37 275 268 20 20 0 [] , // fltk 12Fl_Scrollbar 305 246 16 29 20 0 [] ] ] , // fltk 7Fl_Tile 37 297 268 80 20 0 [ // fltk N4xcas19Multiline_Input_tabE 37 297 268 30 20 0 triangle(A,B,I) , // fltk N4xcas10Log_OutputE 37 327 268 1 20 0 , // fltk 9Fl_Scroll 37 328 268 49 20 0 [ // fltk N4xcas10Gen_OutputE 37 328 425 27 20 0 polygon(point(0,0),point(4,0),point(4,2),point(0,0)) , // fltk 12Fl_Scrollbar 37 357 268 20 20 0 [] , // fltk 12Fl_Scrollbar 305 328 16 29 20 0 [] ] ] , // fltk 7Fl_Tile 37 379 268 58 20 0 [ // fltk N4xcas19Multiline_Input_tabE 37 379 268 30 20 0 S:=point(r*affix(M)) , // fltk N4xcas10Log_OutputE 37 409 268 1 20 0 , // fltk N4xcas10Gen_OutputE 37 410 268 27 20 0 point((2+i)*((1-t)*4+t*(4+4*i))/2) ] , // fltk 7Fl_Tile 37 439 268 31 20 0 [ // fltk N4xcas19Multiline_Input_tabE 37 439 268 30 20 0 , // fltk N4xcas10Log_OutputE 37 469 268 1 20 0 ] ] // fltk N4xcas5Geo2dE 323 -21 517 493 20 0 -3.9462,7.9462,-3.1165,8.3165,[pnt(pnt[0,0,"A"]),pnt(pnt[4,[0],"B"]),pnt(pnt[4+4*i,0,"b"]),pnt(pnt[line[4,4+4*i],0,""]),parameter(t,-5.0,5.0,0.3,0.1),pnt(pnt[(1-t)*4+t*(4+4*i),[0,[pnt(pnt[line[4,4+4*i],0]),t]],"M"]),pnt(pnt[4+2*i,0,"I"]),pnt(pnt[(1-t)*4+t*(4+4*i)+(-i)*(-(1-t)*4-t*(4+4*i)),0,"m"]),pnt(pnt[(1-t)*4+t*(4+4*i)+(1-t)*4+t*(4+4*i)+(-i)*(-(1-t)*4-t*(4+4*i))/2,0,"J"]),pnt(pnt[line[10*i,1+8*i],0]),pnt(pnt[group[0,(1-t)*4+t*(4+4*i),(1-t)*4+t*(4+4*i)+(1-t)*4+t*(4+4*i)+(-i)*(-(1-t)*4-t*(4+4*i))/2,0],4]),pnt(pnt[group[0,4,4+2*i,0],0]),pnt(pnt[(2+i)*((1-t)*4+t*(4+4*i))/2,0,"S"])],-9.994,9.994,1,0,0,0,2,2,1,0,1,1.25,0,1,65,[],24,18,256,0,100,0,0,1,0.03 , // fltk N4xcas10Log_OutputE 13 472 930 1 20 0 ] , // fltk 7Fl_Tile 13 475 930 78 20 0 [ // fltk N4xcas19Multiline_Input_tabE 13 475 930 30 20 0 r:=affix(I)/affix(B) , // fltk N4xcas10Log_OutputE 13 505 930 1 20 0 , // fltk N4xcas8EquationE 13 506 930 47 20 0 (2+i)/2 ] , // fltk 7Fl_Tile 13 555 930 51 20 0 [ // fltk N4xcas19Multiline_Input_tabE 13 555 930 27 20 0 simplifier(r*affix(M)); simplifier(affix(J)) , // fltk N4xcas10Log_OutputE 13 582 930 1 20 0 , // fltk N4xcas8EquationE 13 583 930 23 20 0 (-2+4*i)*t+4+2*i,(-2+4*i)*t+4+2*i ] , // fltk 7Fl_Tile 13 608 930 54 20 0 [ // fltk N4xcas19Multiline_Input_tabE 13 608 930 30 20 0 simplifier(affix(J)/affix(I)); , // fltk N4xcas10Log_OutputE 13 638 930 1 20 0 , // fltk N4xcas8EquationE 13 639 930 23 20 0 (i)*t+1 ] , // fltk 7Fl_Tile 13 664 930 31 20 0 [ // fltk N4xcas19Multiline_Input_tabE 13 664 930 30 20 0 , // fltk N4xcas10Log_OutputE 13 694 930 1 20 0 ]