sungyg

6 years, 165 days


These are Posts that have been published by sungyg

long equation

October 27 2007 by sungyg 125 Maple
Dear Sir: In worksheet mode, I got an evaluation result which has a very long equation. The maple display it just on one line so that the result is displayed over window bound. I want to set it up to display the result on multiline. So, it is easy to look at my result without moving my mouse. Could you tell me how to set it up? Thanks in advance.
Dear Sir: I am using Maple 11. I try to change the font and size of both input and output display in TEXT mode as a default mode. But, I can not find an option to change them under TOOLS menu. Could you tell me how to do? Thanks.
Dear Sir: I try to learn to use the linear algebra in maple. I try to compute the following matrices. restart; assume(a>0,b>0,c>0); with(LinearAlgebra): M:=Matrix([[a, 0],[0, b]]); K:=Matrix([[c,-c],[-c,c]]); V:=Eigenvectors(K,M); X:=V[2]; Multiply(Multiply(X^%T,M),X); I expect that the final result should be the indentity matrix. However, it does not produce what I expect. Please give me some advice to get the identity matrix. Thank you.
Dear Sir: I try to solve a set of simultaneous equations. But, it is not easy to get a solution by using MAPLE package. restart; eq1:=P-2*P*cos(w*t[2])+(P+1)*cos(w*t[3])=0; eq2:=-2*P*sin(w*t[2])+(P+1)*sin(w*t[3])=0; _EnvAllSolutions:=true: _EnvExplicit:=true: solve({eq1,eq2},{t[2],t[3]}); But, MAPLE does not give me what I want. I expect that the solution should be in the following way: t[2]=(1/w)*arccos((4*P^2-2*P-1)/(4*P^2)); t[3]=(1/w)*arccos((2*P^2-2*P-1)/(2*P^2+2*P)); where w and P are positive constants. Could you help me to get the solution? Thanks

invlaplace solution

February 15 2007 by sungyg 125

0

7

Dear Sir: Following is the inverse laplace of the given equation. restart; with(inttrans): X:=-k*(m[1]+m[2])/(s*(k*(m[1]+m[2])+m[1]*s^2*m[2])); invlaplace(X,s,t); The result is something like "1-cosh(a t)". I expect that the result is similar to "1-cos(a t)". How could I get what I want to get? Thanks in advance

factor

January 02 2007 by sungyg 125

0

2

Hello Sir; I try to factor out the following equation: eq1:=t[1]/2+t[2]/2+(1/2)*(1/alpha)*sqrt(2*alpha^2*t[1]^2+2*alpha^2*t[2]^2+alpha*x); I want to get it like this form: eq2:=(1/2)*(t[1]+t[2])+sqrt((1/2)*(t[1]^2+t[2]^2)+x/(4*alpha)); Is it possible to express eq1 to eq2? I do not know how to factor each term individually. Thanks
Hello! I upload my file which has a problem. I am not an expert on MAPLE v10.05. The file name is "mapleprime-2". I try to get a solution of four equations with the symmetric assumption for time variables. Anyone could change the assumption to get a result. Or, anyone could add just two more time variables: t[6] with minus sign amplitude and t[7] with plus sign amplitude. So, the entire number of time variables are still odd number which can not be changed. The current code is following as: restart: eq1:=expand(sum((-1)^(i+1)*cos(w*t[i]),i=1..5)=0): eq2:=expand(sum((-1)^(i+1)*sin(w*t[i]),i=1..5)=0):

solve a problem

December 13 2006 by sungyg 125
hello? I wrote the following equations to be solved. restart; eq1:=expand(sum((-1)^(i+1)*cos(omega*t[i]),i=1..5)=0): eq2:=expand(sum((-1)^(i+1)*sin(omega*t[i]),i=1..5)=0): eq3:=expand(sum((-1)^(i+1)*cos(r*omega*t[i]),i=1..5)=0): eq4:=expand(sum((-1)^(i+1)*sin(r*omega*t[i]),i=1..5)=0): t[1]=0;t[4]:=2*t[3]-t[2];t[5]:=2*t[3]; _EnvAllSolutions:=true: _EnvExplicit:=true: s1:=solve({eq1,eq2,eq3,eq4},{t[2],t[3],r}); Do I have to specify t[3]>t[2], t[2]>0 in the code? where t[1] to t[5] are time variables starting from t[1]=0 and omega and r are constants. How can I get the solutions for t[2] and t[3]?

solve

November 05 2006 by sungyg 125
Is there any way to get an exact solution rather than integration format. I do not know "applyop" command. Please help me for more understanding to use MAPLE. Thanks restart; u(t):=1+sum((-1)^(i)*Heaviside(t-T[i+1]),i=1..n-1)+sum((-1)^(i)*Heaviside(t-T[n+i]),i=1..n): eq:=diff(x(t),t,t)=u(t)/M: ic:=x(0)=0,D(x)(0)=0: dsolve({eq,ic}) assuming T[n+i]>T[i+1]; yoon
Hello! I try to solve the eq1, eq2, eq3, and eq4. I simplified the 4 equations to rs1 and rs2 to get the solution t3 and t5. Then, I check the solution by subsituting Eq(14) into Eq(10). The result is right. The rs1 equation was found by numerical tests. However, it is not correct for the eq1, eq2, eq3, or eq4. I do not understand why it is not correct. Please tell me the reason and how I can solve and obtain correct solution. The worksheet can be found in the File Manager Thank you for your time and help.
Dear Sir; restart; _EnvAllSolutions:=true; eqn1:=cos(omega[1]*t[1])+cos(omega[1]*t[2])=-1; eqn2:=cos(r*omega[1]*t[1])+cos(r*omega[1]*t[2])=-1; solve({eqn1,eqn2},[t[1],t[2]]); I try to get the solutions. It gives me very complicated answer. How do I interpret the results with assumed variables? Actually, I want to get the closed form solution. Could you help me about the problem? Thanks. Sung
Hello! I got a trouble to get the answer of following exponential function with summation. I expect that the answer should be "Heaviside" forms. However, the maple software does not go further. restart; assume(i::posint,n::posint,s::complex); eq1:=sum((-1)^i*exp(-s*T[i])/s,i = 1..n); inttrans[invlaplace](eq1,s,t) assuming T[i]>0,T[i+1]>T[i]; I am a novice for maple. Is there any procedure routine? Please tell me about it. Thanks. Y-G Sung sungyg@chosun.ac.kr
Page 1 of 1