Computer Shopper 127

home *** CD-ROM | disk | FTP | other *** search

/ Computer Shopper 127 / dpcs0998.iso / Home / Transmat / SIMON.TB_ / SIMON.TB

(.txt)

Wrap

Asymetrix ToolBook File | 1998-02-26 | 171.5 KB | 2,969 lines

tmp(2) tmp(1) tmp(6) tmp(5) tmp(4) tmp(3) upasswd dJGvvzALJfF count Times New Roman System mes New Roman dJGvvzALJfF posEnd posNow posStart movel movel g,h mytime posStart posEnd ) - ( 2) - ( posNow + i*x),( + i*y) Runtime System book warning Page 1 of book "tutorex.tbk" Page id 4 exercise Page 1 of book "exercise.tbk" Page 1 of book "map.tbk" CDBSE&File &Open... Ctrl+O &Save Ctrl+S Save &As... saveas &Import... import &Export... export Print Set&up... printsetup &Print Pages... Ctrl+P printpages Prin&t Report... printreport Send &Mail... sendmail &Run... E&xit Alt+F4 &Edit &Undo Ctrl+Z Cu&t Ctrl+X &Copy Ctrl+C &Paste Ctrl+V paste C&lear Del clear Select &All Shift+F9 selectall Select Pa&ge Shift+F12 selectpage &Size to Page F11 sizetopage F&ind... F5 Re&place... replace Aut&hor F3 author &Text &Character... F6 character &Paragraph... F7 paragraph &Regular Ctrl+Space regular &Bold Ctrl+B &Italic Ctrl+I italic &Underline Ctrl+U underline Stri&keout Ctrl+K strikeout Superscrip&t/Subscript superscriptSubscript &Normal Script normalscript Su&bscript Ctrl+L subscript Su&perscript Ctrl+Shift+L superscript &Show Hotwords F9 showhotwords &Page &Next Alt+Right &Previous Alt+Left previous &First Alt+Up first &Last Alt+Down &Back Shift+F2 &History... Ctrl+F2 history N&ew Page Ctrl+N newpage &Help &Contents F1 contents Status &Bar F12 statusbar 4inifile "suisys.tbk" sbmnavigate ,showscore 8exbank. -- need test mma exercise a toolbook completed isopen B"quit" -- >the leave matrices exercises vscalarmult , stack vector = clearcommas(fractmult( vecadd v1len = v2len = "Attempted 2 vectors different lengths" v1 = sendToMma func 4sbmMmaLink,sbmInProgress,mcalaunched,sbmans tbkfunc = sq2roundbkt( 8"tex. runfunc; "DDE" "DdeMmaTbk" M"Integration" frm = SBMProcessML(sbmMmalink, sbmstr2vars t1 \i,n0 n0=1 t1 = "(" brackcount = 1 U(t1) chari = "-") n0 = 1 tmp = n0 = i n0 = 1 U(t1) U(t1) sbmvars2str nstr = "" citem = dclearspaces( fixcaretbug sbmstrrep("-","-1*", simplecheckans studAns, realAns, var, allowConstantDiff Zlogical osysSuspend,constantdiff cCount,wCount _ errortol = 1.0e-4 "= 4 allowconstantdiff = _ = 0 ` = 0 sySsuspend = studans = plusconst = "" W=insertTimes( lowlim = 0.5 +0.04 H0.005 sAns = sbmsymevalfunc( i,var) rAns = c) < i=0.5 i=0.5 i=i+0.005 Zi >= +0.04 wcount = 0 ) = "" ) = 0) -- entries may be +ccount <7 simplecheckans2var ,realans,var1,var2, inserttimes( value tans = <"1.23", rans = X"1.23", check1 = "2.47", "2.47", check2 = unorderedcompare list1, list2 -- returns 2 lists - 1st positions terms 7 also :,i.e. cterms, -- 2nd d, i.e. wterms foundterms ctermstr,wtermstr c = "" A = "" ev = isEquiv( , ev) )&","& &","&( &"marker"& term1, term2 ) < 1.0e-6 ToString RightSyntax clearHspaces str cc = cc = cc - 1 Zcc = 0 listmult l1c= a1 = l1 b1 = 0 c1 = 0 B = 2 a1 = b1 = c1 = 0 r = 3 a1 = b1 = c1 = l2c= a2 = l2 b2 = 0 c2 = 0 B = 2 a2 = b2 = c2 = 0 r = 3 a2 = b2 = c2 = a = lt(a1,a2)) b = b1,a2), a1,b2))) c = (fractadd( a1,c2), c1,a2)), b1,b2))) d = b1,c2), c1,b2))) e = lt(c1,c2)) retlist = a,b,c,d,e :<> 0 F) = 1 listadd l1c > l2c listint l1 = l1,("1/"&i))) x2n pow = "" = "x" = "x^"& coeff2poly clist -- given a coefficients function corresponding polynomial firstitem clen = <> 0 &signed( ,i<>1, )&x2n(i-1) ,val, -- where evaluates a B can be a fractional formatted , i.e "2/3" will convert 2x 2*x etc. Zstmp ichar R(i-1) "01234567890.)"&var R(i-1) "*+-/^()" = "x" R(i-1) (val) < 0 &")" "01234567890.+-/*^e " R(i-1) "01234567890." -- would be better Fcould use deciding a * between two adjacent subForExpr , subst, var -- substitutes each occurrance -- NOTE since a substitution should xcontain anywhere besides cchar = i <> nchar = Ri+1 "^/*" ( "-" &")" addquote "CalcType->" "DiffLevel->" retfunc = &"("& -- &","& &"{" !","a", fr1, fr2 fract1 = sbmnumAndDen( fract2 = q = ( ) * ( den = ( ) * ( factorise( )&",/,"&( oppsign str clearsign num = ( ) * ( ) + ( ) * ( ) * ( V,den) )&",/,"&( fcount = i R&","&den sbmNumAndDen isnum expr, iscoeff,isfirstterm "-+" = "+" = "+" = "+" insertcommas str ochar = Ri+1 istype(" i=i-1 ="." ".,"& ="." &"." &",." &"," "cossintansqrtsecasacatotexploglnabscspi" &"," Zi >= U(str)-1 "*+-/^" Ri+1 "*+-/^" i=i-1 ".+-*/)^" ="." "+-*/" ".*"& ="." "+-*/" &"*" "coshsinhtansqrtsecasacatotexploglnabscspi" "+-*/)" "(nspngtch" &"(" &"*(" &"*" Zi >= --InitProb[fn_, n_] := Do[fn[i] = i/n, {i,0,n}]; -- The following probability based functions a direct analogue 'Mathematica ones ease conversion Oquestions (SBM) fn, n ") = i/n SetTempProb arg 4larglist 4vallist,pr2 I = 1 oldarg = 1 oldval = ResetTempProb needsReset pr2 = SetProb fn, i, n tmpfn = fn - XtraProb = // (n-1) j <> i fn = fn + ipos str1, ', fc, i -- looks through find Ri) that equal P (fc). It Fcompares >+appropriate no. fout contained ,( counting +ith %foundit str1len,str2len i=i+1 & = fc j = ( sbmstrpos ,1st returned (starting Rn-1), otherwise 0 fc = i=n-1 n <= *,fc,i) i = i >= W*,str3, -- replaces - 1st only omitted [poslist fc = 1 fc = makefilename str -- takes a , removes non-alphanumeric truncates newstr = "" chartoAnsi( [letter <123 >96 -- >47 -- termprod u,v, *ufn,vfn "sec" vfn = xufn .(u)) > 1 u = "("&u&")" .(v)) > 1 v = "("&v&")" "1/x" "1/x" v = "-" u = "-" u = "+" u = "+" u = "-" u = "-"&u "(1/x)" u = -(1/x)","(1/x",u, uv = -1/x","1/(x",u) && -1/x","x",v)&"))" uv = -1/x","1/(x",u) && -1/x","x",v)&")" "1/x" u = "-" v = "-" v = "+" v = "+" v = "-" v = "-"&v uv = v & .1/x","/x",u) "1/x" v = "-" u = "-" u = "+" u = "+" u = "-" u = "-"&u uv = u & Z/1/x","/x",v) u = "-" v = "-" v = "+" v = "+" v = "-" v = "-"&v uv = v&"*"&u uv = v & u v = "-" u = "-" u = "+" u = "+" u = "-" u = "-"&u uv = u&"*"&v uv = u & v uv = "+" uv = "+"&uv omovef3 g1,h1,g2,h2,g3,h3,mytime Zpoint posStart1,posEnd1,posStart2,posEnd2,posStart3,posEnd3,posNow1,posNow2,posNow3 x1,x2,x3,y1,y2,y3 ) - ( ) - ( ) - ( ) - ( ) - ( ) - ( + i*x1),( + i*y1) + i*x2),( + i*y2) + i*x3),( + i*y3) g3,h3, Zx1,x2,x3,y1,y2,y3,z1,z2,z3 ) - ( ) - ( ) - ( ) - ( ) - ( ) - ( (x1^2+y1^2) (x2^2+y2^2) (x3^2+y3^2) z1 <> 0 x1/z1 y1/z1 z2 <> 0 x2/z2 y2/z2 z3 <> 0 x3/z3 y3/z3 moving3objects ( g1),( g2),( g3),x1,y1,z1,x2,y2,z2,x3,y3,z3 g1 = g2 = g3 = flushmessagequeue() obj1,obj2,obj3,x1,y1,z1,x2,y2,z2,x3,y3,z3 ,pauseanime X"sitest.dll" getmillitime() dist=0 starttime= timenow= vel1=0 vel2=0 vel3=0 \ > t0 dt= t0 = loops sx1= *dt*x1 sy1= *dt*y1 sx2= *dt*x2 sy2= *dt*y2 sx3= *dt*x3 sy3= *dt*y3 adjustspeed() t0= sbmflashfff f,g,h origcolourf origcolourg origcolourh sumelement pos temp1 ("a"& temp2 temp3 ("b"& ("a"& ("b"& ("a"& m),("b"& v), " > ("a"& ),pos1, G9,pos2,("b"& ),pos3 aij, plussign 5above -- these 5ater replaced Ha single which Fmoved @answer matrix ("c"& ("a"& ("b"& ("a"& ("b"& ("c"&pos), ("c"& &"f") ("c"& ("c"& -&"f") ("c"& genmatrix n,m, b,xpos,ypos dynamic creation -7 nxm, filled numbers range 4mcount,acount mtext, nspaces,xcharsize,xsize,ysize,height ( = 2 . = 120 e&sbmrandom( &CRLF = 290*n "exback" qroman" FillColor d-- 0,75.3125,0 ("m"& drawbracket ( p- 100), ("m"& !("a"&( -3)), !("a"&( -2)), !("a"&( -1)), !("a"& = ("mg"& gen2matrix n,m, ,elnum -- used _2elements ;> 1 \. formatmatrix must be called. *@=" " = 102*( +2) -- width = 153*( ) -- @&sbmrandomnf( = 250*n "fixedsys" regular d-- 0,75.3125,0 ("m"& - 100), ("m"& !("a"&( -3)), !("a"&( -2)), !("a"&( -1)), !("a"& = ("mg"& fieldname, n, m, elsize,ftype "centre" Tallowed \i,j,k,k1,k2 index,wc & = 1 wc = n*m g(wc-i+1) = "" currentelement wc = k1 = ( -wc) k2 = - wc - k1 ,btype bwidth = - ,), ( +3* H/4), ( W + k +3* /4), ( u + 3* ~ ,lval (n) generates P >= 0 sbmrandom2 b,notthis >= 0 sbmrandomnf2 changeval oldword,newword,stext a dynamically created -- without altering Mcolumn alignment %,newval, remchar R%< 0 5 < 0 ) g%>= 0 K >= 0) = " "& changeval2 &< 0 < 0 ) &>= 0 >= 0) = " "& (scripts alteration input calling routines have their own handlers startmatrix 4colheight,colwidth,deltax,deltay,biggest[10] 4matrix1[][],row, P = 320 ? = 40 X = 500 Y = 40 clearmatrix "matorig" ="mat11" plusrow -1)&i) &i) = ("mat"& fsize = fntsize P = (matratio 8)/row S" = minusrow S" = pluscol M-1)) minuscol resetsize " inc = fw = fntwidth [+ 50 + inc* equalbiggest ccol,crow equalbiggestF = C)) = resizeElement i&j) Hdx,0 Hdx,0 " > 5400 "tabtext" swap Ytabbing extended swapRowTabOrder i = 1 j = 1 i&j) = transposeSwap i <= j-3 swapTabOrder (" i&j),(" (j-3)&(i+3)) 6f1,f2 stemp f1 = f2 = Xsyntax user entered checkmatrixsyntax != "Replace [? symbol(s) \,values" "++" "-+" "--" "**" "-*" "*+" expression cannot sysErrorNumber=0 <> 0 same except uses a pinstead gHreally done simon.tbk checkfieldsyntax "++" "-+" "--" "**" "-*" "*+" <> 0 displaycoeff textin, textto ) < 0 ( = "-1" & = "-" 8 = ^) = 0 Z = "+ 0" ~ = "1" { = "+" = "+"& sbmevalfunc HY -- R(i-1) "01234567890."& R(i-1) "*+-/^()" 3;< 0 "("&val&")" "01234567890.+-/*^e " R(i-1) "01234567890." S^ a * Prime n primelist = "2, 3, 5, 7, 11, 13, 17, 19, 23, 29, 31, 37,"\ &"41, 43, 47, 53, 59, 61, 67, 71, 73, 79, 83,"\ &"89, 97, 101, 103, 107, 109, 113, 127, 131,"&\ "137, 139, 149, 151, 157, 163, 167, 173, 179,"&\ "181, 191, 193, 197, 199, 211, 223, 227, 229" n < 1 n > 50 "supply primefactors n qfprimefaclist n < 2 n > 52441 52441" +% = 1 mPrime = cisType( n = n/ % > 50 sqrtsurdform fgplist <intmult,rootmult %a,b (n) = a Y = 1 Z = 1 "1,"& i = len cval = (i-1) i = 1 Z(i <2) &","& Zxmin,xmax,ymin,ymax,yscalef,xscalef xstart,ystart -- rname = "ex1" createaxes ,"X","Y" x = -5 ~ = 5 = -4 -- dims = drawsize( drawticks drawfunc ("2x^2-2x+1","x",0.1, ,"exn", 6,"f(x) = f(x)",2.5, moveaxes px1,py2, label &"yaxis") = Xphys2screen(0, m&"ylabel") = &"xaxis") = Yphys2screen(0, &"xlabel") = createAxes Zpx2,py2 px1 = py1 = =+ 100),( 8+ 300) f - 100),( N+ 300) lineendsize = 1,2 lineendstyle v,solidhead + 300),( + 100) + 300),( - 100) = 2,1 100,100 500,400 setfieldstyles ( f New Roman", 14, sbmextendf = px2 - ( ) - 150 100,100 500,400 + 150 x2,py1, ,ticktype py2 refer nREAL ~region F has no effect )present B\prefix names xticks, yticks tmin,tmax, Zstepsize /(px2-px1) )/(py2-py1) = 10^( `.,10))) a sensible x tform = sbmformattext( </ = (px1/ y/ = /+100) j = i 100,100 500,400 &"xtick1text") , j , " "&i), "&i&" - py1 = 10^( a1,10))) +200 -- arrow C2 = u2 = 2+100), -- j = i 100,100 500,400 &"ytick1text") , j , " "&i), "&i&" ,linecol,linelabel,labelpos, backdropname vertlist,startpoint,prestart,postend mlinecount pfirsttime Zi,val .q grad, points cope fclipping - a linear interpolation calulate crosses & = 0.0001 Iv,i, >O<= IO>= i >= foutside plot ci <= O>= py1 = "" )&","& -- clipped - so :o on frame Mw,i+ i-(val- )&","& )&","& = "" )&","& )&","& ) > 2 &","& Q> py2 )&","& (py1- )&","& &","& &","& i = ) > 2 &","& &","& 100,100 500,400 )-300, &"labeltext") U"&i) sbmformatText Zroundp, ,10)) ' >= 0 1 = 0 fname, ftext , ffont, |+, fstyle, bstyle, xastyle, xtstyle objectname ,dw,dh dw = dh = ,dw,dh xphys, scalefactor converts x part a physical co-ordinate units yphys, minb maxb 200*n safety })/2) f > 0 drawSlowCurve linename imax,mxpos,mypos drawSlowLine ,nopts xst,xfn,yst,yfn, eA = ~A = sbmrotateobs ob1, ob2, nosteps px,py,qx,qy,cpx,cqx,cy,rpct,rpst,rqct,rqst,pnx,pny,qnx,qny px = py = qx = qy = ((px+qx)/2) cy = ((py+qy)/2) rp = ((px-qx)^2+(py-qy)^2)/2 ) - ( ob2)+qx)/2) rq = ((qx- )^2+((py-qy)^2)/4) theta = i* pnx = cpx - pny = cy + qnx = cqx + qny = cy - ob1 = ob2 = moveob g,h O) - ( &O) - ( (x^2+y^2) n=z movingobject (g),x,y,z sbmencrypt1 str outstr no = (10)-1 nodum = no (92)+32) n = (((n+15) k93)+33) -- work %\how sbmdecrypt1 str ci <= n = (((n+12) k93)+33) _zA|I suisys.tbk inifile entersystem .&+ +E .&+ +E .&+ +E exercise sbmnav showscore false viewer.tbk exbank.tbk book exbank.tbk sbmnavigate ,%H.% clearcommas fractmult vscalarmult clearcommas Attempted to add 2 vectors of different lengths Mfractadd v2len vecadd to get runfunc;get false ,SBMProcessML ;return it;end sbmInProgress ,Krunfunc mcalaunched tbkfunc Integration sq2roundbkt sbmMmaLink tex.tbk DdeMmaTbk sendToMma chari brackcount sbmstr2vars ,%H.% citem clearspaces sbmvars2str sbmstrrep fixcaretbug false sbmsymevalfunc lowlim fixcaretbug clearspaces false realAns errortol cCount constantdiff lowlim osysSuspend studAns wCount allowConstantDiff plusconst insertTimes plusconst simplecheckans check1 false sbmstrrep inserttimes check2 fsimplecheckans simplecheckans2var ,%H.% ,%H.% ,%H.% marker false foundterm cOisEquiv unorderedcompare false isEquiv ToString RightSyntax clearHspaces clearcommas Mfractadd fractmult retlist listmult listadd ,%H.% clearcommas fractmult listint w, #> w, #> signed Iqx2n coeff2poly .&, " .&, " .&, " 01234567890.+-/*^e *+-/^() ichar 01234567890. 01234567890.) clearspaces sbmsymevalfunc nchar cchar subForExpr retfunc CalcType-> sbmstrrep DiffLevel-> RightSyntax( cchar sq2roundbkt .&, 7 .&, 7 .&, " .&, " 1, #> sbmnumAndDen fract2 fract1 factorise fractmult oppsign clearsign .&, 7 .&, 7 .&, " .&, " 1, #> sbmnumAndDen fract2 fract1 factorise fractadd ,%H.% clearcommas numAndDen false factorise false isnum cchar fract cchar clearcommas sbmNumAndDen ,%H.% clearcommas .&, " signed false nchar cossintansqrtsecasacatotexploglnabscspi ochar insertcommas .+-*/)^ coshsinhtansqrtsecasacatotexploglnabscspi *+-/^ false (nspngtch nchar +-*/) ochar insertTimes .&, 7 InitProb ,%H.% larglist oldval vallist oldarg SetTempProb ,%H.% larglist vallist ResetTempProb .&, 7 tmpfn SetProb false 1, "D sbmstrpos false sbmstrpos poslist sbmstrrep 1, "L ,!J[" ,!J{" ,!J:" .&, " makefilename w, "V w, "V false sbmstr2vars termprod .&, " omovef3 .&, " Zmoving3objects movef3 starttime pauseanime sitest.dll mytime adjustspeed getmillitime getmillitime timenow moving3objects sbmflashfff sbmflashfff temp2 temp1 movef3 movef temp3 sumelement w, #> w, #> w, #> w, #> ,!JdY V, #> V, #> V, #> drawbracket right times new roman mcount exback acount sbmrandom genmatrix w, #> w, #> w, #> w, #> ,!JdY V, #> V, #> V, #> sbmrandomnf regular drawbracket right fixedsys mcount exback acount gen2matrix currentelement centre formatmatrix acount drawbracket -", #> sbmrandom sbmrandomnf -", #> sbmrandom2 sbmrandomnf2 -", 7 -", #> 1, "Q -", 7 1, "L changeval 1, "Q 1, "L changeval2 clearmatrix current matrix1 mat11 matorig deltay biggest colwidth deltax colheight startmatrix V, #> current right 0Mfntsize fsize omatratio deltay colheight plusrow current right 0Mfntsize fsize omatratio minusrow V, #> current colwidth right fsize 0Mfntsize deltax pluscol current colwidth right deltax minuscol .%, #> .%, #> resetsize right clearmatrix tfntwidth colwidth right matorig omatratio 0Mfntsize deltax ratio resetsize false equalbiggestF biggest equalbiggest right tabtext resizeElement mat11 swapRowTabOrder V, #> V, #> ,%H.% ,%H.% "$swapTabOrder transposeSwap swapTabOrder Syntax error: ++ not allowed Syntax error Syntax error: *+ not allowed Syntax error: -+ not allowed Syntax error: ** not allowed Syntax error: -* not allowed Syntax error: -- not allowed Syntax error: expression cannot start with + Syntax error: expression cannot end with + Replace the ? symbol(s) with numeric values Syntax error: expression cannot start with * Syntax error: expression cannot end with * Syntax error: expression cannot end with - checkmatrixsyntax Syntax error: ++ not allowed Syntax error Syntax error: *+ not allowed Syntax error: -+ not allowed Syntax error: ** not allowed Syntax error: -* not allowed mtext fieldname Syntax error: -- not allowed Syntax error: expression cannot start with + Syntax error: expression cannot end with + Replace the ? symbol(s) with numeric values Syntax error: expression cannot start with * Syntax error: expression cannot end with * Syntax error: expression cannot end with - checkfieldsyntax textto textin mtext displaycoeff .&, " .&, " .&, " 01234567890.+-/*^e *+-/^() ichar 01234567890. clearspaces sbmevalfunc 181, 191, 193, 197, 199, 211, 223, 227, 229 2, 3, 5, 7, 11, 13, 17, 19, 23, 29, 31, 37, supply an argument between 1 and 50 89, 97, 101, 103, 107, 109, 113, 127, 131, 41, 43, 47, 53, 59, 61, 67, 71, 73, 79, 83, 137, 139, 149, 151, 157, 163, 167, 173, 179, Prime .&, " mPrime prime supply an argument between 2 and 52441 mcount primefactors .&, " .&, " -", #> supply a list of prime factors as an argument sqrtsurdform w,!J2Y w,!J2Y 1,!JdY ylabel yaxis xlabel Xphys2screen Yphys2screen xaxis moveaxes solidhead setfieldstyles regular ylabel Times New Roman yaxis xlabel xaxis sbmextendf createAxes ,!JdY -", #> -", #> 1,!JKY 1,!JdY .&, " -", #> ,%H.% ,!JdY -", #> -", #> 1,!JdY .&, " -", #> ,%H.% setfieldstyles xtick1text regular Yphys2screen yticks Times New Roman ytick1 ytick dsbmformattext yaxis xaxis xtick1 Xphys2screen xtick ytick1text tform Jumoveaxes xticks vdrawsize sbmextendf drawticks w, #> w, #> w, #> w, #> w, #> w, #> w, #> w, #> -", #> -", #> w,!K, ystart yscalef false Yphys2screen sbmevalfunc xstart xscalef labeltext setfieldstyles Xphys2screen Times New Roman function outside plot range vdrawsize sbmextendf drawfunc sbmformatText setfieldstyles drawsize Xphys2screen Yphys2screen 1,!J<Y sbmextendf .&+ +E .&+ +E drawSlowCurve .&+ +E .&+ +E drawSlowLine sbmrotateobs posEnd mytime posStart movingobject moveob 1, "L ,!J!" 1, "L sbmencrypt1 1, "L ,!J!" 1, "L sbmdecrypt1 1, "L ,!J!" 1, "L sbmencrypt1 1, "L ,!J!" 1, "L sbmdecrypt1 INTERACTIVE CBL MODULE -- Runtime System book **** must be in the same directory as the tutorials **** Written by Simon Maunder Leeds/Imperial HEFCE TLTP Mathematica CBL Project. Copyright, The University of Leeds, January 1995. buttonup `= thickframe Menubar buttonup Script of this book buttonup TERACTIVE CBL MODULE -- Runtime System book **** must be in the same directory as the tutorials **** Written by Simon Maunder Leeds/Imperial HEFCE TLTP Mat % %!%"%#% E%F%G%H%I%J%K% "xtrig2" "expf1" "xexpf1" "xexpf2" "x2expf1" "x2expf2" "x2expf3" "board" "function" "1-der" "power" "square" "square1" "1-d- "1-d-sqr" "2-d- "2-d- argn HeadText( @type form() B"more" "linear" " y(x) = m x + c" " y'(x) = m" " y''(x) = 0" "quadratic" " y(x) = a x + b x + c" " y'(x) = 2 a x + b" " y''(x) = 2 a" "trig" " y(x) = a f( "&arg&"x ) + b " y'(x) = "& )&&"a &ToText( )&&"b f( "& " y''(x) = "& )&&"a f( "& & )&&"b "xtrig" " y(x) = x ( a f( "& " y'(x) = (b "& )&"ax) "x ) + (a "& )&"bx) f( "& " y''(x) = ("& )&"ax "& )&"b) f( "& "x ) + ("& )&"bx "& )&"a) " y(x) = a e " y'(x) = "& "1-d-pow" "1-d- " y''(x) = "& )&" a e "2-d- "2-d- "xexp" " y(x) = a x e " y'(x) = ("& a x + a) e "1-d- "1-d- " y''(x) = ("& &" a x "& )&"a) e "2-d- "2-d- "x2exp" " y(x) = a x " y'(x) = ("& + 2 a x) e "1-d- "1-d- "1-d- " y''(x) = ("& &"a x )&"a x + 2 a) e" movepower "2- ,"2-d- "2-d- "2-d- "2-d- resetbound " H(1000- ) >9650 H-500,0 H-300,0 H300,0 arg1,arg2 widthofchar )-i) x"x") I)-i+3 )-1890-100 )-1890 )-i+3 )-2040-100 )-2040 )+150 Hd1,d2 pitype() (temp B"more")&"-shadow" HeadText( txt1 "2-der") txt2 txt3 "function") coeff1 coeff2 form "border" "trig") "xtrig") "pi3- "subeqn" 9&ToText( )&"("& &")"&\ 9&"= "&( "trig0") )&"("& &")"&&\ )&"("& &")"&\ 9&"= "&( resetbound " distx disty R+150),( 6+150) "xexp") "x2exp") -d2y" -equal" -dy" -p1" arg&"x" -p2" -p3" )&"(" stagger " -y"," unite " -y"," )&"(" )&"(" -dy"," -y"," -dy"," -y"," "poly" "linear" -sqr" )&"("& )&"("& &")"&&\ )&"("& arg1,arg2,arg3,arg4,arg5,arg6,arg7 _)+50 Hd1,d2 tagf tafg "quadratic") taff "Incorrect parameters! Handler Unite Bsubstitue" K +150),( 0 +150) simplequestion "comp-fun" form() "coeff1" "coeff2" "d2y" roots lam1 (9)-5 lam2 (9)-5 -- testing xtrig 1 ans(0) getPI ToText( unite " ,"y",temp() ,"dy"," ,"y", ,"dy"," ,"y", ,"y", ,"dy"," ,"y", "pi1" (6)+1 (11)-6 ())&&"x"&&EndText((a* ()+b* ^-shadow" ())&&"x"&& ()+b* "linear" coeffpi() a,b,(a* ()),((a* ()+b* "pi2" (11)-6 (11)-6 alpha beta (2*a* ())+(b* gamma 2*a+(b* ())+(c* "quad" HeadText( e)&&"x" )&&"x" "lin" )&&"x" )&&"x" )&&"x"&& )&&"x"&& resetbound " &lin- "quadratic" a,b,c, "pi3" -- (7)-4 (7)-4 (a=0) (b=0) ()=n*n) 2*b*n -2*a*n ()-n*n)+b*n* ()-n*n)-a*n* "trig0" "Error code! Please report quoting ref: odesdexm" n)&"x)" n)&"x)" n)&"x)" n)&"x)" n)&"x)"\ n)&"x)" n)&"x)"\ n)&"x)" arg() "pi4" (11)-6 (11)-6 "pow" b)&"x" b)&"x" . <>3) < 1)) H 2))) U =1) c 1)) u 1)- { 2)) 4inifile "suisys.tbk" sbmnavigate ,showscore 8exbank. -- need test mma exercise a toolbook completed isopen B"quit" -- >the leave matrices exercises vscalarmult , stack vector = clearcommas(fractmult( vecadd v1len = v2len = "Attempted 2 vectors different lengths" v1 = sendToMma func 4sbmMmaLink,sbmInProgress,mcalaunched,sbmans tbkfunc = sq2roundbkt( 8"tex. runfunc; "DDE" "DdeMmaTbk" M"Integration" frm = SBMProcessML(sbmMmalink, sbmstr2vars t1 \i,n0 n0=1 t1 = "(" brackcount = 1 U(t1) chari = "-") n0 = 1 tmp = n0 = i n0 = 1 U(t1) U(t1) sbmvars2str nstr = "" citem = dclearspaces( fixcaretbug sbmstrrep("-","-1*", simplecheckans studAns, realAns, var, allowConstantDiff Zlogical osysSuspend,constantdiff cCount,wCount _ errortol = 1.0e-4 "= 4 allowconstantdiff = _ = 0 ` = 0 sySsuspend = studans = plusconst = "" W=insertTimes( lowlim = 0.5 +0.04 H0.005 sAns = sbmsymevalfunc( i,var) rAns = c) < i=0.5 i=0.5 i=i+0.005 Zi >= +0.04 wcount = 0 ) = "" ) = 0) -- entries may be +ccount <7 simplecheckans2var ,realans,var1,var2, inserttimes( value tans = <"1.23", rans = X"1.23", check1 = "2.47", "2.47", check2 = unorderedcompare list1, list2 -- returns 2 lists - 1st positions terms 7 also :,i.e. cterms, -- 2nd d, i.e. wterms foundterms ctermstr,wtermstr c = "" A = "" ev = isEquiv( , ev) )&","& &","&( &"marker"& term1, term2 ) < 1.0e-6 ToString RightSyntax clearHspaces str cc = cc = cc - 1 Zcc = 0 listmult l1c= a1 = l1 b1 = 0 c1 = 0 B = 2 a1 = b1 = c1 = 0 r = 3 a1 = b1 = c1 = l2c= a2 = l2 b2 = 0 c2 = 0 B = 2 a2 = b2 = c2 = 0 r = 3 a2 = b2 = c2 = a = lt(a1,a2)) b = b1,a2), a1,b2))) c = (fractadd( a1,c2), c1,a2)), b1,b2))) d = b1,c2), c1,b2))) e = lt(c1,c2)) retlist = a,b,c,d,e :<> 0 F) = 1 listadd l1c > l2c listint l1 = l1,("1/"&i))) x2n pow = "" = "x" = "x^"& coeff2poly clist -- given a coefficients function corresponding polynomial firstitem clen = <> 0 &signed( ,i<>1, )&x2n(i-1) ,val, -- where evaluates a B can be a fractional formatted , i.e "2/3" will convert 2x 2*x etc. Zstmp ichar R(i-1) "01234567890.)"&var R(i-1) "*+-/^()" = "x" R(i-1) (val) < 0 &")" "01234567890.+-/*^e " R(i-1) "01234567890." -- would be better Fcould use deciding a * between two adjacent subForExpr , subst, var -- substitutes each occurrance -- NOTE since a substitution should xcontain anywhere besides cchar = i <> nchar = Ri+1 "^/*" ( "-" &")" addquote "CalcType->" "DiffLevel->" retfunc = &"("& -- &","& &"{" !","a", fr1, fr2 fract1 = sbmnumAndDen( fract2 = q = ( ) * ( den = ( ) * ( factorise( )&",/,"&( oppsign str clearsign num = ( ) * ( ) + (( ) * ( ) * ( X,den) )&",/,"&( fcount = i R&","&den sbmNumAndDen isnum expr, iscoeff,isfirstterm "-+" = "+" = "+" = "+" insertcommas str ochar = Ri+1 istype(" i=i-1 ="." ".,"& ="." &"." &",." &"," "cossintansqrtsecasacatotexploglnabscspi" &"," Zi >= U(str)-1 "*+-/^" Ri+1 "*+-/^" i=i-1 ".+-*/)^" ="." "+-*/" ".*"& ="." "+-*/" &"*" "coshsinhtansqrtsecasacatotexploglnabscspi" "+-*/)" "(nspngtch" &"(" &"*(" &"*" Zi >= --InitProb[fn_, n_] := Do[fn[i] = i/n, {i,0,n}]; -- The following probability based functions a direct analogue 'Mathematica ones ease conversion Oquestions (SBM) fn, n ") = i/n SetTempProb arg 4larglist 4vallist,pr2 I = 1 oldarg = 1 oldval = ResetTempProb needsReset pr2 = SetProb fn, i, n tmpfn = fn - XtraProb = // (n-1) j <> i fn = fn + ipos str1, ', fc, i -- looks through find Ri) that equal P (fc). It Fcompares P+appropriate no. fout contained >( counting +ith %foundit str1len,str2len i=i+1 & = fc j = ( sbmstrpos ,1st returned (starting Rn-1), otherwise 0 fc = i=n-1 n <= *,fc,i) i = i >= i*,str3, -- replaces - 1st only omitted [poslist fc = 1 fc = makefilename str -- takes a , removes non-alphanumeric truncates newstr = "" chartoAnsi( [letter <123 >96 -- >47 -- termprod u,v, *ufn,vfn "sec" vfn = xufn .(u)) > 1 u = "("&u&")" .(v)) > 1 v = "("&v&")" "1/x" "1/x" v = "-" -- -- u = "-" u = "+" -- u = "+" u = "-" -- u = "-"&u -- -- "(1/x)" -- u = -(1/x)","(1/x",u, -- uv = -1/x","1/(x",u) && -1/x","x",v)&"))" -- uv = .1/x","1/(x",u) && .1/x","x",v)&")" "1/x" u = "-" -- -- v = "-" v = "+" -- v = "+" v = "-" -- v = "-"&v -- -- -- uv = v & .1/x","/x",u) "1/x" v = "-" -- -- u = "-" u = "+" -- u = "+" u = "-" -- u = "-"&u -- -- -- uv = u & /1/x","/x",v) u = "-" v = "-" v = "+" v = "+" v = "-" v = "-"&v uv = v&"*"&u uv = v & u v = "-" u = "-" u = "+" u = "+" u = "-" u = "-"&u uv = u&"*"&v uv = u & v uv = "+" uv = "+"&uv omovef3 g1,h1,g2,h2,g3,h3,mytime Zpoint posStart1,posEnd1,posStart2,posEnd2,posStart3,posEnd3,posNow1,posNow2,posNow3 x1,x2,x3,y1,y2,y3 ) - ( ) - ( ) - ( ) - ( ) - ( ) - ( + i*x1),( + i*y1) + i*x2),( + i*y2) + i*x3),( + i*y3) g3,h3, Zx1,x2,x3,y1,y2,y3,z1,z2,z3 ) - ( ) - ( ) - ( ) - ( ) - ( ) - ( (x1^2+y1^2) (x2^2+y2^2) (x3^2+y3^2) z1 <> 0 x1/z1 y1/z1 z2 <> 0 x2/z2 y2/z2 z3 <> 0 x3/z3 y3/z3 moving3objects ( g1),( g2),( g3),x1,y1,z1,x2,y2,z2,x3,y3,z3 g1 = g2 = g3 = flushmessagequeue() obj1,obj2,obj3,x1,y1,z1,x2,y2,z2,x3,y3,z3 ,pauseanime X"sitest.dll" getmillitime() dist=0 starttime= timenow= vel1=0 vel2=0 vel3=0 \ > t0 dt= t0 = loops sx1= *dt*x1 sy1= *dt*y1 sx2= *dt*x2 sy2= *dt*y2 sx3= *dt*x3 sy3= *dt*y3 adjustspeed() t0= sbmflashfff f,g,h origcolourf origcolourg origcolourh sumelement pos temp1 ("a"& temp2 temp3 ("b"& ("a"& ("b"& ("a"& m),("b"& v), " > ("a"& ),pos1, 9,pos2,("b"& ),pos3 aij, plussign 5above -- these 6ater replaced Ha single which Fmoved @answer matrix ("c"& ("a"& ("b"& ("a"& ("b"& ("c"&pos), ("c"& &"f") ("c"& ("c"& -&"f") ("c"& genmatrix n,m, b,xpos,ypos dynamic creation 7 nxm, filled numbers range 4mcount,acount mtext, nspaces,xcharsize,xsize,ysize,height ( = 2 . = 120 e&sbmrandom( &CRLF = 290*n "exback" qroman" FillColor d-- 0,75.3125,0 ("m"& drawbracket ( p- 100), ("m"& !("a"&( -3)), !("a"&( -2)), !("a"&( -1)), !("a"& = ("mg"& gen2matrix n,m, ,elnum -- used 2elements A<> 1 \. formatmatrix must be called. @=" " = 102*( +2) -- width = 153*( ) -- @&sbmrandomnf( = 250*n "fixedsys" regular d-- 0,75.3125,0 ("m"& - 100), ("m"& !("a"&( -3)), !("a"&( -2)), !("a"&( -1)), !("a"& = ("mg"& fieldname, n, m, elsize,ftype "centre" Tallowed \i,j,k,k1,k2 index,wc & = 1 wc = n*m g(wc-i+1) = "" currentelement wc = k1 = ( -wc) k2 = - wc - k1 ,btype bwidth = - ,), ( +3* H/4), ( W + k +3* /4), ( u + 3* ~ ,lval (n) generates P >= 0 sbmrandom2 b,notthis >= 0 sbmrandomnf2 changeval oldword,newword,stext a dynamically created -- without altering ONcolumn alignment w%,newval, remchar %< 0 5 < 0 ) %>= 0 K >= 0) = " "& changeval2 &< 0 < 0 ) &>= 0 >= 0) '< 0 = " "& %)scripts alteration input calling routines have their own handlers startmatrix 4colheight,colwidth,deltax,deltay,biggest[10] 4matrix1[][],row, P = 320 ? = 40 X = 500 Y = 40 clearmatrix "matorig" ="mat11" plusrow -1)&i) &i) = ("mat"& fsize = fntsize P = (matratio 8)/row S" = minusrow S" = pluscol M-1)) minuscol resetsize " inc = fw = fntwidth [+ 50 + inc* equalbiggest ccol,crow equalbiggestF = C)) = resizeElement i&j) Hdx,0 Hdx,0 " > 5400 "tabtext" swap Ytabbing extended swapRowTabOrder i = 1 j = 1 i&j) = transposeSwap i <= j-3 swapTabOrder (" i&j),(" (j-3)&(i+3)) 6f1,f2 stemp f1 = f2 = Xsyntax user entered checkmatrixsyntax != "Replace [? symbol(s) ,values" "++" "-+" "--" "**" "-*" "*+" expression cannot sysErrorNumber=0 <> 0 same except uses a pinstead Hreally done simon.tbk checkfieldsyntax "++" "-+" "--" "**" "-*" "*+" <> 0 displaycoeff textin, textto ) < 0 ( = "-1" & = "-" 8 = ^) = 0 Z = "+ 0" ~ = "1" { = "+" = "+"& sbmevalfunc Y -- RP="" kP = R(i-1) "01234567890."& R(i-1) "*+-/^()" "("&val&")" "01234567890.+-/*^e " R(i-1) "01234567890." ^ a * Prime n primelist = "2, 3, 5, 7, 11, 13, 17, 19, 23, 29, 31, 37,"\ &"41, 43, 47, 53, 59, 61, 67, 71, 73, 79, 83,"\ &"89, 97, 101, 103, 107, 109, 113, 127, 131,"&\ "137, 139, 149, 151, 157, 163, 167, 173, 179,"&\ "181, 191, 193, 197, 199, 211, 223, 227, 229" n < 1 n > 50 "supply primefactors n fprimefaclist n < 2 n > 52441 52441" +% = 1 mPrime = cisType( n = n/ % > 50 sqrtsurdform gplist q<intmult,rootmult %a,b (n) = a Y = 1 Z = 1 "1,"& i = len cval = (i-1) i = 1 Z(i <2) &","& Zxmin,xmax,ymin,ymax,yscalef,xscalef xstart,ystart -- rname = "ex1" createaxes ,"X","Y" x = -5 ~ = 5 = -4 -- dims = drawsize( drawticks drawfunc ("2x^2-2x+1","x",0.1, ,"exn", 6,"f(x) = f(x)",2.5, moveaxes px1,py2, label &"yaxis") = Xphys2screen(0, m&"ylabel") = &"xaxis") = Yphys2screen(0, &"xlabel") = createAxes Zpx2,py2 px1 = py1 = =+ 100),( 8+ 300) f - 100),( N+ 300) lineendsize = 1,2 lineendstyle v,solidhead + 300),( + 100) + 300),( - 100) = 2,1 100,100 500,400 setfieldstyles ( g New Roman", 14, sbmextendf = px2 - ( ) - 150 100,100 500,400 + 150 x2,py1, ,ticktype py2 refer _oREAL ~region F has no effect )present \prefix names xticks, yticks tmin,tmax, Zstepsize /(px2-px1) )/(py2-py1) = 10^( `.,10))) a sensible x tform = sbmformattext( </ = (px1/ y/ = /+100) j = i 100,100 500,400 &"xtick1text") , j , " "&i), "&i&" - py1 = 10^( a1,10))) +200 -- arrow C2 = u2 = 2+100), -- j = i 100,100 500,400 &"ytick1text") , j , " "&i), "&i&" ,linecol,linelabel,labelpos, backdropname vertlist,startpoint,prestart,postend mlinecount Lqfirsttime Zi,val q grad, points cope fclipping - a linear interpolation calulate crosses & = 0.0001 i >= Fgoutside plot ci <= w,i, P>= py1 = "" )&","& -- clipped - so o on frame i-(val- )&","& )&","& = "" )&","& )&","& ) > 2 &","& My,i- 5R> py2 )&","& (py1- )&","& &","& &","& i = ) > 2 &","& &","& 100,100 500,400 )-300, &"labeltext") U"&i) sbmformatText Zroundp, ,10)) ' >= 0 1 = 0 fname, ftext , ffont, |+, fstyle, bstyle, xastyle, xtstyle objectname ,dw,dh dw = dh = ,dw,dh xphys, scalefactor converts x part a physical co-ordinate units yphys, minb maxb 200*n safety })/2) f > 0 drawSlowCurve linename imax,mxpos,mypos drawSlowLine ,nopts xst,xfn,yst,yfn, eA = ~A = sbmrotateobs ob1, ob2, nosteps px,py,qx,qy,cpx,cqx,cy,rpct,rpst,rqct,rqst,pnx,pny,qnx,qny px = py = qx = qy = ((px+qx)/2) cy = ((py+qy)/2) rp = ((px-qx)^2+(py-qy)^2)/2 ) - ( ob2)+qx)/2) rq = ((qx- )^2+((py-qy)^2)/4) theta = i* pnx = cpx - pny = cy + qnx = cqx + qny = cy - ob1 = ob2 = moveob g,h O) - ( &O) - ( (x^2+y^2) n=z movingobject (g),x,y,z sbmencrypt1 str outstr no = (10)-1 nodum = no (92)+32) n = (((n+15) k93)+33) -- work }\how sbmdecrypt1 str ci <= n = (((n+12) k93)+33)