Sponsored links: Algebra eBooks
 

Related

rhs-solve

f1:1/f=1/g+1/b1;

f2:d/p=b1/(b-b1);

m:solve(f2,b1);

Calculate

rhs-solve

m: 8.1;

R: 0.33;

t: 18;

Calculate

rhs-solve

f:2*x+1;

solve(f,x);

x_0:rhs(%);

Calculate

rhs-solve

eqn1 : a*x^2 + b*x + ...

soln1 : solve(eqn1,x);

x1 : rhs(soln1[1]);

Calculate

rhs-solve

dist2(P1,P2):=(P2[Y]-...

X:1;

Y:2;

Calculate

rhs-solve-subst

f1:x-z*x/a-xs=0;

f2:y-y/a*z-sa*ys=0;

f3:a+b+ca*ys-z=0;

Calculate

rhs-solve

m_ar: .102;

v_arx: 23.6;

v_ary: 0;

Calculate

rhs-solve-subst

f1:x-z*x/a-xs=0;

f2:y-y/a*z-sa*ys=0;

f3:a+b+ca*ys-z=0;

Calculate

rhs-solve

m1: 100;

v1: 4.6;

m2: 86;

Calculate

rhs-solve

m1: 3.2;

v1i: 2.1;

m2: 4.3;

Calculate

rhs

Run Example
(%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(I(U),[U,0,92], [xlabel, "U[V]"], [ylabel, "I[A]"]);plot2d(U(I),[I,0,16], [ylabel, "U[V]"], [xlabel, "I[A]"]);
plotplot2d(U(I),[I,0,16], [ylabel, "U[V]"], [xlabel, "I[A]"]);plot2d([P(I(U),U)],[U,0,92], [xlabel, "U[V]"], [ylabel, "P[W]"]);
plotplot2d([P(I(U),U)],[U,0,92], [xlabel, "U[V]"], [ylabel, "P[W]"]);plot2d([P(I,U(I))],[I,0,16], [xlabel, "I[A]"], [ylabel, "P[W]"], [grid, 10, 10]);
plotplot2d([P(I,U(I))],[I,0,16], [xlabel, "I[A]"], [ylabel, "P[W]"], [grid, 10, 10]);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) 
Run Example
g1: F_H+F_N2=F_N1;
(%o1)                          F_N2 + F_H = F_N1
(%i2) g2: F_N1*38=F_N2*100;
(%o2)                         38 F_N1 = 100 F_N2
(%i3) sol1:solve([g1,g2],[F_N1,F_N2]);
                                50 F_H         19 F_H
(%o3)                  [[F_N1 = ------, F_N2 = ------]]
                                  31             31
(%i4) F_N1:rhs(sol1[1][1]);
                                    50 F_H
(%o4)                               ------
                                      31
(%i5) F_N2:rhs(sol1[1][2]);
                                    19 F_H
(%o5)                               ------
                                      31
(%i6) F_R1:my*F_N1;
                                   50 my F_H
(%o6)                              ---------
                                      31
(%i7) F_R2:My*F_N2;
                                   19 My F_H
(%o7)                              ---------
                                      31
(%i8) 
Run Example
K: matrix([ ka, -ka,   0,  kd],          [-ka,  kb, -ka,   0],          [  0, -ka,  ka, -kd],          [ kd,   0, -kd,  kc]);
                          [  ka   - ka   0     kd  ]
                          [                        ]
                          [ - ka   kb   - ka   0   ]
(%o1)                     [                        ]
                          [  0    - ka   ka   - kd ]
                          [                        ]
                          [  kd    0    - kd   kc  ]
(%i2) x: matrix([x1], [x2], [x3], [x4]);
                                    [ x1 ]
                                    [    ]
                                    [ x2 ]
(%o2)                               [    ]
                                    [ x3 ]
                                    [    ]
                                    [ x4 ]
(%i3) F: matrix([0], [0], [0], [-Fr]);
                                   [  0   ]
                                   [      ]
                                   [  0   ]
(%o3)                              [      ]
                                   [  0   ]
                                   [      ]
                                   [ - Fr ]
(%i4) solution: solve((K.x)[4,1] = F[4,1], x4);
                                 kd x3 - kd x1 - Fr
(%o4)                      [x4 = ------------------]
                                         kc
(%i5) x4: rhs(solution[1]);
                              kd x3 - kd x1 - Fr
(%o5)                         ------------------
                                      kc
(%i6) K.x;
                          [  kd x4 - ka x2 + ka x1  ]
                          [                         ]
                          [ - ka x3 + kb x2 - ka x1 ]
(%o6)                     [                         ]
                          [ - kd x4 + ka x3 - ka x2 ]
                          [                         ]
                          [  kc x4 - kd x3 + kd x1  ]
(%i7) 
[abs,acos,asin,atan2,expand,float,linsolve,matrix,pi,rhs,sqrt,time] [abs,acos,asin,expand,float,linsolve,matrix,pi,rhs,sqrt,time] [abs,linsolve,log,plot2d,rhs] [acos,asin,atan,expand,float,linsolve,matrix,pi,rhs,sqrt,time] [acos,asin,atan2,expand,float,linsolve,matrix,pi,rhs,sqrt] [acos,cos,plot2d,rhs,sin,solve] [acos,expand,float,linsolve,matrix,pi,rhs] [acos,expand,float,linsolve,matrix,rhs,sqrt,time] [algebraic,carg,ev,expand,float,linsolve,numer,pi,rat,rhs,simp,true] [asin,atan,expand,float,linsolve,pi,rhs,sqrt,time] [block,depends,diff,exp,first,rhs,solve,subst] [block,expand,lhs,powerdisp,print,rhs] [cos,diff,float,ic2,ode2,plot2d,rhs,sqrt] [cos,diff,ic2,ode2,plot2d,rhs] [cos,numer,pi,rhs,sin,solve,sqrt] [denom,lhs,num,ratsubst,rhs,solve] [denom,lhs,ratsimp,rhs,solve,subst] [denom,plot2d,rhs,solve] [diff,disp,ic1,ode2,print,rhs] [diff,ev,float,fullratsimp,integrate,rhs,solve] [diff,exp,ic2,ode2,plot2d,rhs] [diff,exp,integrate,plot2d,psi,rhs,solve,sqrt] [diff,false,ic1,ode2,plot2d,ratprint,ratsimp,rhs] [diff,float,is,lambda,load,map,plot2d,rhs] [diff,ic1,ode2,plot2d,rhs] [diff,ic2,ode2,plot2d,rhs] [diff,integrate,numer,rhs,solve] [diff,ode2,plot2d,rhs] [diff,rhs,solve,subst] [diff,rhs,solve] [ev,integrate,rhs,sin,taylor] [ev,ratsimp,rhs,solve] [ev,rhs,solve] [expand,factorsum,rhs,solve] [expand,float,linsolve,matrix,rhs,sqrt,time] [expand,float,linsolve,matrix,rhs,time] [expand,float,linsolve,rhs,time] [expand,linsolve,numer,rhs,sqrt,tan] [factor,kill,length,makelist,map,plot2d,rhs,solve,sum] [false,float,kill,max,min,plot2d,ratprint,rhs,solve] [linsolve,rhs] [numer,pi,rhs,solve] [numer,rhs,solve] [plot2d,ratsimp,rhs,solve] [plot2d,rhs,solve,sqrt,tan] [plot2d,rhs,solve] [rhs,solve,sqrt] [rhs,solve,subst] [rhs,solve] [rhs]

Related Help

Help for Rhs