(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[      8550,        209]
NotebookOptionsPosition[      7999,        185]
NotebookOutlinePosition[      8343,        200]
CellTagsIndexPosition[      8300,        197]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["\<\
(* Relative intensity of n very narrow slits equidistant by d = rd * \
\[Lambda] *)
(* Very narrow means that diffraction effects can be ignored *)
I1[\[Theta]_, n_, rd_] = 1/n^2 * Sin[n Pi rd Sin[\[Theta] Degree]]^2 / Sin[Pi \
 rd Sin[\[Theta] Degree]]^2;
Manipulate[Plot[I1[\[Theta],n,rd], {\[Theta],-50, 50}, PlotRange\[Rule] {0, \
1}], {n,2,8,1}, {rd, 0.1, 5}]\:f35f\
\>", "Input",
 CellChangeTimes->{{3.4988695227858615`*^9, 3.4988695529742804`*^9}}],

Cell[BoxData[
 RowBox[{" ", " ", 
  TagBox[
   StyleBox[
    DynamicModuleBox[{$CellContext`n$$ = 2, $CellContext`rd$$ = 0.1, 
     Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
     Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
     1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{
       Hold[$CellContext`n$$], 2, 8, 1}, {
       Hold[$CellContext`rd$$], 0.1, 5}}, Typeset`size$$ = {
     360., {120., 124.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
     Typeset`skipInitDone$$ = True, $CellContext`n$628$$ = 
     0, $CellContext`rd$629$$ = 0}, 
     DynamicBox[Manipulate`ManipulateBoxes[
      1, StandardForm, 
       "Variables" :> {$CellContext`n$$ = 2, $CellContext`rd$$ = 0.1}, 
       "ControllerVariables" :> {
         Hold[$CellContext`n$$, $CellContext`n$628$$, 0], 
         Hold[$CellContext`rd$$, $CellContext`rd$629$$, 0]}, 
       "OtherVariables" :> {
        Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
         Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
         Typeset`specs$$, Typeset`size$$, Typeset`update$$, 
         Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> Plot[
         $CellContext`I1[$CellContext`\[Theta], $CellContext`n$$, \
$CellContext`rd$$], {$CellContext`\[Theta], -50, 50}, PlotRange -> {0, 1}], 
       "Specifications" :> {{$CellContext`n$$, 2, 8, 1}, {$CellContext`rd$$, 
          0.1, 5}}, "Options" :> {}, "DefaultOptions" :> {}],
      ImageSizeCache->{407., {179., 184.}},
      SingleEvaluation->True],
     Deinitialization:>None,
     DynamicModuleValues:>{},
     SynchronousInitialization->True,
     UnsavedVariables:>{Typeset`initDone$$},
     UntrackedVariables:>{Typeset`size$$}], "Manipulate",
    Deployed->True,
    StripOnInput->False],
   Manipulate`InterpretManipulate[1]]}]], "Output",
 CellChangeTimes->{3.467678599955949*^9, 3.49886933089102*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
(* Relative intensity of one slit of width a = ra * \[Lambda] *)
I2[\[Theta]_, ra_] = Sin[Pi ra Sin[\[Theta] Degree]]^2 / (Pi  ra Sin[\[Theta] \
Degree])^2;
Manipulate[Plot[I2[\[Theta], ra], {\[Theta],-50, 50}, PlotRange\[Rule] {0, \
1}],{ra, 0.01, 5}]\:f35f\
\>", "Input",
 CellChangeTimes->{{3.4988695123170447`*^9, 3.4988695175827036`*^9}}],

Cell[BoxData[
 RowBox[{" ", " ", 
  TagBox[
   StyleBox[
    DynamicModuleBox[{$CellContext`ra$$ = 3.1999999999999997`, 
     Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
     Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
     1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{
       Hold[$CellContext`ra$$], 0.01, 5}}, Typeset`size$$ = {
     360., {120., 124.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
     Typeset`skipInitDone$$ = True, $CellContext`ra$663$$ = 0}, 
     DynamicBox[Manipulate`ManipulateBoxes[
      1, StandardForm, "Variables" :> {$CellContext`ra$$ = 0.01}, 
       "ControllerVariables" :> {
         Hold[$CellContext`ra$$, $CellContext`ra$663$$, 0]}, 
       "OtherVariables" :> {
        Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
         Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
         Typeset`specs$$, Typeset`size$$, Typeset`update$$, 
         Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> Plot[
         $CellContext`I2[$CellContext`\[Theta], $CellContext`ra$$], \
{$CellContext`\[Theta], -50, 50}, PlotRange -> {0, 1}], 
       "Specifications" :> {{$CellContext`ra$$, 0.01, 5}}, "Options" :> {}, 
       "DefaultOptions" :> {}],
      ImageSizeCache->{407., {165., 170.}},
      SingleEvaluation->True],
     Deinitialization:>None,
     DynamicModuleValues:>{},
     SynchronousInitialization->True,
     UnsavedVariables:>{Typeset`initDone$$},
     UntrackedVariables:>{Typeset`size$$}], "Manipulate",
    Deployed->True,
    StripOnInput->False],
   Manipulate`InterpretManipulate[1]]}]], "Output",
 CellChangeTimes->{3.467678600080949*^9, 3.4988693310160227`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
(* Relative intensity of n slits of width a = ra * \[Lambda] equidistant by d \
= rd * \[Lambda] *)
(* The relative intensity is in red. The diffraction envelope is in blue *)
(* Physically, rd should be always greater than ra *)
I3[\[Theta]_,n_,ra_,rd_] = I1[\[Theta],n,rd] * I2[\[Theta],ra];
Manipulate[Plot[{I2[\[Theta], ra], I3[\[Theta], n, ra, rd]}, {\[Theta],-50, \
50}, PlotRange\[Rule] {0, 1}],{n,1,8,1}, {rd, 0.1,5},{ra, 0.01, 5}]\:f35f\
\>", "Input",
 CellChangeTimes->{{3.4988693944552584`*^9, 3.498869431252921*^9}, {
  3.4988694633472867`*^9, 3.4988694901290617`*^9}, {3.498869563927672*^9, 
  3.49886958594372*^9}}],

Cell[BoxData[
 RowBox[{" ", " ", 
  TagBox[
   StyleBox[
    DynamicModuleBox[{$CellContext`n$$ = 5, $CellContext`ra$$ = 
     0.93, $CellContext`rd$$ = 3.21, Typeset`show$$ = True, 
     Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
     Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
     "\"untitled\"", Typeset`specs$$ = {{
       Hold[$CellContext`n$$], 1, 8, 1}, {
       Hold[$CellContext`rd$$], 0.1, 5}, {
       Hold[$CellContext`ra$$], 0.01, 5}}, Typeset`size$$ = {
     360., {120., 124.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
     Typeset`skipInitDone$$ = True, $CellContext`n$697$$ = 
     0, $CellContext`rd$698$$ = 0, $CellContext`ra$699$$ = 0}, 
     DynamicBox[Manipulate`ManipulateBoxes[
      1, StandardForm, 
       "Variables" :> {$CellContext`n$$ = 1, $CellContext`ra$$ = 
         0.01, $CellContext`rd$$ = 0.1}, "ControllerVariables" :> {
         Hold[$CellContext`n$$, $CellContext`n$697$$, 0], 
         Hold[$CellContext`rd$$, $CellContext`rd$698$$, 0], 
         Hold[$CellContext`ra$$, $CellContext`ra$699$$, 0]}, 
       "OtherVariables" :> {
        Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
         Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
         Typeset`specs$$, Typeset`size$$, Typeset`update$$, 
         Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> Plot[{
          $CellContext`I2[$CellContext`\[Theta], $CellContext`ra$$], 
          $CellContext`I3[$CellContext`\[Theta], $CellContext`n$$, \
$CellContext`ra$$, $CellContext`rd$$]}, {$CellContext`\[Theta], -50, 50}, 
         PlotRange -> {0, 1}], 
       "Specifications" :> {{$CellContext`n$$, 1, 8, 1}, {$CellContext`rd$$, 
          0.1, 5}, {$CellContext`ra$$, 0.01, 5}}, "Options" :> {}, 
       "DefaultOptions" :> {}],
      ImageSizeCache->{407., {230., 235.}},
      SingleEvaluation->True],
     Deinitialization:>None,
     DynamicModuleValues:>{},
     SynchronousInitialization->True,
     UnsavedVariables:>{Typeset`initDone$$},
     UntrackedVariables:>{Typeset`size$$}], "Manipulate",
    Deployed->True,
    StripOnInput->False],
   Manipulate`InterpretManipulate[1]]}]], "Output",
 CellChangeTimes->{
  3.467678600174699*^9, {3.4988693312035275`*^9, 3.498869364016971*^9}}]
}, Open  ]]
},
WindowSize->{1016, 651},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
FrontEndVersion->"7.0 for Microsoft Windows (32-bit) (February 18, 2009)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[567, 22, 465, 9, 82, "Input"],
Cell[1035, 33, 1909, 38, 380, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2981, 76, 353, 7, 65, "Input"],
Cell[3337, 85, 1695, 34, 352, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5069, 124, 639, 11, 99, "Input"],
Cell[5711, 137, 2272, 45, 482, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)