// fltk 7Fl_Tile 51 -725 1142 109 [ // fltk N4xcas19Multiline_Input_tabE 51 -725 1142 38 ex:=((x-2)*(x+3))**2+x/3; , // fltk N4xcas8EquationE 51 -686 1142 70 ((x-2)*(x+3))^2+x/3 ] , // fltk 7Fl_Tile 51 -614 1142 121 [ // fltk N4xcas19Multiline_Input_tabE 51 -614 1142 50 f:=unapply(ex,x); , // fltk N4xcas8EquationE 51 -563 1142 70 (x)->((x-2)*(x+3))^2+x/3 ] , // fltk 7Fl_Tile 51 -491 1142 468 [ // fltk N4xcas19Multiline_Input_tabE 51 -491 1142 50 plot(f(x),x=-4..3); , // fltk 8Fl_Group 51 -440 1142 417 [ // fltk N4xcas7GraphicE 51 -440 1051 417 -12.9,12.9,-2.1,4.9,[pnt(pnt[curve(group[pnt[x+(I)*(((x-2)*(x+3))^2+x/3),x,-4.0,3.0],group[-4.0+34.6666666667*I,-3.94488188976+30.2381014222*I,-3.88976377953+26.1662364028*I,-3.83464566929+22.4373381409*I,-3.77952755906+19.0378946764*I,-3.72440944882+15.9546155569*I,-3.66929133858+13.1744318372*I,-3.61417322835+10.68449608*I,-3.55905511811+8.4721823554*I,-3.50393700787+6.52508624103*I,-3.44881889764+4.83102482207*I,-3.3937007874+3.37803669126*I,-3.33858267717+2.15438194887*I,-3.28346456693+1.14854220272*I,-3.22834645669+0.349220568158*I,-3.17322834646-0.254658331914*I,-3.11811023622-0.673948367055*I,-3.06299212598-0.919281899283*I,-3.00787401575-1.00106978307*I,-2.95275590551-0.929501365358*I,-2.89763779528-0.71454448553*I,-2.84251968504-0.365945475438*I,-2.7874015748+0.106770840611*I,-2.73228346457+0.694301145851*I,-2.67716535433+1.38756363106*I,-2.62204724409+2.17769799456*I,-2.56692913386+3.0560654422*I,-2.51181102362+4.01424868739*I,-2.45669291339+5.04405195108*I,-2.40157480315+6.13750096176*I,-2.34645669291+7.28684295544*I,-2.29133858268+8.48454667571*I,-2.23622047244+9.72330237367*I,-2.1811023622+10.996021808*I,-2.12598425197+12.2958382448*I,-2.07086614173+13.616106458*I,-2.0157480315+14.9504027287*I,-1.96062992126+16.2925248458*I,-1.90551181102+17.6364921057*I,-1.85039370079+18.9765453122*I,-1.79527559055+20.3071467769*I,-1.74015748031+21.6229803186*I,-1.68503937008+22.918951264*I,-1.62992125984+24.1901864471*I,-1.57480314961+25.4320342095*I,-1.51968503937+26.6400644004*I,-1.46456692913+27.8100683765*I,-1.4094488189+28.9380590021*I,-1.35433070866+30.0202706488*I,-1.29921259843+31.0531591962*I,-1.24409448819+32.0334020309*I,-1.18897637795+32.9578980474*I,-1.13385826772+33.8237676478*I,-1.07874015748+34.6283527414*I,-1.02362204724+35.3692167453*I,-0.968503937008+36.0441445842*I,-0.913385826772+36.65114269*I,-0.858267716535+37.1884390025*I,-0.803149606299+37.654482969*I,-0.748031496063+38.047945544*I,-0.692913385827+38.36771919*I,-0.637795275591+38.6129178767*I,-0.582677165354+38.7828770816*I,-0.527559055118+38.8771537895*I,-0.472440944882+38.8955264929*I,-0.417322834646+38.8379951918*I,-0.362204724409+38.7047813938*I,-0.307086614173+38.4963281139*I,-0.251968503937+38.2132998747*I,-0.196850393701+37.8565827065*I,-0.141732283465+37.4272841469*I,-0.0866141732284+36.9267332412*I,-0.0314960629921+36.3564805422*I,0.0236220472441+35.7182981102*I,0.0787401574803+35.0141795131*I,0.133858267717+34.2463398263*I,0.188976377953+33.4172156327*I,0.244094488189+32.529465023*I,0.299212598425+31.5859675951*I,0.354330708661+30.5898244546*I,0.409448818898+29.5443582147*I,0.464566929134+28.453112996*I,0.51968503937+27.3198544267*I,0.574803149606+26.1485696426*I,0.629921259843+24.943467287*I,0.685039370079+23.7089775107*I,0.740157480315+22.4497519721*I,0.795275590551+21.1706638372*I,0.850393700787+19.8768077794*I,0.905511811024+18.5734999797*I,0.96062992126+17.2662781267*I,1.0157480315+15.9609014164*I,1.07086614173+14.6633505525*I,1.12598425197+13.3798277462*I,1.1811023622+12.1167567161*I,1.23622047244+10.8807826886*I,1.29133858268+9.67877239749*I,1.34645669291+8.51781408405*I,1.40157480315+7.40521749719*I,1.45669291339+6.34851389334*I,1.51181102362+5.35545603647*I,1.56692913386+4.4340181981*I,1.62204724409+3.59239615729*I,1.67716535433+2.83900720061*I,1.73228346457+2.18249012223*I,1.7874015748+1.63170522381*I,1.84251968504+1.19573431459*I,1.89763779528+0.883880711321*I,1.95275590551+0.705669238317*I,2.00787401575+0.670846227426*I,2.06299212598+0.78937951804*I,2.11811023622+1.07145845709*I,2.17322834646+1.52749389906*I,2.22834645669+2.16811820595*I,2.28346456693+3.00418524734*I,2.33858267717+4.04677040032*I,2.3937007874+5.30717054953*I,2.44881889764+6.79690408716*I,2.50393700787+8.52771091295*I,2.55905511811+10.5115524341*I,2.61417322835+12.7606115656*I,2.66929133858+15.2872927296*I,2.72440944882+18.1042218561*I,2.77952755906+21.2242463825*I,2.83464566929+24.6604352538*I,2.88976377953+28.4260789225*I,2.94488188976+32.5346893487*I,3+37*I]]),0])] , // fltk 7Fl_Tile 1102 -440 91 417 [ // fltk N4xcas14Mouse_PositionE 1102 -440 91 30 [] , // fltk 8Fl_Group 1102 -410 91 84 [ // fltk 9Fl_Button 1102 -410 30 21 [] , // fltk 9Fl_Button 1132 -410 31 21 [] , // fltk 9Fl_Button 1163 -410 30 21 [] , // fltk 9Fl_Button 1102 -389 30 21 [] , // fltk 9Fl_Button 1132 -389 31 21 [] , // fltk 9Fl_Button 1163 -389 30 21 [] , // fltk 9Fl_Button 1102 -368 30 21 [] , // fltk 9Fl_Button 1132 -368 31 21 [] , // fltk 9Fl_Button 1163 -368 30 21 [] , // fltk 9Fl_Button 1102 -347 30 21 [] , // fltk 9Fl_Button 1132 -347 31 21 [] , // fltk 9Fl_Button 1163 -347 30 21 [] ] , // fltk 8Fl_Group 1102 -326 91 303 [ ] ] ] ] , // fltk 7Fl_Tile 51 -21 1142 194 [ // fltk N4xcas19Multiline_Input_tabE 51 -21 1142 50 ta:=(x,a)->D(f)(a)*(x-a)+f(a); , // fltk N4xcas8EquationE 51 113 1142 60 (x,a)->(function_diff(f))(a)*(x-a)+f(a) ] , // fltk 7Fl_Tile 51 175 1142 174 [ // fltk N4xcas19Multiline_Input_tabE 51 175 1142 50 exb:=factor(f(x)-ta(x,a)) , // fltk N4xcas8EquationE 51 289 1142 60 (x^2+2*x*a+2*x+3*a^2+4*a-11)*(x-a)^2 ] , // fltk 7Fl_Tile 51 351 1142 135 [ // fltk N4xcas19Multiline_Input_tabE 51 351 1142 50 exc:=simplify(exb/(x-a)^2); , // fltk N4xcas8EquationE 51 402 1142 84 x^2+2*x*a+2*x+3*a^2+4*a-11 ] , // fltk 7Fl_Tile 51 488 1142 111 [ // fltk N4xcas19Multiline_Input_tabE 51 488 1142 50 delta:=coeff(exc,x,1)**2-4*coeff(exc,x,2)*coeff(exc,x,0); , // fltk N4xcas8EquationE 51 539 1142 60 (2*a+2)^2-4*(3*a^2+4*a-11) ] , // fltk 7Fl_Tile 51 601 1142 111 [ // fltk N4xcas19Multiline_Input_tabE 51 601 1142 50 solve(delta=0,a); , // fltk N4xcas8EquationE 51 652 1142 60 2,-3 ] , // fltk 7Fl_Tile 51 714 1142 51 [ // fltk N4xcas19Multiline_Input_tabE 51 714 1142 50 , ]