Procedūrinis programavimas

VII LABORATORINIS DARBAS PROCEDŪRINIS PROGRAMAVIMAS Darbas su MAPLE paketu: > y1:=(x)->1.5*cos(x)^2; y2:=(a,x)->1.8*a*x; y3:=(x)->(x-2)^2+6; y4:=(x)->3*tan(x); > y4(3); y3(1.5); y2(1,a); y1(0.5); > yfu:=proc(a,x) if (x2 then y4(x) else y3(x) end if; end proc; > yfu(2.3,3); yfu(2.3,1.5); yfu(2.3,1); yfu(2.3,0.5); > for x from 0.2 by 0.2 to 2.8 do print(x,yfu(2.5,x)); end do; > with (plots): > x:='x'; x; > yy:=(a,x)->`if`(x 2,y4(x), y3(x)))); > plot(yy(2.3,x),x=-4..4,y=-20..20); Darbas su MATHEMATICA paketu: y1[x_]:=1.5*Cos[x]^2 y2[x_,a_]:=1.8*a*x y3[x_]:=(x-2)^2+6 y4[x_]:=3*Tan[x] y1[1] y2[1,a] y3[1] y4[1] 0.43789 1.8 a 7 3 Tan[1] yfunk[a_,x_]:=If[x2,3*Tan[x],(x-2)^2+6]]] yfunk[2.3,0.5] yfunk[2.3,1] yfunk[2.3,3] yfunk[2.3,1.5] 1.15523 4.14 3 Tan[3] 6.25 Plot[yfunk[a,x],{x,-4,4}] Graphics a=2.3 2.3 For[x=0.2,x2.8,Print[If[x2,3*Tan[x],(x-2)^2+6]]]];x=x+0.2] 1.4408 1.27253 1.02177 0.7281 4.14 6.64 6.36 6.16 6.04 6. -4.12147 -2.74804 -1.80479 -1.06659 Darbas su DERIVE paketu: #1: y1(x) ≔ 1.5·COS(x) 2 3·COS(x) #2: y1(x) ≔ ⎯⎯⎯⎯⎯⎯⎯⎯⎯⎯⎯ 2 #3: y2(x) ≔ 1.8·a·x 9·a·x #4: y2(x) ≔ ⎯⎯⎯⎯⎯⎯⎯ 5 2 #5: y3(x) ≔ (x - 2) + 6 2 #6: y3(x) ≔ x - 4·x + 10 #7: y4(x) ≔ 3·TAN(x) #8: y4(x) ≔ 3·TAN(x) #9: a ≔ 2.3 23 #10: a ≔ ⎯⎯⎯⎯ 10 #11: x ≔ yfunk(a, x) ≔ If x 2 3·TAN(x) (x - 2)^2 + 6 #13: yfunk(a, 3) #14: -0.4276396292 #15: yfunk(a, 1.5) #16: 6.25 #17: yfunk(a, 1) #18: 4.14 #19: yfunk(a, 0.5) #20: 1.155226729 2 #21: IF(x 2, 3·TAN(x), 2 (x - 2) + 6))) yfunk2(a, xmin, xmax, dx, vekt) ≔ Prog m ≔ ROUND((xmax - xmin)/dx) + 1 vekt ≔ VECTOR(0, j, m) x ≔ xmin n ≔ 1 #22: Loop If x > xmax RETURN vekt vekt↓n ≔ IF(x x :+ dx n :+ 1 2, 3·TAN(x), (x - 2)^2 + 6))) #23: yfunk2(2.3, 0.2, 2.8, 0.2, vekt) #24: [ 1.440795745, 1.272530032, 1.021768315, 0.7281003582, 4.14, 6.64, 6.36, 6.16, 6.04, 6, -4.12146917, -2.748042869, -1.804789839, -1.066589494] Darbas su MATHCAD paketu: Atlikti užduotį su šiais paketais pavyko, tačiau buvo kilę sunkumų rašant paprogrames. Ypač sunku buvo suprasti kaip tai daryti su MATHCAD paketu, tačiau galiausiai viskas buvo gerai.

Daugiau informacijos...

★ 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!