// xcas version=0.7.4 fontsize=20 font=0 // fltk 7Fl_Tile 13 -434 930 31 20 0 [ // fltk N4xcas23Comment_Multiline_InputE 13 -434 930 30 20 0 Premiere construction, non formelle. Passer en mode pointeur et faire bouger O, A ou B , // fltk N4xcas10Log_OutputE 13 -404 930 1 20 0 ] , // fltk 7Fl_Tile 13 -401 930 520 20 0 [ // fltk N4xcas6FigureE 13 -401 930 519 20 0 landscape=0 history=0.33333 geo=0.55591 mouse_param=0.11075 // fltk N4xcas12History_PackE 15 -802 290 920 20 0 [ // fltk 7Fl_Tile 37 -802 268 58 20 0 [ // fltk N4xcas19Multiline_Input_tabE 37 -802 268 30 20 0 O:=point(0.) , // fltk N4xcas10Log_OutputE 37 -772 268 1 20 0 , // fltk N4xcas10Gen_OutputE 37 -771 268 27 20 0 point(0.0,0) ] , // fltk 7Fl_Tile 37 -742 268 58 20 0 [ // fltk N4xcas19Multiline_Input_tabE 37 -742 268 30 20 0 A:=point(4.0,1.0)-0.192*i , // fltk N4xcas10Log_OutputE 37 -712 268 1 20 0 , // fltk N4xcas10Gen_OutputE 37 -711 268 27 20 0 point(4.0,0.808) ] , // fltk 7Fl_Tile 37 -682 268 55 20 0 [ // fltk N4xcas19Multiline_Input_tabE 37 -682 268 27 20 0 B:=point(2.0,3.0)-0.171-0.042*i , // fltk N4xcas10Log_OutputE 37 -655 268 1 20 0 , // fltk N4xcas10Gen_OutputE 37 -654 268 27 20 0 point(1.829,2.958) ] , // fltk 7Fl_Tile 37 -625 268 58 20 0 [ // fltk N4xcas19Multiline_Input_tabE 37 -625 268 30 20 0 M:=midpoint(A,B) , // fltk N4xcas10Log_OutputE 37 -595 268 1 20 0 , // fltk N4xcas10Gen_OutputE 37 -594 268 27 20 0 point(2.9145,1.883) ] , // fltk 7Fl_Tile 37 -565 268 80 20 0 [ // fltk N4xcas19Multiline_Input_tabE 37 -565 268 30 20 0 triangle(O,A,B) , // fltk N4xcas10Log_OutputE 37 -535 268 1 20 0 , // fltk 9Fl_Scroll 37 -534 268 49 20 0 [ // fltk N4xcas10Gen_OutputE 37 -534 575 27 20 0 polygon(point(0.0,0),point(4.0,0.808),point(1.829,2.958),point(0.0,0)) , // fltk 12Fl_Scrollbar 37 430 268 20 20 0 [] , // fltk 12Fl_Scrollbar 305 401 16 29 20 0 [] ] ] , // fltk 7Fl_Tile 37 -483 268 80 20 0 [ // fltk N4xcas19Multiline_Input_tabE 37 -483 268 30 20 0 isoceles_triangle(O,A,-pi/2,D) , // fltk N4xcas10Log_OutputE 37 -453 268 1 20 0 , // fltk 9Fl_Scroll 37 -452 268 49 20 0 [ // fltk N4xcas10Gen_OutputE 37 -452 711 27 20 0 [polygon(point(0.0,0),point(4.0,0.808),point(0.808,-4.0),point(0.0,0)),point(0.808,-4.0)] , // fltk 12Fl_Scrollbar 37 512 268 20 20 0 [] , // fltk 12Fl_Scrollbar 305 483 16 29 20 0 [] ] ] , // fltk 7Fl_Tile 37 -401 268 80 20 0 [ // fltk N4xcas19Multiline_Input_tabE 37 -401 268 30 20 0 isoceles_triangle(O,B,pi/2,C) , // fltk N4xcas10Log_OutputE 37 -371 268 1 20 0 , // fltk 9Fl_Scroll 37 -370 268 49 20 0 [ // fltk N4xcas10Gen_OutputE 37 -370 771 27 20 0 [polygon(point(0.0,0),point(1.829,2.958),point(-2.958,1.829),point(0.0,0)),point(-2.958,1.829)] , // fltk 12Fl_Scrollbar 37 72 268 20 20 0 [] , // fltk 12Fl_Scrollbar 305 43 16 29 20 0 [] ] ] , // fltk 7Fl_Tile 37 -319 268 80 20 0 [ // fltk N4xcas19Multiline_Input_tabE 37 -319 268 30 20 0 OM:=segment(O,M) , // fltk N4xcas10Log_OutputE 37 -289 268 1 20 0 , // fltk 9Fl_Scroll 37 -288 268 49 20 0 [ // fltk N4xcas10Gen_OutputE 37 -288 346 27 20 0 segment(point(0.0,0),point(2.9145,1.883)) , // fltk 12Fl_Scrollbar 37 154 268 20 20 0 [] , // fltk 12Fl_Scrollbar 305 125 16 29 20 0 [] ] ] , // fltk 7Fl_Tile 37 -237 268 80 20 0 [ // fltk N4xcas19Multiline_Input_tabE 37 -237 268 30 20 0 DC:=segment(D,C) , // fltk N4xcas10Log_OutputE 37 -207 268 1 20 0 , // fltk 9Fl_Scroll 37 -206 268 49 20 0 [ // fltk N4xcas10Gen_OutputE 37 -206 383 27 20 0 segment(point(0.808,-4.0),point(-2.958,1.829)) , // fltk 12Fl_Scrollbar 37 236 268 20 20 0 [] , // fltk 12Fl_Scrollbar 305 207 16 29 20 0 [] ] ] , // fltk 7Fl_Tile 37 -155 268 58 20 0 [ // fltk N4xcas19Multiline_Input_tabE 37 -155 268 30 20 0 om:=distance(O,M) , // fltk N4xcas10Log_OutputE 37 -125 268 1 20 0 , // fltk N4xcas10Gen_OutputE 37 -124 268 27 20 0 3.46987020651 ] , // fltk 7Fl_Tile 37 -95 268 58 20 0 [ // fltk N4xcas19Multiline_Input_tabE 37 -95 268 30 20 0 dc:=distance(D,C) , // fltk N4xcas10Log_OutputE 37 -65 268 1 20 0 , // fltk N4xcas10Gen_OutputE 37 -64 268 27 20 0 6.93974041301 ] , // fltk 7Fl_Tile 37 -35 268 58 20 0 [ // fltk N4xcas19Multiline_Input_tabE 37 -35 268 30 20 0 dc/om , // fltk N4xcas10Log_OutputE 37 -5 268 1 20 0 , // fltk N4xcas10Gen_OutputE 37 -4 268 27 20 0 2.0 ] , // fltk 7Fl_Tile 37 25 268 58 20 0 [ // fltk N4xcas19Multiline_Input_tabE 37 25 268 30 20 0 is_perpendicular(OM,DC) , // fltk N4xcas10Log_OutputE 37 55 268 1 20 0 , // fltk N4xcas10Gen_OutputE 37 56 268 27 20 0 1 ] , // fltk 7Fl_Tile 37 85 268 31 20 0 [ // fltk N4xcas19Multiline_Input_tabE 37 85 268 30 20 0 , // fltk N4xcas10Log_OutputE 37 115 268 1 20 0 ] ] // fltk N4xcas5Geo2dE 323 -375 517 493 20 0 -5.3105,5.3105,-5.0642,5.0642,[pnt(pnt[0.0,0,"O"]),pnt(pnt[4.0+0.808*i,[0],"A"]),pnt(pnt[1.829+2.958*i,[0],"B"]),pnt(pnt[2.9145+1.883*i,0,"M"]),pnt(pnt[group[0.0,4.0+0.808*i,1.829+2.958*i,0.0],0]),group[pnt(pnt[group[0.0,4.0+0.808*i,0.808-4.0*i,0.0],0]),pnt(pnt[0.808-4.0*i,0,"D"])],group[pnt(pnt[group[0.0,1.829+2.958*i,-2.958+1.829*i,0.0],0]),pnt(pnt[-2.958+1.829*i,0,"C"])],pnt(pnt[group[0.0,2.9145+1.883*i],0,"OM"]),pnt(pnt[group[0.808-4.0*i,-2.958+1.829*i],0,"DC"]),3.46987020651,6.93974041301,2.0,1],-5,5,1,0,0,0,2,2,1,0,1,1.05,0,1,65,[],24,18,256,0,100,0,0,1,0.03 , // fltk N4xcas10Log_OutputE 13 118 930 1 20 0 ] , // fltk 7Fl_Tile 13 121 930 52 20 0 [ // fltk N4xcas23Comment_Multiline_InputE 13 121 930 51 20 0 2eme construction: formelle, on peut se ramener a 2 parametres u et v£qui sont les coordonnees de B, O etant l'origine et A au point (1,0) , // fltk N4xcas10Log_OutputE 13 172 930 1 20 0 ] , // fltk 7Fl_Tile 13 175 930 520 20 0 [ // fltk N4xcas6FigureE 13 175 930 519 20 0 landscape=0 history=0.33333 geo=0.55591 mouse_param=0.11075 // fltk N4xcas12History_PackE 15 201 290 1040 20 0 [ // fltk 7Fl_Tile 37 201 268 58 20 0 [ // fltk N4xcas19Multiline_Input_tabE 37 201 268 30 20 0 O:=point(0) , // fltk N4xcas10Log_OutputE 37 231 268 1 20 0 , // fltk N4xcas10Gen_OutputE 37 232 268 27 20 0 point(0,0) ] , // fltk 7Fl_Tile 37 261 268 58 20 0 [ // fltk N4xcas19Multiline_Input_tabE 37 261 268 30 20 0 assume(u=[0.7,-5,5,0.1]) , // fltk N4xcas10Log_OutputE 37 291 268 1 20 0 , // fltk N4xcas10Gen_OutputE 37 292 268 27 20 0 parameter(u,-5.0,5.0,0.7,0.1) ] , // fltk 7Fl_Tile 37 321 268 58 20 0 [ // fltk N4xcas19Multiline_Input_tabE 37 321 268 30 20 0 assume(v=[0.7,-5,5,0.1]) , // fltk N4xcas10Log_OutputE 37 351 268 1 20 0 , // fltk N4xcas10Gen_OutputE 37 352 268 27 20 0 parameter(v,-5.0,5.0,0.7,0.1) ] , // fltk 7Fl_Tile 37 381 268 58 20 0 [ // fltk N4xcas19Multiline_Input_tabE 37 381 268 30 20 0 A:=point(1) , // fltk N4xcas10Log_OutputE 37 411 268 1 20 0 , // fltk N4xcas10Gen_OutputE 37 412 268 27 20 0 point(1,0) ] , // fltk 7Fl_Tile 37 441 268 55 20 0 [ // fltk N4xcas19Multiline_Input_tabE 37 441 268 27 20 0 B:=point(u,v) , // fltk N4xcas10Log_OutputE 37 468 268 1 20 0 , // fltk N4xcas10Gen_OutputE 37 469 268 27 20 0 point(u+(i)*v) ] , // fltk 7Fl_Tile 37 498 268 58 20 0 [ // fltk N4xcas19Multiline_Input_tabE 37 498 268 30 20 0 M:=midpoint(A,B) , // fltk N4xcas10Log_OutputE 37 528 268 1 20 0 , // fltk N4xcas10Gen_OutputE 37 529 268 27 20 0 point(1+u+(i)*v/2) ] , // fltk 7Fl_Tile 37 558 268 80 20 0 [ // fltk N4xcas19Multiline_Input_tabE 37 558 268 30 20 0 triangle(O,A,B) , // fltk N4xcas10Log_OutputE 37 588 268 1 20 0 , // fltk 9Fl_Scroll 37 589 268 49 20 0 [ // fltk N4xcas10Gen_OutputE 37 589 453 27 20 0 polygon(point(0,0),point(1,0),point(u+(i)*v),point(0,0)) , // fltk 12Fl_Scrollbar 37 238 268 20 20 0 [] , // fltk 12Fl_Scrollbar 305 209 16 29 20 0 [] ] ] , // fltk 7Fl_Tile 37 640 268 80 20 0 [ // fltk N4xcas19Multiline_Input_tabE 37 640 268 30 20 0 isoceles_triangle(O,A,-pi/2,D) , // fltk N4xcas10Log_OutputE 37 670 268 1 20 0 , // fltk 9Fl_Scroll 37 671 268 49 20 0 [ // fltk N4xcas10Gen_OutputE 37 671 531 27 20 0 [polygon(point(0,0),point(1,0),point(0,-1),point(0,0)),point(0,-1)] , // fltk 12Fl_Scrollbar 37 231 268 20 20 0 [] , // fltk 12Fl_Scrollbar 305 202 16 29 20 0 [] ] ] , // fltk 7Fl_Tile 37 722 268 80 20 0 [ // fltk N4xcas19Multiline_Input_tabE 37 722 268 30 20 0 isoceles_triangle(O,B,pi/2,C) , // fltk N4xcas10Log_OutputE 37 752 268 1 20 0 , // fltk 9Fl_Scroll 37 753 268 49 20 0 [ // fltk N4xcas10Gen_OutputE 37 753 673 27 20 0 [polygon(point(0,0),point(u+(i)*v),point((u+(i)*v)*(i)),point(0,0)),point((u+(i)*v)*(i))] , // fltk 12Fl_Scrollbar 37 395 268 20 20 0 [] , // fltk 12Fl_Scrollbar 305 366 16 29 20 0 [] ] ] , // fltk 7Fl_Tile 37 804 268 80 20 0 [ // fltk N4xcas19Multiline_Input_tabE 37 804 268 30 20 0 OM:=segment(O,M) , // fltk N4xcas10Log_OutputE 37 834 268 1 20 0 , // fltk 9Fl_Scroll 37 835 268 49 20 0 [ // fltk N4xcas10Gen_OutputE 37 835 314 27 20 0 segment(point(0,0),point(1+u+(i)*v/2)) , // fltk 12Fl_Scrollbar 37 477 268 20 20 0 [] , // fltk 12Fl_Scrollbar 305 448 16 29 20 0 [] ] ] , // fltk 7Fl_Tile 37 886 268 80 20 0 [ // fltk N4xcas19Multiline_Input_tabE 37 886 268 30 20 0 DC:=segment(D,C) , // fltk N4xcas10Log_OutputE 37 916 268 1 20 0 , // fltk 9Fl_Scroll 37 917 268 49 20 0 [ // fltk N4xcas10Gen_OutputE 37 917 320 27 20 0 segment(point(0,-1),point((u+(i)*v)*(i))) , // fltk 12Fl_Scrollbar 37 559 268 20 20 0 [] , // fltk 12Fl_Scrollbar 305 530 16 29 20 0 [] ] ] , // fltk 7Fl_Tile 37 968 268 58 20 0 [ // fltk N4xcas19Multiline_Input_tabE 37 968 268 30 20 0 om:=distance(O,M) , // fltk N4xcas10Log_OutputE 37 998 268 1 20 0 , // fltk N4xcas10Gen_OutputE 37 999 268 27 20 0 sqrt((-1+u/2)^2+(-v/2)^2) ] , // fltk 7Fl_Tile 37 1028 268 58 20 0 [ // fltk N4xcas19Multiline_Input_tabE 37 1028 268 30 20 0 dc:=distance(D,C) , // fltk N4xcas10Log_OutputE 37 1058 268 1 20 0 , // fltk N4xcas10Gen_OutputE 37 1059 268 27 20 0 sqrt(v^2+(-1-u)^2) ] , // fltk 7Fl_Tile 37 1088 268 58 20 0 [ // fltk N4xcas19Multiline_Input_tabE 37 1088 268 30 20 0 is_perpendicular(OM,DC) , // fltk N4xcas10Log_OutputE 37 1118 268 1 20 0 , // fltk N4xcas10Gen_OutputE 37 1119 268 27 20 0 1 ] , // fltk 7Fl_Tile 37 1148 268 58 20 0 [ // fltk N4xcas19Multiline_Input_tabE 37 1148 268 30 20 0 simplify(dc/om) , // fltk N4xcas10Log_OutputE 37 1178 268 1 20 0 , // fltk N4xcas10Gen_OutputE 37 1179 268 27 20 0 2 ] , // fltk 7Fl_Tile 37 1208 268 31 20 0 [ // fltk N4xcas19Multiline_Input_tabE 37 1208 268 30 20 0 , // fltk N4xcas10Log_OutputE 37 1238 268 1 20 0 ] ] // fltk N4xcas5Geo2dE 323 201 517 493 20 0 -1.8767,1.8767,-1.7897,1.7897,[pnt(pnt[0,0,"O"]),parameter(u,-5.0,5.0,0.0,0.1),parameter(v,-5.0,5.0,0.0,0.1),pnt(pnt[1,0,"A"]),pnt(pnt[u+(i)*v,[0],"B"]),pnt(pnt[1+u+(i)*v/2,0,"M"]),pnt(pnt[group[0,1,u+(i)*v,0],0]),group[pnt(pnt[group[0,1,-i,0],0]),pnt(pnt[-i,0,"D"])],group[pnt(pnt[group[0,u+(i)*v,(u+(i)*v)*(i),0],0]),pnt(pnt[(u+(i)*v)*(i),0,"C"])],pnt(pnt[group[0,1+u+(i)*v/2],0,"OM"]),pnt(pnt[group[-i,(u+(i)*v)*(i)],0,"DC"]),sqrt((-1+u/2)^2+(-v/2)^2),sqrt(v^2+(-1-u)^2),1,2],-1.767,1.767,1,0,0,0,0.2,0.2,1,0,1,1.8,0,1,65,[],24,18,256,0,100,0,0,1,0.03 , // fltk N4xcas10Log_OutputE 13 694 930 1 20 0 ]