VI LABORATORINIS DARBAS SKAITINIŲ DUOMENŲ APDOROJIMAS Darbas su MAPLE programa: > with(RandomTools): > a:=Generate(list(integer(range=0..5), 10)); > x:=seq(i,i=0..9); > sek:=seq({x[i],a[i]},i=1..10); > with(plots): > points:= [seq([x[i],a[i]],i=1..10)]; taskai:=pointplot(points): > display(taskai); > with(CurveFitting): > p:=z->PolynomialInterpolation(points, z); > poli:=plot(p(z),z=0..9): > display(taskai,poli); > c1:=z->Spline(points,z,degree=1); > kz:=plot(c1(z),z=0..10): display(taskai,kz); > seq([z+0.5,c1(z+0.5)],z=0..8); > display(taskai,kz,poli); > > with(stats): > fit[leastsquare[[o,t], t=e*o^2+b*o+c]]( [[ 1, 2, 3, 4, 5, 6, 7, 8, 9,10],a]); temp:=evalf(%); > t1:=rhs(temp); > t22:=plot(t1,o=0..10): > display(taskai,kz,poli,t22); > with(Statistics): > u:= Vector([1, 2, 3, 4, 5, 6, 7, 8, 9, 10], datatype=float): > g := Vector(a, datatype=float): > h:=Fit(e+b*y+c*y^2, u, g, y); > br2:=plot(h, y=0..10): > display(taskai,poli,kz,br2); Darbas su MATHCAD programa: Darbas su MATHEMATICA programa: x=Table[i,{i,0,9}] {0,1,2,3,4,5,6,7,8,9} y=Table[Random[Integer,{0,5}],{10}] {1,0,0,4,4,5,5,2,5,2} xy=Table[{x[[i]],y[[i]]},{i,10}] {{0,1},{1,0},{2,0},{3,4},{4,4},{5,5},{6,5},{7,2},{8,5},{9,2}} points=ListPlot[xy,PlotStylePointSize[0.02]] Graphics points1=ListPlot[xy,PlotJoinedTrue,PlotStylePointSize[0.02]] Graphics InterpolatingPolynomial[xy,z] s=Expand[%] d=Plot[s,{z,0,9}] Graphics Show[points,d] Graphics Fit[xy,{1,z^2,z},z] a=Plot[%,{z,0,9}] Graphics Show[points,d,a] Graphics data=Table[{x,x^2},{x,0,9}] {{0,0},{1,1},{2,4},{3,9},{4,16},{5,25},{6,36},{7,49},{8,64},{9,81}} funkc=Interpolation[xy, InterpolationOrder1] InterpolatingFunction[{{0,9}},] data=Table[{x,funkc[x]},{x,0,9,0.5}] {{0,1},{0.5,0.5},{1.,0.},{1.5,0},{2.,0},{2.5,2.},{3.,4.},{3.5,4},{4.,4},{4.5,4.5},{5.,5.},{5.5,5},{6.,5},{6.5,3.5},{7.,2.},{7.5,3.5},{8.,5.},{8.5,3.5},{9.,2.}} g=Plot[funkc[x],{x,0,9}] Graphics Show[points,g,d,a] Graphics Darbas su DERIVE programa: #1: RANDOM(5) #2: 1 #3: y ≔ VECTOR(RANDOM(5), k, 10) #4: y ≔ [2, 1, 2, 4, 4, 2, 4, 4, 2, 4] #5: x ≔ 1·VECTOR(k, k, 0, 9) #6: x ≔ [0, 1, 2, 3, 4, 5, 6, 7, 8, 9] xy ≔ VECTOR(⎡x , y ⎤, k, 10) #7: ⎣ k k⎦ ⎡ 0 2 ⎤ ⎢ ⎥ ⎢ 1 1 ⎥ ⎢ ⎥ ⎢ 2 2 ⎥ ⎢ ⎥ ⎢ 3 4 ⎥ ⎢ ⎥ ⎢ 4 4 ⎥ #8: xy ≔ ⎢ ⎥ ⎢ 5 2 ⎥ ⎢ ⎥ ⎢ 6 4 ⎥ ⎢ ⎥ ⎢ 7 4 ⎥ ⎢ ⎥ ⎢ 8 2 ⎥ ⎢ ⎥ ⎣ 9 4 ⎦ #9: b ≔ POLY_INTERPOLATE(xy, z) #10: b ≔ - 9 8 7 6 5 ~ 187·z - 7416·z + 122622·z - 1096200·z + 5747763·z - 17950~ ⎯⎯⎯⎯⎯⎯⎯⎯⎯⎯⎯⎯⎯⎯⎯⎯⎯⎯⎯⎯⎯⎯⎯⎯⎯⎯⎯⎯⎯⎯⎯⎯⎯⎯⎯⎯⎯⎯⎯⎯⎯⎯⎯⎯⎯⎯⎯⎯⎯⎯⎯⎯⎯⎯⎯⎯⎯⎯⎯⎯⎯⎯⎯~ 362880~ 4 3 2 464·z + 32416148·z - 31023360·z + 12153600·z - 725760 ⎯⎯⎯⎯⎯⎯⎯⎯⎯⎯⎯⎯⎯⎯⎯⎯⎯⎯⎯⎯⎯⎯⎯⎯⎯⎯⎯⎯⎯⎯⎯⎯⎯⎯⎯⎯⎯⎯⎯⎯⎯⎯⎯⎯⎯⎯⎯⎯⎯⎯⎯⎯⎯⎯⎯⎯⎯ ⎡ 2 ⎤ #11: s ≔ FIT(⎣z, a·z + d·z + c⎦, xy) 2 z 67·z 16 #12: s ≔ - ⎯⎯⎯⎯ + ⎯⎯⎯⎯⎯⎯ + ⎯⎯⎯⎯ 22 110 11 Išvados: Su MAPLE ir MATHEMATICA paketais darbas klostėsi gan gerai, nebuvo iškilę didelių problemų. Šiek tiek sunkiau sekėsi su kitais paketais, tačiau galiausiai viskas išsispręndė.
Šį darbą sudaro 353 žodžiai, tikrai rasi tai, ko ieškai!
★ Klientai rekomenduoja
Šį rašto darbą rekomenduoja mūsų klientai. Ką tai reiškia?
Mūsų svetainėje pateikiama dešimtys tūkstančių skirtingų rašto darbų, kuriuos įkėlė daugybė moksleivių ir studentų su skirtingais gabumais. Būtent šis rašto darbas yra patikrintas specialistų ir rekomenduojamas kitų klientų, kurie po atsisiuntimo įvertino šį mokslo darbą teigiamai. Todėl galite būti tikri, kad šis pasirinkimas geriausias!
Norint atsisiųsti šį darbą spausk ☞ Peržiūrėti darbą mygtuką!
Mūsų mokslo darbų bazėje yra daugybė įvairių mokslo darbų, todėl tikrai atrasi sau tinkamą!
Panašūs darbai
Atsisiuntei rašto darbą ir neradai jame reikalingos informacijos? Pakeisime jį kitu nemokamai.
Pirkdamas daugiau nei vieną darbą, nuo sekančių darbų gausi 25% nuolaidą.
Išsirink norimus rašto darbus ir gauk juos akimirksniu po sėkmingo apmokėjimo!