\( \DeclareMathOperator{\abs}{abs} \newcommand{\ensuremath}[1]{\mbox{$#1$}} \)
(%i1) | e1 : j0 + m1· d = jc + ma· d ; |
(%i2) | se1 : solve( e1, d) ; |
(%i3) | d : rhs( se1[ 1]) ; |
(%i4) | j1 : jc + ma· d + 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) | J1 : J0 + m1· D0 ; |
(%i14) | J1 : ratsimp( J1) ; |
(%i15) | Jav :( J0 + J1) / 2 ; |
(%i16) | Jav : ratsimp( Jav) ; |
(%i17) | Jav : factor( Jav) ; |
(%i18) | dJav : Jav − jc ; |
(%i19) | dJav : ratsimp( dJav) ; |
(%i20) | dJav : factor( dJav) ; |
(%i21) | Jav : jc + dJav ; |
(%i22) | djc : diff( Jav, jc) ; |
(%i23) | dm1 : diff( Jav, m1) ; |
(%i24) | dm1 : ratsimp( dm1) ; |
(%i25) | dm1 : factor( dm1) ; |
(%i26) | dm2 : diff( Jav, m2) ; |
(%i27) | dm2 : ratsimp( dm2) ; |
(%i28) | dm2 : factor( dm2) ; |
(%i29) | D0 ; |
(%i30) | e3 : D = D0 ; |
(%i31) | se3 : solve( e3, m2) ; |
(%i32) | M2 : rhs( se3[ 1]) ; |
(%i33) | dM1 : ev( dm1, m2 = M2) ; |
(%i34) | dM1 : ratsimp( dM1) ; |
(%i35) | dM2 : ev( dm2, m2 = M2) ; |
(%i36) | dM2 : ratsimp( dM2) ; |
(%i37) | dM2 : factor( dM2) ; |
(%i38) | dM1 : ev( dM1, ma = a· m1) ; |
(%i39) | dM1 : ratsimp( dM1) ; |
(%i40) | dM1 : factor( dM1) ; |
(%i41) | dM2 : ev( dM2, ma = a· m1) ; |
(%i42) | dM2 : ratsimp( dM2) ; |
(%i43) | dM2 : factor( dM2) ; |
Created with wxMaxima.