**TI86** Program file dated 06/23/04, 19:55 ü ìELECTRONìêRadianÖLbl TÖZTÖZLÖText(0,0,"BEHAVIOR OF ELECTRONS ARE THEORET-")ÖText(6,0,"ICALLY DESCRIBED BY THE FOLLOWING")ÖText(12,0,"WAVE FUNCTION:")Ö0x:31y:"n"lbÖZWAVEOPXÖText(24,10,"(x)=K")ÖText(24,38,"sin (nÄx) FOR n=1,2,3,....")ÖText(26,29,"n")ÖText(34,0,"WHERE x IS THE DISTANCE FROM A")ÖText(40,0,"FIXED POINT & K IS A POSITIVE")ÖText(42,53,"n")ÖZPAUSGÖIf K==22ÖStopÖLbl T1ÖClDrwÖZLABÖText(0,0,"CONSTANT.")ÖText(6,5,"THE FOLLOWING INTEGRAL NORMAL-")ÖText(12,0,"IZES THE WAVE FUNCTION.")Ö0x:31yÖZINTEGÖ"0"lb:"1"ltÖZINTLABÖ17x:31y:"n"lbÖZWAVEOPXÖText(24,14,"(")ÖText(24,30,"(x)) dx=1.")ÖText(24,70,"K")ÖText(26,75,"n")ÖText(24,81,"=2, SINCE")ÖText(32,35,"THE A.D. IS")ÖText(39,10,"(1/2)K (x-(1/(2nÄ))sin(2nÄx))")ÖText(37,33,"")ÖText(42,34,"n")ÖZPAUSGÖIf K==22ÖGoto QÖIf K==25ÖGoto TÖZINFOÖIf K==22ÖGoto QÖIf K==25ÖGoto T1Ö2c1ÖFnOff Öy4=(c1*sin (Äx))Öy1=.5c1(x-(1/(2Ä))sin (2Äx))ÖZASKGRAFÖIf K102ÖGoto QÖ.5xÖ2yÖZGRAFSINÖTraceÖLbl QÖAxesOnÖZMAKÖStop§/