## How to Graph Overlaying Plots With No Errors?...

I am trying to plot some graphs for a differential equations class. I need to plot two equations (soln1a, soln1b1) in one graph, with the two curves overlayed on each other. I am trying to plot them on a graph named "gr1c". The error I get says "Error, (in plots/multiple) empty plot". Clicking on the error results in a webpage saying that "There is no help page available for this error".

When I plot each equation separately, there are no errors. The graphing command that works for soln1a is

gr1a:=plot(rhs(soln1a),dom1,color=blue);

and the graphing command that works for soln1b1 is

gr1b1:=plot(rhs(soln1b_1),dom1,color=purple);

My code is as follows. I would greatly appreciate any help ASAP to remove the error. Thank you!

with(plots):with(DEtools):

K:=9;
deG:=diff(theta(t),t,t) + mu*diff(theta(t),t)+K*sin(theta(t))= 0;
deL:=diff(theta(t),t,t) + mu*diff(theta(t),t)+K*theta(t)= 0;
Iv:=theta(0)=0.75, D(theta)(0)=2.0;
dom1:=t=0..10;
soln1a:=dsolve({eval(deL,mu=0),Iv});

soln1b_1:=dsolve({eval(deL,mu=1),Iv});

gr1c:=multiple(plot[soln1a,soln1b1],dom1,color=[blue,purple]);

## How do I plot four second order curves in the same...

[[1000, 20], [2000, 25], [3000, 24], [4000, 23], [5000, 24]];
[[1000, 20], [2000, 25], [3000, 24], [4000, 23], [5000, 24]]
data1 := [[1000, 20], [2000, 21], [3000, 32], [4000, 23], [5000, 23]]; 'data1';
data1
a*x^3+b*x^2+c*x+d;
3      2
a x  + b x  + c x + d
x;
x
Equn1 := CurveFitting[LeastSquares]([[1000, 20], [2000, 25], [3000, 24], [4000, 23], [5000, 24]], x, curve = a*x^3+b*x^2+c*x+d);
plot(Equn1,x= 1000..5000)

Least Squares Approximation

Calculate a least squares approximation using specified data points.

Theoretical Curves for the Two-Stroke Engines and Four-Stroke Engines Brake Power Vs Brake Efficiency

List of Data Points:

 >
 (1)
 >
 (2)

Fitting Curve:

 >
 (3)

Independent Variable:

 >
 (4)

Least Squares Curve:

 >
 > plot(Equn1,x= 1000..5000)
 >

 >
 (5)

Least Squares Fit of Data by a Specified Curve

List of Data Points:

 >
 (6)

Fitting Curve:

 >
 (7)

Independent Variable:

 >
 (8)

Least Squares Curve:

 >
 (9)

 (10)

The above command plots one curve alright. I want four such curves to go in the same figure using command like

plot(Equn1,Equn2,Equn3,Equn4,view(x=1000..5000)

I am not getting by the above command what I want. Can any one help. A shortcut method is required for me to repeat many times.

Thanks for help.

Ramakrishnav V

## How to plot two or more functions/relations at a t...

I'm doing a Maximum/Minimum problem ( Calculus 3).

I need to plot f(x,y) =   x2  + y 2 -2y + 1

over R={x,y): x 2 + y 2         (less than or equal sign) 4}

## Multiple plot for different values of M...

I m using the follwing commands for ploting the five differnt values of M

```with(plots):
SDfd1 := odeplot(dsol[1], [eta, diff(f(eta), eta)], -1 .. 1, color = green, axes = box);
SDfd2 := odeplot(dsol[2], [eta, diff(f(eta), eta)], -1 .. 1, color = red, axes = box);
SDfd3 := odeplot(dsol[3], [eta, diff(f(eta), eta)], -1 .. 1, color = blue, axes = box);
SDfd4 := odeplot(dsol[4], [eta, diff(f(eta), eta)], -1 .. 1, color = black, axes = box);
SDfd5 := odeplot(dsol[5], [eta, diff(f(eta), eta)], -1 .. 1, color = pink, axes = box);
display([SDfd1, SDfd2, SDfd3, SDfd4, SDfd5], labels = ["η", "f ' (η)"],
labeldirections = [horizontal, vertical], labelfont = [italic, 16], axes = boxed,
axesfont = [times, 14], thickness = 3);```

But i do not want in colors.....i need graph without colors in different styles. how can ? Moreover i need legend which must be in centre of graph or within the box. It must not on left, right ,up or below. can some one help ?

## Plotting graphs for series...

Hello everyone, I was trying to plot graph for some functions but its just plotting one plot. Anyone with useful information please.

Pe.maple

## Combine multiple views in 3D animation...

Dear all,

My script has multiple animations, in which the range of the variable is larger then I wish to see. Therefore, I have used the view=[x1..x2,y1..y2] command, which has different values for every plot. Plotted seperately, this gives me exactly what I want. However, if I combine the plots using display(A,B,C) they loose their individual views. Instead, maple chooses the view of plot A, and plots B an C in the range defined by view A.

Is there a way to combine plots and still maintain individual views, within the largest view?

Kind regards,
Bastiaan Overdorp

## Generate SubPlot in Maple2016 ???...

Hi,

Is there any way to generate a subplot in Maple2016?

I want to show many plots in one table at once.

I appreciate any idea you may have.

## Multiple curves...

I want to draw multiple curves based on a single equation in which a parameter will change giving different curves. I want these curves to be in the same frame. Is there a single line code for the same?

## Factorization of multivariable polynomial not work...

Already searched and browsed multiple different threads and still cannot find a solution.

Apologizing the noob nature of this question.

In this code below, Why is the factor command not working?

 (1)

 (2)

 (3)

## How to get multiple outputs from a procedure?...

What is the best way to export/update multiple values from a single procedure? As far as I understand, a procedure does not let you update global values (the inputs), and it returns the value for the last step performed. Let's say for example, I had a procedure like this:

proc(a,b,c)

local x,y;

*series of steps that use a,b, and c to calculate x and y*

end proc

How do I get the results for x and y out of the procedure?

Thanks

## Roots of exp(z) = -1...

Dear all,

I have a question: how to compute the roots of exp(z) = -1 with z in C?

I tried:

fsolve( exp(z) = -1, z, complex );

But it only gives one root (0.1671148658e-3+4.934802220*10^9*I) which does not even seem to be correct. I would prefere smth like z_n = I*(2*n-1)*pi or at least multiple roots...

By using

solve(exp(x) = -1, x);

it returns I*Pi.

MATLAB MuPAD gives the desired result:

solve(exp(x) = -1, x)

(PI*I + 2*PI*k*I, k in Z)

Thanks!

## Problem with numerical multiple integration...

Hello everyone !

I have a problem when I want to calculate the following multiple integration numerically:

>evalf(Int(exp(sum(x[i],i=1..6)^2),[seq(x[i]=-1..1,i=1..6)]));
value(%);

It doesn't work. But when I replace sum(x[i],i=1..6)^2 with sum(x[i],i=1..6), it works. Is there any feasible solution to my problem ?

## Error with multiple choice creation...

Hi,

I have a problem with the adaptive question designer: when I use the multiple choice question type then occasionally parts of the question environment appear multiple times in the text, duplicating each time I reopen the question to edit. This happens in particular if the answers are a bit longer (4-5 lines each). So far I couldn't figure out how to fix this, does anyone have a similar problem?

## plot multiple for or do loop display...

Dear  i want to plot the graphs for different values of R[2,5,6.5]   here is the codes: Either ido loop or array i have to use or other procedure

The graph display should be at R=2, one graph, R=5 another and R=6.5

onemore graph

restart:
with(DEtools):
eta:=1+k*x+epsilon*sin(2*Pi*x):
A1(x):=-exp(-alpha*x)*J^2*R/(2*eta^3+6*xi*J^2*eta^2):

psi0:=A1(x)*y^3:
psi:=delta*psi0:
V:=-diff(psi,x):
delta:=0.1:
epsilon:=0.01:
alpha:=1:
xi:=0.001:
k:=0.1:
As:= [0, 2, 4]:
x:=0.2
plot([seq]([eval(V, J= A), y, y= 0..eval(eta, J= A)], A= As),title=" velocity at R=2.0 ",labels= ["v", "y"],color= [green, red, blue], linestyle= [solid, dash, dot],legend= [seq](J = A, A= As), axes=boxed);