\( \DeclareMathOperator{\abs}{abs} \newcommand{\ensuremath}[1]{\mbox{$#1$}} \)
(%i1) | e1 : j0 + m1· d = jc ; |
(%i2) | se1 : solve( e1, d) ; |
(%i3) | d : rhs( se1[ 1]) ; |
(%i4) | j1 : jc + m2·( 1 − d) ; |
(%i5) | j1 : ratsimp( j1) ; |
(%i6) | j1 : factor( j1) ; |
(%i7) | e2 : j1 = j0 ; |
(%i8) | se2 : solve( e2, j0) ; |
(%i9) | J0 : rhs( se2[ 1]) ; |
(%i10) | J0 : factor( J0) ; |
(%i11) | D0 : ev( d, j0 = J0) ; |
(%i12) | D0 : ratsimp( D0) ; |
(%i13) | Jav :( J0 + jc) / 2 ; |
(%i14) | Jav : ratsimp( Jav) ; |
(%i15) | Jav : factor( Jav) ; |
(%i16) | dJav : Jav − jc ; |
(%i17) | dJav : ratsimp( dJav) ; |
(%i18) | dJav : factor( dJav) ; |
(%i19) | Jav : jc + dJav ; |
(%i20) | djc : diff( Jav, jc) ; |
(%i21) | dm1 : diff( Jav, m1) ; |
(%i22) | dm1 : ratsimp( dm1) ; |
(%i23) | dm1 : factor( dm1) ; |
(%i24) | dm2 : diff( Jav, m2) ; |
(%i25) | dm2 : ratsimp( dm2) ; |
(%i26) | dm2 : factor( dm2) ; |
(%i27) | D0 ; |
(%i28) | e3 : D = D0 ; |
(%i29) | se3 : solve( e3, m2) ; |
(%i30) | M2 : rhs( se3[ 1]) ; |
(%i31) | dM1 : ev( dm1, m2 = M2) ; |
(%i32) | dM1 : ratsimp( dM1) ; |
(%i33) | dM2 : ev( dm2, m2 = M2) ; |
(%i34) | dM2 : ratsimp( dM2) ; |
(%i35) | dM2 : factor( dM2) ; |
Created with wxMaxima.