Conejo con polinomios interpolados (Lagrange)

EQUIPO 10:

González Hernández Edith
Rubio Reyes Edwing Emmanuelle
Tristán Castillo Jesús Antonio
Zuñiga Salgado Nancy Inés

1 Polinomios:

(%i1) p1(x):=-0.001283362575507763*x^4+0.02571155950300863*x^3-0.4235485417422638*x^2+2.249376581327226*x+3.613126202973035$
p2(x):=-0.6175731163733289*x^4+16.80130957078859*x^3-171.4813478248725*x^2+777.5020791899369*x-1310.763439163828$
p3(x):=0.6697057485478766*x^6-35.26172492260298*x^5+771.9792686985638*x^4-8995.596891167283*x^3+58847.36553496867*x^2-204926.4855019059*
x+296804.0094951028$
p4(x):=0.1026028603023672*x^7-4.846927897990213*x^6+97.79634314852956*x^5-1092.244325456122*x^4+7291.010619943845*x^3-29083.84121849248*
x^2+64184.45152046066*x-60437.34792618081$
p5(x):=16.38828521882064*x^6-623.5654339802568*x^5+9878.030516310479*x^4-83389.83229023404*x^3+395675.1951575764*x^2-1000525.792652631*
x+1053363.432886394$
p6(x):=1.4210854715202*10^-14*x^2+6.420134809226965$
p7(x):=1.036814201513856*x^2-10.89268685477964*x+35.3456330922495$
p8(x):=0.4132482688006505*x^3-6.821621033351789*x^2+36.86605694595801*x-58.51853324116928$
p9(x):=1.126036611338769*x^3-6.688910161118827*x^2+14.3691722587871*x-4.404595103140167$
p10(x):=-0.2027398303055516*x^5+6.018497549224506*x^4-71.29944229078217*x^3+421.5786817284397*x^2-1244.884371379874*x+1476.822379042231$
p11(x):=0.2821202219101764*x^3-3.053217228233052*x^2+8.784110561366106*x+4.798297937421012$
p12(x):=-0.684625826393102*x^4+14.73214170686325*x^3-118.8321388164479*x^2+425.7977866387346*x-562.5663232162569$
p13(x):=-210.2179375054689*x^3+3244.095164479433*x^2-16687.95840249798*x+28624.74807337509$
p14(x):=-0.539273641782712*x^4+13.05619371250719*x^3-118.3397696300183*x^2+475.552899784735*x-704.5648584594373$
p15(x):=-2.813488269033911*x^2+4.277586901709327*x+4.144243235077994$
p16(x):=-0.8091520451298919*x^2+0.2903117662235388*x+5.837120694234521$
p17(x):=-0.853656148767783*x^2-4.073792459280412*10^-5*x+5.833959506594651$
p18(x):=-344.0585953629434*x^3+288.6486415224254*x^2-81.75768170883157*x+13.50004345856718$
p19(x):=-483.6736046234405*x^3+435.3911361043877*x^2-131.1162665512821*x+18.10518323995564$
p20(x):=-101.5659990110619*x^3+116.1675241154033*x^2-43.49837244752781*x+9.35417662142267$
p21(x):=-2.598874751662201*x^3+6.783991313063908*x^2-6.371212480163276*x+5.198151324471983$
p22(x):=15.66624705579322*x^2-8.75787353217069*x+4.733004757227961$
p23(x):=1.715728441722003*x^2-2.698542016710718*x+3.860241630417512$
p24(x):=0.1663054178266883*x^2-0.7058190500309607*x+3.141956870537745$
p25(x):=-18.06371415743337*x^3+70.08922168349686*x^2-91.45170328135681*x+42.59833587910325$
p26(x):=1692.202967500443*x^3-7762.489678501557*x^2+11857.38080299018*x-6028.890074781901$
p27(x):=-0.5535031496162978*x^4+4.87724926508875*x^3-15.02579248369886*x^2+18.27815622385876*x-5.326357333591066$
p28(x):=-0.594000332464744*x^3+8.805657158317416*x^2-41.91808980450065*x+64.98579738627174$
p29(x):=12.33735556085784*x^4-214.4704084512847*x^3+1398.434581713725*x^2-4054.558182729354*x+4411.815985840729$
p30(x):=6.440234496340371*x^3-88.15935350551892*x^2+400.3397183278659*x-602.3734931179387$
p31(x):=-0.6953544226559845*x^6+13.43742896808679*x^5-94.2951924915551*x^4+244.3402385797262*x^3+189.8360454261274*x^2-2035.044351622335
*x+2694.573098270293$
p32(x):=-0.1421349110487364*x^3+2.342832692818277*x^2-12.61743680350139*x+24.13721026528145$
p33(x):=-0.1827069596379137*x^9+11.21764130545303*x^8-305.0504214555823*x^7+4822.306487978635*x^6-48836.00160923746*x^5+328559.8789904939*x^4-1468495.559706171*x^3+4204524.324840336*x^2-6997596.133140572*x+5157887.175166355$
p34(x):=0.6685065055603854*x^2-11.12102582916432*x+46.9888511917012$
q35(x):=-1.9196551301191*x^4+70.88306102661761*x^3-974.5197359751128*x^2+5917.093868557786*x-13395.51430975276$
p35(x):=8.319140718024784-4.183960047814409*x$
p36(x):=9.144960163695089*x-84.47585314596358$
p37(x):=31.46203492551268*x^2-328.4108531067429*x+858.8997401437691$
p38(x):=1.697327257313439*x^2-29.34736477741808*x+127.7099702013934$
p39(x):=13.72751633582762*x-121.6347164677518$
p40(x):=0.6887151421144004*x^2-13.59787625653684*x+67.79469257314804$
p41(x):=4.217632387194929*x-36.53452707923671$
p42(x):=15.19329280248837*x^3-404.3976113059593*x^2+3585.358798262736*x-10586.41151664949$
p43(x):=-0.6602441648974073*x^4+20.19371507708848*x^3-230.6522441677769*x^2+1165.552306176118*x-2195.19643009315$
p44(x):=8.380351543754273*x^3-185.2283686147557*x^2+1364.957542228163*x-3350.843964951986$
p45(x):=-2.465290625325249*x^3+58.65866104184602*x^2-465.302025060927*x+1233.237103141208$
p46(x):=-6.10277630134577*x^3+158.1088767509564*x^2-1365.686306438347*x+3935.37155641384$
p47(x):=0.2330906539616464*x^2-4.261768143885661*x+21.68797463931242$
p48(x):=-57.67764446313413*x^3+1627.937296055017*x^2-15315.84750302049*x+48033.25074702594$
p49(x):=-230.3649454785268*x^2+4466.434545329241*x-21646.15154492299$
p50(x):=0.5637746583389251*x-2.824149222259564$
p51(x):=-20.00377666184966*x^3+572.0289486385591*x^2-5453.615489422664*x+17337.56341633119$
p52(x):=5.115666036971689*x-46.40756750933963$
p53(x):=111.8490040135021-11.24346051573741*x$
p54(x):=-44.50752122525637*x^3+1272.295694340566*x^2-12123.604347941*x+38512.59359832085$
p55(X):=-0.8863571861880857*x^3+23.48991889826914*x^2-207.3121079779712*x+613.0368036504806$
p56(x):=-17.48544530788949*x^3+441.5057299171003*x^2-3715.51749713545*x+10425.14127533377$
p57(x):=0.4652078075992421*x^4-16.17232971265844*x^3+210.3654549426201*x^2-1213.498428878505*x+2624.922902806698$
p58(x):=-0.004874114787705608*x^4+0.1641409679583106*x^3-2.241613640592846*x^2+14.72839842098529*x-33.28377740967426$
p59(x):=-0.3141540286176587*x^4+7.259683829783924*x^3-63.23552874695827*x^2+245.5296440895627*x-348.9699039839497$
p60(x):=1.388326256967105*x^3-26.89171863220599*x^2+172.2785049266895*x-356.7136643563135$
p61(x):=-0.01264087051587381*x^4-0.09055341924505456*x^3+4.972983937110257*x^2-38.8619941807392*x+97.49857895399327$
p62(x):=-19.43638031411126*x^4+669.4855428016708*x^3-8648.546945493756*x^2+49659.68305174913*x-106931.4553454388$
p63(x):=29.26800788036041*x^4-1007.340530096742*x^3+13001.20387566657*x^2-74576.56540804636*x+160422.2868521111$
q63(x):=29.26800788036041*x^4-1007.340530096742*x^3+13001.20387566657*x^2-74576.56540804636*x+160422.2868521111$

q54(x):=22.07812762506396*x^2-347.6727257511175*x+1371.808625362837$
q55(x):=6.212471251336702*x^2-45.62405669293929*x+85.88296768183142$
q56(x):=7.0820243769017-0.5508228839561884*x$
q57(x):=5.724624927276963-0.1800899210755134*x$
q58(x):=-1.489932775762966*x^2+9.977049717412342*x-11.60232681145567$
q59(x):=7.247284115706009-0.661156836199261*x$
q60(x):=-1.80763873849375*x^2+12.47538206552122*x-16.65810722770266$
q61(x):=-12.36077073136244*x^2+96.14471245512505*x-182.6038623209965$
q62(x):=16.09424946559281-3.116517222187767*x$

p68(x):=-0.5141423103077045*x^2+2.844861071960679*x+2.227586524624513$
p69(x):=-8.433737897155865*x^2+24.67641292013818*x-12.95628974674246$
p70(x):=9.836108198732266*x^2-29.09156698875069*x+23.9411880256833$
p71(x):=4.252154904524858*x^2-43.08468885474713*x+112.1538867263514$
p72(x):=0.3873870038877385*x^2-1.920975528478948*x+2.359784826540817$
p73(x):=4.0168633935791*x^4-70.77570853571979*x^3+467.6509334670245*x^2-1373.968056684171*x+1517.349191400044$

q64(x):=7.386622524746926-0.1913473592044674*x$
q65(x):=9.593787533942319-0.587265269103117*x$
q66(x):=6.325074045952192-0.04292995726811988*x$
q67(x):=9.654954766123083-0.6336787346719941*x$
q68(x):=7.156464259743046-0.2285874306952138*x$
q69(x):=12.91801935377504-1.207920202335828*x$
q70(x):=22.23602675150431-2.74834058975696*x$
q71(x):=0.8328489270916997*x+1.311592115364647$
q72(x):=1.60219008241824*x-3.858269295950379$
q73(x):=3.229958980067032*x-14.55493196945343$
q76(x):=-0.4507419690907746*x^2+8.343971471677833*x-33.46452630050442$

p81(x):= 2.868141685039902*x^2-43.74169108858405*x+171.1736935296249$
p82(x):= -4.013606065287803*x^2+64.14234844449902*x-251.7775150235739$
p83(x):= -1.255133892598423*x^2+21.26972977183686*x-85.43913139180768$
p84(x):=2.370394793792116*x-12.22585791133361$
p85(x):= 2.757800037098633*x-15.75069560378211$
p86(x):= 7.367835281023929$
p87(x):=-36.68070693069438*x^2+79.30590245574092*x-38.38508625487026$
p88(x):=-10.06647902171608*x^4+57.62318141032665*x^3-124.5997077554266*x^2+ 121.9795181627551*x-40.49885340691708$
p89(x):=88.09180468423159*x^2-977.091617366219*x+2710.953708031417$

p90(x):= 13.78065249446115*x^4-328.7115634015063*x^3+2941.338308219929*x^2-1701.77091044455*x+17465.87080817705$
p91(x):=31.35919403619619*x^4-1222.049050578964*x^3+17855.65324073844*x^2-115935.7837177161*x+282254.963735316$
p92(x):= 24.43436702277086*x^4-849.0964316754835*x^3+11062.79425519332*x^2-64049.66092460975*x+139042.8248394541$
p93(x):=60.48549831706315*(x-9.580993921395759)*(x-9.29516031738666)-112.1663909395946*(x-9.79072896849334)*(x-9.29516031738666)+51.52073798166766*(x-9.79072896849334)*(x-9.580993921395759)$
p94(x):=53.18058383391682*(x-9.771704329265461)-55.09214399015898*(x-9.886316180223661)$
p95(x):=115.4478709117203*(x-8.398682195721779)*(x-8.246485081898751)*(x-8.093823952484801)-457.837704907008*(x-8.60841724281936)*(x-8.246485081898751)*(x-8.093823952484801)+513.5605396545956*(x-8.60841724281936)*(x-8.398682195721779)*(x-8.093823952484801)-174.6202675641306*(x-8.60841724281936)*(x-8.398682195721779)*(x-8.246485081898751)$
p96(x):=227.0623719092589*(x-8.742053733005431)*(x-8.551343325135729)-308.856907549623*(x-8.81861630550786)*(x-8.551343325135729)+86.87045820258727*(x-8.81861630550786)*(x-8.742053733005431)$
p97(x):=50.57190394923742*(x-8.81861630550786)-49.13486658516798*(x-8.91373950164725)$
p98(x):=47.92820390254686*(x-9.047375991833331)*(x-8.894714862419381)-127.1725669160086*(x-9.29516031738666)*(x-8.894714862419381)+78.69078879854848*(x-9.29516031738666)*(x-9.047375991833331)$
p99(x):=84.96334180841002*(x-9.46684608602849)*(x-9.238086399703031)-136.9623634656048*(x-9.61950721544244)*(x-9.238086399703031)+54.8182695622682*(x-9.61950721544244)*(x-9.46684608602849)$
p100(x):=1353.650021325049*(x-9.733655050809711)*(x-9.580993921395759)*(x-9.46684608602849)-2198.744050523075*(x-9.79072896849334)*(x-9.580993921395759)*(x-9.46684608602849)+1353.621639142472*(x-9.79072896849334)*(x-9.733655050809711)*(x-9.46684608602849)-482.1167934925742*(x-9.79072896849334)*(x-9.733655050809711)*(x-9.580993921395759)$
p101(x):=548.2848320529311*(x-9.829242262540021)*(x-9.771704329265461)-1229.814185606365*(x-9.90534081945153)*(x-9.771704329265461)+668.3272603357229*(x-9.90534081945153)*(x-9.829242262540021)$
p102(x):=2680.823651090459*(x-9.90534081945153)*(x-9.810217623312139)-3338.05227343251*(x-9.924365458679411)*(x-9.810217623312139)+578.9912257700786*(x-9.924365458679411)*(x-9.90534081945153)$

p103(x):=-2.07029107750455*x^2+37.05918021110119*x-158.9910162658889$
p104(x):=30.13426842776471-2.642676600172599*x$
p105(x):=13.93528576357218-0.9123070481070599*x$
p106(x):=5.812256508564701$

2 Gráfico:

(%i122) load(draw)$
pic:read_xpm("conejo2.xpm")$
ratprint:false$
wxdraw2d(
    image(pic,0,0,10,10),

    color = black,
    line_width = 3,
    implicit(y-p103(x),x,8.42028439589415,8.81721442697052,y,0,10),
    implicit(y-q63(x),x,8.93450727435378,8.42028439589415,y,0,10),
    implicit(y-p104(x),x,8.81721442697052,8.93450727435378,y,0,10),
    implicit(y-q76(x),x,8.32093417459271,9.18118466898955,y,0,10),
    implicit(y-p57(x),x,7.97401007580395,9.33000612081548,y,0,10),
    implicit(y-p58(x),x,6.76868025801591,9.25467300720373,y,0,10),
    color = pink,
    line_width = 3,
    implicit(y-p59(x),x,4.88535241772211,6.50501436037478,y,0,10),
    implicit(y-p60(x),x,6.44851452516597,6.95701304204529,y,0,10),
    implicit(y-p61(x),x,5.41268421300438,6.95701304204529,y,0,10),
    implicit(y-p105(x),x,6.45211413504096,6.83915622940013,y,0,10),
    implicit(y-p106(x),x,9.92560504755627,9.70242019022507,y,0,10),
    color = blue,
    line_width = 3,
    implicit(y-p1(x),x,1.94368584612487,4.63320463320463,y,0,10),
    implicit(y-p2(x),x,7.69046049533854,6.39419907712591,y,0,10),
    implicit(y-p3(x),x,7.69046049533854,9.52867501647989,y,0,10),
    implicit(y-p4(x),x,5.87515773613335,7.63254543742349,y,0,10),
    implicit(y-p5(x),x,5.95959969999999,6.98041246821735,y,0,10),
    implicit(y-p6(x),x,5.73641585836708,5.95959969999999,y,0,10),
    implicit(y-p7(x),x,4.65580563141539,5.14408136359356,y,0,10),
    implicit(y-p8(x),x,5.10264620020718,5.85554195310293,y,0,10),
    implicit(y-p9(x),x,1.18890667671155,2.02090592334495,y,0,10),
    implicit(y-p10(x),x,4.78858649590357,6.91449289010265,y,0,10),
    implicit(y-p11(x),x,4.32518109049816,5.03672662209248,y,0,10),
    implicit(y-p12(x),x,4.32576852810999,6.12345795272624,y,0,10),
    implicit(y-p13(x),x,5.03177135323477,5.23299642150862,y,0,10),
    implicit(y-p14(x),x,5.03177135323477,6.70355024013561,y,0,10),
    implicit(y-p15(x),x,0.817402768622281,1.18984838497034,y,0,10),
    implicit(y-p16(x),x,0.503343064318674,0.999623316696487,y,0,10),
    implicit(y-p17(x),x,0.213767774743384,0.494867689989641,y,0,10),
    implicit(y-p18(x),x,0.221772294943027,0.36255767963085,y,0,10),
    implicit(y-p19(x),x,0.205292400414352,0.379037574159525,y,0,10),
    implicit(y-p20(x),x,0.155852716828327,0.354082305301817,y,0,10),
    implicit(y-p21(x),x,0.883793200866371,0.23024766927206,y,0,10),
   implicit(y-p22(x),x,0.0480271211978529,0.3295978905735,y,0,10),
    implicit(y-p23(x),x,0.196817026085319,0.68509275826349,y,0,10),
    implicit(y-p24(x),x,0.646953573782842,1.18890667671155,y,0,10),
    implicit(y-p25(x),x,0.908277615594689,1.47094830021659,y,0,10),
    implicit(y-p27(x),x,1.45964780111122,3.45277333082211,y,0,10),
    implicit(y-p28(x),x,3.49185422356154,4.24616253884547,y,0,10),
    implicit(y-p29(x),x,3.9857802052924,4.78858649590357,y,0,10),
    implicit(y-p30(x),x,4.39966098502684,4.98681608437706,y,0,10),
    implicit(y-p31(x),x,3.57237027968735,4.97881156417742,y,0,10),
    implicit(y-p32(x),x,3.83981542518128,5.17515773613335,y,0,10),
    implicit(y-p33(x),x,5.23495621056597,7.90705339485827,y,0,10),
    implicit(y-p34(x),x,7.8905735003296,8.60203408983897,y,0,10),
    implicit(y-p35(x),x,1.51803883793201,1.45965851115924,y,0,10),
    implicit(y-q35(x),x,8.15519352104718,8.97447970618702,y,0,10),
    implicit(y-p36(x),x,9.87711683793201,9.83850551115924,y,0,10),
    implicit(y-p37(x),x,5.21376777474338,5.07816178547886,y,0,10),
    implicit(y-p38(x),x,8.61945569262642,8.92880685563612,y,0,10),
    implicit(y-p39(x),x,8.92880685563612,8.94858272907053,y,0,10),
    implicit(y-p40(x),x,8.63876071193144,8.92880685563612,y,0,10),
    implicit(y-p41(x),x,8.96788774837555,9.02580280629061,y,0,10),
    implicit(y-p42(x),x,8.60015067332141,9.02580280629061,y,0,10),
    implicit(y-p43(x),x,6.99999999999999,8.80000022300002,y,0,10),
    implicit(y-p44(x),x,7.28411338167436,7.74884640738299,y,0,10),
    implicit(y-p45(x),x,7.63254543742349,8.40662962614182,y,0,10),
    implicit(y-p46(x),x,8.3873246068368,8.94858272907053,y,0,10),
    implicit(y-p47(x),x,9.00649778698559,9.50936999717487,y,0,10),
    implicit(y-p48(x),x,9.25793389208023,9.58706092852434,y,0,10),
    implicit(y-p49(x),x,9.66428100574442,9.70289104435446,y,0,10),
    implicit(y-p50(x),x,9.60636594782936,9.70289104435446,y,0,10),
    implicit(y-p51(x),x,9.37423486203974,9.70289104435446,y,0,10),
    implicit(y-p52(x),x,9.50936999717487,9.56775590921932,y,0,10),
    implicit(y-p53(x),x,9.70589104435446,9.68358602504944,y,0,10),
    implicit(y-p54(x),x,9.39353988134476,9.70289104435446,y,0,10),
    implicit(y-p55(x),x,8.44523966475186,9.47075995856484,y,0,10),
    implicit(y-p56(x),x,8.11611262830775,8.60015067332141,y,0,10),



    /*ojo 8.93450727435378*/
    implicit(y-p62(x),x,8.29417580865389,8.85917416074203,y,0,10),
    implicit(y-p63(x),x,8.27534253025095,8.42028439589415,y,0,10),

    /*pechito*/
    implicit(y-q54(x),x,7.79122327902816,8.09727846313212,y,0,10),

    /*pierna*/
    implicit(y-q55(x),x,3.58037479988699,4.11008569545155,y,0,10),
    implicit(y-q56(x),x,3.10904981636689,3.69620491571711,y,0,10),
    implicit(y-q57(x),x,3.39014973161315,3.69620491571711,y,0,10),
    implicit(y-q58(x),x,3.39014973161315,3.89490535831999,y,0,10),
    implicit(y-q59(x),x,3.66324512665976,3.89490535831999,y,0,10),
    implicit(y-q60(x),x,3.66324512665976,4.06017515773613,y,0,10),
    implicit(y-q61(x),x,3.91138525284867,4.18448064789528,y,0,10),
    implicit(y-q62(x),x,3.9754214144458,4.14963744232037,y,0,10),

    implicit(y-p68(x),x,1.25052968595508,1.57069541880503,y,0,10),
    implicit(y-p69(x),x,1.13753001553745,1.47652902679034,y,0,10),
    implicit(y-p70(x),x,1.13753001553745,1.55186214040209,y,0,10),
    implicit(y-p71(x),x,5.09251848015443,5.45035076981025,y,0,10),
    implicit(y-p72(x),x,5.11135175855737,5.28085126418381,y,0,10),
    implicit(y-p73(x),x,4.03785488958991,4.73468619049861,y,0,10),

    /*pelitos del cuello*/
    implicit(y-q64(x),x,6.00433185799039,5.6488369903004,y,0,10),
    implicit(y-q65(x),x,6.00433185799039,5.65684151050005,y,0,10),
    implicit(y-q66(x),x,6.00433185799039,5.60740182691402,y,0,10),
    implicit(y-q67(x),x,6.0377625011771,5.60740182691402,y,0,10),
    implicit(y-q68(x),x,6.0377625011771,5.88049722196064,y,0,10),
    implicit(y-q69(x),x,6.0377625011771,5.89697711648931,y,0,10),

    /*pelitos nuca*/
    implicit(y-q70(x),x,6.0377625011771,6.23599208965063,y,0,10),
    implicit(y-q71(x),x,6.73227234202844,6.38478199453809,y,0,10),
    implicit(y-q72(x),x,6.64139749505603,6.3438176852811,y,0,10),
    implicit(y-q73(x),x,6.50061211036821,6.38478199453809,y,0,10),


    implicit(y-p81(x),x,7.39017844531287,7.8045105701775,y,0,10),
    implicit(y-p82(x),x,7.76684401337163,7.99284335420688,y,0,10),
    implicit(y-p83(x),x,7.86101040538632,8.0493431894157,y,0,10),
    implicit(y-p84(x),x,8.2000094166392,8.29417580865389,y,0,10),
    implicit(y-p85(x),x,8.3506756438627,8.40717547907152,y,0,10),
    implicit(y-p86(x),x,8.44484203587739,8.67084137671265,y,0,10),
    implicit(y-p87(x),x,0.949197231508075,1.09986345873158,y,0,10),
    implicit(y-p88(x),x,1.00569706671689,1.4576957483874,y,0,10),
    implicit(y-p89(x),x,5.469184048213199,5.58218371863082,y,0,10),

    /* cabeza*/
    implicit(y-p90(x),x,5.63868355383963,6.09068223551015,y,0,10),
    implicit(y-p91(x),x,9.48067234803898,9.87617119450068,y,0,10),
    implicit(y-p92(x),x,8.65200809830971,8.95334055275672,y,0,10),
    implicit(y-p93(x),x,9.29516031738666,9.79072896849334,y,0,10),
    implicit(y-p94(x),x,9.771704329265461,9.886316180223661,y,0,10),
    implicit(y-p95(x),x,8.093823952484801,8.60841724281936,y,0,10),
    implicit(y-p96(x),x,8.551343325135729,8.81861630550786,y,0,10),
    implicit(y-p97(x),x,8.81861630550786,8.91373950164725,y,0,10),
    implicit(y-p98(x),x,8.894714862419381,9.29516031738666,y,0,10),
    implicit(y-p99(x),x,9.238086399703031,9.61950721544244,y,0,10),
    implicit(y-p100(x),x,9.46684608602849,9.79072896849334,y,0,10),
    implicit(y-p101(x),x,9.771704329265461,9.90534081945153,y,0,10),
    implicit(y-p102(x),x,9.810217623312139,9.924365458679411,y,0,10)

    )$

Result

3 Puntos utilizados para generar los polinomios:

[[1.94368584612487,6.55556242656608],[2.71777003484321,7.04409127450374],[3.51115924286656,7.20734648444747],[4.18824748093041,7.09850967781832],[4.63320463320463,6.90866365716406]]

[[7.69046049533854,8.29324098695195],[7.45832940954892,8.75456063323233],[7.10989735379979,9.1348710654876],[6.70355024013561,9.43355389277101],[6.39419907712591,9.62339991342527]]

[[7.75826348997081,8.24624327499845],[8.08079856860345,8.10957887576526],[8.36236933797909,7.95683631191639],[8.65194462755438,7.76946385504916],[8.92456916847161,7.63341784676272],[9.27205951596195,7.34401088368066],[9.52867501647989,6.76519695751654]]

[[7.63254543742349,8.07618576464041],[7.36180431302382,8.13060416795498],[7.18758828514926,8.23882258363738],[6.99406723796968,8.4020777935811],[6.70355024013561,8.67355141920722],[6.10368207929183,9.02603425885845],[5.60080986910255,9.21649867045947],[5.17515773613335,9.24370787211675]]

[[6.98041246821735,7.29268443509987],[6.80666729447217,7.12262692474182],[6.60843770599868,7.0546039205986],[6.39325736886712,6.83321996165976],[6.21103682079292,6.66316245130171],[5.95489217440437,6.45909343887206],[5.88850174216028,6.40776699029126]]

[[6.02646200207176,6.42013480922639],[5.81363593558715,6.42013480922639],[5.73641585836708,6.42013480922639]]

[[5.14408136359356,6.74850040195412],[4.92089650626236,6.85053490816895],[4.65580563141539,7.1059303691794]]

[[5.85554195310293,6.42508193680045],[5.54948676899896,6.61183600272092],[5.34278180619644,6.74850040195412],[5.10264620020718,6.88454641024055]]

[[2.02090592334495,6.60998082988065],[1.59525379037574,6.06703357862841],[1.36312270458612,5.60571393234803],[1.18890667671155,5.11656669346361]]

[[6.91449289010265,7.25867293302826],[6.44269705245315,7.17395337332261],[5.95489217440437,7.139941871251],[5.38421696958282,7.24197637746583],[4.97033618984838,7.46336033640468],[4.78858649590357,7.70144085090594]]

[[5.03672662209248,7.63341784676272],[4.76363122704586,7.85480180570157],[4.56493078444298,8.10957887576526],[4.38318109049816,8.39898583884732]]

[[6.12345795272624,9.02603425885845],[5.7557208776721,9.21649867045947],[5.25237781335342,9.24370787211675],[4.73020058385912,9.16208026714489],[4.38176852810999,8.64634221754994]]

[[5.20199642150862,9.36924123430833],[5.07769093134947,9.50528724259477],[5.04473114229212,9.65864819739039],[5.01177135323477,9.94805516047245]]

[[6.70355024013561,9.48797229608559],[6.23928806855636,9.67781831673984],[5.67802994632263,9.89487353905139],[5.17515773613335,9.89487353905139],[4.98163668895376,9.65060911508256]]

[[1.18984838497034,5.25075752890978],[1.0241077314248,5.57417599406345],[0.817402768622281,5.76093005998392]]

[[0.999623316696487,5.318780533053],[0.759487710707223,5.59087254962587],[0.503343064318674,5.77824500649311]]

[[0.494867689989641,5.62488405169748],[0.354082305301817,5.72691855791231],[0.213767774743384,5.79494156205553]]

[[0.36255767963085,5.40350009275864],[0.3295978905735,5.59087254962587],[0.23024766927206,5.77824500649311],[0.221772294943027,5.81225650856472]]

[[0.379037574159525,4.62061715416486],[0.279687352858085,4.91002411724692],[0.221772294943027,5.16541957825737],[0.205292400414352,5.35279203512461]]

[[0.155852716828327,5.01205862346175],[0.196817026085319,4.51858264795003],[0.354082305301817,4.00779172592913],[0.552782747904699,3.65036175870385]]

[[0.883793200866371,3.07216622348649],[0.552782747904699,3.31024673798776],[0.379037574159525,3.61635025663224],[0.23024766927206,4.05911817450993]]

[[0.3295978905735,3.54832725248902],[0.130897447970619,3.85504916208027],[0.0480271211978529,4.34852513759199]]

[[0.68509275826349,2.81677076247604],[0.387512948488558,3.07216622348649],[0.196817026085319,3.39558468864016]]

[[1.18890667671155,2.53787644548884],[0.956775590921932,2.61888565951394],[0.646953573782842,2.75493166780038]]

[[1.47094830021659,2.23795683631192],[1.22280817402769,2.5440603549564],[0.999623316696487,3.17420072970132],[0.908277615594689,3.82103766000866]]

26 mal [[1.42951313683021,1.98256137530147],[1.43798851115924,2.27196833838353],[1.52886335813165,2.45934079525076],[1.61973820510406,2.62939830560881]]

[[1.45964780111122,1.9949291942366],[1.92438082681985,1.37035433801249],[2.46586307561917,1.0444623090718],[2.96920613993785,1.12608991404366],[3.45277333082211,0.745779481788387]]

[[3.49185422356154,0.691361078473811],[3.66559939730671,0.392678251190403],[4.09125153027592,0.202832230536145],[4.24616253884547,0.284459835508008]]

[[3.9857802052924,0.842248469482407],[4.20096054242396,0.382783996042298],[4.4575760429419,0.110691979469421],[4.75515585271683,0.195411539175066],[4.78858649590357,0.297446045389895]]

[[4.39966098502684,0.961597922206419],[4.57340615877201,0.654876012615175],[4.7716357472455,0.331457547461505],[4.98681608437706,0.348772493970688]]

[[4.97881156417742,0.434110444623091],[4.80506639043224,0.944282975697236],[4.53197099538563,1.36973594706574],[4.16800075336661,1.71046935872859],[3.88642998399096,1.72716591429101],[3.64676523213109,1.96586481973904],[3.57237027968735,2.23795683631192]]

[[3.83981542518128,2.18477521489085],[4.26546755815048,1.91330158926473],[4.74950560316414,1.83167398429287],[5.17515773613335,1.88609238760745]]

[[5.19446275543836,2.23919361820543],[5.29098785196346,1.69624636695319],[5.50381391844806,1.42477274132707],[5.7557208776721,1.23430832972605]]

[[6.00715698276674,1.17988992641148],[6.43280911573594,1.20709912806877],[6.76193615218005,1.28872673304063],[7.03267727657972,1.3431451363552]]

[[6.76193615218005,1.28872673304063],[7.2261983237593,1.31593593469792],[7.55532536020341,1.09888071238637],[7.80676146529805,0.82740708676025]]

[[7.90328656182315,0.745779481788387],[8.1744985403522,0.718570280131099],[8.40662962614182,0.718570280131099],[8.58084565401638,0.800197885102962]]

[[8.23241359826726,1.39756353966978],[8.46454468405688,1.15329911570095],[8.71598078915152,0.854616288417538]]

[[8.61945569262642,0.854616288417538],[8.77436670119597,0.881825490074825],[8.92880685563612,0.99004390575722]]

[[8.92880685563612,0.935625502442644],[8.94858272907053,1.20709912806877]]

[[8.63876071193144,1.72345556861048],[8.77436670119597,1.50578195535217],[8.92880685563612,1.28872673304063]]

[[8.96788774837555,1.28872673304063],[9.02580280629061,1.53299115700946]]

[[7.14897824653922,2.75493166780038],[7.49693944815896,2.42903963885969],[7.90328656182315,2.29299363057325],[8.2710236368773,2.34741203388782],[8.61945569262642,2.23919361820543]]

[[7.28411338167436,2.61888565951394],[7.49693944815896,2.70051326448581],[7.65185045672851,2.91756848679735],[7.74884640738299,3.21625131408076]]

[[7.63254543742349,2.83655927277225],[7.88398154251813,2.75493166780038],[8.1744985403522,2.70051326448581],[8.40662962614182,2.45624884051698]]

[[8.3873246068368,2.64609486117123],[8.63876071193144,2.48345804217426],[8.81297673980601,2.4018304372024],[8.94858272907053,2.21198441654814]]

[[9.00649778698559,2.21198441654814],[9.27723891138525,2.21198441654814],[9.50936999717487,2.23919361820543]]

[[9.25793389208023,2.86315008348278],[9.4321499199548,2.70051326448581],[9.5484508899143,2.56508564714613],[9.58706092852434,2.4018304372024]]

[[9.66428100574442,3.0264052934265],[9.72219606365948,3.05361449508379],[9.70289104435446,3.21625131408076]]

[[1.23128354835672,5.23344258240059],[1.06554289481119,4.72265166037969],[0.916752989923722,4.12714117865314]]

[[8.09727846313212,4.14445612516233],[8.19662868443356,3.87174571764269],[8.37884923250777,3.75301465586544],[8.75929936905547,3.70168820728465],[9.13974950560316,3.78702615793705],[9.32197005367737,3.68499165172222],[9.56163480553724,3.46360769278338],[9.75185987381109,3.14018922762971]]

[[9.2390997269046,2.90149032218168],[9.41284490064978,2.73143281182363],[9.60306996892363,2.51004885288479]]

[[9.36293436293436,3.29293179147857],[9.64450513231001,3.00414321934327],[9.76033524814012,2.66340980768042]]

[[9.70289104435446,3.16183291076619],[9.62567096713438,2.70051326448581],[9.47075995856484,2.29299363057325]]

[[8.88313400508522,4.77397810896048],[8.70938883134005,4.51858264795003],[8.27949901120633,4.467874590316],[8.0478387795461,4.11044462309072]]

[[7.79122327902816,3.22490878733535],[8.00640361615971,3.46360769278338],[8.09727846313212,4.17846762723394]]

[[3.58037479988699,2.1699338321687],[3.94434504190602,2.57869024797477],[4.11008569545155,3.31024673798776]]

[[3.10904981636689,5.36948859068703],[3.69620491571711,5.04607012553336]]

[[3.39014973161315,5.11409312967658],[3.67172050098879,5.06338507204255]]

[[3.39014973161315,5.09739657411416],[3.67172050098879,4.94403561931853],[3.89490535831999,4.65462865623647]]

[[3.66324512665976,4.82530455754128],[3.86995008946228,4.68864015830808]]

[[3.65476975233073,4.79129305546967],[3.87842546379132,4.53589759445922],[4.06017515773613,4.19516418279636]]

[[3.91138525284867,4.34852513759199],[4.09360580092287,3.83773421557108],[4.18448064789528,3.27623523591615]]

[[3.9754214144458,3.70478016201843],[4.14963744232037,3.16183291076619]]

[[5.28486674828138,3.0208397749057],[5.0861663056785,2.51004885288479]]

[[6.00433185799039,6.23770947993321],[5.6488369903004,6.30573248407643]]

[[6.00433185799039,6.06765196957517],[5.65684151050005,6.27172098200482]]

[[5.99632733779075,6.06765196957517],[5.60740182691402,6.08434852513759]]

[[5.60740182691402,6.10166347164678],[6.03776250117714,5.82895306412714]]

[[6.0292871268481,5.77824500649311],[5.88049722196064,5.81225650856472]]

[[5.89697711648931,5.79494156205553],[6.03776250117714,5.62488405169748]]

[[6.23599208965063,5.09739657411416],[6.03776250117714,5.64219899820667]]

[[6.73227234202844,6.91855791231216],[6.38478199453809,6.6291509492301]]

[[6.64139749505603,6.78251190402573],[6.3438176852811,6.30573248407643]]

[[6.50061211036821,6.44177849236287],[6.38478199453809,6.06765196957517]]

[[9.45428006403616,5.54016449199184],[8.65994914775403,5.65889555376909],[7.94848855824466,5.55686104755426]]

[[9.29701478481966,5.33547708861542],[8.06431867407477,5.19943108032898],[6.74074771635747,4.3312101910828]]

[[9.18118466898955,5.14810463174819],[8.70138431114041,5.01205862346175],[8.32093417459271,4.7566631624513]]

[[9.5536302853376,6.73118545544493],[9.75185987381109,6.39107043472884],[9.91760052735662,5.99962896543195],[9.95056031641397,5.81225650856472]]

Created with wxMaxima.