Hallow liebe Mathematica Freunde,
ich habe eine Multi-Plot-Diagramm. Einige Sachen gelingen mir nicht.
Hat jemand einen Tip f"ur mich?
1. die x und y-achse sollen beschriftet sein, etwa so wie man
es mit LaTeX machen w"urde:
und habe 2 Fragen, die ich
$ z $ f"ur horizontale Achse
$ \bar{\theta}(z)/R_e $ f"ur vertikale Achse
2. wie kann man eine beliebige Linie (zum Beispiel von da
wo "Pe=0.1" steht bis zu einer der Linien ziehen?
3. wenn man auf das Bild 'clickt' hat man ein 'cell' erzeut, das
zum Drucker geschickt werden kann.
Wie kann man verhindern, dass 'der Mamathematica-Kopfzeile'
mit der Linier darunter nicht auf dem Druckbild erscheint?
Hier ist die Datei, mit der ich das Plot erzeuge:
=========================================================
Clear[R,P]
Th[z_,P_,R_]:=R/P*(z+(1-Exp[P*z])/(Exp[P]-1.0))+
(1-Exp[P*z])/(Exp[P]-1)
Needs["Graphics`Legend`"]
Plot[{{Th[z,0.1,0.5],Th[z,-0.1,0.5],Th[z,5.0,0.5],Th[z,-5.0,0.5]},
{Th[z,0.1,1.0],Th[z,-0.1,1.0],Th[z,5.0,1.0],Th[z,-5.0,1.0]},
{Th[z,0.1,1.5],Th[z,-0.1,1.5],Th[z,5.0,1.5],Th[z,-5.0,1.5]}},
{z,0,1},
PlotRange->All,
Frame->True,
Axes->None,
AxesLabel->{"tx", "ty"},
PlotStyle->{{},
Table[AbsoluteDashing[{3}],{4}],
Table[AbsoluteDashing[{12}],{4}]},
PlotLegend->{"Ri=0.5","Ri=1.0","Ri=1.5"},
LegendPosition->{-0.78,-0.45},
LegendShadow->{0,0},
LegendSize->{.25,.25},
LegendTextSpace->0.5,
LegendSpacing->0,
Epilog->{Text["Pe=-0.1",{0.25,-0.4},{-1,0}],
Text["Pe=-0.5",{0.65,-0.75},{ 1,0}],
Text["Pe=5.0",{0.75,-0.1},{-1,0}],
Text["Pe=0.1",{0.63,-0.25},{ 1,0}]}];
====================================================================
Gruss,
Arzhang Khalili
|