# Question:solve figure draw problem

## Question:solve figure draw problem

Maple 18

Figure;
Figure
restart;
A[0] := 0;
0
A[1] := sqrt(2*(k[1]^2-w[1]^2))/sqrt(lambda);
(1/2)
/      2         2\
\2 k[1]  - 2 w[1] /
------------------------
(1/2)
lambda
A[2] := sqrt(2*(k[2]^2-w[2]^2))/sqrt(lambda);
(1/2)
/      2         2\
\2 k[2]  - 2 w[2] /
------------------------
(1/2)
lambda
c[1] := 1;
1
c[2] := 1;
1
c[3] := 1;
1
c[4] := 1;
1
c[5] := 1;
1
c[6] := 1;
1
k[1] := 10.5;
10.5
k[2] := 3.5;
3.5
w[1] := 5.05;
5.05
w[2] := .5;
0.5
m := 1.9;
1.9
lambda := 1.75;
1.75
xi[1] := -t*w[1]+x*k[1];
-5.05 t + 10.5 x
xi[2] := -t*w[2]+x*k[2];
-0.5 t + 3.5 x
a := m/sqrt(k[1]^2-w[1]^2);
0.2063907138
b := m/sqrt(k[2]^2-w[2]^2);
0.5484827558
g := a*(c[2]*cos(a*xi[1])-c[3]*sin(a*xi[1]));
0.2063907138 cos(2.167102495 x) - 0.2063907138 sin(2.167102495 x)
h := c[1]+c[2]*sin(a*xi[1])+c[3]*cos(a*xi[1]);
1 + sin(2.167102495 x) + cos(2.167102495 x)
G := b*(c[5]*cos(b*xi[2])-c[6]*sin(b*xi[2]));
0.5484827558 cos(1.919689645 x) - 0.5484827558 sin(1.919689645 x)
H := c[4]+c[5]*sin(b*xi[2])+c[6]*cos(b*xi[2]);
1 + sin(1.919689645 x) + cos(1.919689645 x)
u := A[0]+A[1]*[g/h]+A[2]*[G/H];
[                     1
[------------------------------------------- (3.703280398
[1 + sin(1.919689645 x) + cos(1.919689645 x)

(0.5484827558 cos(1.919689645 x)

- 0.5484827558 sin(1.919689645 x))) +

1
------------------------------------------- (9.841457496
1 + sin(2.167102495 x) + cos(2.167102495 x)

(0.2063907138 cos(2.167102495 x)

]
- 0.2063907138 sin(2.167102495 x)))]
]
plot3d(Re(u), x = -20 .. .20, t = -20 .. .20);
Error, invalid input: `simpl/Re` expects its 1st argument, x, to be of type {boolean, algebraic}, but received [3.703280398*(.5484827558*cos(1.919689645*x)-.5484827558*sin(1.919689645*x))/(1+sin(1.919689645*x)+cos(1.919689645*x))+9.841457496*(.2063907138*cos(2.167102495*x)-.2063907138*sin(2.167102495*x))/(1+sin(2.167102495*x)+cos(2.167102495*x))]
t := 0;
0
plot(u, x = -15 .. 15);

﻿