home *** CD-ROM | disk | FTP | other *** search
/ Math Solutions 1995 October / Math_Solutions_CD-ROM_Walnut_Creek_October_1995.iso / pc / mac / calculus / mathemat / implicit.cur < prev    next >
Encoding:
Text File  |  1991-02-21  |  2.6 KB  |  57 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; startGroup; ]
  32. Implicit Curves
  33. :[font = subtitle; inactive; noPageBreak; ]
  34. Allan Hayes
  35. :[font = subsubtitle; inactive; noPageBreak; ]
  36. Department of Mathematics
  37. The University 
  38. Leicester LE1 7RH, UK
  39. :[font = subsection; inactive; startGroup; noPageBreak; ]
  40. Using ListPlot 
  41. :[font = text; inactive; noPageBreak; ]
  42. For equations between polynomials, I have joined the solutions for y in terms of x and for x in terms of y to produce a more even distribution of plotted points.
  43. :[font = input; startGroup; noPageBreak; ]
  44. PlotImplicit[x^3+y^3==6x*y,{-2,3.174},{-2,4},100,
  45. AspectRatio->Automatic,PlotStyle->{PointSize[0.005]},
  46. Axes->{0,0}]
  47. :[font = postscript; inactive; PICT; pictureID = 29865; output; endGroup; pictureWidth = 174; pictureHeight = 175; noPageBreak; ]
  48.  
  49. :[font = subsection; inactive; startGroup; noPageBreak; ]
  50. Using ContourPlot
  51. :[font = input; startGroup; noPageBreak; ]
  52. ContourPlot[x^3+y^3 - 6x*y,{x,-2,3.3},{y,-4,3.3},
  53. PlotRange->{0,0},ContourLevels->1,
  54. AspectRatio->Automatic, Axes->{0,0}]
  55. :[font = postscript; inactive; PICT; pictureID = 2146; output; endGroup; endGroup; endGroup; endGroup; pictureWidth = 191; pictureHeight = 191; ]
  56.  
  57. ^*)