(*^ ::[ 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 = "Macintosh Mathematica Notebook Front End Version 2.2"; MacintoshStandardFontEncoding; fontset = title, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeTitle, center, M7, bold, e8, 24, "Times"; fontset = subtitle, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeTitle, center, M7, bold, e6, 18, "Times"; fontset = subsubtitle, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeTitle, center, M7, italic, e6, 14, "Times"; fontset = section, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeSection, grayBox, M22, bold, a20, 18, "Times"; fontset = subsection, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeSection, blackBox, M19, bold, a15, 14, "Times"; fontset = subsubsection, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeSection, whiteBox, M18, bold, a12, 12, "Times"; fontset = text, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, 12, "Times"; fontset = smalltext, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, 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, 12, "Courier"; fontset = name, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, italic, 10, "Geneva"; fontset = header, inactive, noKeepOnOnePage, preserveAspect, M7, 12, "Times"; fontset = leftheader, inactive, L2, 12, "Times"; fontset = footer, inactive, noKeepOnOnePage, preserveAspect, center, M7, 12, "Times"; fontset = leftfooter, inactive, L2, 12, "Times"; fontset = help, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, 10, "Times"; fontset = clipboard, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, 12, "Times"; fontset = completions, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, 12, "Times"; fontset = special1, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, 12, "Times"; fontset = special2, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, 12, "Times"; fontset = special3, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, 12, "Times"; fontset = special4, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, 12, "Times"; fontset = special5, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, 12, "Times"; paletteColors = 128; automaticGrouping; currentKernel; ] :[font = title; inactive; preserveAspect; startGroup] RibbonPlot3D :[font = section; inactive; Cclosed; preserveAspect; startGroup] Description and Usage :[font = text; inactive; preserveAspect] The RibbonPlot3D function--defined in the RibbonPlot3D.m package--allows the user to generate ribbon plots of one or more lists of data, as used in casual trend analysis. :[font = text; inactive; preserveAspect; endGroup] RibbonPlot3D[ mydata, opts___] generates the graph, where 'mydata' is a list, or list of lists, of y-values or {x,y}-pairs. The function takes the same options as Graphics3D. :[font = section; inactive; Cclosed; preserveAspect; startGroup] Examples :[font = subsection; inactive; Cclosed; preserveAspect; startGroup] Load the package :[font = text; inactive; preserveAspect] We must load the package first: :[font = input; preserveAspect; endGroup] <>"] ;[o] -Graphics3D- :[font = subsection; inactive; Cclosed; preserveAspect; startGroup] More than one list :[font = input; preserveAspect; startGroup] moredata = (* a list of three indexed lists *) Table[ Table[{n, 10 Random[]}, {n, 11}], {3}]; RibbonPlot3D[ moredata, PlotLabel->"My Second RibbonPlot3D" ] :[font = postscript; PostScript; formatAsPostScript; output; inactive; preserveAspect; pictureLeft = 34; pictureWidth = 275; pictureHeight = 277] %! %%Creator: Mathematica %%AspectRatio: 1.00917 MathPictureStart %% Graphics3D /Courier findfont 10 scalefont setfont % Scaling calculations 0.000435157 0.989767 0.0247442 0.989767 [ [(My Second RibbonPlot3D)] .5 1.00917 0 -1.5 Msboxa [(0)] .09413 .27145 .99395 1 Msboxa [(2.5)] .23042 .21907 .91184 1 Msboxa [(5)] .37325 .16419 .82973 1 Msboxa [(7.5)] .52309 .10664 .74762 1 Msboxa [(10)] .68048 .04623 .66551 1 Msboxa [(0)] .07541 .30143 1 -0.38089 Msboxa [(2)] .06356 .40194 1 -0.36432 Msboxa [(4)] .05102 .50842 1 -0.34669 Msboxa [(6)] .03771 .62142 1 -0.3279 Msboxa [(8)] .02356 .74156 1 -0.30784 Msboxa [ 0 0 0 0 ] [ 1 1.00917 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath [ ] 0 setdash 0 g [(My Second RibbonPlot3D)] .5 1.00917 0 -1.5 Mshowa p p .002 w .08828 .2858 m .77038 .02474 L s P p .002 w .10285 .28022 m .10721 .28461 L s P [(0)] .09413 .27145 .99395 1 Mshowa p .002 w .23876 .22821 m .24293 .23278 L s P [(2.5)] .23042 .21907 .91184 1 Mshowa p .002 w .38115 .17371 m .3851 .17847 L s P [(5)] .37325 .16419 .82973 1 Mshowa p .002 w .5305 .11655 m .5342 .12151 L s P [(7.5)] .52309 .10664 .74762 1 Mshowa p .002 w .68733 .05653 m .69076 .06168 L s P [(10)] .68048 .04623 .66551 1 Mshowa p .001 w .12954 .27001 m .13213 .27267 L s P p .001 w .15647 .25971 m .15904 .26238 L s P p .001 w .18365 .2493 m .18619 .252 L s P p .001 w .21108 .23881 m .2136 .24153 L s P p .001 w .26671 .21751 m .26918 .22028 L s P p .001 w .29491 .20672 m .29736 .20951 L s P p .001 w .32339 .19582 m .32581 .19863 L s P p .001 w .35213 .18482 m .35453 .18765 L s P p .001 w .41045 .1625 m .41279 .16538 L s P p .001 w .44003 .15118 m .44234 .15408 L s P p .001 w .46989 .13975 m .47218 .14267 L s P p .001 w .50005 .12821 m .5023 .13116 L s P p .001 w .56125 .10478 m .56344 .10778 L s P p .001 w .5923 .0929 m .59446 .09592 L s P p .001 w .62367 .0809 m .62579 .08394 L s P p .001 w .65534 .06877 m .65743 .07184 L s P p .001 w .71964 .04416 m .72167 .04727 L s P p .001 w .75229 .03167 m .75427 .03481 L s P P p p .002 w .77038 .02474 m .90934 .24757 L s P P p p .002 w .08828 .2858 m .02474 .82884 L s P p .002 w .08697 .29702 m .09275 .29482 L s P [(0)] .07541 .30143 1 -0.38089 Mshowa p .002 w .07519 .39771 m .081 .39559 L s P [(2)] .06356 .40194 1 -0.36432 Mshowa p .002 w .06271 .50437 m .06855 .50235 L s P [(4)] .05102 .50842 1 -0.34669 Mshowa p .002 w .04946 .61757 m .05534 .61564 L s P [(6)] .03771 .62142 1 -0.3279 Mshowa p .002 w .03538 .73792 m .04129 .7361 L s P [(8)] .02356 .74156 1 -0.30784 Mshowa p .001 w .08466 .3167 m .08814 .31539 L s P p .001 w .08234 .33661 m .08581 .33531 L s P p .001 w .07998 .35674 m .08346 .35545 L s P p .001 w .0776 .37711 m .08108 .37583 L s P p .001 w .07275 .41854 m .07624 .41728 L s P p .001 w .07028 .43963 m .07378 .43838 L s P p .001 w .06779 .46095 m .07129 .45972 L s P p .001 w .06526 .48253 m .06877 .48131 L s P p .001 w .06012 .52647 m .06363 .52527 L s P p .001 w .05751 .54883 m .06102 .54764 L s P p .001 w .05486 .57147 m .05838 .57029 L s P p .001 w .05218 .59438 m .0557 .59321 L s P p .001 w .04672 .64104 m .05025 .6399 L s P p .001 w .04394 .66481 m .04747 .66368 L s P p .001 w .04112 .68888 m .04466 .68776 L s P p .001 w .03827 .71324 m .04181 .71214 L s P p .001 w .03246 .7629 m .03601 .76182 L s P p .001 w .0295 .78821 m .03305 .78715 L s P p .001 w .0265 .81384 m .03006 .81279 L s P P 0 0 m 1 0 L 1 1.00917 L 0 1.00917 L closepath clip newpath p p .4 g .002 w .08697 .29702 m .26837 .47687 L s P p .4 g .002 w .07519 .39771 m .26237 .57392 L s P p .4 g .002 w .06271 .50437 m .25604 .67624 L s P p .4 g .002 w .04946 .61757 m .24936 .78428 L s P p .4 g .002 w .03538 .73792 m .24229 .89853 L s P p .4 g .002 w .09295 .29046 m .0303 .83291 L s P p .4 g .002 w .16515 .36244 m .11565 .89548 L s P p .4 g .002 w .23281 .4299 m .19487 .95356 L s P p .4 g .002 w .28284 .46131 m .25266 .98041 L s P p .4 g .002 w .41134 .41747 m .39912 .9429 L s P p .4 g .002 w .54545 .37172 m .55292 .9035 L s P p .4 g .002 w .68554 .32393 m .71465 .86208 L s P p .4 g .002 w .83203 .27395 m .88491 .81847 L s P p .4 g .002 w .26837 .47687 m .9107 .25886 L s P p .4 g .002 w .26237 .57392 m .9229 .36021 L s P p .4 g .002 w .25604 .67624 m .93583 .46769 L s P p .4 g .002 w .24936 .78428 m .94957 .58187 L s P p .4 g .002 w .24229 .89853 m .96419 .70341 L s P p .4 g .002 w .10285 .28022 m .28284 .46131 L s P p .4 g .002 w .23876 .22821 m .41134 .41747 L s P p .4 g .002 w .38115 .17371 m .54545 .37172 L s P p .4 g .002 w .5305 .11655 m .68554 .32393 L s P p .4 g .002 w .68733 .05653 m .83203 .27395 L s P p .4 g .002 w .09295 .29046 m .774 .03056 L s P p .4 g .002 w .16515 .36244 m .82979 .12002 L s P p .4 g .002 w .23281 .4299 m .8817 .20325 L s P P p .002 w .21227 .60025 m .24874 .63332 L .26973 .74078 L p 0 0 1 r F P s P p .002 w .30582 .77194 m .27321 .86194 L p .32309 .78686 L 1 0 0 r F P s P p .002 w .27321 .86194 m .30916 .89091 L .34065 .80202 L p 1 0 0 r F P s P p .002 w .34065 .80202 m .37223 .71291 L p .32309 .78686 L 1 0 0 r F P s P p .27321 .86194 m .34065 .80202 L .32309 .78686 L 1 0 0 r F P p .002 w .29306 .86021 m .25466 .82893 L .23234 .70849 L p 0 0 1 r F P s P p .002 w .23234 .70849 m .21227 .60025 L p .25089 .72451 L 0 0 1 r F P s P p .25089 .72451 m .29306 .86021 L .23234 .70849 L 0 0 1 r F P p .002 w .26973 .74078 m .29306 .86021 L p .25089 .72451 L 0 0 1 r F P s P p .21227 .60025 m .26973 .74078 L .25089 .72451 L 0 0 1 r F P p .002 w .37223 .71291 m .3385 .68176 L .30582 .77194 L p 1 0 0 r F P s P p .32309 .78686 m .37223 .71291 L .30582 .77194 L 1 0 0 r F P p .002 w .36754 .46371 m .33375 .42828 L .25466 .82893 L p 0 0 1 r F P s P p .002 w .25466 .82893 m .29306 .86021 L .36754 .46371 L p 0 0 1 r F P s P p .002 w .33375 .42828 m .36754 .46371 L .41949 .68582 L p 0 0 1 r F P s P p .002 w .3385 .68176 m .37223 .71291 L .42587 .87848 L p 1 0 0 r F P s P p .002 w .83241 .30586 m .80653 .26752 L .76332 .53503 L p 1 0 0 r F P s P p .002 w .76332 .53503 m .79153 .57081 L .83241 .30586 L p 1 0 0 r F P s P p .002 w .71761 .24362 m .68907 .20325 L .66576 .35876 L p 0 0 1 r F P s P p .002 w .66576 .35876 m .6397 .53266 L p .68118 .3788 L 0 0 1 r F P s P p .68118 .3788 m .71761 .24362 L .66576 .35876 L 0 0 1 r F P p .002 w .54043 .37922 m .50897 .34155 L .46861 .40527 L p 0 0 1 r F P s P p .002 w .46861 .40527 m .4489 .43638 L p .47928 .41741 L 0 0 1 r F P s P p .47928 .41741 m .54043 .37922 L .46861 .40527 L 0 0 1 r F P p .002 w .32684 .21907 m .36116 .25853 L .41739 .28505 L p 0 1 0 r F P s P p .002 w .41739 .28505 m .38326 .24512 L .32684 .21907 L p 0 1 0 r F P s P p .002 w .38326 .24512 m .41739 .28505 L .43503 .36709 L p 0 1 0 r F P s P p .002 w .4489 .43638 m .48176 .4728 L .54043 .37922 L p 0 0 1 r F P s P p .002 w .41949 .68582 m .38404 .65178 L .33375 .42828 L p 0 0 1 r F P s P p .002 w .48176 .4728 m .4489 .43638 L .38404 .65178 L p 0 0 1 r F P s P p .002 w .38404 .65178 m .41949 .68582 L .48176 .4728 L p 0 0 1 r F P s P p .002 w .43503 .36709 m .47502 .55302 L p .4117 .34055 L 0 1 0 r F P s P p .38326 .24512 m .43503 .36709 L .4117 .34055 L 0 1 0 r F P p .002 w .50897 .34155 m .54043 .37922 L .5999 .59657 L p 0 0 1 r F P s P p .002 w .57468 .60051 m .60546 .6342 L .66185 .66551 L p 1 0 0 r F P s P p .57468 .60051 m .66185 .66551 L .6586 .66189 L 1 0 0 r F P p .002 w .66889 .66941 m .63853 .63556 L .63145 .63167 L p 1 0 0 r F P s P p .002 w .63145 .63167 m .57468 .60051 L p .6586 .66189 L 1 0 0 r F P s P p .6586 .66189 m .66889 .66941 L .63145 .63167 L 1 0 0 r F P p .002 w .60777 .62532 m .57487 .58909 L .56716 .56014 L p 0 0 1 r F P s P p .002 w .56716 .56014 m .50897 .34155 L p .59641 .59268 L 0 0 1 r F P s P p .59641 .59268 m .60777 .62532 L .56716 .56014 L 0 0 1 r F P p .002 w .5999 .59657 m .60777 .62532 L p .59641 .59268 L 0 0 1 r F P s P p .50897 .34155 m .5999 .59657 L .59641 .59268 L 0 0 1 r F P p .002 w .66185 .66551 m .66889 .66941 L p .6586 .66189 L 1 0 0 r F P s P p .002 w .59923 .24478 m .56719 .20259 L .50495 .44203 L p 0 1 0 r F P s P p .002 w .50495 .44203 m .53984 .48179 L .59923 .24478 L p 0 1 0 r F P s P p .002 w .56719 .20259 m .59923 .24478 L .63462 .31825 L p 0 1 0 r F P s P p .002 w .63462 .31825 m .67085 .39347 L p .61888 .29778 L 0 1 0 r F P s P p .56719 .20259 m .63462 .31825 L .61888 .29778 L 0 1 0 r F P p .002 w .6397 .53266 m .67141 .56998 L .71761 .24362 L p 0 0 1 r F P s P p .002 w .68907 .20325 m .71761 .24362 L .79006 .35195 L p 0 0 1 r F P s P p .002 w .79006 .35195 m .76147 .31163 L .68907 .20325 L p 0 0 1 r F P s P p .002 w .76147 .31163 m .79006 .35195 L .80185 .32097 L p 0 0 1 r F P s P p .002 w .80653 .26752 m .83241 .30586 L .85531 .39804 L p 1 0 0 r F P s P p .80653 .26752 m .85531 .39804 L .83484 .36853 L 1 0 0 r F P p .002 w .95046 .78109 m .92291 .7463 L .80653 .26752 L p 1 0 0 r F P s P p .002 w .80185 .32097 m .84333 .21199 L p .77986 .28925 L 0 0 1 r F P s P p .76147 .31163 m .80185 .32097 L .77986 .28925 L 0 0 1 r F P p .002 w .85531 .39804 m .95046 .78109 L p .83484 .36853 L 1 0 0 r F P s P p .002 w .36116 .25853 m .32684 .21907 L .26362 .33705 L p 0 1 0 r F P s P p .002 w .26362 .33705 m .29967 .37516 L .36116 .25853 L p 0 1 0 r F P s P p .002 w .42587 .87848 m .39117 .84857 L .3385 .68176 L p 1 0 0 r F P s P p .002 w .48677 .6934 m .45428 .6612 L .39117 .84857 L p 1 0 0 r F P s P p .002 w .39117 .84857 m .42587 .87848 L .48677 .6934 L p 1 0 0 r F P s P p .002 w .45428 .6612 m .48677 .6934 L .54801 .83826 L p 1 0 0 r F P s P p .002 w .29967 .37516 m .26362 .33705 L .19457 .50185 L p 0 1 0 r F P s P p .002 w .19457 .50185 m .23295 .53813 L .29967 .37516 L p 0 1 0 r F P s P p .002 w .54801 .83826 m .51496 .80705 L .45428 .6612 L p 1 0 0 r F P s P p .002 w .60546 .6342 m .57468 .60051 L .51496 .80705 L p 1 0 0 r F P s P p .002 w .51496 .80705 m .54801 .83826 L .60546 .6342 L p 1 0 0 r F P s P p .002 w .84333 .21199 m .8164 .1701 L .76147 .31163 L p 0 0 1 r F P s P p .002 w .47502 .55302 m .43874 .51452 L .38326 .24512 L p 0 1 0 r F P s P p .002 w .63853 .63556 m .66889 .66941 L .73633 .72128 L p 1 0 0 r F P s P p .002 w .23295 .53813 m .19457 .50185 L .10982 .79434 L p 0 1 0 r F P s P p .002 w .10982 .79434 m .15219 .82725 L .23295 .53813 L p 0 1 0 r F P s P p .002 w .79153 .57081 m .76332 .53503 L .70637 .68743 L p 1 0 0 r F P s P p .002 w .70637 .68743 m .73633 .72128 L .79153 .57081 L p 1 0 0 r F P s P p .002 w .73633 .72128 m .70637 .68743 L .63853 .63556 L p 1 0 0 r F P s P p .002 w .67085 .39347 m .63824 .35161 L .56719 .20259 L p 0 1 0 r F P s P p .002 w .63824 .35161 m .67085 .39347 L .75351 .58771 L p 0 1 0 r F P s P p .002 w .75351 .58771 m .72025 .54689 L .63824 .35161 L p 0 1 0 r F P s P p .002 w .79168 .16285 m .76244 .11795 L .72025 .54689 L p 0 1 0 r F P s P p .002 w .72025 .54689 m .75351 .58771 L .79168 .16285 L p 0 1 0 r F P s P p .002 w .57487 .58909 m .60777 .62532 L .67141 .56998 L p 0 0 1 r F P s P p .002 w .67141 .56998 m .6397 .53266 L .57487 .58909 L p 0 0 1 r F P s P p .002 w .53984 .48179 m .50495 .44203 L .43874 .51452 L p 0 1 0 r F P s P p .002 w .43874 .51452 m .47502 .55302 L .53984 .48179 L p 0 1 0 r F P s P p P p p .002 w .08828 .2858 m .77038 .02474 L s P p .002 w .10285 .28022 m .10721 .28461 L s P [(0)] .09413 .27145 .99395 1 Mshowa p .002 w .23876 .22821 m .24293 .23278 L s P [(2.5)] .23042 .21907 .91184 1 Mshowa p .002 w .38115 .17371 m .3851 .17847 L s P [(5)] .37325 .16419 .82973 1 Mshowa p .002 w .5305 .11655 m .5342 .12151 L s P [(7.5)] .52309 .10664 .74762 1 Mshowa p .002 w .68733 .05653 m .69076 .06168 L s P [(10)] .68048 .04623 .66551 1 Mshowa p .001 w .12954 .27001 m .13213 .27267 L s P p .001 w .15647 .25971 m .15904 .26238 L s P p .001 w .18365 .2493 m .18619 .252 L s P p .001 w .21108 .23881 m .2136 .24153 L s P p .001 w .26671 .21751 m .26918 .22028 L s P p .001 w .29491 .20672 m .29736 .20951 L s P p .001 w .32339 .19582 m .32581 .19863 L s P p .001 w .35213 .18482 m .35453 .18765 L s P p .001 w .41045 .1625 m .41279 .16538 L s P p .001 w .44003 .15118 m .44234 .15408 L s P p .001 w .46989 .13975 m .47218 .14267 L s P p .001 w .50005 .12821 m .5023 .13116 L s P p .001 w .56125 .10478 m .56344 .10778 L s P p .001 w .5923 .0929 m .59446 .09592 L s P p .001 w .62367 .0809 m .62579 .08394 L s P p .001 w .65534 .06877 m .65743 .07184 L s P p .001 w .71964 .04416 m .72167 .04727 L s P p .001 w .75229 .03167 m .75427 .03481 L s P P p P % End of Graphics MathPictureEnd :[font = output; output; inactive; preserveAspect; endGroup; endGroup; endGroup] Graphics3D["<<>>"] ;[o] -Graphics3D- :[font = section; inactive; Cclosed; preserveAspect; startGroup] Comments and Shortcomings :[font = text; inactive; preserveAspect; endGroup] There is almost no error checking to speak of. Using lists of indexed data lists of the form {{n1, v1}, {n2, v2}, ..., {nk, vk}} is recommended. You may use unindexed lists--of the form {v1, v2, ..., vk}--but you may have to change the Ticks option to give the tick marks on the x-axis meaning. Ribbon plots look best with small data sets. If you do use a large data set, you may have to change the BoxRatios option to suit your taste. There is no way to change the ribbons' colors or width without digging into the package. :[font = section; inactive; Cclosed; preserveAspect; startGroup] Credits :[font = text; inactive; preserveAspect] Robert M. Dickau Evangelism/Developer Support Group Wolfram Research, Inc. robertd@wri.com :[font = smalltext; inactive; preserveAspect] Accusations, blandishments, complaints, and demands are all welcome. :[font = smalltext; inactive; preserveAspect; endGroup; endGroup] Version 0.1 June, 1994 ^*)