{VERSION 5 0 "IBM INTEL NT" "5.0" } {USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 1 10 255 0 0 1 0 1 0 0 1 0 0 0 0 1 }{CSTYLE "2D Math" -1 2 "Times" 0 1 0 0 0 0 0 0 2 0 0 0 0 0 0 1 }{CSTYLE "Hyperlink" -1 17 "" 0 1 0 128 128 1 2 0 1 0 0 0 0 0 0 1 }{CSTYLE "2D Output" 2 20 "" 0 1 0 0 255 1 0 0 0 0 0 0 0 0 0 1 } {CSTYLE "" -1 256 "" 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 257 "" 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 258 "" 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 259 "" 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 260 "" 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 0 } {CSTYLE "" -1 261 "" 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 262 "" 0 10 0 0 0 0 1 0 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 263 "" 1 20 0 0 0 0 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 264 "" 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 265 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 } {CSTYLE "" -1 266 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 267 "" 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 268 "" 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 269 "" 0 1 0 0 0 0 1 1 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 270 "" 0 10 0 0 0 0 1 0 0 0 0 0 0 0 0 1 } {PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "Helvetica" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }1 1 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Text Output" -1 2 1 {CSTYLE "" -1 -1 "Courier" 1 10 0 0 255 1 0 0 0 0 0 1 3 0 3 0 } 1 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Heading 1" -1 3 1 {CSTYLE " " -1 -1 "Helvetica" 1 18 0 0 255 1 2 1 2 2 2 2 1 1 1 1 }1 1 0 0 6 6 1 0 1 0 2 2 0 1 }{PSTYLE "" 2 6 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 2 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Warning" -1 7 1 {CSTYLE "" -1 -1 "Courier" 1 10 0 0 255 1 2 2 2 2 2 1 1 1 3 1 }1 1 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Maple Output" -1 11 1 {CSTYLE "" -1 -1 "Helvetica" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }3 3 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Maple Output" -1 12 1 {CSTYLE "" -1 -1 "Helvetica " 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }1 3 0 0 0 0 1 0 1 0 2 2 0 1 } {PSTYLE "Maple Plot" -1 13 1 {CSTYLE "" -1 -1 "Helvetica" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }3 1 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "R3 Font 0 " -1 256 1 {CSTYLE "" -1 -1 "Courier" 1 12 0 0 0 1 2 1 2 2 2 2 1 1 1 1 }1 1 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "R3 Font 2" -1 257 1 {CSTYLE " " -1 -1 "Courier" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }1 1 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Normal" -1 258 1 {CSTYLE "" -1 -1 "Helvetica" 1 12 0 0 0 1 2 1 2 2 2 2 1 1 1 1 }1 1 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE " Normal" -1 259 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 1 2 2 2 2 1 1 1 1 }1 1 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "AC - Title" -1 260 1 {CSTYLE "" -1 -1 "Times" 1 18 0 0 0 1 2 1 2 2 2 2 1 1 1 1 }3 1 0 0 12 12 1 0 1 0 1 2 258 1 }{PSTYLE "AC - Author" -1 261 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 1 2 2 2 2 2 1 1 1 1 }3 1 0 0 8 8 1 0 1 0 2 2 259 1 }{PSTYLE "AC - Note" -1 262 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }3 1 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "AC - Title " -1 263 1 {CSTYLE "" -1 -1 "Helvetica" 1 18 0 0 0 1 2 1 2 2 2 2 1 1 1 1 }3 1 0 0 12 12 1 0 1 0 1 2 258 1 }{PSTYLE "AC - Author" -1 264 1 {CSTYLE "" -1 -1 "Helvetica" 1 12 0 0 0 1 1 2 2 2 2 2 1 1 1 1 }3 1 0 0 8 8 1 0 1 0 2 2 259 1 }{PSTYLE "AC - Note" -1 265 1 {CSTYLE "" -1 -1 "Helvetica" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }1 1 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "AC - Disclaimer" -1 266 1 {CSTYLE "" -1 -1 "Times" 1 9 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }1 1 0 0 12 0 1 0 1 0 2 2 0 1 }} {SECT 0 {EXCHG {PARA 263 "" 0 "" {TEXT 263 8 "Orbitals" }}{PARA 264 " " 0 "" {TEXT 262 117 "von Dr. Michael Komma, Isolde-Kurz-Gymnasium, De utschland, komma@ikg.rt.bw.schule.de, http://www.ikg.rt.bw.schule.de \+ " }}{PARA 264 "" 0 "" {TEXT 270 20 "\251 2002 Michael Komma" }}{PARA 259 "" 0 "" {TEXT -1 0 "" }}{PARA 265 "" 0 "" {TEXT -1 279 "Dieses Wor ksheet demonstriert die Anwendung von Maple zur Berechnung der Aufenth altswahrscheinlichkeit des Wasserstoffelektrons f\374r verschiedene Qu antenzahlen. Das Ergebnis wird grafisch in einem Maplet dargestellt, w obei verschiedene Arten der Darstellung gew\344hlt werden k\366nnen:" }}{PARA 0 "" 0 "" {TEXT -1 31 "1. Oszillator (voreingestellt)." }} {PARA 0 "" 0 "" {TEXT -1 7 "2. Wurf" }}{PARA 0 "" 0 "" {TEXT -1 43 "3. 3D-Darstellung der Schalen (H-Orbitals)." }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}}{SECT 0 {PARA 3 "" 0 "" {TEXT -1 36 "Prozedur zur Berechnung der Orbitals" }}{PARA 0 "" 0 "" {TEXT -1 68 "Die folgende Prozedur stammt aus 'Moderne Physik mit Maple', si ehe " }{URLLINK 17 "http://www.ikg.rt.bw.schule.de/fh/physik.html" 4 "http://www.ikg.rt.bw.schule.de/fh/physik.html" "" }{TEXT -1 1 " " }} {PARA 0 "" 0 "" {TEXT -1 4 " " }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 205 "orbital :=proc(np,lp,mp,range,nump,cont,azi,pol,buttons,schalen)\noptions `Cop yright M. Komma, Moderne Physik mit Maple`;\nlocal n,l,m,M,i,j,rr,th,t est, \na0, P, Y, ply, Ny2, L, Ru, Nr2, plr, txt, stil, ccont;" }} {PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "a0:=1;n:=np:l:=lp:m:=mp:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 1 "\n" }{TEXT -1 36 "Korrektur unzul\344ssige r Quantenzahlen" }{MPLTEXT 1 0 107 "\nif n < 1 then n:=1 fi;\nif l > n -1 then l:=n-1 fi;\nif m > l then m:=l fi;\ntxt:=`n,l,m=`||n||\",\"||l ||\",\"||m:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 55 "\n\nP:=(l,x)->if l<> 0 then 1/(2^l*l!)*diff((x^2-1)^l,x$l)" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 37 " else 1 fi;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "Y:=proc(l,m,x) \+ ; " }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "if m=0 then P(l,x) else" }} {PARA 0 "> " 0 "" {MPLTEXT 1 0 30 "(1-x^2)^(m/2)*diff(P(l,x),x$m)" }} {PARA 0 "> " 0 "" {MPLTEXT 1 0 3 "fi;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 4 "end;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 168 "\nply:=dummy->subs(du mmy=cos(theta)^2,Y(l,m,dummy));\n\nNy2:=(2*l+1)*(l-m)!/(l+m)!; #Normie rung^2*4*Pi\n\nL:=(j,k,u)->if j<>0 then 1/j!*exp(u)/u^k*diff(u^(j+k)*e xp(-u),u$j) " }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 37 " \+ else 1 fi;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 44 "Ru:=(n,l,u)-> u^l*exp(-u/2)*L(n-l-1,2*l+1,u);" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 48 " \nplr:=u->subs(u=2*r/(n*a0),simplify(Ru(n,l,u)));" }}{PARA 0 "> " 0 " " {MPLTEXT 1 0 48 "Nr2:=4*(n-l-1)!/(n+l)!/(a0^3*n^4); #Normierung^2" } }{PARA 0 "> " 0 "" {MPLTEXT 1 0 296 "\nif cont=0 then stil:=patchnogri d: ccont:=1 else stil:=contour: ccont:=cont fi;\n\nM:=0:\nfor i to 10 \+ do\nrr:=range*n^2/10*i:\nfor j to 10 do\nth:=Pi/10*j:\ntest:=evalf(sub s(r=rr,theta=th,Nr2*Ny2*(r*plr(o)*ply(o))^2)):\nif test > M then M:=te st fi:\nod: od:\n\nsgl:=diff(u(x),x$2)=-2*(azi/100-x^2/2)*u(x);\n\n" } }{PARA 0 "> " 0 "" {MPLTEXT 1 0 187 "sglp:=proc(V,E,x0,psi0,dx0,dpsi0, xx)\nlocal _E;\n_E:=E;\nrhs(dsolve(\{diff(psi(_x),_x$2)=-2*(_E-V(_x))* psi(_x),psi(x0)=psi0,D(psi)(dx0)=dpsi0\},numeric,output=listprocedure) (xx)[2]);\nend proc;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 4 "\n\n\n\n" } {TEXT -1 22 "Verschiedene Plottypen" }{MPLTEXT 1 0 323 "\n\nif buttons [1] then return\n#DEtools[DEplot](sgl,u(x),x=-5..5, [[u(0)=1, D(u)(0)= 0]],u=-2..2, #stepsize=.05,linecolor=black,thickness=1,title=convert(a zi,string) );\n\nplot([2*sglp(x->x^2/2,azi/100,0,0,0,1,x)+azi/100,x^2/ 2,azi/100], x=-5..5,0..15,title=convert(evalf(azi/100,3),string),color =[red,blue,black],thickness=2 );\n\n" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 536 "fi;\n\n\nif buttons[2] then return\nplot([sglp(x->x,azi/100,0,0 ,0,1,x)+azi/100,x,azi/100],x=-0.1..10,0..11,title=convert(azi,string) \+ ,color=[red,blue,black],thickness=2);\nfi;\n\nif buttons[3] then retur n\nplots[display]([seq(\nplots[implicitplot3d](Nr2*Ny2*(r*plr(o)*ply(o ))^2=c,r=0..range*n^2,phi=0..schalen[2,1]/180*Pi,theta=0..schalen[2,2] /180*Pi,coords=spherical,axes=frame,orientation=[-pol,azi],style=patch nogrid,title=`txt`,color=COLOR(HUE,c/M),grid=[20,10,20],scaling=constr ained)\n,c=[seq(schalen[1,i]*M,i=1..nops(schalen[1]))])]);\nfi;\n" }} {PARA 0 "> " 0 "" {MPLTEXT 1 0 4 "end;" }}{PARA 7 "" 1 "" {TEXT -1 67 "Warning, `sgl` is implicitly declared local to procedure `orbital`\n " }}{PARA 7 "" 1 "" {TEXT -1 68 "Warning, `sglp` is implicitly declare d local to procedure `orbital`\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>% (orbitalGf*6,%#npG%#lpG%#mpG%&rangeG%%numpG%%contG%$aziG%$polG%(button sG%(schalenG69%\"nG%\"lG%\"mG%\"MG%\"iG%\"jG%#rrG%#thG%%testG%#a0G%\"P G%\"YG%$plyG%$Ny2G%\"LG%#RuG%$Nr2G%$plrG%$txtG%%stilG%&ccontG%$sglG%%s glpG6#%MCopyright~M.~Komma,~Moderne~Physik~mit~MapleG6\"C:>8-\"\"\">8$ 9$>8%9%>8&9&@$2FQFO>FQFO@$2,&FQFOFO!\"\"FT>FTFhn@$2FTFW>FWFT>86(((((%' n,l,m=GFQQ\",FKFTFfoFW>8.f*6$F3%\"xGFK6$%)operatorG%&arrowGFK@%0FR\"\" !*()\"\"#FRFin-%*factorialG6#FRFin-%%diffG6$),&*$)FUFdpFOFOFOFinFR-%\" $G6$FUFRFOFOFKFKFK>8/f*6%F3F4F[pFKFKFK@%/FUFap-T#6$FRFX*&),&FOFO*$)FXF dpFOFin,$*&#FOFdpFOFUFOFOFO-Fip6$Fhq-F`q6$FXFUFOFKFK6$F80f*6#%&du mmyGFKF\\pFK-%%subsG6$/FR*$)-%$cosG6#%&thetaGFdpFO-T'6%FiqT%FRFKFK6(F3 FTF4FWF=Fcq>81*(,&*&FdpFOFTFOFOFOFOFO-Ffp6#,&FTFOFWFinFO-Ffp6#,&FTFOFW FOFin>82f*6%F7%\"kG%\"uGFKF\\pFK@%F`p**FepFin-%$expG6#FXFO)FXFUFin-Fip 6$*&)FX,&FRFOFUFOFO-F`u6#,$FXFinFO-F`q6$FXFRFOFOFKFKFK>83f*6%F2F3F\\uF KF\\pFK*(FbuFO-F`u6#,$*&#FOFdpFOFXFOFinFO-Fiq6%,(FRFOFUFinFOFin,&*&Fdp FOFUFOFOFOFOFXFOFKFK6$F@Fht>85f*6#F\\uFKF\\pFK-F^s6$/FR,$**FdpFO%\"rGF OFiqFinFjsFinFO-%)simplifyG6#-T)6%FiqFhsFRFKFK6*F2FQF;FNF3FTFAF^v>84,$ *,\"\"%FO-Ffp6#,(FQFOFTFinFOFinFO-Ffp6#,&FQFOFTFOFinFN!\"$FQ!\"%FO@%/9 )FapC$>87%,patchnogridG>88FOC$>F`y%(contourG>FcyF]y>8'Fap?(8(FOFO\"#5% %trueGC$>8*,$*&#FOF\\zFO*(9'FO)FQFdpFOF[zFOFOFO?(8)FOFOF\\zF]zC%>8+,$* &FczFO*&%#PiGFOFhzFOFOFO>8,-%&evalfG6#-F^s6%/FfwF`z/FfsF[[l*,F_xFOF]tF O)FfwFdpFO)-F^w6#%\"oGFdpFO)-FirF]\\lFdpFO@$2FiyFa[l>FiyFa[l>89/-Fip6$ -F\\u6#F[p-F`q6$F[pFdp,$*(FdpFO,&*&#FO\"$+\"FO9*FOFO*&FdpFinF[pFdpFinF OFi\\lFOFin>8:f*6)%\"VG%\"EG%#x0G%%psi0G%$dx0G%&dpsi0G%#xxG6#%#_EGFKFK C$>FQFU-%$rhsG6#&--%'dsolveG6%<%/-Fip6$-%$psiG6#%#_xG-F`q6$Fc_lFdp,$*( FdpFO,&FQFO-FRFb_lFinFOF`_lFOFin/-Fa_lFauFez/--%\"DG6#Fa_l6#9(F]y%(num ericG/%'outputG%.listprocedureG6#Fc]l6#FdpFKFKFK@$&9,6#FOO-%%plotG6(7% ,&*&FdpFO-Ff]l6)f*Fj\\lFKF\\pFK,$*&FbrFO*$)FRFdpFOFOFOFKFKFK,$*&Fa]lFO Fc]lFOFOFapFapFapFOF[pFOFO*&Fa]lFOFc]lFOFO,$*&FdpFinF[pFdpFOF[bl/F[p;! \"&\"\"&;Fap\"#:/%&titleG-%(convertG6$-Fc[l6$F[bl\"\"$%'stringG/%&colo rG7%%$redG%%blueG%&blackG/%*thicknessGFdp@$&F[alFh`lO-F_al6(7%,&-Ff]l6 )f*Fj\\lFKF\\pFKFRFKFKFKF[blFapFapFapFOF[pFO*&Fa]lFOFc]lFOFOF[pF[bl/F[ p;$FinFinF\\z;Fap\"#6/Fgbl-Fibl6$Fc]lF^clF_clFecl@$&F[al6#F]clO-&%&plo tsG6#%(displayG6#7#-%$seqG6$-&F`el6#%/implicitplot3dG6./Fi[l%\"cG/Ffw; Fap*&FezFOFfzFO/%$phiG;Fap,$*&#FO\"$!=FO*&&9-6$FdpFOFOF_[lFOFOFO/Ffs;F ap,$*&FgflFO*&&F[gl6$FdpFdpFOF_[lFOFOFO/%'coordsG%*sphericalG/%%axesG% &frameG/%,orientationG7$,$9+FinFc]l/%&styleGFay/FgblF_o/F`cl-%&COLORG6 $%$HUEG*&F^flFOFiyFin/%%gridG7%\"#?F\\zF[il/%(scalingG%,constrainedG/F ^fl7#-Ffel6$*&&F[gl6$FOF[zFOFiyFO/F[z;FO-%%nopsG6#&F[glF\\alFKFKFK" }} }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{SECT 0 {PARA 3 "" 0 "" {TEXT -1 31 "Aufruf de r Prozedur ohne Maplet" }}{EXCHG {PARA 0 "" 0 "" {TEXT -1 29 "Test der Prozedur ohne Maplet" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 20 "Aufruf der Prozedur " }{TEXT 256 74 "orbital(n, l, m, \+ Bereich, Aufl\366sung, Konturen, azi, pol, buttons, schalen)" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT 257 8 "n, l, m:" } {TEXT -1 82 " Quantenzahlen. Es gilt n > l >= m >= 0, falsch gew\344hl te Zahlen werden korrigiert." }}{PARA 0 "" 0 "" {TEXT 258 8 "Bereich: " }{TEXT -1 44 " Vielfaches des Bohrschen Radius. " }}{PARA 0 "" 0 "" {TEXT 259 10 "Aufl\366sung:" }{TEXT -1 94 " Gitterpunkte f \374r Radius und Winkel (Liste in eckigen Klammern). \+ " }}{PARA 0 "" 0 "" {TEXT 260 9 "Konturen:" }{TEXT -1 163 " Anzahl der berechneten Konturen. Falls diese Zahl Null gesetzt wird, erh\344lt man eine kontinuierliche Einf\344rbung von violett (Dichte \+ = 0) bis rot (Dichte maximal)." }}{PARA 0 "" 0 "" {TEXT -1 0 "" }} {PARA 0 "" 0 "" {TEXT 264 10 "azi, pol: " }{TEXT -1 31 "Orientierung d er 3D-Plots. Mit " }{TEXT 265 3 "azi" }{TEXT -1 51 " wird die Drehung \+ um die horizontale Achse und mit " }{TEXT 266 3 "pol" }{TEXT -1 56 " d ie Drehung um die vertikale Achse in Grad eingestellt." }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT 267 9 "buttons: " }{TEXT -1 27 "Steuert die Art des Plots. " }}{PARA 0 "" 0 "" {TEXT -1 120 "[t rue,false,false] -> 3D-Darstellung der Wahrscheinlichkeitsdichte \374b er dem Radius und dem Polarwinkel (voreingestellt)." }}{PARA 0 "" 0 " " {TEXT -1 88 "[false, true,false] -> Winkelverteilung (ohne Ber\374ck sichtigung der radialen Verteilung)." }}{PARA 0 "" 0 "" {TEXT -1 67 "[ false,false,true] -> 3D-Darstellung von \"Schalen\" gleicher Dichte." }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT 268 9 "schalen : " }{TEXT -1 211 "Liste von zwei Listen. Erste Liste: Wahrscheinlichk eitsdichten in Vielfachen des Maximums der Antreffwahrscheinlichkeit. \+ Zweite Liste: Die Schalen werden bis zu den Winkeln [Azimuth, Polar] ( in Grad) gezeichnet." }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 " " {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 37 "sglp:=proc(V,E,x0,psi0,dx0,dpsi0,xx)\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 84 "orbital(4,1,1,3,[20,20],10,150,20,[ true,false,false],[[0.1,0.2,0.5,0.8],[270,180]]);" }}{PARA 13 "" 1 "" {GLPLOT2D 449 449 449 {PLOTDATA 2 "6)-%'CURVESG6$7do7$$!\"&\"\"!$\"+#3 ;()\\\"!\"*7$$!+e%G?y%F-$\"+`SU*\\\"F-7$$!+'esBf%F-$\"+0ia*\\\"F-7$$!+ @Z3zVF-$\"+I%4$*\\\"F-7$$!+YIQkTF-$\"+S9`)\\\"F-7$$!+6=q]RF-$\"+Zkv'\\ \"F-7$$!+_>f_PF-$\"+A4U$\\\"F-7$$!+p1YZNF-$\"+sY'o[\"F-7$$!+-OJNLF-$\" +8'yVZ\"F-7$$!+%*o%Q7$F-$\"+ro\\_9F-7$$!+#RFj!HF-$\"+L\"[[T\"F-7$$!+'4 OZr#F-$\"+71sj8F-7$$!+v'\\!*\\#F-$\"+mFcp7$$!+n`'zY\"F-$\"+32O/]Fcp7$$!+>t)eC\"F-$\"*x=J`$F-7$$!+o*)fZ6F-$ \"*;H$>JF-7$$!+<1J\\5F-$\"*Ox$)*GF-7$$!+U6NA5F-$\"*&zRvGF-7$$!+vm\"R&* *Fcp$\"*dT'pGF-7$$!+G>K%o*Fcp$\"*K'f\")GF-7$$!+!=FZT*Fcp$\"*t5<\"HF-7$ $!+&oPb())Fcp$\"*0,!GIF-7$$!*>[jL)F-$\"*qD7A$F-7$$!+!Qw%4tFcp$\"*T^#3Q F-7$$!*d/EG'F-$\"*YM_o%F-7$$!+g:<6_Fcp$\"+)yX4!fFcp7$$!*bQ(RTF-$\"+%*= U+uFcp7$$!+!eGe:$Fcp$\"+YB%\\**)Fcp7$$!*h=><#F-$\"+;=uv5F-7$$!+!zQ16\" Fcp$\"++!Q#z7F-7$$!((*e$\\F-$\"+E$G,\\\"F-7$$\"++D,`5Fcp$\"+J\"Q%4F-7$$\"+v:+:JFcp$\"+ki\\$4#F-7$$\"*=>Y2%F-$\"+5 n+]AF-7$$\"+![K56&Fcp$\"+*oWqR#F-7$$\"*yXu9'F-$\"+d+!y^#F-7$$\"+N@;=sF cp$\"+i%[Dh#F-7$$\"*\\y))G)F-$\"+q2!en#F-7$$\"+B?i7))Fcp$\"+ghM&p#F-7$ $\"+bbOO$*Fcp$\"+[qg2FF-7$$\"+AtB)f*Fcp$\"+h\"y5r#F-7$$\"+)34,')*Fcp$ \"+gJ#Gr#F-7$$\"+&3)>75F-$\"+v=)Gr#F-7$$\"+i_QQ5F-$\"+(y(H6FF-7$$\"+U, 1*3\"F-$\"+/Qu.FF-7$$\"+@]tR6F-$\"+Dce!p#F-7$$\"++*4/>\"F-$\"+-$HAn#F- 7$$\"+!y%3T7F-$\"+o)4\"\\EF-7$$\"+3kh`8F-$\"+8#eIe#F-7$$\"+O![hY\"F-$ \"+!p\"*4]#F-7$$\"+#Qx$o;F-$\"+pvlHBF-7$$\"+u.I%)=F-$\"+\"HG&Q@F-7$$\" +(pe*z?F-$\"+X>Dy>F-7$$\"+C\\'QH#F-$\"+#*pPI=F-7$$\"+8S8&\\#F-$\"+e'Q> s\"F-7$$\"+0#=bq#F-$\"+$G_#R;F-7$$\"+2s?6HF-$\"+@F4%e\"F-7$$\"+IXaEJF- $\"+K]9Z:F-7$$\"+l*RRL$F-$\"+$RGd_\"F-7$$\"+`<.YNF-$\"+-n>8:F-7$$\"+8t OcPF-$\"+dK\\1:F-7$$\"+\\Qk\\RF-$\"+@hD.:F-7$$\"+p0;rTF-$\"+Y?V,:F-7$$ \"+lxGpVF-$\"+'372]\"F-7$$\"+!oK0e%F-$\"+clX+:F-7$$\"+<5s#y%F-$\"+Rqd+ :F-7$$\"\"&F*$\"+=RG,:F--%'COLOURG6&%$RGBG$\"*++++\"!\")$F*F*Fcbl-F$6$ 7S7$F($\"3+++++++]7!#;7$$!3YLLLe%G?y%!#<$\"3'Q\\:)3)*QV6Fjbl7$$!3OmmT& esBf%F^cl$\"3wFV;)H%\\a5Fjbl7$$!3ALL$3s%3zVF^cl$\"3Gvz6'\\\">)e*F^cl7$ $!3_LL$e/$QkTF^cl$\"3Gc?@wI/r')F^cl7$$!3ommT5=q]RF^cl$\"3+kZT(RAS!yF^c l7$$!3ILL3_>f_PF^cl$\"3*4I?%zJ(4/(F^cl7$$!3K++vo1YZNF^cl$\"3!)*4k\")fQ AH'F^cl7$$!3;LL3-OJNLF^cl$\"3W\\577%e@c&F^cl7$$!3p***\\P*o%Q7$F^cl$\"3 -hdz2(4#z[F^cl7$$!3Kmmm\"RFj!HF^cl$\"3$Q)fx`%pLA%F^cl7$$!33LL$e4OZr#F^ cl$\"3y.-,Ng*[o$F^cl7$$!3u*****\\n\\!*\\#F^cl$\"3R-)e!RYiAJF^cl7$$!3%) *****\\ixCG#F^cl$\"3u>GJa?&[g#F^cl7$$!3#******\\KqP2#F^cl$\"3u-`U!oh-: #F^cl7$$!39LL3-TC%)=F^cl$\"358z6=z=v.6bgFfhl7$$!3n dmmT&Q(RTFfhl$\"3Y$>!o'f<(o&)!#>7$$!3%\\mmTg=><#Ffhl$\"3APEc6_heBF[jl7 $$!3vDMLLe*e$\\!#?$\"3m8f(QQ`\"=7!#A7$$\"3!=nm\"zRQb@Ffhl$\"3,yT#)[+%G K#F[jl7$$\"3_,+](=>Y2%Ffhl$\"3$per:wg7I)F[jl7$$\"3summ\"zXu9'Ffhl$\"3K :S2)[a&*)=Ffhl7$$\"3#4+++]y))G)Ffhl$\"3-8\")QR`FNMFfhl7$$\"3H++]i_QQ5F ^cl$\"3#H(f)ow>7R&Ffhl7$$\"3b++D\"y%3T7F^cl$\"3t3=DrrX,xFfhl7$$\"3+++] P![hY\"F^cl$\"3s]D$R.&zu5F^cl7$$\"3iKLL$Qx$o;F^cl$\"3)*)34maTD49J; #F^cl7$$\"3;,++D\\'QH#F^cl$\"3KIE2Z\"34j#F^cl7$$\"3%HL$e9S8&\\#F^cl$\" 3>q`Ovo%G6$F^cl7$$\"3s++D1#=bq#F^cl$\"3y5^<#Q9*fOF^cl7$$\"3\"HLL$3s?6H F^cl$\"3nyf#\\qjvB%F^cl7$$\"3a***\\7`Wl7$F^cl$\"3%*RY%HNSw)[F^cl7$$\"3 enmmm*RRL$F^cl$\"3%*p'o1&yddbF^cl7$$\"3%zmmTvJga$F^cl$\"3Mo\"z2gqrG'F^ cl7$$\"3]MLe9tOcPF^cl$\"3)e+N5qZ^0(F^cl7$$\"31,++]Qk\\RF^cl$\"3;:9#4FV )*z(F^cl7$$\"3![LL3dg6<%F^cl$\"3WOt$QD!H*p)F^cl7$$\"3%ymmmw(GpVF^cl$\" 3G)\\rRzP`a*F^cl7$$\"3C++D\"oK0e%F^cl$\"3wl**>#)R1\\5Fjbl7$$\"35,+v=5s #y%F^cl$\"3S_'fr,@P9\"Fjbl7$FhalFhbl-F]bl6&F_blFcblFcblF`bl-F$6$7S7$F( $\"3++++++++:F^cl7$F\\clFbbm7$FbclFbbm7$FgclFbbm7$F\\dlFbbm7$FadlFbbm7 $FfdlFbbm7$F[elFbbm7$F`elFbbm7$FeelFbbm7$FjelFbbm7$F_flFbbm7$FdflFbbm7 $FiflFbbm7$F^glFbbm7$FcglFbbm7$FhglFbbm7$F]hlFbbm7$FbhlFbbm7$FhhlFbbm7 $F]ilFbbm7$FbilFbbm7$FgilFbbm7$F]jlFbbm7$FbjlFbbm7$FijlFbbm7$F^[mFbbm7 $Fc[mFbbm7$Fh[mFbbm7$F]\\mFbbm7$Fb\\mFbbm7$Fg\\mFbbm7$F\\]mFbbm7$Fa]mF bbm7$Ff]mFbbm7$F[^mFbbm7$F`^mFbbm7$Fe^mFbbm7$Fj^mFbbm7$F__mFbbm7$Fd_mF bbm7$Fi_mFbbm7$F^`mFbbm7$Fc`mFbbm7$Fh`mFbbm7$F]amFbbm7$FbamFbbm7$FgamF bbm7$FhalFbbm-F]bl6&F_blF*F*F*-%&TITLEG6#Q%1.506\"-%+AXESLABELSG6$Q\"x FjemQ!Fjem-%*THICKNESSG6#\"\"#-%%VIEWG6$;F(Fhal;Fcbl$\"#:F*" 1 2 0 1 10 2 2 9 1 4 2 1.000000 45.000000 45.000000 0 0 "Curve 1" "Curve 2" "C urve 3" }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 83 "orbital(4,1,1,3,[20,20],10,60,20,[false,true,false],[ [0.1,0.2,0.5,0.8],[270,180]]);" }}{PARA 13 "" 1 "" {GLPLOT2D 440 440 440 {PLOTDATA 2 "6)-%'CURVESG6$7]o7$$!\"\"F)$\"+!>l@+&!#57$$\"+rD^,7F, $\"+&>$R)>(F,7$$\"+))o.IJ\"F<7$$\"*s6zf*F<$\"+i+\\C:F<7$$\"+H@))f6F<$\"+Z-O[ d.#F<7$$\"+iKL\"e\"F<$\"+B+dMCF<7$$\"+QY\"\\z\" F<$\"+N^N**HF<7$$\"+N$4Y,#F<$\"+'*pSfQF<7$$\"+Wl63AF<$\"+([5])\\F<7$$ \"+H)ffU#F<$\"+A*ev!pF<7$$\"+*f(pWEF<$\"+%Q!=j**F<7$$\"+s>\\bGF<$\"+RJ +n9!\")7$$\"+dM\"p/$F<$\"++R2S@F^p7$$\"+=@`uKF<$\"+&pcJX$F^p7$$\"+!)\\ NnMF<$\"+.,1)H&F^p7$$\"+4Ql\"p$F<$\"+**yAG*)F^p7$$\"+yi>!*QF<$\"+)>XbW \"!\"(7$$\"+M)G!3TF<$\"+9%eB]#Fhq7$$\"+SpX:VF<$\"+tzI)H%Fhq7$$\"+3k)=` %F<$\"+I.)yp(Fhq7$$\"+AijIZF<$\"++TTN8!\"'7$$\"+YZ,X\\F<$\"+r#))*eCF]s 7$$\"+$y$pn^F<$\"+E@K?iFbt7$ $\"+Ic\\.iF<$\"+Qq%[@\"!\"%7$$\"+>&43V'F<$\"+S%)Q$f#Fbu7$$\"+e61NmF<$ \"+/Ut%>&Fbu7$$\"+!QVJ&oF<$\"++Ye06!\"$7$$\"+'Ge20(F<$\"+!)\\A=AFbv7$$ \"+vN!oE(F<$\"+G![+\"[Fbv7$$\"+c`3quF<$\"+7TO35!\"#7$$\"+!RtDo(F<$\"+% HBF@#Fbw7$$\"+#G>.*yF<$\"+$\\**y#[Fbw7$$\"+y*4y5)F<$\"+%o?i5\"F)7$$\"+ o$zsJ)F<$\"+\\0U([#F)7$$\"+t?\\J&)F<$\"+\"=lSw&F)7$$\"+*)4$Ru)F<$\"+\" Hr=M\"\"\"!7$$\"+Rc`T))F<$\"+ji*f)>Fay7$$\"+!HS\"R*)F<$\"+%*yKYHFay7$$ \"+Mi+^!*F<$\"+X%[Qk%Fay7$$\"+y@(G;*F<$\"+UEF[[l7$$ \"+5!Qjd*F<$\"+(QO$)4%F[[l7$$\"+l0RF'*F<$\"+-`F#3&F[[l7$$\"+@JWy'*F<$ \"+$[gjI'F[[l7$$\"+wc\\H(*F<$\"+[P7IyF[[l7$$\"+J#[0y*F<$\"+r[2G(*F[[l7 $$\"+.(zz!)*F<$\"+\")HT$4\"\"\"#7$$\"+u6TN)*F<$\"+;!*=H7Fd]l7$$\"+XE%G ')*F<$\"+I.2#Q\"Fd]l7$$\"+;TF!*)*F<$\"+)zTUb\"Fd]l7$$\"+(e0x\"**F<$\"+ i.<[Fd]l7$$\"+$z_)e**F<$\"+aG0'3#Fd]l7$$\" +H&oD(**F<$\"+p*4G@#Fd]l7$$\"+kUG')**F<$\"+YEPZBFd]l7$$\"#5Fay$\"+CuA! \\#Fd]l-%'COLOURG6&%$RGBG$\"*++++\"F^p$FayFayFh`l-F$6$7S7$$!3/+++++++5 !#=F]al7$$\"3CLL$3d7:?\"F_alFaal7$$\"3]m;H()o.VCr _F_alFgal7$$\"3iML3P7tRuF_alFjal7$$\"3#fm\"z9<\"zf*F_alF]bl7$$\"3;LeRG @))f6!#\\b GFbblFicl7$$\"3;Le*oX8p/$FbblF\\dl7$$\"3%om;u6KXF$FbblF_dl7$$\"3ummmz \\NnMFbblFbdl7$$\"33+D13Ql\"p$FbblFedl7$$\"3[mm;xi>!*QFbblFhdl7$$\"3x+ D1L)G!3TFbblF[el7$$\"3S+v=RpX:VFbblF^el7$$\"39n;H2k)=`%FbblFael7$$\"3. n\"z4AO1t%FbblFdel7$$\"3tL$3_u9]%\\FbblFgel7$$\"3GLe*=y$pn^FbblFjel7$$ \"3'**\\Pz`O:O&FbblF]fl7$$\"3!QLe\\-#*3d&FbblF`fl7$$\"3U++]Gn<(y&FbblF cfl7$$\"3W+]7:\"p()*fFbblFffl7$$\"32+D1Hc\\.iFbblFifl7$$\"3m+](y^43V'F bblF\\gl7$$\"3nmm;d61NmFbblF_gl7$$\"3Y++vyL9`oFbblFbgl7$$\"3ALe*[Ge20( FbblFegl7$$\"3y++DuN!oE(FbblFhgl7$$\"39m\"HZN&3quFbblF[hl7$$\"3#4]7$)Q tDo(FbblF^hl7$$\"3immT!G>.*yFbblFahl7$$\"3!)*\\il(*4y5)FbblFdhl7$$\"3U MLLm$zsJ)FbblFghl7$$\"3dL$3<2#\\J&)FbblFjhl7$$\"3Wo\"Hx)4$Ru)FbblF]il7 $$\"3'3++&)GS\"R*)FbblF`il7$$\"3um;aw@(G;*FbblFcil7$$\"3mLLLW1)HO*Fbbl Ffil7$$\"3!)*\\i!3!Qjd*FbblFiil7$$\"3U,v$*G#[0y*FbblF\\jl7$F^`lF^`l-Fc `l6&Fe`lFh`lFh`lFf`l-F$6$7S7$F]al$\"3w**************fF_al7$FaalFejl7$F dalFejl7$FgalFejl7$FjalFejl7$F]blFejl7$F`blFejl7$FdblFejl7$FgblFejl7$F jblFejl7$F]clFejl7$F`clFejl7$FcclFejl7$FfclFejl7$FiclFejl7$F\\dlFejl7$ F_dlFejl7$FbdlFejl7$FedlFejl7$FhdlFejl7$F[elFejl7$F^elFejl7$FaelFejl7$ FdelFejl7$FgelFejl7$FjelFejl7$F]flFejl7$F`flFejl7$FcflFejl7$FfflFejl7$ FiflFejl7$F\\glFejl7$F_glFejl7$FbglFejl7$FeglFejl7$FhglFejl7$F[hlFejl7 $F^hlFejl7$FahlFejl7$FdhlFejl7$FghlFejl7$FjhlFejl7$F]ilFejl7$F`ilFejl7 $FcilFejl7$FfilFejl7$FiilFejl7$F\\jlFejl7$F^`lFejl-Fc`l6&Fe`lFayFayFay -%&TITLEG6#Q#606\"-%+AXESLABELSG6$Q\"xF]^mQ!F]^m-%*THICKNESSG6#Fd]l-%% VIEWG6$;F(F^`l;Fh`l$\"#6Fay" 1 2 0 1 10 2 2 9 1 4 2 1.000000 45.000000 45.000000 0 0 "Curve 1" "Curve 2" "Curve 3" }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{SECT 0 {PARA 3 "" 0 "" {TEXT -1 8 "Hymaplet" }}{EXCHG {PARA 0 "" 0 "" {TEXT -1 30 "Ab hier be n\366tigen Sie Maplets." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 24 " with(Maplets[Elements]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 " " }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 89 "Die Funktion ap(feld,wert) di ent nur zur Abk\374rzung h\344ufig vorkommender Befehle im Maplet." }} }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 131 "ap:=(feld,wert)->Action(\n Evaluate(feld=wert),\nEvaluate( PL1 = 'orbital(nval,lval,mval,TF1,TF0, cont,azi,pol,[Bu1,Bu2,Bu3],TFs)' ));" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%#apGf*6$%%feldG%%wertG6\"6$%)operatorG%&arrowGF)-_%)ElementsG%'Ac tionG6$-_F/%)EvaluateG6#/9$9%-F36#/%$PL1G.-%(orbitalG6,%%nvalG%%lvalG% %mvalG%$TF1G%$TF0G%%contG%$aziG%$polG7%%$Bu1G%$Bu2G%$Bu3G%$TFsGF)F)F) " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 261 18 "Begin n des Maplets" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "hymaplet : = Maplet(\n\n" }{TEXT -1 21 "Fenster f\374r die Hilfe" }{MPLTEXT 1 0 78 "\nWindow['W2']( 'title' = \"Help\",\nwidth=400,height=500,xcoord=2 0,ycoord=20,\n[\n\n" }{TEXT -1 9 "Hilfetext" }{MPLTEXT 1 0 1297 "\nTex tBox['TB1'](10..30,10..100,\"Wasserstoff-Orbitals:\n \+ \nHauptquantenzahl n (n > 0), Bahnquantenzahl l \+ (l < n), magnetische Quantenzahl m (m <= l), unzul\344s sige Werte werden automatisch korrigiert. Bereich: Vie lfaches des Bohrschen Radius. Aufl\366sung: Gitterpunkte f \374r Radius und Winkel (Liste in eckigen Klammern). \+ Konturen: Anzahl der berechneten Konturen. Falls diese Zah l Null gesetzt wird, erh\344lt man eine kontinuierliche Einf\344rbung \+ von violett (Dichte = 0) bis rot (Dichte maximal).\n\nazi, pol: Orient ierung der 3D-Plots. Mit azi wird die Drehung um die horizontale Achse und mit pol die Drehung um die vertikale Achse in Grad eingestellt.\n \nbuttons: Steuert die Art des Plots. \n[true,false,false] -> 3D-Darst ellung der Wahrscheinlichkeitsdichte \374ber dem Radius und dem Polarw inkel (voreingestellt).\n[false, true,false] -> Winkelverteilung (ohne Ber\374cksichtigung der radialen Verteilung).\n[false,false,true] -> \+ 3D-Darstellung von Schalen gleicher Dichte.\n\nschalen: Liste von zwei Listen. Erste Liste: Wahrscheinlichkeitsdichten in Vielfachen des Max imums der Antreffwahrscheinlichkeit. Zweite Liste: Die Schalen werden \+ bis zu den Winkeln [Azimuth, Polar] (in Grad) gezeichnet.\n\n\n\")\n]) ,\n\n" }{TEXT -1 67 "Aktion zum Einstellen der Slider \374ber die Eing abe in die Textfelder" }{MPLTEXT 1 0 157 "\nAction[A1](\nSetOption('ta rget' = 'SLn', Argument('nval')),\nSetOption('target' = 'SLl', Argumen t('lval')),\nSetOption('target' = 'SLm', Argument('mval'))\n),\n\n" } {TEXT -1 18 "Ein kleiner Dialog" }{MPLTEXT 1 0 65 "\nMessageDialog['MD 1'](\"komma@oe.uni-tuebingen.de\"),\n\n###########\n" }{TEXT -1 20 "\n Fenster des Maplets" }{MPLTEXT 1 0 76 "\nWindow(\n 'title' = \"Hy drogen\",\n xcoord=10,ycoord=10,\n\n########\n\n" }{TEXT -1 4 "M en\374" }{MPLTEXT 1 0 157 "\n'menubar'='MB1', \n MenuBar['MB1'](\n \+ Menu(\"Readme\", MenuItem(\"Copyright\", RunDialog(MD1)),\n \+ MenuItem(\"Hilfe\", RunWindow(W2)))),\n#########\n\n" }{TEXT -1 6 "Layout" }{MPLTEXT 1 0 268 "\nBoxRow('vscroll'='as_needed',\n'hscrol l'='as_needed',border=false,\n [\n \n BoxRow('vscr oll' = 'as_needed', 'hscroll' = 'as_needed',inset=0,spacing=0,\n#'bord er',\n\n[BoxRow(\"Wasserstoff-Orbitals \", \nButton(\"Help\", Act ion(RunWindow(W2)))),\n#######\n\n" }{TEXT -1 7 "Plotter" }{MPLTEXT 1 0 359 "\n[Plotter['PL1'](\nwidth=500,height=500, \n orbital(4,1,0,2.5, [40,40],40,0,0,[true,false,false],TFs) ),\n\n\n[Slider[azi](0..1000, 0 , orientation=vertical, 'majorticks' = 100, 'minorticks' = 1, 'showtic ks', 'showlabels',onchange=ap(azi,azi))]],\n\n[Slider[pol](-90..90, 0, 'majorticks' = 10, 'minorticks' = 1, 'showticks', 'showlabels',onchan ge=ap(pol,pol))]\n\n\n ],\n\n" }{TEXT -1 56 "Verschiedene Bedienungsel emente:\n\nButton f\374r eine Skizze" }{MPLTEXT 1 0 484 "\n BoxColum n( border=false,\n Button( \"Sketch\", Action(Evaluate(TF1=2.5),Ev aluate(TF0=\"[40,40]\"),\n Evaluate(cont=10),\n \+ Evaluate( PL1 = 'orbital(nval,lval,mval,TF1,TF0,cont,azi,pol,[Bu1,Bu2 ,Bu3],TFs)' )\n ),tooltip=\"Skizze mit niedriger Aufl \366sung\" ),\nBoxColumn( 'caption' = \"Hydrogen\", 'border',inset=0, \nspacing=0,\nvalign=top,halign=left,\n[\n##############\n [\n\n[\"Qua ntenzahlen (mit den Schiebern einstellen oder in den Textfeldern einge ben)\"],\n\n\n" }{TEXT -1 28 "Slider f\374r die Quantenzahlen" } {MPLTEXT 1 0 634 "\nGridLayout([[\"n \",TextField[nval](value=4,width= 2,onchange=A1, 'tooltip'=\"Hauptquantenzahl n (n > 0)\"),\nSlider[SLn] ( 0..30, 4, 'majorticks' = 10, 'minorticks' = 1, 'showticks', 'showlab els',onchange=ap(nval,SLn))],\n\n [\"l \",TextField[lval](value=1,2, onchange=A1, 'tooltip'=\"Bahnquantenzahl l (l < n)\"),\nSlider[SLl]( 0 ..30, 1, 'majorticks' = 10, 'minorticks' = 1, 'showticks', 'showlabels ',onchange=ap(lval,SLl))],\n \n[\"m \",TextField[mval](value=0,2,onc hange=A1, 'tooltip'=\"Magnetische Quantenzahl m (m <= l)\"),\nSlider[S Lm]( 0..30, 0, 'majorticks' = 10, 'minorticks' = 1, 'showticks', 'show labels',onchange=ap(mval,SLm))],\n\n[\" \"],\n\n" }{TEXT -1 15 "Darste llungsart" }{MPLTEXT 1 0 461 "\n[GridCell(\"Auswahl der Darstellung\", left)],\n[\" \"],\n \n [RadioButton[Bu1](tru e, 'group' = 'BG1' ),GridCell(\"Oszillator\",left)],\n \+ [RadioButton[Bu2]( 'group' = 'BG1' ),GridCell(\"lineares Potential\",l eft)],\n [RadioButton[Bu3]( 'group' = 'BG1'), \n\nGridCell(\"Schal en \",left),GridCell(TextField[TFs](value=\"[[0.1,0.2,0.5,0.8],[270,1 80]]\",20,onchange=A1,tooltip=\"[[Dichten<1],[Azimuth,Polar]]\"),left) \n]\n \n\n]),\n\n\n" }{TEXT -1 45 "Textfelder f\374r die Ei ngabe weiterer Parameter" }{MPLTEXT 1 0 258 "\n\n\nGridLayout([\n[\"Be reich \",GridCell(TextField[TF1](value=2.5,5,onchange=A1),left)],\n[\" Aufl\366sung \",GridCell(TextField[TF0](value=\"[40,40]\",5,onchange= A1),left)],\n[\"Konturen \",GridCell(TextField[cont](value=40,5 ,oncha nge=A1),left)]\n])\n ]\n]\n)\n)\n),\n \n" }{TEXT -1 60 "Button s zum Beenden oder Plotten der aktuellen Einstellungen" }{MPLTEXT 1 0 203 "\n[Button( \"Close\", Shutdown( [TF1,parse(TF0),nval] ) ), Button ( \"Plot\", Evaluate( PL1 = 'orbital(nval,lval,mval,TF1,TF0,cont,azi,p ol,[Bu1,Bu2,Bu3],TFs)' )#### \n\n)]\n ]\n )\n),ButtonGroup['BG 1']()):\n" }{TEXT -1 16 "Ende des Maplets" }{MPLTEXT 1 0 1 "\n" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 49 "#print(hymaplet); # Kontroll ausgabe (umfangreich)" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" } }}{EXCHG {PARA 0 "" 0 "" {TEXT -1 57 "Aufruf des Maplets (erfordert Ja va Runtime Environment): " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 29 "Maplets[Display](hymaplet);\n\n" }}{PARA 6 "" 1 "" {TEXT -1 38 "In itializing Java runtime environment." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}} {EXCHG {PARA 0 "" 0 "" {TEXT -1 25 "komma@oe.uni-tuebingen.de" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 266 "" 0 " " {TEXT 269 11 "Disclaimer:" }{TEXT -1 240 " While every effort has be en made to validate the solutions in this worksheet, Waterloo Maple In c. and the contributors are not responsible for any errors contained a nd are not liable for any damages resulting from the use of this mater ial." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 " > " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 " " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 " " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 " " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 " " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 " " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 " " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 " " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 " " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "0 7 0" 42 } {VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }