$Author: leiser $
$Id: CubeIntersectedByPlane.nb 1654 2009-09-22 11:57:18Z leiser $
$LastChangedDate: 2009-09-22 13:57:18 +0200 (Tue, 22 Sep 2009) $

(* CELL WITH TABS AND MANIPULATE(S) *)

TabView[{

(* First Tab *)
Style["Von einer Ebene geschnittener Würfel",titleStyle]->
Column[{
(* First Row (Header and Explanation Button *)
Row[{
Button[Style["Hinweise",9],
CreateDocument[
TextCell[Pane[Column[{
(* Explanation Texts *)
TextCell["\nHinweise\n",{explanationHeaderStyle}],
TextCell[Row[
{"Sie sehen in dieser Visualisierung einen Würfel und eine Ebene im Raum.\n",
"\n",
"Indem Sie die Ebene entlang der x- oder y-Achse kippen und entlang ihrer Normalen verschieben, können Sie eine Schnittmenge zwischen ihr und dem Würfel bilden. Diese Schnittmenge kann verschiedene geometrische Figuren annehmen, wobei einige ev. durch blosses Überlegen nicht so schnell klar würden."
}
],explanationStyle],
TextCell[Row[{"\nSchnittmengen\n"}],{explanationHeaderStyle}],
TextCell[Row[
{"Drehen und Verschieben Sie die Ebene so, dass die Schnittmenge z.B.:\n ",
"\n",
"- nur aus einem Punkt besteht\n",
"- eine Gerade bildet\n",
"- ein Dreieck bildet\n",
"- ein Viereck bildet.\n",
"\n",
"Tipp: Durch die Anzeigeoptionen können Sie sich die Verhältnisse u.U. verbessert anzeigen lassen. (Stellen Sie zum Überprüfen z.B. den \"Plot-Padding\"-Regler ganz nach links.)\n",
"\n",
Style["Können Sie erkennen, dass ein Fünf- und ein Sechseck als Schnittmenge auch möglich ist?",RGBColor[0.8,0.2,0.2]]
}
],explanationStyle]
(* more, if necessary ... *)
(* End Explanation Texts *)
}]]],(* End TextCell *)
WindowFrame->"Normal",WindowSize->{650,500},WindowTitle->"Hinweise"
],(* End CreateDocument *)
ImageSize->{80,20}] },(* End Button *)
ImageSize->{780,25},Background->RGBColor[0.9,0.9,0.9],Alignment->{Right,Top}
],(* End Row *)

(* Second Row: Manipulate element *)

Manipulate[
Labeled[
plot=Show[
{
Graphics3D[{
Blue,Opacity[1-cubeTransparency],
Cuboid[{0,0,0},{1,1,1}]
}],
Graphics3D[{
Red,Opacity[1-planeTransparency],Polygon[{{-0.5,-0.5,0.5+tiltXDir+tiltYDir+moveNormal},{-0.5,1.5,0.5+tiltXDir-tiltYDir+moveNormal},{1.5,1.5,0.5-tiltXDir-tiltYDir+moveNormal},{1.5,-0.5,0.5-tiltXDir+tiltYDir+moveNormal}}]
}]
},
PlotRange->{{-plotPadding,1+plotPadding},{-plotPadding,1+plotPadding},{-plotPadding,1+plotPadding}},Axes->True,AxesLabel->{"x","y","z"},ImageSize->{450,450},Background ->RGBColor[1,1,1],ImagePadding->40
],Style["Plot durch \"dragen\" (Linke Maustaste + Mauszeiger) rotierbar.\n",textStyle,Plain,9]
],
" ",
Style[" Ebene in x-Richtung kippen:",textStyle],
{{tiltXDir,0.3,""},-10,10,0.1,ControlType->Slider},
 Style[" Ebene in y-Richtung kippen:",textStyle],
{{tiltYDir,-0.3,""},-10,10,0.1,ControlType->Slider},
Style[" Ebene entlang ihrer Normalen verschieben: ",textStyle],
{{moveNormal,0.8,""},-6,6,0.05,ControlType->Slider},
" ",
" ",
" ",
Row[{Style[" Anzeige-Optionen:",textStyle,Plain,9]},Right],
" ",
Style[" Plot-Padding:",textStyle],
{{plotPadding,0.5,""},0,1,0.1,ControlType->Slider},
Style[" Transparenz d. Würfels:",textStyle],
{{cubeTransparency,0.5,""},0,1,0.05,ControlType->Slider},
Style[" Transparenz d. Ebene:",textStyle],
{{planeTransparency,0.3,""},0,1,0.05,ControlType->Slider},
" ",
" ",

SaveDefinitions->True,AppearanceElements->None,Paneled->False,ControlPlacement->Left,

Initialization:>
(
(* INITIALIZATIONS *)
(* Styles *)
titleStyle := {FontFamily ->"Verdana",14,Bold, RGBColor[0.35,0.35,0.35],Background->RGBColor[1,1,1,0]};
tagAtRight := {FontFamily ->"Verdana",12,Bold, RGBColor[0,33/255,66/255],Background->RGBColor[1,1,1,0],TextAlignment->{Right,Top}};
textStyle := {FontFamily ->"Verdana",10,Bold, RGBColor[0.35,0.35,0.35],Background->RGBColor[1,1,1,0],AutoIndent->False,ParagraphIndent->0,TextJustification->1};
explanationStyle := {FontFamily ->"Times",14,Plain, RGBColor[0.35,0.35,0.35],Background->RGBColor[1,1,1,0],AutoIndent->False,ParagraphIndent->0,TextJustification->1};
explanationHeaderStyle := {FontFamily ->"Times",16,Bold, RGBColor[0.35,0.35,0.35],Background->RGBColor[1,1,1,0],AutoIndent->False,ParagraphIndent->0,TextJustification->1};
mathStyle := {FontFamily ->"Times",14,Bold, RGBColor[0.35,0.35,0.35],Background->RGBColor[1,1,1,0],AutoIndent->False,ParagraphIndent->0,TextJustification->1};
plotLabelStyle := {FontFamily ->"Times",14,Plain, RGBColor[0.35,0.35,0.35],Background->RGBColor[1,1,1,0]}

(* Structures and Data *)

(* END INITIALIZATION PART *)
)
]  (* end Manipulate *)

(* End Second Row *)
}] (* End Column *)
(* End First Tab *)


},Background->RGBColor[0.95,0.95,0.95 ](* TabView Background *)
] (* End TabView *)

(* END OF CELL WITH TAB AND MANIPULATE(S) *)

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

$LastChangedDate: 2009-09-22 13:57:18 +0200 (Tue, 22 Sep 2009) $