$Author: leiser $
$Id: Satz_von_Schwarz.nb 1998 2010-02-09 10:05:50Z leiser $
$LastChangedDate: 2010-02-09 11:05:50 +0100 (Tue, 09 Feb 2010) $

Manipulate[

(* Initialisation *)
titleStyle={FontFamily->"Liberation Sans",14,Bold,RGBColor[0.35,0.35,0.35],Background->RGBColor[1,1,1,0]};
textStyle={FontFamily->"Liberation Sans",12,Bold,RGBColor[0.35,0.35,0.35],Background->RGBColor[1,1,1,0]};
plotLabelStyle={FontFamily->"Times",14,Plain,RGBColor[0.35,0.35,0.35],Background->RGBColor[1,1,1,0]};


(******************** Tab1 Content ******************************)

(* Content of the Help Window *)
tab1HelpWindowContent = Column[{
Style["Linker oberer Teil der Visualisierung: ",{textStyle,Bold}],
Style["Auswahl der Funktion und Anzeige des Graphen.\n",{textStyle,Plain}],
Style["Rechter Teil: ",{textStyle,Bold}],
Style["Darstellung der Plots der partiellen Ableitungen: Erste Zeile (Subscript[f, x]), (Subscript[f, y]) und zweite Zeile (Subscript[f, xy]), (Subscript[f, yx]).\n",{textStyle,Plain}],
Style["Links unten: ",{textStyle,Bold}],
Style["Mit den Reglern den Darstellungsausschnitt der Plots simultan verändern: Einstellen der Intervallsgrenzen des Definitionsbereichs (Subscript[D, f]).\n",{textStyle,Plain}],
Style["Plots untersuchen: ",{textStyle,Bold}],
Style["Neben dem Verändern der Intervallsgrenzen, können Sie jeden der Plots genauer untersuchen, indem Sie ihn mit <Linke Maustaste>+<Mauszeiger> drehen.\n",{textStyle,Plain}]
},{Left,Top}];



(* Init of all objects *)
functionList={Sin[x]*Sin[y],-Exp[x^2*y],Sin[x+y],ArcSin[x^3],Sin[x y],Cos[(x^2+2y^2)/4],(2-y^2+x^2)};
chosenFunction=functionList[[1]];
functionChooser=Labeled[PopupMenu[Dynamic[chosenFunction],functionList, BaseStyle->{12,FontFamily->"Courier",Plain}],Style["Funktion: ",textStyle],Top];
xa=-3;
xb=3;
ya=-3;
yb=3;
imageWidth=280;
imageHeight=280;
funcPlot=Labeled[Dynamic[Plot3D[chosenFunction,{x,xa,xb},{y,ya,yb},AxesLabel->Automatic,ImageSize->{imageWidth,imageHeight},ExclusionsStyle->{None,Red},ClippingStyle->None]],Dynamic[Style["f(x,y) = "<>ToString[TraditionalForm[chosenFunction]]<>"\n",plotLabelStyle]]];
derivGrid =Grid[{
{Labeled[Dynamic[Plot3D[Evaluate[D[chosenFunction,x]],{x,xa,xb},{y,ya,yb},AxesLabel->Automatic,ImageSize->{imageWidth,imageHeight}, ExclusionsStyle->{None,Red},ClippingStyle->None,ImagePadding->20]],Dynamic[Style["(Subscript[f, x])(x,y) = "<>ToString[TraditionalForm[D[chosenFunction,x]]],plotLabelStyle]]] ,  Labeled[Dynamic[Plot3D[Evaluate[D[chosenFunction,y]],{x,xa,xb},{y,ya,yb},AxesLabel->Automatic,ImageSize->{imageWidth,imageHeight}, ExclusionsStyle->{None,Red},ClippingStyle->None,ImagePadding->20]],Dynamic[Style["(Subscript[f, y])(x,y) = "<>ToString[TraditionalForm[D[chosenFunction,y]]],plotLabelStyle]]]},{Labeled[Dynamic[Plot3D[Evaluate[D[chosenFunction,x,y]],{x,xa,xb},{y,ya,yb},AxesLabel->Automatic,ImageSize->{imageWidth,imageHeight}, ExclusionsStyle->{None,Red},ClippingStyle->None,ImagePadding->20]],Dynamic[Style["(Subscript[f, xy])(x,y) = "<>ToString[TraditionalForm[D[chosenFunction,x,y]]]<>"\n",plotLabelStyle]]],Labeled[Dynamic[Plot3D[Evaluate[D[chosenFunction,y,x]],{x,xa,xb},{y,ya,yb},AxesLabel->Automatic,ImageSize->{imageWidth,imageHeight}, ExclusionsStyle->{None,Red},ClippingStyle->None,ImagePadding->20]],Dynamic[Style["(Subscript[f, yx])(x,y) = "<>ToString[TraditionalForm[D[chosenFunction,y,x]]]<>"\n",plotLabelStyle]]]}
}, Background->RGBColor[1,1,1]];

(* make Tab *)
tab1 =Column[{
Row[{Text[Style[" Visualisierung des Satzes von Schwarz ",titleStyle]],
Text[Style["     . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ."<> 
                       ". . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . "<>
                       ". . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . "<>
                       ". . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ",textStyle, Plain,8]],
PopupWindow[Button[Style["Hilfe",9],ImageSize->Medium, Background->RGBColor[0.9,0.9,0.9]],tab1HelpWindowContent,WindowTitle->"Hilfe", WindowSize->{500,500}]}
],

Row[{
Column[
{
"\n",
functionChooser,
Manipulate[funcPlot,AppearanceElements->None,Paneled->False],
Row[{Labeled[Slider[Dynamic[xa],{-3,0,0.2}],Style["Linke x-Intervallgrenze:",textStyle],Top],Dynamic[xa]}],
Row[{Labeled[Slider[Dynamic[xb],{0,3,0.2}],Style["Rechte x-Intervallgrenze:",textStyle], Top],Dynamic[xb]}],
Row[{Labeled[Slider[Dynamic[ya],{-3,0,0.2}],Style["Linke y-Intervallgrenze:",textStyle], Top],Dynamic[ya]}],
Row[{Labeled[Slider[Dynamic[yb],{0,3,0.2}],Style["Rechte y-Intervallgrenze:",textStyle], Top],Dynamic[yb]}],
""
},
Top
],
derivGrid
}]
},Top];

TabView[
{
"Satz von Schwarz"->tab1
},
Alignment->{Left,Top},
ImageSize->{900,700}
],
SaveDefinitions->True ,AppearanceElements->None,Paneled->False
]

2009, Projekt LEMUREN, Lernen Multimedial, Departement Mathematik, ETH Zürich | Licence: CC-BY-SA

$LastChangedDate: 2010-02-09 11:04:00 +0100 (Tue, 09 Feb 2010) $