VielstrahlinterferenzInteraktives WorksheetDr. M. Komma 10/2010Interferenz von n Strahlen, die von Q(xq | yq) ausgehen und sich hinter der Blende mit der Breite b (mit \303\244quidistant verteilten Elementarzentren) im Ziel Z(xz | yz) treffen.Die resultierende Amplitude (gelber Pfeil) ergibt sich aus der vektoriellen Addition der einzelnen Amplituden.
use DocumentTools in
# Enter Maple commands to be executed when the specified
# action is carried out on the component.
# Use:
# Do( %component_name );
# and
# Do( %component_name = value );
# to set and get properties of the component.
# You can also use arbitrary expressions
# involving components, e.g.:
# Do( %target = %input1 + 2*%input2 );
# Note the %-prefix to each component name.
# See ?CustomizingComponents for more information.
end use;
use DocumentTools in
# Enter Maple commands to be executed when the specified
# action is carried out on the component.
# Use:
# Do( %component_name );
# and
# Do( %component_name = value );
# to set and get properties of the component.
# You can also use arbitrary expressions
# involving components, e.g.:
# Do( %target = %input1 + 2*%input2 );
# Note the %-prefix to each component name.
# See ?CustomizingComponents for more information.
end use;
use DocumentTools in
# Enter Maple commands to be executed when the specified
# action is carried out on the component.
# Use:
# Do( %component_name );
# and
# Do( %component_name = value );
# to set and get properties of the component.
# You can also use arbitrary expressions
# involving components, e.g.:
# Do( %target = %input1 + 2*%input2 );
# Note the %-prefix to each component name.
# See ?CustomizingComponents for more information.
end use;
LSUlUExPVEc2KS0lJ0NVUlZFU0c2JDdHNyQkIiQrIiEiIiQiIiEhIiI3JCQiMVJzIz5CYkMuKiEjOiQhMiYzbldybSpwXyMhIzw3JCQiMVAxYzZkI1xLKSEjOiQiMiYqRyh5PjclKVJYISM8NyQkIjFtSXBINTNDJikhIzokIjImKik+JilmPyZSViIhIzs3JCQiMUNmck4jWyRIJSohIzokIjJBcyZ5Plp6ZT0hIzs3JCQiMSkpejAhSGJOLiIhIzkkIjIjNG9CI1FiZlYiISM7NyQkIjJGbS1vYVdZMSIhIzokIjEnUXhgQS5eJlshIzs3JCQiMSNbJXleYHNANSEjOSQhMSNwKjQrKUhxPCUhIzs3JCQiMS5YZlM6KXBJKiEjOiQhMFZLemhQckopISM6NyQkIjBZKVsseGdIJCkhIzkkITF2OVdnYSU+PychIzs3JCQiMTJOSSRbeXFpKCEjOiQiMWIoKSkqZWEuWSIqISM8NyQkIjFZPnc2aHZudCEjOiQiMk8zJVJ1NkRkNSEjOzckJCIxN3EkKmUjUSFldiEjOiQiMlBGXCtpISkqUT8hIzs3JCQiMFdGN1R1dTUpISM5JCIxInklPURqXnVHISM6NyQkIjEvIypvJTNLYyopKSEjOiQiMmMmelMwKCopKipbJCEjOzckJCIxbEZJXFo2OykqISM6JCIxSCcqUi5KeCEpUSEjOjckJCIyUnd1Tmg8Jno1ISM6JCIxRGFBSSRRVjMlISM6NyQkIjIlKlxKazhYI3o2ISM6JCIyRHJrZS80ImVUISM7NyQkIjJcVFsjcDxDejchIzokIjFhVj0mSDpqOyUhIzo3JCQiMjJMbD9TUSN6OCEjOiQiMSgqUl1XOl91VCEjOjckJCIxbT8jXCNmJyp5OSEjOSQiMSZHVixFI0hbVSEjOjckJCIyTmJtTjFzb2QiISM6JCIxIjNwcFtkPVglISM6NyQkIjIoNHotSS4jKm87ISM6JCIxYTInXCkza1VbISM6NyQkIjJlM3V0NE94dSIhIzokIjFHUj1sVTZlYSEjOjckJCIyKEdKZzcoekUhPSEjOiQiMU4lPi4oKlxPSCchIzo3JCQiMl9qP3QjenFAPSEjOiQiMURZKGZUemBGKCEjOjckJCIxems7IXB2ZHoiISM5JCIxQyl5ZEJxNkMpISM6NyQkIjJRKXpNb0ZfRDwhIzokIjFmR1RPXiNHJiopISM6NyQkIjIlenRWJVEmeUY7ISM6JCIxYj47X1ZNayIqISM6NyQkIjJ4TTduPWVuYCIhIzokIjF6J3kuZEwudikhIzo3JCQiMW5UcCIqKlFRXCIhIzkkIjFyNCR5RT9yJXkhIzo3JCQiMjslKVElWyNHXF8iISM6JCIxKio9ODNfbicqbyEjOjckJCIydEJEXHJbYmgiISM6JCIxKClIZXFlJFFaJyEjOjckJCIxQnZfTmEyMTwhIzkkIjBzOzBgeScpKm8hIzk3JCQiMml3U3QnNCpmcyIhIzokIjEjKSoqUW9ra3l5ISM6NyQkIjExVEk6IVFfbCIhIzkkIjBROHZESWBlKSEjOTckJCIyKEhvXFFOW2U6ISM6JCIwcm8uZklFTCkhIzktJSZDT0xPUkc2JiUkUkdCRyQiIzUhIiIkIiIhISIiJCIiISEiIi0lKVBPTFlHT05TRzYmNyY3JCQiKyc9Z0MsIiEiKSQhK3ZORl4kKSEjNjckJCIrVSIpUnYpKiEiKiQiK3ZORl4kKSEjNjckJCIrLG1LTTkhIikkIisjUTwnXG4hIio3JCQiK3NwQ2Y5ISIpJCIqIj5mI2UnISIpNyU3JCQiKzprJz1VIiEiKSQiKzwsOExvISIqNyQkIisjWyRbZTohIikkIisyM2pLJCkhIio3JCQiK2VycXI5ISIpJCIrdiJ6ISpcJyEiKi0lJkNPTE9SRzYmJSRSR0JHJCIjNSEiIiQiIzUhIiIkIiIhISIiLSUmU1RZTEVHNiMlLFBBVENITk9HUklERy0lJ0NVUlZFU0c2IzcqNyQkIisnPWdDLCIhIikkISt2TkZeJCkhIzY3JCQiK1UiKVJ2KSohIiokIit2TkZeJCkhIzY3JCQiKyxtS005ISIpJCIrI1E8J1xuISIqNyQkIis6ayc9VSIhIikkIis8LDhMbyEiKjckJCIrI1skW2U6ISIpJCIrMjNqSyQpISIqNyQkIitlcnFyOSEiKSQiK3YieiEqXCchIio3JCQiK3NwQ2Y5ISIpJCIqIj5mI2UnISIpNyQkIisnPWdDLCIhIikkISt2TkZeJCkhIzYtJSVWSUVXRzYkOyQhJCsiISIiJCIkKyQhIiI7JCEkXSMhIiIkIiRdIyEiIi0lK0FYRVNMQUJFTFNHNiRRITYiUSE2Ii0lKFNDQUxJTkdHNiMlLENPTlNUUkFJTkVERy0lJVJPT1RHNictJSlCT1VORFNfWEc2IyQiJEklISIiLSUpQk9VTkRTX1lHNiMkIiNdISIiLSUtQk9VTkRTX1dJRFRIRzYjJCIlP0ohIiItJS5CT1VORFNfSEVJR0hURzYjJCIlISlRISIiLSUpQ0hJTERSRU5HNiI=yzuse DocumentTools in
# Enter Maple commands to be executed when the specified
# action is carried out on the component.
# Use:
# Do( %component_name );
# and
# Do( %component_name = value );
# to set and get properties of the component.
# You can also use arbitrary expressions
# involving components, e.g.:
# Do( %target = %input1 + 2*%input2 );
# Note the %-prefix to each component name.
# See ?CustomizingComponents for more information.
DocumentTools[Do](yz=%Slider1);
Do(%Plot1=plots[display](Skizze(yz)));
Do(%Plot0=plots[display](cornu(%Slider1),view=[xz-20..xz+20,-25..25]));
end use;
\316\273use DocumentTools in
# Enter Maple commands to be executed when the specified
# action is carried out on the component.
# Use:
# Do( %component_name );
# and
# Do( %component_name = value );
# to set and get properties of the component.
# You can also use arbitrary expressions
# involving components, e.g.:
# Do( %target = %input1 + 2*%input2 );
# Note the %-prefix to each component name.
# See ?CustomizingComponents for more information.
#DocumentTools[Do](%TextArea0=%Slider2);
DocumentTools[Do](lambda= %Slider2);
Do(%Plot0=plots[display](cornu(%Slider1),view=[xz-20..xz+20,-25..25]));
end use;
b/2use DocumentTools in
# Enter Maple commands to be executed when the specified
# action is carried out on the component.
# Use:
# Do( %component_name );
# and
# Do( %component_name = value );
# to set and get properties of the component.
# You can also use arbitrary expressions
# involving components, e.g.:
# Do( %target = %input1 + 2*%input2 );
# Note the %-prefix to each component name.
# See ?CustomizingComponents for more information.
#DocumentTools[Do](%TextArea0=%Slider3);
DocumentTools[Do](b= %Slider3);
Do(%Plot1=plots[display](Skizze(yz)));
Do(%Plot0=plots[display](cornu(%Slider1),view=[xz-20..xz+20,-25..25]));
end use;
nuse DocumentTools in
# Enter Maple commands to be executed when the specified
# action is carried out on the component.
# Use:
# Do( %component_name );
# and
# Do( %component_name = value );
# to set and get properties of the component.
# You can also use arbitrary expressions
# involving components, e.g.:
# Do( %target = %input1 + 2*%input2 );
# Note the %-prefix to each component name.
# See ?CustomizingComponents for more information.
#DocumentTools[Do](%TextArea0=%Slider5);
DocumentTools[Do](n= %Slider5);
if n=0 then n:=1 end if;
Do(%Plot0=plots[display](cornu(%Slider1),view=[xz-20..xz+20,-25..25]));
end use;
yquse DocumentTools in
# Enter Maple commands to be executed when the specified
# action is carried out on the component.
# Use:
# Do( %component_name );
# and
# Do( %component_name = value );
# to set and get properties of the component.
# You can also use arbitrary expressions
# involving components, e.g.:
# Do( %target = %input1 + 2*%input2 );
# Note the %-prefix to each component name.
# See ?CustomizingComponents for more information.
#DocumentTools[Do](%TextArea0=%Slider8);
DocumentTools[Do](yq= %Slider8);
Do(%Plot1=plots[display](Skizze(yz)));
Do(%Plot0=plots[display](cornu(%Slider1),view=[xz-20..xz+20,-25..25]));
end use;
xz use DocumentTools in
# Enter Maple commands to be executed when the specified
# action is carried out on the component.
# Use:
# Do( %component_name );
# and
# Do( %component_name = value );
# to set and get properties of the component.
# You can also use arbitrary expressions
# involving components, e.g.:
# Do( %target = %input1 + 2*%input2 );
# Note the %-prefix to each component name.
# See ?CustomizingComponents for more information.
#DocumentTools[Do](%TextArea0=%Slider6);
DocumentTools[Do](xz= %Slider6);
Do(%Plot1=plots[display](Skizze(yz)));
Do(%Plot0=plots[display](cornu(%Slider1),view=[xz-20..xz+20,-25..25]));
end use;
xq use DocumentTools in
# Enter Maple commands to be executed when the specified
# action is carried out on the component.
# Use:
# Do( %component_name );
# and
# Do( %component_name = value );
# to set and get properties of the component.
# You can also use arbitrary expressions
# involving components, e.g.:
# Do( %target = %input1 + 2*%input2 );
# Note the %-prefix to each component name.
# See ?CustomizingComponents for more information.
#DocumentTools[Do](%TextArea0=%Slider7);
DocumentTools[Do](xq= %Slider7);
Do(%Plot1=plots[display](Skizze(yz)));
Do(%Plot0=plots[display](cornu(%Slider1),view=[xz-20..xz+20,-25..25]));
end use;
use DocumentTools in
# Enter Maple commands to be executed when the specified
# action is carried out on the component.
# Use:
# Do( %component_name );
# and
# Do( %component_name = value );
# to set and get properties of the component.
# You can also use arbitrary expressions
# involving components, e.g.:
# Do( %target = %input1 + 2*%input2 );
# Note the %-prefix to each component name.
# See ?CustomizingComponents for more information.
Do(%Slider1=0);yz:=0:
Do(%Slider2=1);lambda:=1:
Do(%Slider3=4);b:=4:
Do(%Slider5=35);n:=35:
Do(%Slider8=0);yq:=0:
Do(%Slider6=10);xz:=10:
Do(%Slider7=-10);xq:=-10:
Do(%Plot1=plots[display](Skizze(%Slider1)));
Do(%Plot0=plots[display](cornu(%Slider1),view=[xz-20..xz+20,-25..25]));
end use;
LSUlUExPVEc2JS0lJ0NVUlZFU0c2JDcnNyQkISQrIiEiIiQiIiEhIiI3JCQiIiEhIiIkIiNTISIiNyQkIiQrIiEiIiQiIiEhIiI3JCQiIiEhIiIkISNTISIiNyQkISQrIiEiIiQiIiEhIiItJSZDT0xPUkc2JiUkUkdCRyQiIiEhIiIkIiIhISIiJCIiISEiIi0lK0FYRVNMQUJFTFNHNiRRITYiUSE2Ii0lJVJPT1RHNictJSlCT1VORFNfWEc2IyQiJGciISIiLSUpQk9VTkRTX1lHNiMkIiQ/IiEiIi0lLUJPVU5EU19XSURUSEc2IyQiJUlOISIiLSUuQk9VTkRTX0hFSUdIVEc2IyQiJCFwISIiLSUpQ0hJTERSRU5HNiI=Randstrahlen (man beachte den unterschiedlichen Ma\303\237stab auf den Achsen).
Man kann die Slider auch mit Pfeiltasten (noch oben/unten - auch bei horizontaler Orientierung) bewegen. Dazu erst den Slider anklicken (funktioniert leider nicht bei Dezimalzahlen).