home *** CD-ROM | disk | FTP | other *** search
/ Math Solutions 1995 October / Math_Solutions_CD-ROM_Walnut_Creek_October_1995.iso / pc / mac / calculus / mathemat / loggraph.ing < prev    next >
Encoding:
Text File  |  1991-02-21  |  3.0 KB  |  69 lines
  1. (*^
  2.  
  3. ::[paletteColors = 128; 
  4.     fontset = title, "Helvetica", 24, L1, bold, nohscroll;
  5.     fontset = subtitle, "Helvetica", 10, L1, italic, nohscroll;
  6.     fontset = subsubtitle, "Helvetica", 10, L1, nohscroll;
  7.     fontset = section, "Helvetica", 18, L1, bold, nohscroll;
  8.     fontset = subsection, "Helvetica", 14, L1, bold, nohscroll;
  9.     fontset = subsubsection, "Times", 14, L1, bold, nohscroll, blackBox;
  10.     fontset = text, "Times", 12, L1, nohscroll;
  11.     fontset = smalltext, "Times", 10, L1, nohscroll;
  12.     fontset = input, "Courier", 10, L1, nowordwrap;
  13.     fontset = output, "Courier", 10, L2, nowordwrap;
  14.     fontset = message, "Helvetica", 10, L1, nowordwrap;
  15.     fontset = print, "Helvetica", 10, L1, nowordwrap;
  16.     fontset = info, "Helvetica", 10, L1, nowordwrap;
  17.     fontset = postscript, "Helvetica", 10, L1, nowordwrap;
  18.     fontset = name, "Helvetica", 9, L1, italic, nohscroll;
  19.     fontset = header, "Helvetica", 10, L1, nohscroll;
  20.     fontset = footer, "Helvetica", 10, L1, nohscroll;
  21.     fontset = help, "Helvetica", 10, L1, nohscroll;
  22.     fontset = clipboard, "Helvetica", 10, L1, nohscroll;
  23.     fontset = completions, "Helvetica", 10, L1, nohscroll;
  24.     fontset = network, "Courier", 10, L2, nowordwrap;
  25.     fontset = graphlabel, "Courier", 12, L2, nowordwrap;
  26.     fontset = special1, "Helvetica", 18, L1, bold, nohscroll;
  27.     fontset = special2, "Helvetica", 14, L1, bold, nohscroll;
  28.     fontset = special3, "Times", 14, L1, bold, nohscroll, blackBox;
  29.     fontset = special4, "Helvetica", 10, L1, nohscroll;
  30.     fontset = special5, "Helvetica", 10, L1, nohscroll;]
  31. :[font = title; inactive; ]
  32. Logarithmic Graph Paper
  33. :[font = subtitle; inactive; ]
  34. Shawn C. Sheridan
  35. :[font = subsubtitle; inactive; ]
  36. Wolfram Research, Inc.
  37. 100 Tradecenter Drive
  38. Champaign, IL 61820
  39. :[font = subsection; inactive; startGroup; ]
  40. FancyGrid
  41. :[font = text; inactive; ]
  42. FancyGrid takes two lists (or an optional third) as arguments.  The first list is the set of x-gridline positions, the second list is the set of y-gridline positions, and the optional third list consists of line attributes to be applied to the gridlines.  FancyGrid is useful if you need to specify gridlines that are not equally spaced.
  43. :[font = input; endGroup; noPageBreak; ]
  44. FancyGrid[xlist_,ylist_,optlist_:{}]:=
  45.     Graphics[Flatten[{optlist,
  46.         Apply[Line,
  47.             Transpose[{Outer[List,{Max[xlist]},ylist],
  48.             Outer[List,{Min[xlist]},ylist]},{3,2,1}],{1}],
  49.         Apply[Line,
  50.             Transpose[{Outer[List,xlist,{Max[ylist]}],
  51.             Outer[List,xlist,{Min[ylist]}]},{3,1,2}],{1}]}]]
  52. :[font = subsection; inactive; ]
  53. Example
  54. :[font = input; ]
  55. logtable=N[Union[Flatten[
  56.             Table[Log[10,i*10^j],{j,0,2}, {i,10}]]]];
  57. :[font = input; ]
  58. thegrid=Show[FancyGrid[{0, 1, 2, 3, 4, 5},
  59.                 logtable,{ Thickness[.0001] }]];
  60. :[font = input; ]
  61. thegraph=Plot[4^(Log[10,x]),{x,.01,5}];
  62. :[font = subsection; inactive; noPageBreak; ]
  63. Plot of 4^x on Log Paper
  64. :[font = input; startGroup; noPageBreak; ]
  65. Show[thegrid,thegraph,PlotRange->All,Ticks->{{1,2,3,4,5},
  66.      {{1,HoldForm[10^1]},{2,HoldForm[10^2]},{3, HoldForm[10^3]}}}];
  67. :[font = postscript; inactive; PICT; pictureID = 21665; output; endGroup; pictureWidth = 282; pictureHeight = 174; noPageBreak; ]
  68.  
  69. ^*)