Maple Questions and Posts

These are Posts and Questions associated with the product, Maple

Hi all, I would be most grateful if I could get some help with solving the tasks below using Maple.

Given the function: mx''(t)+cx'(t)+kx(t)= F_y(t)

  1. Rewrite the equation above to a system of 1. order differential equations, by defining the two variables x_1(t) = x(t) and x_2(t)=x'(t) (Hint what is x'(t)?) This gives the first differential equation in the system. What is x_2'(t)?
     
  2. Write the equations as a linear system when the outer force F_y(t) is the influence and the position x_1(t) is the answer, in other words give the system matrix A and the vectors b and r.
     
  3. I'm given the constants m = 5kg, c = 3Ns/m and k = 20 N/m and I'm trying to find the transfer function of the system.
     
  4. Give the systems transfer function H(s) and draw the graphs for the amplitude and phase characteristic.

Thank you!

 

 

I have triangle TAD. Now I want to take any point inside the triagle TAD. How can I take it? I tried
 

restart; 
with(Student:-MultivariateCalculus); 
A := [1, 2, 3]; 
DD := [-2, 1, 0]; 
T := [1/2, 1/2, 3/2]; 
P := Plane(T, A, DD); 
GetRepresentation(P)

I got the quation of the plane TAD is
 

-3*x-3*y+4*z = 3

With the point P(x,y,z). What is the condition of x, y, z?

Given the following functions and respective intervals graph them and determine all values of in the interval (a,b) such that

f'(c) =f(b)-f(a)/b-a (apply the Mean Value Theorem) 

 Question 1: f(x)=x^3-2*x      [0,2]

 Question 2 : g(x)= cuberoot(x-3)^2     [-3,4]

 

Please HELP!!! 

Dear All

I wanted to use the ColorTools of Maple to study the conversions between color spaces and different color definitions, but I find the tool very limited and rather confusing.

My main issue is to understand really which "RGB" definition is used ?
I assume it's a "RGB" = sRGB from Adobe(r) that is then translate to CIE 1931 values XYZ, xyz, Lab and more recent Luv values, all based on D65 illumination ? This must be really better defined in the help !!!

This is really not clearly stated as today "RGB" means mostly Adobe 1998 RGB, the larger gamut color space from Adobe and not the older and more reduces sRGB.

Color Space and Color understanding is subtile and require really a clear differentiation about illumination, color mappings, input, and output devices, and more ...

This issue applies to the "HSV" and "CMYK" these are all HW associated devices, and at least the standard illumination considered here must be defined, from my undersanding (and within the CIE definitions there are at least half a dozen of illumination standards, the most common, for me, are the D50, & D65).

It would be great if the ColorTables allowed us to really study colors in a correct way and following more the appraoch of i.e. "Digital Color Management, ENCODING SOLUTIONS" by Edward J. Giorgianni and Thomas E. Madden, Wiley (2.Ed, 2008) or some of the other serious book on color management.

 

Thanks in advance for your replies

Sincerely

Ivar

 

 

how I can write a program code for newmark method.

in this method time has 3 order derivation

I have made a table and did a programme to do calculations inside.

While converting into a pdf, i found that the table cells being continuous overlaps on pages. I now want to trim the table or split the table to convenient size. Any suggestion.

How do I convert a 7 x 3 table into a 4 x 3 and 3x3 table? Reducing font size does not alter the row and cell size. Is there a way to alter the columnwidth and row height in maple?

Thanks for suggestion.

Why does this happen

interface(Typesetting)
                                         

interface(Typesetting=standard)
                                                      

interface(Typesetting)
                                            

a2

          

 

 

I've looked up previous answers to this but __ double underscore only works in math input, and ctrl + shift + ^ or ctrl + shift + _ does not seem to work. I'm using Maple 18, windows computer.

I'm using a maple doc to do a homework assignment that is mostly text with only a few equations and math sections. I need to draw a table of material properties in, and when I create a table all the cells default to math inputs. Because of this if I try to evaluate the entire document I get tons of blue evaluation numbers in the table that I don't want, since all the mateial properties show up as math. I can set each cell to text one by one but there are like 30 cells and it's tedious. How do I set the entire table so that each cell is a text cell?

Hi!

Let F(z) (with z complex) a given function. I want to compute F^n(z0), i.e. the composition of F with itself n-times, where z0 is a given point (complex).

Is correct the following procedure to compute F^k(z0)?

App := proc (k, z0) local z1, z2, j; z1 := z0; z2 := NULL; for j to k do z2 := F(z1); z1 := z2 end do; return z2 end proc

 

Many thanks in advance for your comments.

Hi

Consider the piecewise function

f:=x->piecewise(x≤0,−3,0<x≤1,x^2,1<x,-x)

can Maple solve the inequation  in R:   f(x)> a

where "a" is a given number in R

Of course the results depend on parameter a

 

 

Many thanks for your help

 

Hello!! Please help me,I need to solve a system of linear algebraic equations by running, and I solved the built-in command solve

restart;
with(plots):
f:=unapply(-x^2+1,x);
mu[1]:=unapply(1/(t^2+1),t);
mu[2]:=unapply(1/(t-5),t); 
g:=unapply(t^3-7*x,[t,x]);
l:=2; T:=3;
n:=10: m:=n: 
h:=evalf(l/n); 
tau:=evalf(T/m);
for k from 0 to n do 
x[k]:=h*k:
end do: 
for j from 0 to m do 
t[j]:=tau*j: 
end do:
ss:=evalf({seq(seq((y[k,j+1]-y[k,j])/tau=(y[k-1,j]-2*y[k,j]+y[k+1,j])/h^2+g(t[j],x[k]),k=1..n-1),j=0..m-1),seq(y[0,j]=mu[1](t[j]),j=1..m),seq(y[k,0]=f(x[k]),k=0..n),seq(y[n,j]=mu[2](t[j]),j=1..m)});
#s:=evalf(solve(ss,{seq(seq(y[k,j],k=0..n),j=0..m)}));

 

 We know the following facts: 

The SequenceGraph command returns a graph with the specified degree sequence given as input, if such a graph exists. It raises an exception otherwise. 
 But  If I  want to get more graphs  that satisfy this condition of degree sequence ? (If graphs are not many ,I want get all graphs better)
what should I do.?
For example: DrawGraph(SequenceGraph([3, 2, 2, 1, 1, 1]));  It returns the first graph below, but it is obvious that the second graph also fits the condition.

squenceGraph.mw


 

  restart:

#
# Define gamma as local (don't like doing this!)
#
  local gamma:local pi:
#
# Replaced 'indexed' parameters with 'inert subscript'
# parameters - otherwise one gets a problem defining
# both the unindexed 'phi' and the indexed phi[c]
#
  M__h := 100: beta__o := 0.034: beta__j := .025: mu__1 := 0.0004:
  epsilon := .7902: alpha := 0.11: psi := 0.000136: phi := 0.05:
  omega := .7: eta := .134: delta := .245: f := 0.21:
  M__v := 1000: beta__k := 0.09:   mu__v := .0005: M__c := .636:
  beta__g := 0.15: mu__c := 0.0019: pi :=0.01231: theta := 0.12: mu__e := 0.005
#
# D() is Maple's differential operator replated D(T)
# with DD(T) in the following to avoid confusion
#
  ODE1 := diff(B(T), T) = M__h-beta__o*B(T)-beta__j*B(T)-mu__1*B(T)+epsilon*G(T)+alpha*F(T):
  ODE2 := diff(C(T), T) = beta__o*B(T)*J(T)-beta__j*C(T)-(psi+mu__1+phi)*C(T):
  ODE3 := diff(DD(T), T) = beta__j*B(T)*L(T)- beta_o*E(T)-(omega+mu__1+eta)*DD(T):
  ODE4 := diff(E(T), T) = beta_o*E(T)-beta__j*C(T)-(delta+mu__1+eta+phi)*E(T):
  ODE5 := diff(F(T), T) = psi*C(T)-(alpha+mu__1)*F(T)+f*delta*E(T):
  ODE6 := diff(G(T), T) = omega*DD(T)-(epsilon+mu__1)*G(T)+(1-f)*delta*E(T):
  ODE7 := diff(H(T), T) = M__v-beta__k*H(T)-mu__v*H(T):
  ODE8 := diff(J(T), T) = beta__k*H(T)-mu__v*J(T):
  ODE9 := diff(K(T), T) = M__c-beta__g*K(T)-mu__c*K(T):
  ODE10:= diff(L(T), T) = beta__g*K(T)-mu__c*L(T):
  ODE11:= diff(M(T), T) = pi*(DD(T)+ theta*E(T))-mu__e*M(T):

  B0 := 100: C0 := 90: D0 := 45: E0 := 38:
  F0 := 10: G0 := 45: H0 := 50: J0 := 70: K0 :=20: L0:= 65: M0 :=22:
#
# Solve system
#
  ans := dsolve( { ODE1, ODE2, ODE3, ODE4, ODE5, ODE6, ODE7, ODE8,
                   B(0) = B0, C(0) = C0, DD(0) = D0, E(0) = E0,
                   F(0) = F0, G(0) = G0, H(0) = H0, J(0) = J0, K(0) = K0, L(0) = L0, M(0) = M0,
                 },
                 numeric
               );
#
# Plot solutions for a few of the dependent variablss
# just to show everything is working (more-or-less!)
#
  plots:-odeplot( ans, [T, B(T)], T=0..5);
  plots:-odeplot( ans, [T, C(T)], T=0..5);
  plots:-odeplot( ans, [T, DD(T)], T=0..5);
  plots:-odeplot( ans, [T, E(T)], T=0..5);
  plots:-odeplot( ans, [T, F(T)], T=0..5);
  plots:-odeplot( ans, [T, G(T)], T=0..5);
  plots:-odeplot( ans, [T, H(T)], T=0..5);
  plots:-odeplot( ans, [T, J(T)], T=0..5);
  plots:-odeplot( ans, [T, K(T)], T=0..5);
  plots:-odeplot( ans, [T, L(T)], T=0..5);
  plots:-odeplot( ans, [T, M(T)], T=0..5);

Error, missing operator or `;`

 

``


 

Download MltxPLOTS.mw

Hello Dear,

I have the following equation

 This equation is satisfied if the coefficients are zero.

So I need an order in Maple to write that

 

First 563 564 565 566 567 568 569 Last Page 565 of 2097