Graphing Problem in Mathematica

[wolfie56]

Homework Statement

I would like to graph the following program.

Homework Equations

L = 1.0; \[Kappa] = 1.; Num = 80; \[CapitalDelta]z = L/Num;
td = (\[CapitalDelta]z*\[CapitalDelta]z)/(2*\[Kappa]); \
\[CapitalDelta]t = 1.01*td; r = (\[CapitalDelta]t/(2*td));

Temp[0] = 10.; Temp[Num] = 10.;
Do[Temp = 10., {s, 1, (Num/2 - 6)}]; Do[
Temp = 50., {s, (Num/2 - 5), (Num/2 + 5)}]; Do[
Temp = 10., {s, (Num/2 + 6), (Num - 1)}]
data = Table[{ss*\[CapitalDelta]z, Temp[ss]}, {ss, 0, Num}];
ListPlot[data, PlotRange -> {-5, 55}, PlotStyle -> PointSize[0.02],
AxesLabel -> {"z", "T[z]"}, PlotLabel -> Initial Temp];

cycle = 0;
Do[Do[NewTemp =
Temp + r*(Temp[s - 1] - 2*Temp + Temp[s + 1]),
{s, 1, (Num - 1)}];
Do[Temp[ss] = NewTemp[ss], {ss, 1, Num - 1}]; cycle = cycle + 1;
If[cycle >= 1, t = n*\[CapitalDelta]t;
Print["time=", t, " iterations=", n];
data = Table[{sss*\[CapitalDelta]z, Temp[sss]}, {sss, 0, Num}];
ListPlot[data, PlotRange -> {-5, 55}, AxesLabel -> {"z", "T[z]"},
PlotStyle -> PointSize[0.02]]; cycle = 0],
{n, 1, 200}] cycle = 0;

The Attempt at a Solution

Mathematica gives me the time iterations, but no graphs. I don't know what to do; I want the graphs to show up.

 

[KataKoniK]

Hi there,

Thank you for your post. To graph the program, you can use the "Plot" function in Mathematica. The syntax for "Plot" is as follows:

Plot[f[x], {x, xmin, xmax}]

where f[x] is the function you want to plot, and xmin and xmax are the minimum and maximum values for the x-axis. In your case, you can use the following code to plot the temperature data:

Plot[Temp[ss], {ss, 0, Num}, PlotRange -> {-5, 55}, AxesLabel -> {"z", "T[z]"}, PlotStyle -> PointSize[0.02], PlotLabel -> "Temperature vs. Distance"]

This will give you a plot of temperature vs. distance at a specific time. To plot the temperature over time, you can use the following code:

ListPlot[data, PlotRange -> {-5, 55}, AxesLabel -> {"z", "T[z]"}, PlotStyle -> PointSize[0.02], PlotLabel -> "Temperature vs. Time"]

This will give you a plot of temperature vs. time at different distances. You can also use the "Animate" function in Mathematica to create an animation of the temperature changing over time.

I hope this helps. Let me know if you have any further questions. Good luck with your graphing!