Hi,

I want to find the real and Imaginary part of this equation, without losing the exponential forms. 

(I*(1/2))*(I*R*C*C1*omega__n-L__1*C*exp(I*eta*T[2])*e^2*eta^2*C2-5*L__1*C*exp(I*eta*T[2])*e*eta*omega__n*C2+(3*I)*R__n*C*C1^2*C2*omega__n-3*gamma__1*C*C1^2*omega__n^2*C2-13*L__1*C*exp(I*eta*T[2])*omega__n^2*C2*(1/2))/omega__n

If I use 

evalc(Im(D1C1))

then the exp changes to sin or cos forms. How can I prevent it?

Regards,

Bahar

Hi,

Is there any way to define a specific part of an equation to be integrated in respect to time T[1]?

In my attached example I try to integrate the right hand side after isolating for C1D__1 (removing the effect of C1D__1) and maybe isolation is not the right thing to do. Any idea?

coeff1 := 5*L__1*C*exp(I*T[1]*e*eta)*e*eta*C2/omega__n-(2*I)*D__1*C1/omega__n+L__1*C*exp(I*T[1]*e*eta)*e^2*eta^2*C2/omega__n^2-(3*I)*R__n*C*C1^2*C2/omega__n+3*gamma__1*C*C1^2*C2-I*R*C*C1/omega__n+13*L__1*C*exp(I*T[1]*e*eta)*C2*(1/2):
isolate(coeff1, D__1)*C1:

integrate the right hand side of the equation with T[1]

Thanks,

Bahar

Hi,

I have an expression like x:= C*exp(I*T[1]*e*eta) and want to define e*T[1] as T[2]. How can I do this with coding?

Regards,

Bahar

Hi,

I am trying to solve a 2dof system numerically. What is the best way to find x1 and x2 by given initial conditions?

My first try to solve it is in the attached file.2DOFnumerical.mw

Thanks,

Baharm31

Hi,

I am trying to find k1,m1,k2,m2 from these four equations defined in sys but Maple does not give any solution. Any suggestions?

sys := {(k1*m1+k1*m2+k2*m1+sqrt(k1^2*m1^2+2*k1^2*m1*m2+k1^2*m2^2+2*k1*k2*m1^2-2*k1*k2*m1*m2+k2^2*m1^2))/(2*m1*m2) = (2*Pi*8.78)^2, .8347192842*k1/m1 = (2*Pi*4.8515)^2, -(-30.85287127*k1-k2)/m2 = (2*Pi*8.78)^2, -(-k1*m1-k1*m2-k2*m1+sqrt(k1^2*m1^2+2*k1^2*m1*m2+k1^2*m2^2+2*k1*k2*m1^2-2*k1*k2*m1*m2+k2^2*m1^2))/(2*m1*m2) = (2*Pi*4.8515)^2};

solve(sys, {m1,k1,m2,k2});

Thanks,

Bahar