Online Algebra Calculator
Many of users do not use powerful Maxima computer algebra system for systematic work, but for ad hoc algebraic calculations – equations, functions, matrixes, etc. only. To do this job, it is not useful to download the whole application from a web site.
(%i1)kill(all); (%o0) done (%i1) Ik:16; (%o1) 16 (%i2) U0:92; (%o2) 92 (%i3) a:I/Ik=1-(U/U0)^2; 2 I U (%o3) -- = 1 - ---- 16 8464 (%i4) l:solve(a,U); (%o4) [U = - 23 sqrt(16 - I), U = 23 sqrt(16 - I)] (%i5) m:solve(a,I); 2 U - 8464 (%o5) [I = - ---------] 529 (%i6) define(I(U),rhs(m[1])); 2 U - 8464 (%o6) I(U) := - --------- 529 (%i7) define(U(I),rhs(l[2])); (%o7) U(I) := 23 sqrt(16 - I) (%i8) P(I,U):=I*U; (%o8) P(I, U) := I U (%i9) plot2d(I(U),[U,0,92], [xlabel, "U[V]"], [ylabel, "I[A]"]); plotplot2d(U(I),[I,0,16], [ylabel, "U[V]"], [xlabel, "I[A]"]); plot
plot2d([P(I(U),U)],[U,0,92], [xlabel, "U[V]"], [ylabel, "P[W]"]); plot
plot2d([P(I,U(I))],[I,0,16], [xlabel, "I[A]"], [ylabel, "P[W]"], [grid, 10, 10]); plot
define(Iabgeleitet(U),diff(P(I(U),U),U)); 2 2 2 U U - 8464 (%o13) Iabgeleitet(U) := - ---- - --------- 529 529 (%i14) define(Uabgeleitet(I),diff(P(U(I),I),I)); 23 I (%o14) Uabgeleitet(I) := 23 sqrt(16 - I) - -------------- 2 sqrt(16 - I) (%i15) Umax:solve(Iabgeleitet(U),U); 92 92 (%o15) [U = - -------, U = -------] sqrt(3) sqrt(3) (%i16) Imax:solve(Uabgeleitet(I),I); 32 (%o16) [I = --] 3 (%i17) P[max]=float(Imax[1]*Umax[2]); (%o17) P = (I U = 566.5730641647529) max (%i18) R[L]=float(Umax[2]/Imax[1]); U (%o18) R = (- = 4.979646071760522) L I (%i19)
plot2d([x*sin(2/x*3)],[x,-1,1]); plot
plot2d(sin(x)+1, [x,0,6],[y,-2,2]); plot