WOLFRAM NOTEBOOK

In[]:=
gama=.7;​​Plot3D[-(x^2+y^2)-(4/(gamaPi^2))(Log[Cos[Pix/2]]+Log[Cos[Piy/2]]),{x,-1,1},{y,-1,1},ViewPoint{1,2,1},PlotPoints50,AxesLabel{"\!\(\*SubscriptBox[\"a\",\"1\"]\)"","\!\(\*SubscriptBox[\"a\",\"2\"]\)"","V"}]
Syntax
:"AxesLabel cannot be followed by {
a
1
,
a
2
,V}.
In[]:=
In[22]:=sigma=16;b=4;r=45.92;​​Lorenz=NDSolve[{x1'[t]sigma(x2[t]-x1[t]),x2'[t]-x1[t]x3[t]+rx1[t]-x2[t],x3'[t]x1[t]x2[t]-bx3[t],y2'[t]-x1[t]y3[t]+rx1[t]-y2[t],y3'[t]x1[t]y2[t]-by3[t],x1[0]15,x2[0]20,x3[0]30,y2[0]10,y3[0]20},{x1,x2,x3,y2,y3},{t,0,100},MaxStepsInfinity];​​ParametricPlot3D[Evaluate[{x1[t],x2[t],x3[t]}/.Lorenz],{t,0,100},PlotPoints10000]​​ParametricPlot[Evaluate[{x3[t],y3[t]}/.Lorenz],{t,50,100},PlotPoints10000,AxesLabel{""SubscriptBox[x,3]"""(t)",""SubscriptBox[y,3]"""(t)"}]
SetDelayed
:Tag In in In[22] is Protected.
NDSolve
:Encountered non-numerical value for a derivative at t == 0..
ReplaceAll
:{NDSolve[{
′
x1
[t]sigma(-x1[1]+x2[t]),
′
x2
[t]45.92x1[t]-x2[t]-x1[t]x3[t],
′
x3
[t]x1[t]x2[t]-4x3[t],
′
y2
[t]45.92x1[t]-y2[t]-x1[t]y3[t],
′
y3
[t]x1[t]y2[t]-4y3[t],x1[0]15,x2[0]20,x3[0]30,y2[0]10,y3[0]20},{x1,x2,x3,y2,y3},{t,0,100},MaxSteps∞]} is neither a list of replacement rules nor a valid dispatch table, and so cannot be used for replacing.
NDSolve
:0.000010011 cannot be used as a variable.
ReplaceAll
:{NDSolve[{
′
x1
[0.000010011]sigma(-x1[1]+x2[0.000010011]),
′
x2
[0.000010011]45.92x1[0.000010011]-x2[0.000010011]-x1[0.000010011]x3[0.000010011],6,y2[0]10,y3[0]20},{x1,3,y3},1,MaxSteps∞]} is neither a list of replacement rules nor a valid dispatch table, and so cannot be used for replacing.
NDSolve
:0.000010011 cannot be used as a variable.
ReplaceAll
:{NDSolve[1]} is neither a list of replacement rules nor a valid dispatch table, and so cannot be used for replacing.
General
:Further output of ReplaceAll::reps will be suppressed during this calculation.
NDSolve
:0.010011 cannot be used as a variable.
General
:Further output of NDSolve::dsvar will be suppressed during this calculation.
Out[]=
NDSolve
:Encountered non-numerical value for a derivative at t == 0..
ReplaceAll
:{NDSolve[{
′
x1
[t]sigma(-x1[1]+x2[t]),
′
x2
[t]45.92x1[t]-x2[t]-x1[t]x3[t],
′
x3
[t]x1[t]x2[t]-4x3[t],
′
y2
[t]45.92x1[t]-y2[t]-x1[t]y3[t],
′
y3
[t]x1[t]y2[t]-4y3[t],x1[0]15,x2[0]20,x3[0]30,y2[0]10,y3[0]20},{x1,x2,x3,y2,y3},{t,0,100},MaxSteps∞]} is neither a list of replacement rules nor a valid dispatch table, and so cannot be used for replacing.
NDSolve
:50. cannot be used as a variable.
ReplaceAll
:{NDSolve[{
′
x1
[50.]sigma(-x1[1]+x2[50.]),
′
x2
[50.]45.92x1[50.]-x2[50.]-x1[50.]x3[50.],6,y2[0]10,y3[0]20},{x1,x2,x3,y2,y3},{50.,0,100},MaxSteps∞]} is neither a list of replacement rules nor a valid dispatch table, and so cannot be used for replacing.
NDSolve
:50. cannot be used as a variable.
ReplaceAll
:{NDSolve[{
′
x1
[50.]sigma(-1.x1[1]+x2[50.]),
′
x2
[50.]45.92x1[50.]-1.x2[50.]-1.x1[50.]x3[50.],6,y2[0.]10.,y3[0.]20.},{x1,x2,x3,y2,y3},{18,0.,100.},MaxSteps∞]} is neither a list of replacement rules nor a valid dispatch table, and so cannot be used for replacing.
General
:Further output of ReplaceAll::reps will be suppressed during this calculation.
NDSolve
:50.005 cannot be used as a variable.
General
:Further output of NDSolve::dsvar will be suppressed during this calculation.
Out[]=
Manipulate[Plot[{1-ax,(x-1)/a},{x,0,2}],{a,0.01,1}]
​
a
0.5
1.0
1.5
2.0
-1.0
-0.5
0.5
1.0
Wolfram Cloud

You are using a browser not supported by the Wolfram Cloud

Supported browsers include recent versions of Chrome, Edge, Firefox and Safari.


I understand and wish to continue anyway »

You are using a browser not supported by the Wolfram Cloud. Supported browsers include recent versions of Chrome, Edge, Firefox and Safari.