(*^ ::[ Information = "This is a Mathematica Notebook file. It contains ASCII text, and can be transferred by email, ftp, or other text-file transfer utility. It should be read or edited using a copy of Mathematica or MathReader. If you received this as email, use your mail application or copy/paste to save everything from the line containing (*^ down to the line containing ^*) into a plain text file. On some systems you may have to give the file a name ending with ".ma" to allow Mathematica to recognize it as a Notebook. The line below identifies what version of Mathematica created this file, but it can be opened using any other version as well."; FrontEndVersion = "NeXT Mathematica Notebook Front End Version 2.2"; NeXTStandardFontEncoding; fontset = title, inactive, noPageBreakBelow, noPageBreakInGroup, nohscroll, preserveAspect, groupLikeTitle, center, M7, bold, L1, e8, 24, "Times"; ; fontset = subtitle, inactive, noPageBreakBelow, noPageBreakInGroup, nohscroll, preserveAspect, groupLikeTitle, center, M7, bold, L1, e6, 18, "Times"; ; fontset = subsubtitle, inactive, noPageBreakBelow, noPageBreakInGroup, nohscroll, preserveAspect, groupLikeTitle, center, M7, italic, L1, e6, 14, "Times"; ; fontset = section, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeSection, grayBox, M22, bold, L1, a20, 18, "Times"; ; fontset = subsection, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeSection, blackBox, M19, bold, L1, a15, 14, "Times"; ; fontset = subsubsection, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeSection, whiteBox, M18, bold, L1, a12, 12, "Times"; ; fontset = text, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1, 12; fontset = smalltext, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1, 10, "Times"; ; fontset = input, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeInput, M42, N23, bold, L-5, 12, "Courier"; ; fontset = output, output, inactive, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeOutput, M42, N23, L-5, 12, "Courier"; ; fontset = message, inactive, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeOutput, M42, N23, R65535, L-5, 12, "Courier"; ; fontset = print, inactive, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeOutput, M42, N23, L-5, 12, "Courier"; ; fontset = info, inactive, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeOutput, M42, N23, B65535, L-5, 12, "Courier"; ; fontset = postscript, PostScript, formatAsPostScript, output, inactive, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeGraphics, M7, l34, w282, h287, L1, 12, "Courier"; ; fontset = name, inactive, noPageBreakInGroup, nohscroll, noKeepOnOnePage, preserveAspect, M7, italic, B65535, L1, 10, "Times"; ; fontset = header, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1, 12; fontset = leftheader, 12; fontset = footer, inactive, nohscroll, noKeepOnOnePage, preserveAspect, center, M7, L1, 12; fontset = leftfooter, 12; fontset = help, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1, 10, "Times"; ; fontset = clipboard, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1, 12; fontset = completions, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1, 12, "Courier"; ; fontset = special1, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1, 12; fontset = special2, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1, 12; fontset = special3, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1, 12; fontset = special4, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1, 12; fontset = special5, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1, 12; paletteColors = 128; automaticGrouping; currentKernel; ] :[font = title; inactive; preserveAspect; startGroup] Alpha Decay Figures for Alpha Decay Lab :[font = subtitle; inactive; preserveAspect; plain; fontName = "Times"] by Gerard P. Gilfoyle Department of Physics University of Richmond Richmond, VA 23173 gilfoyle@urvax.urich.edu :[font = subsubtitle; inactive; preserveAspect] Published in: Mathematica in Education and Research Vol.4 No.1 ;[s] 3:0,0;14,1;52,2;63,-1; 3:1,13,10,Times,2,14,0,0,0;1,13,10,Times,3,14,0,0,0;1,13,10,Times,2,14,0,0,0; :[font = subsubtitle; inactive; preserveAspect] Copyright 1995 TELOS/Springer-Verlag :[font = section; inactive; Cclosed; preserveAspect; startGroup] Input, constants, etc. :[font = input; preserveAspect; groupLikeNormal] Constants for the calculation. ;[s] 1:0,0;30,-1; 1:1,11,8,Times,0,12,0,0,0; :[font = input; preserveAspect; endGroup] Aout = 4.0; (* The emitted particle mass. *) Zout = 2.0; (* The emitted particle charge. *) hbarc = 197.0; (* h_bar times c *) e2 = hbarc/137; (* electron charge squared *) $DefaultFont = {"Helvetica",7}; (* Generate the potential here. Anuc - atomic number of parent nucleus Mout - mass of parent Znuc - charge of parent R0 - radius of parent Rmax - classical turning point of emitted particle step - width of an individual barrier Ve - array of (radius, potential energy) *) Ndiv = 3; Aout = 4; Zout = 2; Mout = Aout 931.5; Znuc = 84; Anuc = 212.0; Eout = 8.78; R0 = 1.4*(Anuc - 4)^(1/3); Rmax = Zout*(Znuc - 2)*e2/Eout; step = (Rmax - R0)/Ndiv; Ve = Table[{r, Zout*Znuc*e2/r}, {r, R0, Rmax-step,step}]; Vrec[x_] := Which[x<0,0, 0<=x<=1.0,10.0, 1{True,False}, PlotRange->{{-0.3,1.3},{-3.0,17.0}}, Frame->True, FrameLabel->{FontForm["x",{"Times-Italic",12}], FontForm["Potential Energy",{"Times-Italic",12}], (* FontForm["Figure 1",{"Times-Italic",12}],*) " "," "}, FrameTicks->{{{0.0," ",{0.03,0}}, {0.5," ",{0.03,0}}, {1.0," ",{0.03,0}}}, {{0.0," ",{0.03,0}}, {5.0," ",{0.03,0}}, {10.0," ",{0.03,0}, {15.0," ",{0.03,0}}}}} ] :[font = postscript; PostScript; formatAsPostScript; output; inactive; preserveAspect; pictureLeft = 34; pictureWidth = 240; pictureHeight = 148] %! %%Creator: Mathematica %%AspectRatio: .61803 MathPictureStart %% Graphics /Helvetica findfont 7 scalefont setfont % Scaling calculations 0.1875 0.625 0.092705 0.030902 [ [( )] .1875 0 0 2 0 Minner Mrotsboxa [( )] .5 0 0 2 0 Minner Mrotsboxa [( )] .8125 0 0 2 0 Minner Mrotsboxa p /Times-Italic findfont 12 scalefont setfont [(x)] .5 0 0 2 0 0 -1 Mouter Mrotsboxa P [( )] -0.03 .09271 1 0 0 Minner Mrotsboxa [( )] -0.03 .24721 1 0 0 Minner Mrotsboxa [( )] -0.03 .40172 1 0 0 Minner Mrotsboxa p /Times-Italic findfont 12 scalefont setfont [(Potential Energy)] -0.03 .30902 1 0 90 -1 0 Mouter Mrotsboxa P [( )] .5 .61803 0 -4 Msboxa [( )] 1.09 .30902 -1 0 90 Mrotsboxa [ -0.001 -0.001 0 0 ] [ 1.001 .61903 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath [ ] 0 setdash 0 g p p .002 w .1875 0 m .1875 .03 L s P [( )] .1875 0 0 2 0 Minner Mrotshowa p .002 w .5 0 m .5 .03 L s P [( )] .5 0 0 2 0 Minner Mrotshowa p .002 w .8125 0 m .8125 .03 L s P [( )] .8125 0 0 2 0 Minner Mrotshowa p /Times-Italic findfont 12 scalefont setfont [(x)] .5 0 0 2 0 0 -1 Mouter Mrotshowa P p .002 w 0 0 m 1 0 L s P p .002 w 0 .09271 m .03 .09271 L s P [( )] -0.03 .09271 1 0 0 Minner Mrotshowa p .002 w 0 .24721 m .03 .24721 L s P [( )] -0.03 .24721 1 0 0 Minner Mrotshowa p .002 w 0 .40172 m .03 .40172 L s P [( )] -0.03 .40172 1 0 0 Minner Mrotshowa p /Times-Italic findfont 12 scalefont setfont [(Potential Energy)] -0.03 .30902 1 0 90 -1 0 Mouter Mrotshowa P p .002 w 0 0 m 0 .61803 L s P P p p .002 w .1875 .58803 m .1875 .61803 L s P p .002 w .5 .58803 m .5 .61803 L s P p .002 w .8125 .58803 m .8125 .61803 L s P [( )] .5 .61803 0 -4 Mshowa p .002 w 0 .61803 m 1 .61803 L s P p .002 w .97 .09271 m 1 .09271 L s P p .002 w .97 .24721 m 1 .24721 L s P p .002 w .97 .40172 m 1 .40172 L s P [( )] 1.09 .30902 -1 0 90 Mrotshowa p .002 w 1 0 m 1 .61803 L s P P p p .002 w 0 .09271 m 1 .09271 L s P P 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath p p .004 w 0 .09271 m .04167 .09271 L .08333 .09271 L .125 .09271 L .14583 .09271 L .16667 .09271 L .17188 .09271 L .17708 .09271 L .17969 .09271 L .18229 .09271 L .18359 .09271 L .1849 .09271 L .1862 .09271 L .1875 .40172 L .1901 .40172 L .19271 .40172 L .19792 .40172 L .20833 .40172 L .25 .40172 L .29167 .40172 L .33333 .40172 L .375 .40172 L .41667 .40172 L .45833 .40172 L .5 .40172 L .54167 .40172 L .58333 .40172 L .625 .40172 L .66667 .40172 L .70833 .40172 L .75 .40172 L .77083 .40172 L .79167 .40172 L .80208 .40172 L .80729 .40172 L .8099 .40172 L .8112 .40172 L .8125 .40172 L .8138 .09271 L .8151 .09271 L .81771 .09271 L .82292 .09271 L .83333 .09271 L .875 .09271 L .91667 .09271 L .95833 .09271 L 1 .09271 L s P P % End of Graphics MathPictureEnd :[font = output; output; inactive; preserveAspect; endGroup] The Unformatted text for this cell was not generated. Use options in the Actions Preferences dialog box to control when Unformatted text is generated. ;[o] -Graphics- :[font = input; Cclosed; preserveAspect; startGroup] Show[{p1,Graphics[Text[FontForm["O",{"Times-Italic",8}],{0.0,-1.0}] ], Graphics[Text[FontForm["a",{"Times-Italic",8}],{1.0,-1.0}] ], Graphics[Text[FontForm["V",{"Times-Italic",8}],{-0.05,10.0}] ], Graphics[Text[ FontForm["0",{"Times",7}], {-0.03,9.7}] ], Graphics[{Dashing[{0.01,0.01}], AbsoluteThickness[0.5], Line[{{0.0,0.0}, {0.0,17.0}} ]} ], Graphics[{Dashing[{0.01,0.01}], AbsoluteThickness[0.5], Line[{{1.0,0.0}, {1.0,17.0}} ]} ], Graphics[Text[FontForm["Region 1",{"Times-Bold",9}],{-0.15,14.0}] ], Graphics[Text[FontForm["Region 2",{"Times-Bold",9}],{0.5,14.0}] ], Graphics[Text[FontForm["Region 3",{"Times-Bold",9}],{1.15,14.0}] ] } ] :[font = postscript; PostScript; formatAsPostScript; output; inactive; preserveAspect; pictureLeft = 34; pictureWidth = 240; pictureHeight = 148] %! %%Creator: Mathematica %%AspectRatio: .61803 MathPictureStart %% Graphics /Helvetica findfont 7 scalefont setfont % Scaling calculations 0.1875 0.625 0.092705 0.030902 [ [( )] .1875 0 0 2 0 Minner Mrotsboxa [( )] .5 0 0 2 0 Minner Mrotsboxa [( )] .8125 0 0 2 0 Minner Mrotsboxa p /Times-Italic findfont 12 scalefont setfont [(x)] .5 0 0 2 0 0 -1 Mouter Mrotsboxa P [( )] -0.03 .09271 1 0 0 Minner Mrotsboxa [( )] -0.03 .24721 1 0 0 Minner Mrotsboxa [( )] -0.03 .40172 1 0 0 Minner Mrotsboxa p /Times-Italic findfont 12 scalefont setfont [(Potential Energy)] -0.03 .30902 1 0 90 -1 0 Mouter Mrotsboxa P [( )] .5 .61803 0 -4 Msboxa [( )] 1.09 .30902 -1 0 90 Mrotsboxa [ -0.001 -0.001 0 0 ] [ 1.001 .61903 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath [ ] 0 setdash 0 g p p .002 w .1875 0 m .1875 .03 L s P [( )] .1875 0 0 2 0 Minner Mrotshowa p .002 w .5 0 m .5 .03 L s P [( )] .5 0 0 2 0 Minner Mrotshowa p .002 w .8125 0 m .8125 .03 L s P [( )] .8125 0 0 2 0 Minner Mrotshowa p /Times-Italic findfont 12 scalefont setfont [(x)] .5 0 0 2 0 0 -1 Mouter Mrotshowa P p .002 w 0 0 m 1 0 L s P p .002 w 0 .09271 m .03 .09271 L s P [( )] -0.03 .09271 1 0 0 Minner Mrotshowa p .002 w 0 .24721 m .03 .24721 L s P [( )] -0.03 .24721 1 0 0 Minner Mrotshowa p .002 w 0 .40172 m .03 .40172 L s P [( )] -0.03 .40172 1 0 0 Minner Mrotshowa p /Times-Italic findfont 12 scalefont setfont [(Potential Energy)] -0.03 .30902 1 0 90 -1 0 Mouter Mrotshowa P p .002 w 0 0 m 0 .61803 L s P P p p .002 w .1875 .58803 m .1875 .61803 L s P p .002 w .5 .58803 m .5 .61803 L s P p .002 w .8125 .58803 m .8125 .61803 L s P [( )] .5 .61803 0 -4 Mshowa p .002 w 0 .61803 m 1 .61803 L s P p .002 w .97 .09271 m 1 .09271 L s P p .002 w .97 .24721 m 1 .24721 L s P p .002 w .97 .40172 m 1 .40172 L s P [( )] 1.09 .30902 -1 0 90 Mrotshowa p .002 w 1 0 m 1 .61803 L s P P p p .002 w 0 .09271 m 1 .09271 L s P P 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath p p p .004 w 0 .09271 m .04167 .09271 L .08333 .09271 L .125 .09271 L .14583 .09271 L .16667 .09271 L .17188 .09271 L .17708 .09271 L .17969 .09271 L .18229 .09271 L .18359 .09271 L .1849 .09271 L .1862 .09271 L .1875 .40172 L .1901 .40172 L .19271 .40172 L .19792 .40172 L .20833 .40172 L .25 .40172 L .29167 .40172 L .33333 .40172 L .375 .40172 L .41667 .40172 L .45833 .40172 L .5 .40172 L .54167 .40172 L .58333 .40172 L .625 .40172 L .66667 .40172 L .70833 .40172 L .75 .40172 L .77083 .40172 L .79167 .40172 L .80208 .40172 L .80729 .40172 L .8099 .40172 L .8112 .40172 L .8125 .40172 L .8138 .09271 L .8151 .09271 L .81771 .09271 L .82292 .09271 L .83333 .09271 L .875 .09271 L .91667 .09271 L .95833 .09271 L 1 .09271 L s P P p /Times-Italic findfont 8 scalefont setfont [(O)] .1875 .0618 0 0 Mshowa P p /Times-Italic findfont 8 scalefont setfont [(a)] .8125 .0618 0 0 Mshowa P p /Times-Italic findfont 8 scalefont setfont [(V)] .15625 .40172 0 0 Mshowa P p /Times findfont 7 scalefont setfont [(0)] .16875 .39245 0 0 Mshowa P p [ .01 .01 ] 0 setdash .5 Mabswid .1875 .09271 m .1875 .61803 L s P p [ .01 .01 ] 0 setdash .5 Mabswid .8125 .09271 m .8125 .61803 L s P p /Times-Bold findfont 9 scalefont setfont [(Region 1)] .09375 .52533 0 0 Mshowa P p /Times-Bold findfont 9 scalefont setfont [(Region 2)] .5 .52533 0 0 Mshowa P p /Times-Bold findfont 9 scalefont setfont [(Region 3)] .90625 .52533 0 0 Mshowa P P % End of Graphics MathPictureEnd :[font = output; output; inactive; preserveAspect; endGroup; endGroup] The Unformatted text for this cell was not generated. Use options in the Actions Preferences dialog box to control when Unformatted text is generated. ;[o] -Graphics- :[font = section; inactive; Cclosed; preserveAspect; startGroup] Figure 2 :[font = input; preserveAspect] $DefaultFont={"Helvetica",7}; :[font = input; Cclosed; preserveAspect; startGroup] p2 = Plot[Zout*Znuc*e2/x, {x,R0,40}, PlotRange->{{0,40},{0,35}}, Frame->True, FrameLabel->{FontForm["x(fm)",{"Times-Italic",12}], FontForm["V(MeV)",{"Times-Italic",12}], " ", " " } ] :[font = postscript; PostScript; formatAsPostScript; output; inactive; preserveAspect; pictureLeft = 34; pictureWidth = 240; pictureHeight = 148] %! %%Creator: Mathematica %%AspectRatio: .61803 MathPictureStart %% Graphics /Helvetica findfont 7 scalefont setfont % Scaling calculations -2.77555e-17 0.025 -8.67361e-18 0.017658 [ [(5)] .125 0 0 2 0 Minner Mrotsboxa [(10)] .25 0 0 2 0 Minner Mrotsboxa [(15)] .375 0 0 2 0 Minner Mrotsboxa [(20)] .5 0 0 2 0 Minner Mrotsboxa [(25)] .625 0 0 2 0 Minner Mrotsboxa [(30)] .75 0 0 2 0 Minner Mrotsboxa [(35)] .875 0 0 2 0 Minner Mrotsboxa [(40)] 1 0 0 2 0 Minner Mrotsboxa p /Times-Italic findfont 12 scalefont setfont [(x\(fm\))] .5 0 0 2 0 0 -1 Mouter Mrotsboxa P [(0)] -0.0125 0 1 0 0 Minner Mrotsboxa [(5)] -0.0125 .08829 1 0 0 Minner Mrotsboxa [(10)] -0.0125 .17658 1 0 0 Minner Mrotsboxa [(15)] -0.0125 .26487 1 0 0 Minner Mrotsboxa [(20)] -0.0125 .35316 1 0 0 Minner Mrotsboxa [(25)] -0.0125 .44145 1 0 0 Minner Mrotsboxa [(30)] -0.0125 .52974 1 0 0 Minner Mrotsboxa [(35)] -0.0125 .61803 1 0 0 Minner Mrotsboxa p /Times-Italic findfont 12 scalefont setfont [(V\(MeV\))] -0.0125 .30902 1 0 90 -1 0 Mouter Mrotsboxa P [( )] .5 .61803 0 -4 Msboxa [( )] 1.0375 .30902 -1 0 90 Mrotsboxa [ -0.001 -0.001 0 0 ] [ 1.001 .61903 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath [ ] 0 setdash 0 g p p .002 w .125 0 m .125 .00625 L s P [(5)] .125 0 0 2 0 Minner Mrotshowa p .002 w .25 0 m .25 .00625 L s P [(10)] .25 0 0 2 0 Minner Mrotshowa p .002 w .375 0 m .375 .00625 L s P [(15)] .375 0 0 2 0 Minner Mrotshowa p .002 w .5 0 m .5 .00625 L s P [(20)] .5 0 0 2 0 Minner Mrotshowa p .002 w .625 0 m .625 .00625 L s P [(25)] .625 0 0 2 0 Minner Mrotshowa p .002 w .75 0 m .75 .00625 L s P [(30)] .75 0 0 2 0 Minner Mrotshowa p .002 w .875 0 m .875 .00625 L s P [(35)] .875 0 0 2 0 Minner Mrotshowa p .002 w 1 0 m 1 .00625 L s P [(40)] 1 0 0 2 0 Minner Mrotshowa p .001 w .025 0 m .025 .00375 L s P p .001 w .05 0 m .05 .00375 L s P p .001 w .075 0 m .075 .00375 L s P p .001 w .1 0 m .1 .00375 L s P p .001 w .15 0 m .15 .00375 L s P p .001 w .175 0 m .175 .00375 L s P p .001 w .2 0 m .2 .00375 L s P p .001 w .225 0 m .225 .00375 L s P p .001 w .275 0 m .275 .00375 L s P p .001 w .3 0 m .3 .00375 L s P p .001 w .325 0 m .325 .00375 L s P p .001 w .35 0 m .35 .00375 L s P p .001 w .4 0 m .4 .00375 L s P p .001 w .425 0 m .425 .00375 L s P p .001 w .45 0 m .45 .00375 L s P p .001 w .475 0 m .475 .00375 L s P p .001 w .525 0 m .525 .00375 L s P p .001 w .55 0 m .55 .00375 L s P p .001 w .575 0 m .575 .00375 L s P p .001 w .6 0 m .6 .00375 L s P p .001 w .65 0 m .65 .00375 L s P p .001 w .675 0 m .675 .00375 L s P p .001 w .7 0 m .7 .00375 L s P p .001 w .725 0 m .725 .00375 L s P p .001 w .775 0 m .775 .00375 L s P p .001 w .8 0 m .8 .00375 L s P p .001 w .825 0 m .825 .00375 L s P p .001 w .85 0 m .85 .00375 L s P p .001 w .9 0 m .9 .00375 L s P p .001 w .925 0 m .925 .00375 L s P p .001 w .95 0 m .95 .00375 L s P p .001 w .975 0 m .975 .00375 L s P p /Times-Italic findfont 12 scalefont setfont [(x\(fm\))] .5 0 0 2 0 0 -1 Mouter Mrotshowa P p .002 w 0 0 m 1 0 L s P p .002 w 0 0 m .00625 0 L s P [(0)] -0.0125 0 1 0 0 Minner Mrotshowa p .002 w 0 .08829 m .00625 .08829 L s P [(5)] -0.0125 .08829 1 0 0 Minner Mrotshowa p .002 w 0 .17658 m .00625 .17658 L s P [(10)] -0.0125 .17658 1 0 0 Minner Mrotshowa p .002 w 0 .26487 m .00625 .26487 L s P [(15)] -0.0125 .26487 1 0 0 Minner Mrotshowa p .002 w 0 .35316 m .00625 .35316 L s P [(20)] -0.0125 .35316 1 0 0 Minner Mrotshowa p .002 w 0 .44145 m .00625 .44145 L s P [(25)] -0.0125 .44145 1 0 0 Minner Mrotshowa p .002 w 0 .52974 m .00625 .52974 L s P [(30)] -0.0125 .52974 1 0 0 Minner Mrotshowa p .002 w 0 .61803 m .00625 .61803 L s P [(35)] -0.0125 .61803 1 0 0 Minner Mrotshowa p .001 w 0 .01766 m .00375 .01766 L s P p .001 w 0 .03532 m .00375 .03532 L s P p .001 w 0 .05297 m .00375 .05297 L s P p .001 w 0 .07063 m .00375 .07063 L s P p .001 w 0 .10595 m .00375 .10595 L s P p .001 w 0 .12361 m .00375 .12361 L s P p .001 w 0 .14126 m .00375 .14126 L s P p .001 w 0 .15892 m .00375 .15892 L s P p .001 w 0 .19424 m .00375 .19424 L s P p .001 w 0 .2119 m .00375 .2119 L s P p .001 w 0 .22956 m .00375 .22956 L s P p .001 w 0 .24721 m .00375 .24721 L s P p .001 w 0 .28253 m .00375 .28253 L s P p .001 w 0 .30019 m .00375 .30019 L s P p .001 w 0 .31785 m .00375 .31785 L s P p .001 w 0 .3355 m .00375 .3355 L s P p .001 w 0 .37082 m .00375 .37082 L s P p .001 w 0 .38848 m .00375 .38848 L s P p .001 w 0 .40614 m .00375 .40614 L s P p .001 w 0 .42379 m .00375 .42379 L s P p .001 w 0 .45911 m .00375 .45911 L s P p .001 w 0 .47677 m .00375 .47677 L s P p .001 w 0 .49443 m .00375 .49443 L s P p .001 w 0 .51209 m .00375 .51209 L s P p .001 w 0 .5474 m .00375 .5474 L s P p .001 w 0 .56506 m .00375 .56506 L s P p .001 w 0 .58272 m .00375 .58272 L s P p .001 w 0 .60038 m .00375 .60038 L s P p /Times-Italic findfont 12 scalefont setfont [(V\(MeV\))] -0.0125 .30902 1 0 90 -1 0 Mouter Mrotshowa P p .002 w 0 0 m 0 .61803 L s P P p p .002 w 0 .61178 m 0 .61803 L s P p .002 w .125 .61178 m .125 .61803 L s P p .002 w .25 .61178 m .25 .61803 L s P p .002 w .375 .61178 m .375 .61803 L s P p .002 w .5 .61178 m .5 .61803 L s P p .002 w .625 .61178 m .625 .61803 L s P p .002 w .75 .61178 m .75 .61803 L s P p .002 w .875 .61178 m .875 .61803 L s P p .001 w .025 .61428 m .025 .61803 L s P p .001 w .05 .61428 m .05 .61803 L s P p .001 w .075 .61428 m .075 .61803 L s P p .001 w .1 .61428 m .1 .61803 L s P p .001 w .15 .61428 m .15 .61803 L s P p .001 w .175 .61428 m .175 .61803 L s P p .001 w .2 .61428 m .2 .61803 L s P p .001 w .225 .61428 m .225 .61803 L s P p .001 w .275 .61428 m .275 .61803 L s P p .001 w .3 .61428 m .3 .61803 L s P p .001 w .325 .61428 m .325 .61803 L s P p .001 w .35 .61428 m .35 .61803 L s P p .001 w .4 .61428 m .4 .61803 L s P p .001 w .425 .61428 m .425 .61803 L s P p .001 w .45 .61428 m .45 .61803 L s P p .001 w .475 .61428 m .475 .61803 L s P p .001 w .525 .61428 m .525 .61803 L s P p .001 w .55 .61428 m .55 .61803 L s P p .001 w .575 .61428 m .575 .61803 L s P p .001 w .6 .61428 m .6 .61803 L s P p .001 w .65 .61428 m .65 .61803 L s P p .001 w .675 .61428 m .675 .61803 L s P p .001 w .7 .61428 m .7 .61803 L s P p .001 w .725 .61428 m .725 .61803 L s P p .001 w .775 .61428 m .775 .61803 L s P p .001 w .8 .61428 m .8 .61803 L s P p .001 w .825 .61428 m .825 .61803 L s P p .001 w .85 .61428 m .85 .61803 L s P p .001 w .9 .61428 m .9 .61803 L s P p .001 w .925 .61428 m .925 .61803 L s P p .001 w .95 .61428 m .95 .61803 L s P p .001 w .975 .61428 m .975 .61803 L s P [( )] .5 .61803 0 -4 Mshowa p .002 w 0 .61803 m 1 .61803 L s P p .002 w .99375 0 m 1 0 L s P p .002 w .99375 .08829 m 1 .08829 L s P p .002 w .99375 .17658 m 1 .17658 L s P p .002 w .99375 .26487 m 1 .26487 L s P p .002 w .99375 .35316 m 1 .35316 L s P p .002 w .99375 .44145 m 1 .44145 L s P p .002 w .99375 .52974 m 1 .52974 L s P p .001 w .99625 .01766 m 1 .01766 L s P p .001 w .99625 .03532 m 1 .03532 L s P p .001 w .99625 .05297 m 1 .05297 L s P p .001 w .99625 .07063 m 1 .07063 L s P p .001 w .99625 .10595 m 1 .10595 L s P p .001 w .99625 .12361 m 1 .12361 L s P p .001 w .99625 .14126 m 1 .14126 L s P p .001 w .99625 .15892 m 1 .15892 L s P p .001 w .99625 .19424 m 1 .19424 L s P p .001 w .99625 .2119 m 1 .2119 L s P p .001 w .99625 .22956 m 1 .22956 L s P p .001 w .99625 .24721 m 1 .24721 L s P p .001 w .99625 .28253 m 1 .28253 L s P p .001 w .99625 .30019 m 1 .30019 L s P p .001 w .99625 .31785 m 1 .31785 L s P p .001 w .99625 .3355 m 1 .3355 L s P p .001 w .99625 .37082 m 1 .37082 L s P p .001 w .99625 .38848 m 1 .38848 L s P p .001 w .99625 .40614 m 1 .40614 L s P p .001 w .99625 .42379 m 1 .42379 L s P p .001 w .99625 .45911 m 1 .45911 L s P p .001 w .99625 .47677 m 1 .47677 L s P p .001 w .99625 .49443 m 1 .49443 L s P p .001 w .99625 .51209 m 1 .51209 L s P p .001 w .99625 .5474 m 1 .5474 L s P p .001 w .99625 .56506 m 1 .56506 L s P p .001 w .99625 .58272 m 1 .58272 L s P p .001 w .99625 .60038 m 1 .60038 L s P [( )] 1.0375 .30902 -1 0 90 Mrotshowa p .002 w 1 0 m 1 .61803 L s P P p P 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath p p .004 w .20737 .51426 m .2404 .44361 L .27343 .39003 L .30645 .348 L .33948 .31414 L .3725 .28629 L .40553 .26298 L .43856 .24317 L .47158 .22614 L .50461 .21134 L .53764 .19836 L .57066 .18688 L .60369 .17666 L .63671 .16749 L .66974 .15923 L .70277 .15175 L .73579 .14494 L .76882 .13871 L .80184 .133 L .83487 .12774 L .8679 .12288 L .90092 .11837 L .93395 .11419 L .96697 .11029 L 1 .10664 L s P P % End of Graphics MathPictureEnd :[font = output; output; inactive; preserveAspect; endGroup] The Unformatted text for this cell was not generated. Use options in the Actions Preferences dialog box to control when Unformatted text is generated. ;[o] -Graphics- :[font = input; Cclosed; preserveAspect; startGroup] Show[{p2, Graphics[{Dashing[{0.01,0.01}], Line[{{0.0,Eout}, {40,Eout}} ]} ], Graphics[Line[{{R0,0}, {Ve[[1,1]],Ve[[1,2]]}} ] ], Graphics[{Dashing[{0.005,0.01,0.02,0.01}], Line[{{Ve[[1,1]],Ve[[1,2]]}, {Ve[[2,1]],Ve[[1,2]]}} ]} ], Graphics[{Dashing[{0.005,0.01,0.02,0.01}], Line[{{Ve[[2,1]],Ve[[1,2]]}, {Ve[[2,1]],Ve[[2,2]]}} ]} ], Graphics[{Dashing[{0.005,0.01,0.02,0.01}], Line[{{Ve[[2,1]],Ve[[2,2]]}, {Ve[[3,1]],Ve[[2,2]]}} ]} ], Graphics[{Dashing[{0.005,0.01,0.02,0.01}], Line[{{Ve[[3,1]],Ve[[2,2]]}, {Ve[[3,1]],Ve[[3,2]]}} ]} ], Graphics[{Dashing[{0.005,0.01,0.02,0.01}], Line[{{Ve[[3,1]],Ve[[3,2]]}, {Rmax,Ve[[3,2]]}} ]} ], Graphics[{Dashing[{0.005,0.01,0.02,0.01}], Line[{{Rmax,Ve[[3,2]]}, {Rmax,Eout}} ]} ], Graphics[{AbsoluteThickness[0.5], Line[{{31.5,17}, {35,9.2}} ]} ], Graphics[{Text[FontForm["V",{"Times-Italic",8}],{11.5,31.0},{0,0}], Text[FontForm["V",{"Times-Italic",8}],{17.5,18.5},{0,0}], Text[FontForm["V",{"Times-Italic",8}],{23.5,13.5},{0,0}] }], Graphics[{Text[FontForm["1",{"Times-Italic",7}],{12.0,30.5},{0,0}], Text[FontForm["2",{"Times-Italic",7}],{18.0,18.0},{0,0}], Text[FontForm["3",{"Times-Italic",7}],{24.0,13.0},{0,0}] }], Graphics[Text[FontForm["a ",{"Symbol",10}],{28.0,18.3}] ], Graphics[Text[FontForm[" Energy",{"Times-Italic",10}],{32.8,18.2}] ] } ] :[font = postscript; PostScript; formatAsPostScript; output; inactive; preserveAspect; pictureLeft = 34; pictureWidth = 240; pictureHeight = 148] %! %%Creator: Mathematica %%AspectRatio: .61803 MathPictureStart %% Graphics /Helvetica findfont 7 scalefont setfont % Scaling calculations -2.77555e-17 0.025 -8.67361e-18 0.017658 [ [(5)] .125 0 0 2 0 Minner Mrotsboxa [(10)] .25 0 0 2 0 Minner Mrotsboxa [(15)] .375 0 0 2 0 Minner Mrotsboxa [(20)] .5 0 0 2 0 Minner Mrotsboxa [(25)] .625 0 0 2 0 Minner Mrotsboxa [(30)] .75 0 0 2 0 Minner Mrotsboxa [(35)] .875 0 0 2 0 Minner Mrotsboxa [(40)] 1 0 0 2 0 Minner Mrotsboxa p /Times-Italic findfont 12 scalefont setfont [(x\(fm\))] .5 0 0 2 0 0 -1 Mouter Mrotsboxa P [(0)] -0.0125 0 1 0 0 Minner Mrotsboxa [(5)] -0.0125 .08829 1 0 0 Minner Mrotsboxa [(10)] -0.0125 .17658 1 0 0 Minner Mrotsboxa [(15)] -0.0125 .26487 1 0 0 Minner Mrotsboxa [(20)] -0.0125 .35316 1 0 0 Minner Mrotsboxa [(25)] -0.0125 .44145 1 0 0 Minner Mrotsboxa [(30)] -0.0125 .52974 1 0 0 Minner Mrotsboxa [(35)] -0.0125 .61803 1 0 0 Minner Mrotsboxa p /Times-Italic findfont 12 scalefont setfont [(V\(MeV\))] -0.0125 .30902 1 0 90 -1 0 Mouter Mrotsboxa P [( )] .5 .61803 0 -4 Msboxa [( )] 1.0375 .30902 -1 0 90 Mrotsboxa [ -0.001 -0.001 0 0 ] [ 1.001 .61903 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath [ ] 0 setdash 0 g p p .002 w .125 0 m .125 .00625 L s P [(5)] .125 0 0 2 0 Minner Mrotshowa p .002 w .25 0 m .25 .00625 L s P [(10)] .25 0 0 2 0 Minner Mrotshowa p .002 w .375 0 m .375 .00625 L s P [(15)] .375 0 0 2 0 Minner Mrotshowa p .002 w .5 0 m .5 .00625 L s P [(20)] .5 0 0 2 0 Minner Mrotshowa p .002 w .625 0 m .625 .00625 L s P [(25)] .625 0 0 2 0 Minner Mrotshowa p .002 w .75 0 m .75 .00625 L s P [(30)] .75 0 0 2 0 Minner Mrotshowa p .002 w .875 0 m .875 .00625 L s P [(35)] .875 0 0 2 0 Minner Mrotshowa p .002 w 1 0 m 1 .00625 L s P [(40)] 1 0 0 2 0 Minner Mrotshowa p .001 w .025 0 m .025 .00375 L s P p .001 w .05 0 m .05 .00375 L s P p .001 w .075 0 m .075 .00375 L s P p .001 w .1 0 m .1 .00375 L s P p .001 w .15 0 m .15 .00375 L s P p .001 w .175 0 m .175 .00375 L s P p .001 w .2 0 m .2 .00375 L s P p .001 w .225 0 m .225 .00375 L s P p .001 w .275 0 m .275 .00375 L s P p .001 w .3 0 m .3 .00375 L s P p .001 w .325 0 m .325 .00375 L s P p .001 w .35 0 m .35 .00375 L s P p .001 w .4 0 m .4 .00375 L s P p .001 w .425 0 m .425 .00375 L s P p .001 w .45 0 m .45 .00375 L s P p .001 w .475 0 m .475 .00375 L s P p .001 w .525 0 m .525 .00375 L s P p .001 w .55 0 m .55 .00375 L s P p .001 w .575 0 m .575 .00375 L s P p .001 w .6 0 m .6 .00375 L s P p .001 w .65 0 m .65 .00375 L s P p .001 w .675 0 m .675 .00375 L s P p .001 w .7 0 m .7 .00375 L s P p .001 w .725 0 m .725 .00375 L s P p .001 w .775 0 m .775 .00375 L s P p .001 w .8 0 m .8 .00375 L s P p .001 w .825 0 m .825 .00375 L s P p .001 w .85 0 m .85 .00375 L s P p .001 w .9 0 m .9 .00375 L s P p .001 w .925 0 m .925 .00375 L s P p .001 w .95 0 m .95 .00375 L s P p .001 w .975 0 m .975 .00375 L s P p /Times-Italic findfont 12 scalefont setfont [(x\(fm\))] .5 0 0 2 0 0 -1 Mouter Mrotshowa P p .002 w 0 0 m 1 0 L s P p .002 w 0 0 m .00625 0 L s P [(0)] -0.0125 0 1 0 0 Minner Mrotshowa p .002 w 0 .08829 m .00625 .08829 L s P [(5)] -0.0125 .08829 1 0 0 Minner Mrotshowa p .002 w 0 .17658 m .00625 .17658 L s P [(10)] -0.0125 .17658 1 0 0 Minner Mrotshowa p .002 w 0 .26487 m .00625 .26487 L s P [(15)] -0.0125 .26487 1 0 0 Minner Mrotshowa p .002 w 0 .35316 m .00625 .35316 L s P [(20)] -0.0125 .35316 1 0 0 Minner Mrotshowa p .002 w 0 .44145 m .00625 .44145 L s P [(25)] -0.0125 .44145 1 0 0 Minner Mrotshowa p .002 w 0 .52974 m .00625 .52974 L s P [(30)] -0.0125 .52974 1 0 0 Minner Mrotshowa p .002 w 0 .61803 m .00625 .61803 L s P [(35)] -0.0125 .61803 1 0 0 Minner Mrotshowa p .001 w 0 .01766 m .00375 .01766 L s P p .001 w 0 .03532 m .00375 .03532 L s P p .001 w 0 .05297 m .00375 .05297 L s P p .001 w 0 .07063 m .00375 .07063 L s P p .001 w 0 .10595 m .00375 .10595 L s P p .001 w 0 .12361 m .00375 .12361 L s P p .001 w 0 .14126 m .00375 .14126 L s P p .001 w 0 .15892 m .00375 .15892 L s P p .001 w 0 .19424 m .00375 .19424 L s P p .001 w 0 .2119 m .00375 .2119 L s P p .001 w 0 .22956 m .00375 .22956 L s P p .001 w 0 .24721 m .00375 .24721 L s P p .001 w 0 .28253 m .00375 .28253 L s P p .001 w 0 .30019 m .00375 .30019 L s P p .001 w 0 .31785 m .00375 .31785 L s P p .001 w 0 .3355 m .00375 .3355 L s P p .001 w 0 .37082 m .00375 .37082 L s P p .001 w 0 .38848 m .00375 .38848 L s P p .001 w 0 .40614 m .00375 .40614 L s P p .001 w 0 .42379 m .00375 .42379 L s P p .001 w 0 .45911 m .00375 .45911 L s P p .001 w 0 .47677 m .00375 .47677 L s P p .001 w 0 .49443 m .00375 .49443 L s P p .001 w 0 .51209 m .00375 .51209 L s P p .001 w 0 .5474 m .00375 .5474 L s P p .001 w 0 .56506 m .00375 .56506 L s P p .001 w 0 .58272 m .00375 .58272 L s P p .001 w 0 .60038 m .00375 .60038 L s P p /Times-Italic findfont 12 scalefont setfont [(V\(MeV\))] -0.0125 .30902 1 0 90 -1 0 Mouter Mrotshowa P p .002 w 0 0 m 0 .61803 L s P P p p .002 w 0 .61178 m 0 .61803 L s P p .002 w .125 .61178 m .125 .61803 L s P p .002 w .25 .61178 m .25 .61803 L s P p .002 w .375 .61178 m .375 .61803 L s P p .002 w .5 .61178 m .5 .61803 L s P p .002 w .625 .61178 m .625 .61803 L s P p .002 w .75 .61178 m .75 .61803 L s P p .002 w .875 .61178 m .875 .61803 L s P p .001 w .025 .61428 m .025 .61803 L s P p .001 w .05 .61428 m .05 .61803 L s P p .001 w .075 .61428 m .075 .61803 L s P p .001 w .1 .61428 m .1 .61803 L s P p .001 w .15 .61428 m .15 .61803 L s P p .001 w .175 .61428 m .175 .61803 L s P p .001 w .2 .61428 m .2 .61803 L s P p .001 w .225 .61428 m .225 .61803 L s P p .001 w .275 .61428 m .275 .61803 L s P p .001 w .3 .61428 m .3 .61803 L s P p .001 w .325 .61428 m .325 .61803 L s P p .001 w .35 .61428 m .35 .61803 L s P p .001 w .4 .61428 m .4 .61803 L s P p .001 w .425 .61428 m .425 .61803 L s P p .001 w .45 .61428 m .45 .61803 L s P p .001 w .475 .61428 m .475 .61803 L s P p .001 w .525 .61428 m .525 .61803 L s P p .001 w .55 .61428 m .55 .61803 L s P p .001 w .575 .61428 m .575 .61803 L s P p .001 w .6 .61428 m .6 .61803 L s P p .001 w .65 .61428 m .65 .61803 L s P p .001 w .675 .61428 m .675 .61803 L s P p .001 w .7 .61428 m .7 .61803 L s P p .001 w .725 .61428 m .725 .61803 L s P p .001 w .775 .61428 m .775 .61803 L s P p .001 w .8 .61428 m .8 .61803 L s P p .001 w .825 .61428 m .825 .61803 L s P p .001 w .85 .61428 m .85 .61803 L s P p .001 w .9 .61428 m .9 .61803 L s P p .001 w .925 .61428 m .925 .61803 L s P p .001 w .95 .61428 m .95 .61803 L s P p .001 w .975 .61428 m .975 .61803 L s P [( )] .5 .61803 0 -4 Mshowa p .002 w 0 .61803 m 1 .61803 L s P p .002 w .99375 0 m 1 0 L s P p .002 w .99375 .08829 m 1 .08829 L s P p .002 w .99375 .17658 m 1 .17658 L s P p .002 w .99375 .26487 m 1 .26487 L s P p .002 w .99375 .35316 m 1 .35316 L s P p .002 w .99375 .44145 m 1 .44145 L s P p .002 w .99375 .52974 m 1 .52974 L s P p .001 w .99625 .01766 m 1 .01766 L s P p .001 w .99625 .03532 m 1 .03532 L s P p .001 w .99625 .05297 m 1 .05297 L s P p .001 w .99625 .07063 m 1 .07063 L s P p .001 w .99625 .10595 m 1 .10595 L s P p .001 w .99625 .12361 m 1 .12361 L s P p .001 w .99625 .14126 m 1 .14126 L s P p .001 w .99625 .15892 m 1 .15892 L s P p .001 w .99625 .19424 m 1 .19424 L s P p .001 w .99625 .2119 m 1 .2119 L s P p .001 w .99625 .22956 m 1 .22956 L s P p .001 w .99625 .24721 m 1 .24721 L s P p .001 w .99625 .28253 m 1 .28253 L s P p .001 w .99625 .30019 m 1 .30019 L s P p .001 w .99625 .31785 m 1 .31785 L s P p .001 w .99625 .3355 m 1 .3355 L s P p .001 w .99625 .37082 m 1 .37082 L s P p .001 w .99625 .38848 m 1 .38848 L s P p .001 w .99625 .40614 m 1 .40614 L s P p .001 w .99625 .42379 m 1 .42379 L s P p .001 w .99625 .45911 m 1 .45911 L s P p .001 w .99625 .47677 m 1 .47677 L s P p .001 w .99625 .49443 m 1 .49443 L s P p .001 w .99625 .51209 m 1 .51209 L s P p .001 w .99625 .5474 m 1 .5474 L s P p .001 w .99625 .56506 m 1 .56506 L s P p .001 w .99625 .58272 m 1 .58272 L s P p .001 w .99625 .60038 m 1 .60038 L s P [( )] 1.0375 .30902 -1 0 90 Mrotshowa p .002 w 1 0 m 1 .61803 L s P P p P 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath p p p .004 w .20737 .51426 m .2404 .44361 L .27343 .39003 L .30645 .348 L .33948 .31414 L .3725 .28629 L .40553 .26298 L .43856 .24317 L .47158 .22614 L .50461 .21134 L .53764 .19836 L .57066 .18688 L .60369 .17666 L .63671 .16749 L .66974 .15923 L .70277 .15175 L .73579 .14494 L .76882 .13871 L .80184 .133 L .83487 .12774 L .8679 .12288 L .90092 .11837 L .93395 .11419 L .96697 .11029 L 1 .10664 L s P P p [ .01 .01 ] 0 setdash .004 w 0 .15504 m 1 .15504 L s P .004 w .20737 0 m .20737 .51426 L s p [ .005 .01 .02 .01 ] 0 setdash .20737 .51426 m .36208 .51426 L s P p [ .005 .01 .02 .01 ] 0 setdash .36208 .51426 m .36208 .29454 L s P p [ .005 .01 .02 .01 ] 0 setdash .36208 .29454 m .51678 .29454 L s P p [ .005 .01 .02 .01 ] 0 setdash .51678 .29454 m .51678 .20636 L s P p [ .005 .01 .02 .01 ] 0 setdash .51678 .20636 m .67148 .20636 L s P p [ .005 .01 .02 .01 ] 0 setdash .67148 .20636 m .67148 .15504 L s P p .5 Mabswid .7875 .30019 m .875 .16245 L s P p p /Times-Italic findfont 8 scalefont setfont [(V)] .2875 .5474 0 0 Mshowa P p /Times-Italic findfont 8 scalefont setfont [(V)] .4375 .32668 0 0 Mshowa P p /Times-Italic findfont 8 scalefont setfont [(V)] .5875 .23838 0 0 Mshowa P P p p /Times-Italic findfont 7 scalefont setfont [(1)] .3 .53857 0 0 Mshowa P p /Times-Italic findfont 7 scalefont setfont [(2)] .45 .31785 0 0 Mshowa P p /Times-Italic findfont 7 scalefont setfont [(3)] .6 .22956 0 0 Mshowa P P p /Symbol findfont 10 scalefont setfont [(a )] .7 .32314 0 0 Mshowa P p /Times-Italic findfont 10 scalefont setfont [( Energy)] .82 .32138 0 0 Mshowa P P % End of Graphics MathPictureEnd :[font = output; output; inactive; preserveAspect; endGroup; endGroup] The Unformatted text for this cell was not generated. Use options in the Actions Preferences dialog box to control when Unformatted text is generated. ;[o] -Graphics- :[font = section; inactive; Cclosed; preserveAspect; startGroup] Figure 3 :[font = input; preserveAspect] Data = { { 2, 4.9 10^-24}, { 5, 1.28 10^-19}, { 25, 2.0 10^-17}, { 125, 5.4 10^-17}, { 250, 6.1 10^-17}, { 500, 6.5 10^-17}, { 900, 6.68 10^-17}, { 50, 3.73 10^-17}, { 10, 3.10 10^-18} }; :[font = input; preserveAspect] <All, (* {{0,3},{10^-24,10^-15}}, *) Frame->True, FrameLabel->{FontForm["Number of Barriers",{"Times-Italic",10}], FontForm["Transmission Coefficient",{"Times-Italic",10}], " ", " "}, Prolog->PointSize[0.02]] :[font = output; output; inactive; preserveAspect; endGroup] The Unformatted text for this cell was not generated. Use options in the Actions Preferences dialog box to control when Unformatted text is generated. ;[o] -Graphics- :[font = input; Cclosed; preserveAspect; startGroup] p4 = LogLogListPlot[ {{1.0, 1.83 10^-16}, {1000.0,1.83 10^-16}}, PlotJoined->True, Frame->True, FrameLabel->{FontForm["Number of Barriers",{"Times-Italic",10}], FontForm["Transmission Coefficient",{"Times-Italic",10}], " ", " "}, PlotRange->All, Prolog->PointSize[0.02]] :[font = output; output; inactive; preserveAspect; endGroup] The Unformatted text for this cell was not generated. Use options in the Actions Preferences dialog box to control when Unformatted text is generated. ;[o] -Graphics- :[font = input; Cclosed; preserveAspect; startGroup] p5 = Show[{p3, p4}, FrameTicks->{{{0.0,"1",{0.03,0}}, {1.0,"10",{0.03,0}}, {2.0,"100",{0.03,0}}, {3.0,"1000",{0.03,0}}, {Log[10,2],"",{0.015,0}}, {Log[10,3],"",{0.015,0}}, {Log[10,4],"",{0.015,0}}, {Log[10,5],"",{0.015,0}}, {Log[10,6],"",{0.015,0}}, {Log[10,7],"",{0.015,0}}, {Log[10,8],"",{0.015,0}}, {Log[10,9],"",{0.015,0}}, {Log[10,20],"",{0.015,0}}, {Log[10,30],"",{0.015,0}}, {Log[10,40],"",{0.015,0}}, {Log[10,50],"",{0.015,0}}, {Log[10,60],"",{0.015,0}}, {Log[10,70],"",{0.015,0}}, {Log[10,80],"",{0.015,0}}, {Log[10,90],"",{0.015,0}}, {Log[10,200],"",{0.015,0}}, {Log[10,300],"",{0.015,0}}, {Log[10,400],"",{0.015,0}}, {Log[10,500],"",{0.015,0}}, {Log[10,600],"",{0.015,0}}, {Log[10,700],"",{0.015,0}}, {Log[10,800],"",{0.015,0}}, {Log[10,900],"",{0.015,0}} }, {{-24,HoldForm[10^-24],{0.03,0}}, {-22,HoldForm[10^-22],{0.03,0}}, {-20,HoldForm[10^-20],{0.03,0}}, {-18,HoldForm[10^-18],{0.03,0}}, {-16,HoldForm[10^-16],{0.03,0}}, {-23," ",{0.01,0}}, {-21," ",{0.01,0}}, {-19," ",{0.01,0}}, {-17," ",{0.01,0}}, {-15," ",{0.01,0}} } }, PlotRange->All ] :[font = postscript; PostScript; formatAsPostScript; output; inactive; preserveAspect; pictureLeft = 34; pictureWidth = 240; pictureHeight = 148] %! %%Creator: Mathematica %%AspectRatio: .61803 MathPictureStart %% Graphics /Helvetica findfont 6 scalefont setfont % Scaling calculations 0.02381 0.31746 1.826624 0.077732 [ [(1)] .02381 0 0 2 0 Minner Mrotsboxa [(10)] .34127 0 0 2 0 Minner Mrotsboxa [(100)] .65873 0 0 2 0 Minner Mrotsboxa [(1000)] .97619 0 0 2 0 Minner Mrotsboxa p /Times-Italic findfont 10 scalefont setfont [(Number of Barriers)] .5 0 0 2 0 0 -1 Mouter Mrotsboxa P [( -22)(10)] -0.03 .11653 1 0 0 Minner Mrotsboxa [( -20)(10)] -0.03 .27199 1 0 0 Minner Mrotsboxa [( -18)(10)] -0.03 .42745 1 0 0 Minner Mrotsboxa [( -16)(10)] -0.03 .58292 1 0 0 Minner Mrotsboxa [( )] -0.03 .0388 1 0 0 Minner Mrotsboxa [( )] -0.03 .19426 1 0 0 Minner Mrotsboxa [( )] -0.03 .34972 1 0 0 Minner Mrotsboxa [( )] -0.03 .50519 1 0 0 Minner Mrotsboxa p /Times-Italic findfont 10 scalefont setfont [(Transmission Coefficient)] -0.03 .30902 1 0 90 -1 0 Mouter Mrotsboxa P [( )] .5 .61803 0 -4 Msboxa [( )] 1.09 .30902 -1 0 90 Mrotsboxa [ -0.001 -0.001 0 0 ] [ 1.001 .61903 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath [ ] 0 setdash 0 g p p .002 w .02381 0 m .02381 .03 L s P [(1)] .02381 0 0 2 0 Minner Mrotshowa p .002 w .34127 0 m .34127 .03 L s P [(10)] .34127 0 0 2 0 Minner Mrotshowa p .002 w .65873 0 m .65873 .03 L s P [(100)] .65873 0 0 2 0 Minner Mrotshowa p .002 w .97619 0 m .97619 .03 L s P [(1000)] .97619 0 0 2 0 Minner Mrotshowa p .002 w .11937 0 m .11937 .015 L s P p .002 w .17528 0 m .17528 .015 L s P p .002 w .21494 0 m .21494 .015 L s P p .002 w .2457 0 m .2457 .015 L s P p .002 w .27084 0 m .27084 .015 L s P p .002 w .29209 0 m .29209 .015 L s P p .002 w .3105 0 m .3105 .015 L s P p .002 w .32674 0 m .32674 .015 L s P p .002 w .43683 0 m .43683 .015 L s P p .002 w .49274 0 m .49274 .015 L s P p .002 w .5324 0 m .5324 .015 L s P p .002 w .56317 0 m .56317 .015 L s P p .002 w .5883 0 m .5883 .015 L s P p .002 w .60955 0 m .60955 .015 L s P p .002 w .62797 0 m .62797 .015 L s P p .002 w .6442 0 m .6442 .015 L s P p .002 w .7543 0 m .7543 .015 L s P p .002 w .8102 0 m .8102 .015 L s P p .002 w .84986 0 m .84986 .015 L s P p .002 w .88063 0 m .88063 .015 L s P p .002 w .90576 0 m .90576 .015 L s P p .002 w .92702 0 m .92702 .015 L s P p .002 w .94543 0 m .94543 .015 L s P p .002 w .96166 0 m .96166 .015 L s P p /Times-Italic findfont 10 scalefont setfont [(Number of Barriers)] .5 0 0 2 0 0 -1 Mouter Mrotshowa P p .002 w 0 0 m 1 0 L s P p .002 w 0 .11653 m .03 .11653 L s P [( -22)(10)] -0.03 .11653 1 0 0 Minner Mrotshowa p .002 w 0 .27199 m .03 .27199 L s P [( -20)(10)] -0.03 .27199 1 0 0 Minner Mrotshowa p .002 w 0 .42745 m .03 .42745 L s P [( -18)(10)] -0.03 .42745 1 0 0 Minner Mrotshowa p .002 w 0 .58292 m .03 .58292 L s P [( -16)(10)] -0.03 .58292 1 0 0 Minner Mrotshowa p .002 w 0 .0388 m .01 .0388 L s P [( )] -0.03 .0388 1 0 0 Minner Mrotshowa p .002 w 0 .19426 m .01 .19426 L s P [( )] -0.03 .19426 1 0 0 Minner Mrotshowa p .002 w 0 .34972 m .01 .34972 L s P [( )] -0.03 .34972 1 0 0 Minner Mrotshowa p .002 w 0 .50519 m .01 .50519 L s P [( )] -0.03 .50519 1 0 0 Minner Mrotshowa p /Times-Italic findfont 10 scalefont setfont [(Transmission Coefficient)] -0.03 .30902 1 0 90 -1 0 Mouter Mrotshowa P p .002 w 0 0 m 0 .61803 L s P P p p .002 w .02381 .58803 m .02381 .61803 L s P p .002 w .34127 .58803 m .34127 .61803 L s P p .002 w .65873 .58803 m .65873 .61803 L s P p .002 w .97619 .58803 m .97619 .61803 L s P p .002 w .11937 .60303 m .11937 .61803 L s P p .002 w .17528 .60303 m .17528 .61803 L s P p .002 w .21494 .60303 m .21494 .61803 L s P p .002 w .2457 .60303 m .2457 .61803 L s P p .002 w .27084 .60303 m .27084 .61803 L s P p .002 w .29209 .60303 m .29209 .61803 L s P p .002 w .3105 .60303 m .3105 .61803 L s P p .002 w .32674 .60303 m .32674 .61803 L s P p .002 w .43683 .60303 m .43683 .61803 L s P p .002 w .49274 .60303 m .49274 .61803 L s P p .002 w .5324 .60303 m .5324 .61803 L s P p .002 w .56317 .60303 m .56317 .61803 L s P p .002 w .5883 .60303 m .5883 .61803 L s P p .002 w .60955 .60303 m .60955 .61803 L s P p .002 w .62797 .60303 m .62797 .61803 L s P p .002 w .6442 .60303 m .6442 .61803 L s P p .002 w .7543 .60303 m .7543 .61803 L s P p .002 w .8102 .60303 m .8102 .61803 L s P p .002 w .84986 .60303 m .84986 .61803 L s P p .002 w .88063 .60303 m .88063 .61803 L s P p .002 w .90576 .60303 m .90576 .61803 L s P p .002 w .92702 .60303 m .92702 .61803 L s P p .002 w .94543 .60303 m .94543 .61803 L s P p .002 w .96166 .60303 m .96166 .61803 L s P [( )] .5 .61803 0 -4 Mshowa p .002 w 0 .61803 m 1 .61803 L s P p .002 w .97 .11653 m 1 .11653 L s P p .002 w .97 .27199 m 1 .27199 L s P p .002 w .97 .42745 m 1 .42745 L s P p .002 w .97 .58292 m 1 .58292 L s P p .002 w .99 .0388 m 1 .0388 L s P p .002 w .99 .19426 m 1 .19426 L s P p .002 w .99 .34972 m 1 .34972 L s P p .002 w .99 .50519 m 1 .50519 L s P [( )] 1.09 .30902 -1 0 90 Mrotshowa p .002 w 1 0 m 1 .61803 L s P P p P p p .02 w .11937 .01472 Mdot .2457 .35806 Mdot .4676 .52859 Mdot .6895 .56212 Mdot .78506 .56623 Mdot .88063 .56838 Mdot .96166 .5693 Mdot .56317 .54963 Mdot .34127 .46565 Mdot P .004 w .02381 .60332 m .97619 .60332 L s P 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath % End of Graphics MathPictureEnd :[font = output; output; inactive; preserveAspect; endGroup; endGroup; endGroup] The Unformatted text for this cell was not generated. Use options in the Actions Preferences dialog box to control when Unformatted text is generated. ;[o] -Graphics- ^*)