/* Example Programs: SAS/GRAPH(R) SOFTWARE: EXAMPLES, VERSION 6, FIRST EDITION */ /* Copyright (C) 1993 by SAS Institute Inc., Cary, NC, USA. */ /* */ /* U.S. GOVERNMENT RESTRICTED RIGHTS */ /* */ /* FOR U.S. FEDERAL GOVERNMENT CUSTOMERS: Notwithstanding any other */ /* purchasing documents, lease or license agreement that may pertain */ /* to, or accompany the delivery of this diskette of example */ /* programs for SAS/GRAPH SOFTWARE: EXAMPLES, VERSION 6, FIRST */ /* EDITION, the rights of the Government regarding its use, */ /* reproduction and disclosure are as set forth in this Agreement, */ /* or if applicable, in the Rights in Technical Data and Computer */ /* Software clause at 252.227-7013(c)(1)(ii) of the DOD FAR and the */ /* Commercial Computer Software-Restricted Rights clause at */ /* 52.227-19 of the FAR. */ /* */ /* */ /* CONTENTS OF THIS DISKETTE */ /* */ /* This diskette contains the complete programs for the examples presented */ /* in SAS/GRAPH SOFTWARE: EXAMPLES, VERSION 6, FIRST EDITION. Each */ /* example program is stored in a separate file under the name for */ /* the example. The name appears in the footnote of the graph and */ /* also next to the graph on the first page of each chapter. Here is */ /* a list of the example numbers in the book and the name of the */ /* example program presented in the chapter. */ /* */ /* Example 1: REVENUE */ /* Example 2: GAMES */ /* Example 3: COSTS */ /* Example 4: MARKET */ /* Example 5: POND */ /* Example 6: SURFACE */ /* Example 7: BACTERIA */ /* Example 8: TEXMAP */ /* Example 9: TERRMAP */ /* Example 10: COMMERCE */ /* Example 11: POP */ /* Example 12: AIRPORTS */ /* Example 13: HOLDINGS */ /* Example 14: EURCOM */ /* Example 15: SALES */ /* Example 16: INVEST */ /* Example 17: DRIVER */ /* Example 18: WINE */ /* Example 19: PLANES */ /* Example 20: HOUSES */ /* Example 21: AUTOPROD */ /* Example 22: BARMAP */ /* Example 23: USDOCTRS */ /* Example 24: I40 */ /* Example 25: FRANCE */ /* Example 26: HOMERATE */ /* Example 27: FIRES */ /* Example 28: EUROPE */ /* Example 29: FLRPLAN */ /* Example 30: CALENDAR */ /* */ /* NOTE TO USERS OF SAS 6.09 AND 6.10 */ /* */ /* If you are running either Release 6.09 or 6.10, you */ /* need to make these changes to these examples: */ /* */ /* Example Change */ /* ======================================================================= */ /* AUTOPROD Change the ORIGIN option in the AXIS2 */ /* statement from ORIGIN=(15,25) to ORIGIN=(15.4) */ /* ----------------------------------------------------------------------- */ /* TEXMAP Delete the WIDTH= option from the PROC */ /* GCHART statement. The original PROC GCHART */ /* statement looks like this: */ /* */ /* proc gchart data=sales; */ /* vbar year / sumvar=amount raxis=axis1 maxis=axis2 */ /* width=3.5 patternid=by name='bar; */ /* */ /* Change the statement to look like this: */ /* */ /* proc gchart data=sales; */ /* vbar year / sumvar=amount raxis=axis1 maxis=axis2 */ /* patternid=by name='bar; */ /* */ /* ----------------------------------------------------------------------- */ /* POP Change the ORIGIN option on the LEGEND1 */ /* statement from ORIGIN=(78,18) to ORIGIN=(77,18). */ /* */ /* */ /* The colors in some of the examples may also remap to different */ /* colors than the ones used in the book. This applies to all the */ /* examples, not just the three listed above. */ */ /* REVENUE.SAS */ goptions reset=(global goptions); goptions reset=global ftext=swiss htext=3 gunit=pct border cback=white colors=(black) targetdevice=tek4105; data revenue; input year main mini work; cards; 86 0.7 0.9 1.1 87 0.9 1.4 1.8 88 1.2 2.0 2.8 89 1.6 2.4 3.5 90 2.0 2.8 4.4 91 2.4 3.3 5.0 92 2.8 3.7 5.5 ; title1 height=6 justify=left font=swissb ' Global Revenue, 1986-1992'; footnote1 font=swissl justify=left ' SAS/GRAPH' move=(+0,+.5) '02'x move=(+0,-.5) ' Software' justify=right 'REVENUE '; axis1 order=(0 to 6 by 1) minor=none major=none offset=(0,0) label=none value=none; axis2 order=(0 to 6 by 1) minor=none major=none offset=(0,0) value=(' 0' ' 1' ' 2' ' 3' ' 4' ' 5' ' 6') label=(justify=left 'Billions of' justify=left 'US Dollars'); axis3 label=none order=(86 to 92 by 1) offset=(1,1) length=80 value=('1986' '1987' '1988' '1989' '1990' '1991' '1992') major=none minor=none; legend1 label=none across=1 position=(top inside left) shape=bar(5,3) value=(height=4 'Mainframes' 'Minicomputers' 'PCs/Workstations') mode=protect cborder=black; symbol1 color=bippk interpol=join value=none; symbol2 color=vlipb interpol=join value=none; symbol3 color=cyan interpol=join value=none; symbol4 color=none interpol=none value=none; pattern1 color=bippk value=solid; pattern2 color=vlipb value=solid; pattern3 color=cyan value=solid; proc gplot data=revenue; plot (main mini work)*year / overlay areas=3 legend=legend1 vaxis=axis1 haxis=axis3 cvref=ltgray chref=ltgray vref=0.5 to 5.5 by 0.5 href=87 to 91; plot2 work*year / vaxis=axis2 cframe=blue frame; run; quit; goptions reset=(global goptions); /* GAMES.SAS */ goptions reset=(global goptions); goptions reset=global ftext=centxi htext=3 gunit=pct cback=white colors=(black) border targetdevice=tek4105; data games; input place $ 1-11 cost; cards; Montreal 25 Moscow 87 Los Angeles 225 Seoul 309 Barcelona 401 ; proc format; picture amtfmt low-high='00,009M' (prefix='$'); run; data labels; length function style text $ 8; retain function 'label' xsys ysys '2' hsys '3' style 'centxi' size 4 when 'a' color 'white'; drop place cost; set games end=lastob; xc=place; y=cost; text=left(put(cost,amtfmt.)); if _n_=1 then position='C'; else if lastob then position='A'; else position='B'; output; run; title1 height=5 'Cost of U.S. Broadcast Rights for the Olympics'; footnote1 font=swissl height=2.5 justify=left ' SAS/GRAPH' move=(+0,+.5) '02'x move=(+0,-.5) ' Software' justify=right 'GAMES '; axis1 label=none order=('Montreal' 'Moscow' 'Los Angeles' 'Seoul' 'Barcelona') value=(tick=1 'Montreal' justify=center '1976' tick=2 'Moscow' justify=center '1980' tick=3 'Los Angeles' justify=center '1984' tick=4 'Seoul' justify=center '1988' tick=5 'Barcelona' justify=center '1992'); axis2 label=('$U.S.,' justify=right 'Millions') order=(0 to 500 by 100); pattern1 color=bioy value=solid; symbol1 color=bioy value=none interpol=join; proc gplot data=games; plot cost*place / areas=1 haxis=axis1 vaxis=axis2 href= 'Moscow' 'Los Angeles' 'Seoul' chref=white vref=100 to 400 by 100 cvref=white vminor=0 cframe=black annotate=labels; run; quit; goptions reset=(global goptions); /* COSTS.SAS */ goptions reset=(global goptions); goptions reset=global gunit=pct target=tek4105 cback=white colors=(black) border ftext=zapf htext=3; data prodcost (drop=tcprev tfc tvc tc); retain tcprev 0; input quan tfc tvc; tc=tfc+tvc; afc=tfc/quan; /* average fixed cost */ avc=tvc/quan; /* average variable cost */ atc=tc/quan; /* average total cost */ mc=tc-tcprev; /* marginal cost */ tcprev=tc; cards; 1 10 05 2 10 08 3 10 10 4 10 11 5 10 13 6 10 16 7 10 20 8 10 25 9 10 31 10 10 38 11 10 46 ; data linetext(drop=afc atc avc mc quan); length function color $ 8 text $ 20; retain function 'label' xsys ysys '2' hsys '3' position '6' style 'swiss' size 3; set prodcost end=last; if last then do; x=quan; y=mc; text=' Marginal Cost'; color='red'; output; y=atc; text=' Avg. Total Cost'; color='vig'; output; y=afc; text=' Avg. Fixed Cost'; color='blue'; output; y=avc; text=' Avg. Variable Cost'; color='orange'; output; end; run; title1 height=6 'Projected Cost of Production'; footnote1 font=swissl justify=left height=2.5 ' SAS/GRAPH' move=(+0,+.5) '02'x move=(+0,-.5) ' Software' justify=right 'COSTS '; footnote2 height=2 angle=90 ' '; axis1 minor=none value=(font=swiss) offset=(1,22) label=('Thousands of Units') width=3; axis2 order=(0 to 16 by 2) minor=none value=(font=swiss) offset=(0,0) label=('Dollar Cost' justify=right '(in hundreds)') width=3; symbol1 interpol=spline width=4 color=red; symbol2 interpol=spline width=4 color=vig line=2; symbol3 interpol=spline width=4 color=blue line=10; symbol4 interpol=spline width=4 color=orange line=20; proc gplot data=prodcost; plot (mc atc afc avc)*quan / overlay frame haxis=axis1 vaxis=axis2 annotate=linetext; run; quit; goptions reset=(global goptions); /* MARKET.SAS */ goptions reset=(global goptions); goptions reset=global target=tek4105 gunit=pct cback=gray88 ctext=white ftext=swissl htext=2.5 border; data autodata; input auto $ 17. share rating price; cards; Mazda Miata .10 9.4 15.2 Chevy S-10 .10 2.9 13.8 Infiniti M30 .075 7.2 24.3 Ford Taurus .10 4.3 13.3 Plymouth Voyager .20 1.8 13.2 Toyota Cressida .15 6.0 23.7 Honda Civic .10 3.7 7.0 Acura Integra .175 6.5 12.1 ; data labels; length color $ 8 text $ 17; retain function 'label' hsys '3' style 'swissi' when 'a'; if _n_=1 then do; xsys='1'; ysys='1'; size=3; color='blue'; y=97; x=1; position='C'; text='Economical and'; output; position='F'; text='Sporty'; output; x=50; position='B'; output; x=99; position='A'; text='Expensive and'; output; position='D'; text='Sporty'; output; y=50; x=1; position='F'; text='Economical'; output; x=99; position='D'; text='Expensive'; output; y=5; x=1; position='C';text='Economical and'; output; position='F'; text='Practical'; output; x=50; position='E'; output; x=99; position='A'; text='Expensive and'; output; position='D'; text='Practical'; output; end; set autodata; drop share rating price auto; text=auto; x=price; y=rating; xsys='2'; ysys='2'; position='5'; style='swiss'; size=2.5; color='red'; output; run; title1 height=5 move=(3,+0) 'Market Analysis of Local Survey of Selected Automobiles'; footnote1 justify=left ' SAS/GRAPH' move=(+0,+.5) '02'x move=(+0,-.5) ' Software' justify=right 'MARKET '; axis1 order=(5 to 27) origin=(3,10) length=65 label=none value=none major=none minor=none; axis2 order=(0 to 10) offset=(2,2) length=80 value=none label=none major=none minor=none ; proc gplot data=autodata; format share percent7.1; note height=3 move=(70,25) 'Bubble size and labels' move=(70,20) 'represent the market share,' move=(70,15) 'in percent, of autos' move=(70,10) 'in this survey.'; bubble rating*price=share / bsize=12 bcolor=red blabel ctext=red href=16 chref=blue lhref=2 haxis=axis1 vref=5 cvref=blue lvref=2 vaxis=axis2 cframe=white annotate=labels; run; quit; goptions reset=(global goptions); /* POND.SAS */ goptions reset=(global goptions); proc greplay igout=work.gseg nofs; delete shade levels template; quit; goptions reset=global gunit=pct targetdevice=tek4105 nodisplay htext=3 ftext=zapf cback=white colors=(black) border; data pond; input y x z; cards; 227.50 41.00 0.00 220.00 41.00 0.00 215.00 41.00 0.00 207.50 41.00 0.00 235.00 42.00 0.00 197.50 42.00 0.00 242.50 43.00 0.00 190.00 43.00 0.00 185.00 45.00 0.00 252.50 46.00 0.00 180.00 46.00 0.00 260.00 48.00 0.00 262.50 49.00 0.00 172.50 49.00 0.00 265.00 51.00 0.00 165.00 51.00 0.00 157.50 53.00 0.00 130.00 53.00 0.00 122.50 53.00 0.00 112.50 53.00 0.00 152.50 54.00 0.00 147.50 54.00 0.00 142.50 54.00 0.00 137.50 54.00 0.00 105.00 54.00 0.00 97.50 55.00 0.00 275.00 56.00 0.00 90.00 57.00 0.00 85.00 58.00 0.00 281.25 60.00 0.00 80.00 60.00 0.00 75.00 63.00 0.00 290.00 64.00 0.00 72.50 64.00 0.00 295.00 66.00 0.00 71.25 66.00 0.00 70.00 68.00 0.00 298.75 70.00 0.00 67.50 72.00 0.00 305.00 76.00 0.00 63.75 80.00 0.00 308.75 84.00 0.00 61.25 88.00 0.00 312.50 92.00 0.00 60.00 96.00 0.00 315.00 98.00 0.00 316.25 102.00 0.00 60.00 102.00 0.00 58.75 108.00 0.00 60.00 114.00 0.00 61.25 118.00 0.00 65.00 121.00 0.00 70.00 122.00 0.00 77.50 123.00 0.00 282.50 123.50 0.00 280.00 124.00 0.00 277.50 124.00 0.00 275.00 124.00 0.00 267.50 124.00 0.00 260.00 124.00 0.00 107.50 124.00 0.00 95.00 124.00 0.00 85.00 124.00 0.00 250.00 125.00 0.00 117.50 125.00 0.00 237.50 126.00 0.00 230.00 126.00 0.00 200.00 126.00 0.00 192.50 126.00 0.00 127.50 126.00 0.00 122.50 126.00 0.00 222.50 127.00 0.00 215.00 127.00 0.00 207.50 127.00 0.00 185.00 127.00 0.00 177.50 127.00 0.00 132.50 128.00 0.00 167.50 129.00 0.00 140.00 129.00 0.00 162.50 130.00 0.00 157.50 130.00 0.00 150.00 130.00 0.00 145.00 130.00 0.00 197.50 0.00 3.92 265.00 2.00 3.58 137.50 4.00 3.54 95.00 4.00 4.25 47.50 4.00 5.83 137.50 20.00 4.25 117.50 20.00 4.08 100.00 20.00 8.00 95.00 20.00 8.00 90.00 20.00 8.00 77.50 20.00 5.42 57.50 20.00 5.75 47.50 20.00 7.00 177.50 22.00 4.08 157.50 22.00 4.25 197.50 24.00 4.25 227.50 26.00 5.25 217.50 26.00 4.50 80.00 26.00 2.91 237.50 28.00 5.33 352.50 30.00 6.00 342.50 30.00 5.67 332.50 30.00 5.67 322.50 30.00 5.42 312.50 30.00 4.50 302.50 30.00 3.54 292.50 30.00 3.62 282.50 30.00 3.92 272.50 30.00 4.00 257.50 30.00 5.04 265.00 36.00 1.00 300.00 38.00 4.00 352.50 40.00 6.00 265.00 40.00 1.00 332.50 44.00 3.33 265.00 44.00 1.00 77.50 44.00 6.50 72.50 44.00 6.50 270.00 46.00 1.00 55.00 46.00 2.33 275.00 49.00 1.00 352.50 50.00 6.00 340.00 50.00 3.58 280.00 52.00 1.00 342.50 54.00 6.00 340.00 54.00 6.00 335.00 54.00 6.00 288.75 56.00 1.00 352.50 60.00 6.00 295.00 60.00 1.00 72.50 60.00 -0.50 65.00 60.00 6.33 62.50 60.00 6.33 57.50 60.00 6.33 352.50 64.00 3.54 302.50 64.00 1.00 80.00 64.00 -1.50 72.50 64.00 -1.50 80.00 68.00 -1.50 72.50 68.00 -1.50 352.50 70.00 6.00 307.50 70.00 1.00 80.00 72.00 -2.00 72.50 72.00 -2.50 345.00 74.00 4.94 342.50 74.00 4.94 337.50 74.00 4.94 80.00 76.00 -1.50 72.50 76.00 -3.00 57.50 76.00 5.91 55.00 76.00 5.91 50.00 76.00 5.91 312.50 78.00 1.00 85.00 78.00 -1.50 82.50 78.00 -1.50 80.00 78.00 -1.25 352.50 80.00 6.00 335.00 80.00 3.67 87.50 80.00 -1.25 85.00 80.00 0.00 82.50 80.00 0.00 80.00 80.00 0.00 77.50 80.00 -1.50 72.50 80.00 -3.00 87.50 82.00 -1.25 85.00 82.00 0.00 82.50 82.00 0.00 81.25 82.00 0.00 77.50 82.00 -1.50 85.00 84.00 -1.25 82.50 84.00 -1.25 80.00 84.00 -1.25 72.50 84.00 -3.00 80.00 86.00 -1.25 335.00 88.00 4.92 317.50 88.00 1.00 72.50 88.00 -4.00 352.50 90.00 6.00 80.00 90.00 -2.00 72.50 92.00 -4.00 52.50 92.00 5.12 50.00 92.00 5.12 47.50 92.00 5.12 320.00 94.00 1.00 80.00 94.00 -3.00 335.00 96.00 4.37 72.50 96.00 -3.50 80.00 98.00 -3.50 352.50 100.00 6.00 322.50 100.00 1.00 345.00 102.00 3.88 342.50 102.00 3.88 337.50 102.00 3.88 80.00 102.00 -3.50 332.50 104.00 4.04 323.75 104.00 1.00 72.50 104.00 -4.00 317.50 106.00 0.00 80.00 106.00 -3.50 317.50 108.00 0.00 52.50 108.00 3.75 50.00 108.00 3.75 47.50 108.00 3.75 352.50 110.00 6.00 327.50 110.00 3.91 317.00 110.00 0.00 80.00 110.00 -2.00 317.00 112.00 0.00 72.50 112.00 -2.50 335.00 114.00 2.83 315.00 114.00 0.00 80.00 114.00 -2.00 337.50 116.00 2.83 320.00 116.00 3.16 312.50 116.00 0.00 72.50 116.00 -2.00 340.00 118.00 2.83 307.50 118.00 0.00 80.00 118.00 -1.50 311.25 120.00 3.00 300.00 120.00 0.00 72.50 120.00 -1.00 295.00 121.00 0.00 290.00 122.00 0.00 80.00 122.00 -1.50 285.00 123.00 0.00 342.50 124.00 2.66 47.50 124.00 3.58 272.50 126.00 2.91 72.50 126.00 2.99 252.50 128.00 3.00 112.50 128.00 2.16 92.50 128.00 2.41 212.50 130.00 3.50 132.50 130.00 2.66 192.50 131.00 3.16 172.50 132.00 3.06 152.50 132.00 2.66 305.00 134.00 4.00 305.00 136.00 4.00 255.00 138.00 4.95 212.50 138.00 5.00 172.50 138.00 1.08 132.50 138.00 0.38 102.50 138.00 1.16 50.00 138.00 2.24 355.00 139.00 1.58 305.00 140.00 4.00 255.00 140.00 4.95 130.00 140.00 1.58 105.00 140.00 1.58 80.00 140.00 1.58 212.50 142.00 5.00 172.50 142.00 1.08 132.50 142.00 0.74 102.50 142.00 1.16 50.00 142.00 2.24 255.00 144.00 4.95 212.50 144.00 5.00 172.50 144.00 1.08 132.50 144.00 1.08 102.50 144.00 1.16 50.00 144.00 2.24 330.00 150.00 1.58 305.00 150.00 1.58 280.00 150.00 1.58 255.00 150.00 1.58 230.00 150.00 1.58 205.00 150.00 1.58 180.00 150.00 1.58 155.00 150.00 1.58 267.00 30.00 5.00 105.00 21.00 8.00 80.00 22.00 8.00 92.50 26.00 7.75 85.00 26.00 7.75 77.50 34.00 7.65 82.50 36.00 7.65 55.00 38.00 2.33 37.50 40.00 8.50 232.50 44.00 -0.50 212.50 44.00 -0.50 192.50 44.00 -0.50 40.00 46.00 2.20 252.50 48.00 -0.50 192.50 48.00 -1.00 62.50 48.00 2.33 232.50 50.00 -1.00 22.50 50.00 9.00 212.50 52.00 -1.50 192.50 52.00 -1.00 172.50 52.00 -0.50 45.00 52.00 2.20 252.50 54.00 -1.00 27.50 54.00 2.10 232.50 56.00 -1.00 192.50 56.00 -3.00 172.50 56.00 -0.50 152.50 56.00 -0.50 132.50 56.00 -0.50 112.50 56.00 -0.50 55.00 56.00 2.20 272.50 58.00 -1.00 152.50 58.00 -1.00 252.50 60.00 -1.00 212.50 60.00 -3.00 192.50 60.00 -4.00 172.50 60.00 -1.00 152.50 60.00 -2.00 132.50 60.00 -1.00 112.50 60.00 -0.50 12.50 60.00 9.50 232.50 62.00 -2.00 152.50 62.00 -2.00 35.00 62.00 2.10 272.50 64.00 -1.00 252.50 64.00 -1.00 192.50 64.00 -4.00 172.50 64.00 -1.00 152.50 64.00 -4.00 132.50 64.00 -2.50 112.50 64.00 -1.50 292.50 68.00 -1.00 252.50 68.00 -2.00 232.50 68.00 -3.00 212.50 68.00 -3.50 172.50 68.00 -2.00 152.50 68.00 -4.50 132.50 68.00 -2.50 112.50 68.00 -1.50 72.50 68.00 -0.50 47.50 68.00 2.10 272.50 70.00 -1.00 192.50 70.00 -4.50 17.50 70.00 2.00 7.50 70.00 10.00 292.50 72.00 -2.00 172.50 72.00 -3.50 152.50 72.00 -4.50 132.50 72.00 -3.00 112.50 72.00 -2.00 72.50 72.00 -1.00 272.50 74.00 -2.00 252.50 74.00 -2.00 232.50 74.00 -3.00 212.50 74.00 -3.50 27.50 74.00 2.00 192.50 76.00 -4.50 172.50 76.00 -3.50 152.50 76.00 -5.00 132.50 76.00 -3.00 112.50 76.00 -2.00 302.50 78.00 -1.50 292.50 78.00 -3.00 67.50 78.00 -1.50 272.50 80.00 -2.50 252.50 80.00 -2.00 232.50 80.00 -4.00 212.50 80.00 -4.00 172.50 80.00 -4.00 152.50 80.00 -5.50 132.50 80.00 -3.00 112.50 80.00 -2.00 72.50 80.00 -1.50 42.50 80.00 2.00 2.50 80.00 10.00 302.50 82.00 -1.50 192.50 82.00 -5.00 292.50 84.00 -3.50 272.50 84.00 -3.50 252.50 84.00 -3.00 172.50 84.00 -4.50 152.50 84.00 -5.50 132.50 84.00 -3.50 112.50 84.00 -2.50 72.50 84.00 -3.50 67.50 84.00 -2.00 12.50 84.00 2.00 307.50 86.00 -0.50 302.50 86.00 -3.00 232.50 86.00 -4.00 292.50 88.00 -4.00 272.50 88.00 -4.00 252.50 88.00 -3.00 212.50 88.00 -4.00 192.50 88.00 -5.00 172.50 88.00 -4.50 152.50 88.00 -6.00 132.50 88.00 -3.50 112.50 88.00 -3.00 72.50 88.00 -2.50 65.00 88.00 -1.50 232.50 89.00 -4.00 310.00 90.00 -1.67 307.50 90.00 -1.00 0.00 90.00 10.00 302.50 92.00 -3.50 292.50 92.00 -4.00 232.50 92.00 -4.50 172.50 92.00 -5.00 152.50 92.00 -6.00 132.50 92.00 -4.50 112.50 92.00 -5.00 72.50 92.00 -3.00 67.50 92.00 -2.00 42.50 92.00 2.00 22.50 92.00 2.00 272.50 94.00 -4.00 252.50 94.00 -4.00 212.50 94.00 -4.50 192.50 94.00 -5.00 172.50 94.00 -5.00 307.50 96.00 -1.00 302.50 96.00 -3.00 292.50 96.00 -3.50 152.50 96.00 -7.00 132.50 96.00 -5.00 112.50 96.00 -5.00 65.00 96.00 -2.00 312.50 98.00 -0.25 232.50 98.00 -4.50 172.50 98.00 -6.00 310.00 100.00 -1.50 307.50 100.00 -1.50 302.50 100.00 -2.50 292.50 100.00 -3.50 272.50 100.00 -4.50 252.50 100.00 -4.00 212.50 100.00 -4.50 192.50 100.00 -5.00 152.50 100.00 -7.00 132.50 100.00 -6.00 112.50 100.00 -5.00 72.50 100.00 -3.50 67.50 100.00 -2.00 61.25 100.00 -1.50 10.00 100.00 2.00 0.00 100.00 10.00 232.50 101.00 -4.00 312.50 102.00 -0.50 172.50 102.00 -6.00 307.50 103.00 -2.50 315.00 104.00 -0.08 302.50 104.00 -2.00 292.50 104.00 -3.00 272.50 104.00 -5.00 232.50 104.00 -4.00 152.50 104.00 -6.50 132.50 104.00 -5.50 112.50 104.00 -3.50 72.50 104.00 -3.50 312.50 106.00 -0.50 310.00 106.00 -1.00 307.50 106.00 -2.50 252.50 106.00 -4.00 192.50 106.00 -4.50 172.50 106.00 -5.50 65.00 106.00 -2.50 22.50 106.00 2.00 315.00 108.00 -0.08 302.50 108.00 -2.00 272.50 108.00 -3.50 212.50 108.00 -5.00 152.50 108.00 -6.00 132.50 108.00 -5.00 112.50 108.00 -3.00 72.50 108.00 -3.00 67.50 108.00 -2.50 42.50 108.00 2.00 312.50 110.00 -0.08 292.50 110.00 -2.50 232.50 110.00 -2.50 172.50 110.00 -5.00 0.00 110.00 8.00 315.00 112.00 -0.08 310.00 112.00 -0.50 307.50 112.00 -1.00 252.50 112.00 -4.00 192.50 112.00 -4.00 152.50 112.00 -3.50 132.50 112.00 -4.50 112.50 112.00 -2.50 72.50 112.00 -3.50 65.00 112.00 -2.00 61.25 112.00 -1.50 232.50 113.00 -2.00 312.50 114.00 -0.08 302.50 114.00 -1.50 292.50 114.00 -2.00 252.50 114.00 -3.50 172.50 114.00 -3.50 67.50 114.00 -2.00 310.00 116.00 -0.25 307.50 116.00 -0.50 272.50 116.00 -2.00 232.50 116.00 -1.50 212.50 116.00 -5.00 152.50 116.00 -2.00 132.50 116.00 -4.00 112.50 116.00 -1.00 72.50 116.00 -2.50 61.25 116.00 -1.50 302.50 118.00 -1.00 252.50 118.00 -2.00 192.50 118.00 -2.50 172.50 118.00 -2.00 65.00 118.00 -1.50 10.00 118.00 2.00 292.50 120.00 -1.00 232.50 120.00 -1.00 212.50 120.00 -3.00 192.50 120.00 -2.50 152.50 120.00 -2.00 132.50 120.00 -3.00 112.50 120.00 -1.00 72.50 120.00 -1.50 67.50 120.00 -1.50 42.50 120.00 2.00 2.50 120.00 7.00 272.50 122.00 -1.00 252.50 122.00 -1.50 212.50 122.00 -1.00 172.50 122.00 -1.50 132.50 122.00 -3.00 112.50 122.00 -0.50 232.50 124.00 -0.50 192.50 124.00 -1.00 152.50 124.00 -1.50 132.50 124.00 -2.00 25.00 124.00 2.00 172.50 126.00 -0.50 132.50 126.00 -0.50 37.50 126.00 4.00 12.50 126.00 6.00 152.50 128.00 -0.50 25.00 128.00 5.00 ; proc g3grid out=grid; grid y*x=z / join naxis1=100 naxis2=100; run; axis1 label=none order=(0 to 320 by 32) value=(height=2.5) major=(width=2) minor=(number=7) length=80 origin=(,32); axis2 label=none order=(0 to 150 by 15) value=(height=2.5) major=(width=2) minor=(number=4) length=54; pattern1 value=solid color=H1543CFF; pattern2 value=solid color=H1523DFF; pattern3 value=solid color=H14F3DFF; pattern4 value=solid color=H14D3EFF; pattern5 value=solid color=H14B3EFF; pattern6 value=solid color=H1493FFF; pattern7 value=solid color=H1463FFF; pattern8 value=solid color=H14440FF; pattern9 value=solid color=H14241FF; pattern10 value=solid color=H13F41FF; pattern11 value=solid color=H13D42FF; pattern12 value=solid color=H13B42FF; pattern13 value=solid color=H13943FF; pattern14 value=solid color=H13643FF; pattern15 value=solid color=H13444FF; pattern16 value=solid color=H13245FF; pattern17 value=solid color=H12F45FF; pattern18 value=solid color=H12D46FF; pattern19 value=solid color=H12B46FF; pattern20 value=solid color=H12947FF; pattern21 value=solid color=H12647FF; pattern22 value=solid color=H12448FF; pattern23 value=solid color=H12249FF; pattern24 value=solid color=H11F49FF; pattern25 value=solid color=H11D4AFF; pattern26 value=solid color=H11B4AFF; pattern27 value=solid color=H1194BFF; pattern28 value=solid color=H1164BFF; pattern29 value=solid color=H1144CFF; pattern30 value=solid color=H1124DFF; pattern31 value=solid color=H10F4DFF; pattern32 value=solid color=H10D4EFF; pattern33 value=solid color=H10B4EFF; proc gcontour data=grid; plot x*y=z / levels=-6.5 to 9.5 by .5 pattern haxis=axis1 vaxis=axis2 nolegend name='shades'; run; title1 height=5 'Lake Bottom and Surrounding Land'; footnote1 justify=left ' West-to-East view (Meters)' justify=right 'Shore Line: Level 0.0 '; footnote2 font=swissl height=2.5 justify=left ' SAS/GRAPH' move=(+0,+.5) '02'x move=(+0,-.5) ' Software' justify=right 'POND '; axis3 label=none order=(0 to 320 by 32) value=none major=none minor=none length=80 origin=(,32) style=0; axis4 label=none order=(0 to 150 by 15) value=none major=none minor=none length=54 style=0; legend1 label=(color=white height=2.5 'Height (ft)') value=(color=white height=2.5) across=4 cframe=H14046FF cshadow=H1543CFF; symbol1 color=white line=2 height=2; symbol2 color=white line=3 height=2; symbol3 color=white line=4 height=2; symbol4 color=white line=5 height=2; symbol5 color=white line=6 height=2; symbol6 color=white line=14 height=2; symbol7 color=white line=1 height=2; proc gcontour data=grid; plot x*y=z / levels=-6.5 to 8.5 by 2.5 haxis=axis3 vaxis=axis4 autolabel legend=legend1 name='lines'; run; goptions display; proc greplay igout=work.gseg tc=tempcat template=one nofs; tdef one 1/llx=0 lly=0 ulx=0 uly=100 urx=100 ury=100 lrx=100 lry=0; treplay 1:shades 1:lines; run; quit; goptions reset=(global goptions); /* SURFACE.SAS */ goptions reset=(global goptions); goptions reset=global targetdevice=tek4105 display ftext=swiss htext=3 cback=white colors=(black) gunit=pct border; data results; input temp catalyst yield; cards; 60 0.000 6.83888 60 0.002 7.15841 60 0.004 7.43373 60 0.006 7.66581 60 0.008 7.85560 60 0.010 8.00404 60 0.012 8.11210 60 0.014 8.18072 60 0.016 8.21087 60 0.018 8.20349 60 0.020 8.15953 60 0.022 8.07996 60 0.024 7.96572 60 0.026 7.81777 60 0.028 7.63706 60 0.030 7.42454 60 0.032 7.18118 60 0.034 6.90791 60 0.036 6.60570 60 0.038 6.27550 60 0.040 5.91826 60 0.042 5.53494 60 0.044 5.12649 60 0.046 4.69386 60 0.048 4.23800 60 0.050 3.75988 60 0.052 3.26044 60 0.054 2.74063 60 0.056 2.20142 60 0.058 1.64375 60 0.060 1.06858 60 0.062 0.47685 60 0.064 0.00000 60 0.066 0.00000 60 0.068 0.00000 60 0.070 0.00000 60 0.072 0.00000 60 0.074 0.00000 60 0.076 0.00000 60 0.078 0.00000 60 0.080 0.00000 62 0.000 7.15487 62 0.002 7.48995 62 0.004 7.78180 62 0.006 8.03137 62 0.008 8.23962 62 0.010 8.40750 62 0.012 8.53596 62 0.014 8.62596 62 0.016 8.67845 62 0.018 8.69438 62 0.020 8.67471 62 0.022 8.62039 62 0.024 8.53237 62 0.026 8.41162 62 0.028 8.25907 62 0.030 8.07569 62 0.032 7.86243 62 0.034 7.62024 62 0.036 7.35007 62 0.038 7.05288 62 0.040 6.72963 62 0.042 6.38126 62 0.044 6.00873 62 0.046 5.61299 62 0.048 5.19500 62 0.050 4.75571 62 0.052 4.29607 62 0.054 3.81704 62 0.056 3.31957 62 0.058 2.80461 62 0.060 2.27312 62 0.062 1.72605 62 0.064 1.16436 62 0.066 0.58899 62 0.068 0.00090 62 0.070 0.00000 62 0.072 0.00000 62 0.074 0.00000 62 0.076 0.00000 62 0.078 0.00000 62 0.080 0.00000 64 0.000 7.38742 64 0.002 7.73663 64 0.004 8.04358 64 0.006 8.30922 64 0.008 8.53451 64 0.010 8.72040 64 0.012 8.86784 64 0.014 8.97779 64 0.016 9.05120 64 0.018 9.08902 64 0.020 9.09221 64 0.022 9.06172 64 0.024 8.99850 64 0.026 8.90351 64 0.028 8.77771 64 0.030 8.62203 64 0.032 8.43745 64 0.034 8.22491 64 0.036 7.98536 64 0.038 7.71976 64 0.040 7.42906 64 0.042 7.11422 64 0.044 6.77619 64 0.046 6.41592 64 0.048 6.03437 64 0.050 5.63249 64 0.052 5.21123 64 0.054 4.77155 64 0.056 4.31439 64 0.058 3.84072 64 0.060 3.35149 64 0.062 2.84765 64 0.064 2.33015 64 0.066 1.79995 64 0.068 1.25800 64 0.070 0.70526 64 0.072 0.14267 64 0.074 0.00000 64 0.076 0.00000 64 0.078 0.00000 64 0.080 0.00000 66 0.000 7.54188 66 0.002 7.90380 66 0.004 8.22442 66 0.006 8.50471 66 0.008 8.74561 66 0.010 8.94809 66 0.012 9.11308 66 0.014 9.24156 66 0.016 9.33446 66 0.018 9.39274 66 0.020 9.41737 66 0.022 9.40928 66 0.024 9.36944 66 0.026 9.29880 66 0.028 9.19831 66 0.030 9.06892 66 0.032 8.91159 66 0.034 8.72727 66 0.036 8.51692 66 0.038 8.28148 66 0.040 8.02192 66 0.042 7.73918 66 0.044 7.43422 66 0.046 7.10800 66 0.048 6.76146 66 0.050 6.39556 66 0.052 6.01125 66 0.054 5.60949 66 0.056 5.19124 66 0.058 4.75743 66 0.060 4.30903 66 0.062 3.84699 66 0.064 3.37227 66 0.066 2.88581 66 0.068 2.38858 66 0.070 1.88151 66 0.072 1.36558 66 0.074 0.84173 66 0.076 0.31091 66 0.078 0.00000 66 0.080 0.00000 68 0.000 7.62360 68 0.002 7.99680 68 0.004 8.32967 68 0.006 8.62318 68 0.008 8.87827 68 0.010 9.09591 68 0.012 9.27703 68 0.014 9.42260 68 0.016 9.53358 68 0.018 9.61090 68 0.020 9.65554 68 0.022 9.66843 68 0.024 9.65054 68 0.026 9.60282 68 0.028 9.52621 68 0.030 9.42168 68 0.032 9.29018 68 0.034 9.13266 68 0.036 8.95008 68 0.038 8.74339 68 0.040 8.51353 68 0.042 8.26147 68 0.044 7.98817 68 0.046 7.69456 68 0.048 7.38161 68 0.050 7.05027 68 0.052 6.70149 68 0.054 6.33623 68 0.056 5.95544 68 0.058 5.56007 68 0.060 5.15108 68 0.062 4.72942 68 0.064 4.29605 68 0.066 3.85191 68 0.068 3.3980 68 0.070 2.9352 68 0.072 2.4645 68 0.074 1.9868 68 0.076 1.5032 68 0.078 1.0145 68 0.080 0.5217 70 0.000 7.6379 70 0.002 8.0210 70 0.004 8.3647 70 0.006 8.6700 70 0.008 8.9378 70 0.010 9.1692 70 0.012 9.3650 70 0.014 9.5263 70 0.016 9.6539 70 0.018 9.7488 70 0.020 9.8121 70 0.022 9.8445 70 0.024 9.8471 70 0.026 9.8209 70 0.028 9.7668 70 0.030 9.6857 70 0.032 9.5786 70 0.034 9.4464 70 0.036 9.2902 70 0.038 9.1108 70 0.040 8.9092 70 0.042 8.6864 70 0.044 8.4434 70 0.046 8.1809 70 0.048 7.9002 70 0.050 7.6020 70 0.052 7.2873 70 0.054 6.9571 70 0.056 6.6123 70 0.058 6.2540 70 0.060 5.8830 70 0.062 5.5003 70 0.064 5.1068 70 0.066 4.7036 70 0.068 4.2915 70 0.070 3.8715 70 0.072 3.4446 70 0.074 3.0117 70 0.076 2.5738 70 0.078 2.1319 70 0.080 1.6868 72 0.000 7.5902 72 0.002 7.9817 72 0.004 8.3348 72 0.006 8.6504 72 0.008 8.9296 72 0.010 9.1733 72 0.012 9.3824 72 0.014 9.5579 72 0.016 9.7008 72 0.018 9.8119 72 0.020 9.8923 72 0.022 9.9428 72 0.024 9.9646 72 0.026 9.9584 72 0.028 9.9253 72 0.030 9.8662 72 0.032 9.7821 72 0.034 9.6739 72 0.036 9.5426 72 0.038 9.3891 72 0.040 9.2144 72 0.042 9.0194 72 0.044 8.8051 72 0.046 8.5725 72 0.048 8.3225 72 0.050 8.0560 72 0.052 7.7740 72 0.054 7.4774 72 0.056 7.1673 72 0.058 6.8445 72 0.060 6.5101 72 0.062 6.1649 72 0.064 5.8100 72 0.066 5.4462 72 0.068 5.0745 72 0.070 4.6960 72 0.072 4.3115 72 0.074 3.9219 72 0.076 3.5283 72 0.078 3.1316 72 0.080 2.7328 74 0.000 7.4857 74 0.002 7.8842 74 0.004 8.2453 74 0.006 8.5699 74 0.008 8.8590 74 0.010 9.1136 74 0.012 9.3345 74 0.014 9.5229 74 0.016 9.6795 74 0.018 9.8054 74 0.020 9.9015 74 0.022 9.9688 74 0.024 10.0082 74 0.026 10.0207 74 0.028 10.0072 74 0.030 9.9687 74 0.032 9.9062 74 0.034 9.8205 74 0.036 9.7127 74 0.038 9.5836 74 0.040 9.4344 74 0.042 9.2658 74 0.044 9.0789 74 0.046 8.8746 74 0.048 8.6538 74 0.050 8.4176 74 0.052 8.1669 74 0.054 7.9026 74 0.056 7.6256 74 0.058 7.3370 74 0.060 7.0377 74 0.062 6.7287 74 0.064 6.4108 74 0.066 6.0850 74 0.068 5.7524 74 0.070 5.4138 74 0.072 5.0703 74 0.074 4.7227 74 0.076 4.3720 74 0.078 4.0191 74 0.080 3.6651 76 0.000 7.3299 76 0.002 7.7339 76 0.004 8.1016 76 0.006 8.4337 76 0.008 8.7313 76 0.010 8.9953 76 0.012 9.2267 76 0.014 9.4265 76 0.016 9.5955 76 0.018 9.7347 76 0.020 9.8451 76 0.022 9.9277 76 0.024 9.9834 76 0.026 10.0131 76 0.028 10.0178 76 0.030 9.9984 76 0.032 9.9560 76 0.034 9.8914 76 0.036 9.8057 76 0.038 9.6997 76 0.040 9.5744 76 0.042 9.4308 76 0.044 9.2699 76 0.046 9.0925 76 0.048 8.8997 76 0.050 8.6923 76 0.052 8.4714 76 0.054 8.2379 76 0.056 7.9927 76 0.058 7.7369 76 0.060 7.4713 76 0.062 7.1969 76 0.064 6.9146 76 0.066 6.6255 76 0.068 6.3305 76 0.070 6.0305 76 0.072 5.7264 76 0.074 5.4193 76 0.076 5.1101 76 0.078 4.7997 76 0.080 4.4891 78 0.000 7.1280 78 0.002 7.5362 78 0.004 7.9090 78 0.006 8.2472 78 0.008 8.5519 78 0.010 8.8240 78 0.012 9.0644 78 0.014 9.2741 78 0.016 9.4540 78 0.018 9.6052 78 0.020 9.7285 78 0.022 9.8249 78 0.024 9.8954 78 0.026 9.9409 78 0.028 9.9624 78 0.030 9.9608 78 0.032 9.9370 78 0.034 9.8921 78 0.036 9.8270 78 0.038 9.7427 78 0.040 9.6400 78 0.042 9.5200 78 0.044 9.3835 78 0.046 9.2316 78 0.048 9.0653 78 0.050 8.8853 78 0.052 8.6928 78 0.054 8.48870 78 0.056 8.27388 78 0.058 8.04933 78 0.060 7.81601 78 0.062 7.57487 78 0.064 7.32687 78 0.066 7.07295 78 0.068 6.81407 78 0.070 6.55119 78 0.072 6.28525 78 0.074 6.01722 78 0.076 5.74804 78 0.078 5.47867 78 0.080 5.21006 80 0.000 6.88546 80 0.002 7.29642 80 0.004 7.67288 80 0.006 8.01578 80 0.008 8.32610 80 0.010 8.60477 80 0.012 8.85276 80 0.014 9.07101 80 0.016 9.26048 80 0.018 9.42213 80 0.020 9.55690 80 0.022 9.66575 80 0.024 9.74964 80 0.026 9.80951 80 0.028 9.84632 80 0.030 9.86103 80 0.032 9.85459 80 0.034 9.82795 80 0.036 9.78206 80 0.038 9.71788 80 0.040 9.63636 80 0.042 9.53845 80 0.044 9.42512 80 0.046 9.29731 80 0.048 9.15597 80 0.050 9.00206 80 0.052 8.83654 80 0.054 8.66035 80 0.056 8.47445 80 0.058 8.27979 80 0.060 8.07733 80 0.062 7.86802 80 0.064 7.65282 80 0.066 7.43267 80 0.068 7.20853 80 0.070 6.98136 80 0.072 6.75210 80 0.074 6.52172 80 0.076 6.29116 80 0.078 6.06138 80 0.080 5.83333 82 0.000 6.60756 82 0.002 7.01983 82 0.004 7.39856 82 0.006 7.74472 82 0.008 8.05925 82 0.010 8.34311 82 0.012 8.59725 82 0.014 8.82263 82 0.016 9.02020 82 0.018 9.19091 82 0.020 9.33572 82 0.022 9.45558 82 0.024 9.55144 82 0.026 9.62426 82 0.028 9.67499 82 0.030 9.70458 82 0.032 9.71399 82 0.034 9.70418 82 0.036 9.67608 82 0.038 9.63067 82 0.040 9.56889 82 0.042 9.49169 82 0.044 9.40003 82 0.046 9.29486 82 0.048 9.17714 82 0.050 9.04782 82 0.052 8.90785 82 0.054 8.75819 82 0.056 8.59978 82 0.058 8.43359 82 0.060 8.26057 82 0.062 8.08166 82 0.064 7.89783 82 0.066 7.71003 82 0.068 7.51921 82 0.070 7.32632 82 0.072 7.13232 82 0.074 6.93816 82 0.076 6.74479 82 0.078 6.55317 82 0.080 6.36426 84 0.000 6.29966 84 0.002 6.71181 84 0.004 7.09140 84 0.006 7.43937 84 0.008 7.75670 84 0.010 8.04432 84 0.012 8.30319 84 0.014 8.53427 84 0.016 8.73851 84 0.018 8.91687 84 0.020 9.07029 84 0.022 9.19973 84 0.024 9.30614 84 0.026 9.39048 84 0.028 9.45370 84 0.030 9.49676 84 0.032 9.52060 84 0.034 9.52619 84 0.036 9.51446 84 0.038 9.48639 84 0.040 9.44292 84 0.042 9.38500 84 0.044 9.31359 84 0.046 9.22965 84 0.048 9.13412 84 0.050 9.02796 84 0.052 8.91212 84 0.054 8.78755 84 0.056 8.65522 84 0.058 8.51607 84 0.060 8.37106 84 0.062 8.22113 84 0.064 8.06725 84 0.066 7.91037 84 0.068 7.75143 84 0.070 7.59141 84 0.072 7.43123 84 0.074 7.27187 84 0.076 7.11428 84 0.078 6.95940 84 0.080 6.80820 86 0.000 5.96710 86 0.002 6.37771 86 0.004 6.75672 86 0.006 7.10509 86 0.008 7.42379 86 0.010 7.71374 86 0.012 7.97593 86 0.014 8.21128 86 0.016 8.42077 86 0.018 8.60534 86 0.020 8.76595 86 0.022 8.90355 86 0.024 9.01909 86 0.026 9.11352 86 0.028 9.18781 86 0.030 9.24290 86 0.032 9.27975 86 0.034 9.29931 86 0.036 9.30254 86 0.038 9.29038 86 0.040 9.26380 86 0.042 9.22373 86 0.044 9.17115 86 0.046 9.10700 86 0.048 9.03224 86 0.050 8.94781 86 0.052 8.85468 86 0.054 8.75379 86 0.056 8.64610 86 0.058 8.53257 86 0.060 8.41414 86 0.062 8.29177 86 0.064 8.16642 86 0.066 8.03903 86 0.068 7.91056 86 0.070 7.78197 86 0.072 7.65420 86 0.074 7.52822 86 0.076 7.40497 86 0.078 7.28540 86 0.080 7.17048 88 0.000 5.61523 88 0.002 6.02286 88 0.004 6.39988 88 0.006 6.74723 88 0.008 7.06586 88 0.010 7.35673 88 0.012 7.62079 88 0.014 7.85900 88 0.016 8.07231 88 0.018 8.26168 88 0.020 8.42805 88 0.022 8.57237 88 0.024 8.69562 88 0.026 8.79873 88 0.028 8.88266 88 0.030 8.94836 88 0.032 8.99679 88 0.034 9.02890 88 0.036 9.04565 88 0.038 9.04798 88 0.040 9.03686 88 0.042 9.01323 88 0.044 8.97805 88 0.046 8.93227 88 0.048 8.87685 88 0.050 8.81273 88 0.052 8.74088 88 0.054 8.66224 88 0.056 8.57778 88 0.058 8.48843 88 0.060 8.39517 88 0.062 8.29893 88 0.064 8.20068 88 0.066 8.10136 88 0.068 8.00193 88 0.070 7.90335 88 0.072 7.80656 88 0.074 7.71253 88 0.076 7.62220 88 0.078 7.53653 88 0.080 7.45646 90 0.000 5.24938 90 0.002 5.65262 90 0.004 6.02621 90 0.006 6.37111 90 0.008 6.68826 90 0.010 6.97862 90 0.012 7.24314 90 0.014 7.48278 90 0.016 7.69849 90 0.018 7.89122 90 0.020 8.06192 90 0.022 8.21156 90 0.024 8.34108 90 0.026 8.45143 90 0.028 8.54358 90 0.030 8.61847 90 0.032 8.67706 90 0.034 8.72030 90 0.036 8.74914 90 0.038 8.76454 90 0.040 8.76746 90 0.042 8.75883 90 0.044 8.73963 90 0.046 8.71080 90 0.048 8.67329 90 0.050 8.62806 90 0.052 8.57607 90 0.054 8.51826 90 0.056 8.45559 90 0.058 8.38901 90 0.060 8.31948 90 0.062 8.24794 90 0.064 8.17537 90 0.066 8.10269 90 0.068 8.03088 90 0.070 7.96089 90 0.072 7.89366 90 0.074 7.83015 90 0.076 7.77131 90 0.078 7.71811 90 0.080 7.67148 92 0.000 4.87490 92 0.002 5.27232 92 0.004 5.64107 92 0.006 5.98209 92 0.008 6.29633 92 0.010 6.58475 92 0.012 6.84831 92 0.014 7.08795 92 0.016 7.30463 92 0.018 7.49930 92 0.020 7.67292 92 0.022 7.82644 92 0.024 7.96081 92 0.026 8.07699 92 0.028 8.17593 92 0.030 8.25858 92 0.032 8.32590 92 0.034 8.37884 92 0.036 8.41836 92 0.038 8.44540 92 0.040 8.46093 92 0.042 8.46588 92 0.044 8.46123 92 0.046 8.44792 92 0.048 8.42691 92 0.050 8.39914 92 0.052 8.36558 92 0.054 8.32717 92 0.056 8.28487 92 0.058 8.23963 92 0.060 8.19241 92 0.062 8.14416 92 0.064 8.09583 92 0.066 8.04838 92 0.068 8.00276 92 0.070 7.95993 92 0.072 7.92083 92 0.074 7.88642 92 0.076 7.85766 92 0.078 7.83549 92 0.080 7.82088 94 0.000 4.49713 94 0.002 4.88731 94 0.004 5.24979 94 0.006 5.58550 94 0.008 5.89542 94 0.010 6.18048 94 0.012 6.44164 94 0.014 6.67986 94 0.016 6.89608 94 0.018 7.09127 94 0.020 7.26638 94 0.022 7.42236 94 0.024 7.56016 94 0.026 7.68073 94 0.028 7.78504 94 0.030 7.87403 94 0.032 7.94866 94 0.034 8.00988 94 0.036 8.05864 94 0.038 8.09590 94 0.040 8.12261 94 0.042 8.13973 94 0.044 8.14820 94 0.046 8.14899 94 0.048 8.14304 94 0.050 8.13131 94 0.052 8.11475 94 0.054 8.09432 94 0.056 8.07097 94 0.058 8.04565 94 0.060 8.01932 94 0.062 7.99292 94 0.064 7.96742 94 0.066 7.94377 94 0.068 7.92291 94 0.070 7.90581 94 0.072 7.89342 94 0.074 7.88669 94 0.076 7.88657 94 0.078 7.89402 94 0.080 7.90999 96 0.000 4.12141 96 0.002 4.50293 96 0.004 4.85771 96 0.006 5.18670 96 0.008 5.49086 96 0.010 5.77113 96 0.012 6.02847 96 0.014 6.26385 96 0.016 6.47820 96 0.018 6.67248 96 0.020 6.84765 96 0.022 7.00466 96 0.024 7.14446 96 0.026 7.26801 96 0.028 7.37626 96 0.030 7.47016 96 0.032 7.55067 96 0.034 7.61875 96 0.036 7.67533 96 0.038 7.72138 96 0.040 7.75786 96 0.042 7.78571 96 0.044 7.80588 96 0.046 7.81934 96 0.048 7.82704 96 0.050 7.82992 96 0.052 7.82894 96 0.054 7.82506 96 0.056 7.81923 96 0.058 7.81240 96 0.060 7.80553 96 0.062 7.79957 96 0.064 7.79547 96 0.066 7.79419 96 0.068 7.79668 96 0.070 7.80389 96 0.072 7.81678 96 0.074 7.83630 96 0.076 7.86340 96 0.078 7.89904 96 0.080 7.94417 98 0.000 3.75310 98 0.002 4.12453 98 0.004 4.47018 98 0.006 4.79102 98 0.008 5.08799 98 0.010 5.36206 98 0.012 5.61416 98 0.014 5.84526 98 0.016 6.05631 98 0.018 6.24826 98 0.020 6.42207 98 0.022 6.57869 98 0.024 6.71907 98 0.026 6.84417 98 0.028 6.95493 98 0.030 7.05232 98 0.032 7.13729 98 0.034 7.21079 98 0.036 7.27377 98 0.038 7.32719 98 0.040 7.37201 98 0.042 7.40916 98 0.044 7.43962 98 0.046 7.46432 98 0.048 7.48423 98 0.050 7.50030 98 0.052 7.51349 98 0.054 7.52473 98 0.056 7.53500 98 0.058 7.54524 98 0.060 7.55640 98 0.062 7.56945 98 0.064 7.58533 98 0.066 7.60499 98 0.068 7.62940 98 0.070 7.65949 98 0.072 7.69624 98 0.074 7.74058 98 0.076 7.79348 98 0.078 7.85589 98 0.080 7.92876 100 0.000 3.39752 100 0.002 3.75743 100 0.004 4.09255 100 0.006 4.40381 100 0.008 4.69217 100 0.010 4.95860 100 0.012 5.20404 100 0.014 5.42944 100 0.016 5.63577 100 0.018 5.82396 100 0.020 5.99498 100 0.022 6.14978 100 0.024 6.28932 100 0.026 6.41454 100 0.028 6.52640 100 0.030 6.62585 100 0.032 6.71385 100 0.034 6.79136 100 0.036 6.85931 100 0.038 6.91867 100 0.040 6.97040 100 0.042 7.01544 100 0.044 7.05475 100 0.046 7.08927 100 0.048 7.11998 100 0.050 7.14781 100 0.052 7.17372 100 0.054 7.19867 100 0.056 7.22361 100 0.058 7.24949 100 0.060 7.27727 100 0.062 7.30790 100 0.064 7.34233 100 0.066 7.38152 100 0.068 7.42641 100 0.070 7.47797 100 0.072 7.53715 100 0.074 7.60490 100 0.076 7.68217 100 0.078 7.76992 100 0.080 7.86910 102 0.000 3.06003 102 0.002 3.40700 102 0.004 3.73014 102 0.006 4.03040 102 0.008 4.30874 102 0.010 4.56610 102 0.012 4.80345 102 0.014 5.02173 102 0.016 5.22191 102 0.018 5.40492 102 0.020 5.57173 102 0.022 5.72329 102 0.024 5.86055 102 0.026 5.98447 102 0.028 6.09600 102 0.030 6.19609 102 0.032 6.28570 102 0.034 6.36578 102 0.036 6.43729 102 0.038 6.50117 102 0.040 6.55838 102 0.042 6.60988 102 0.044 6.65661 102 0.046 6.69954 102 0.048 6.73961 102 0.050 6.77778 102 0.052 6.81500 102 0.054 6.85223 102 0.056 6.89042 102 0.058 6.93052 102 0.060 6.97348 102 0.062 7.02027 102 0.064 7.07182 102 0.066 7.12911 102 0.068 7.19307 102 0.070 7.26467 102 0.072 7.34485 102 0.074 7.43458 102 0.076 7.53480 102 0.078 7.64646 102 0.080 7.77053 104 0.000 2.74596 104 0.002 3.07857 104 0.004 3.38832 104 0.006 3.67615 104 0.008 3.94303 104 0.010 4.18991 104 0.012 4.41774 104 0.014 4.62748 104 0.016 4.82008 104 0.018 4.99648 104 0.020 5.15766 104 0.022 5.30455 104 0.024 5.43812 104 0.026 5.55931 104 0.028 5.66908 104 0.030 5.76839 104 0.032 5.85818 104 0.034 5.93942 104 0.036 6.01304 104 0.038 6.08002 104 0.040 6.14129 104 0.042 6.19782 104 0.044 6.25056 104 0.046 6.30046 104 0.048 6.34848 104 0.050 6.39556 104 0.052 6.44267 104 0.054 6.49075 104 0.056 6.54076 104 0.058 6.59365 104 0.060 6.65037 104 0.062 6.71189 104 0.064 6.77915 104 0.066 6.85311 104 0.068 6.93471 104 0.070 7.02492 104 0.072 7.12469 104 0.074 7.23497 104 0.076 7.35671 104 0.078 7.49087 104 0.080 7.63840 106 0.000 2.46067 106 0.002 2.77749 106 0.004 3.07241 106 0.006 3.34639 106 0.008 3.60039 106 0.010 3.83536 106 0.012 4.05225 106 0.014 4.25202 106 0.016 4.43562 106 0.018 4.60399 106 0.020 4.75811 106 0.022 4.89891 106 0.024 5.02735 106 0.026 5.14440 106 0.028 5.25099 106 0.030 5.34808 106 0.032 5.43663 106 0.034 5.51760 106 0.036 5.59192 106 0.038 5.66057 106 0.040 5.72448 106 0.042 5.78462 106 0.044 5.84194 106 0.046 5.89739 106 0.048 5.95192 106 0.050 6.00649 106 0.052 6.06205 106 0.054 6.11956 106 0.056 6.17997 106 0.058 6.24423 106 0.060 6.31329 106 0.062 6.38812 106 0.064 6.46966 106 0.066 6.55886 106 0.068 6.65668 106 0.070 6.76408 106 0.072 6.88201 106 0.074 7.01141 106 0.076 7.15325 106 0.078 7.30847 106 0.080 7.47804 108 0.000 2.20949 108 0.002 2.50909 108 0.004 2.78777 108 0.006 3.04648 108 0.008 3.28617 108 0.010 3.50780 108 0.012 3.71233 108 0.014 3.90070 108 0.016 4.07387 108 0.018 4.23279 108 0.020 4.37842 108 0.022 4.51171 108 0.024 4.63361 108 0.026 4.74507 108 0.028 4.84706 108 0.030 4.94052 108 0.032 5.02640 108 0.034 5.10567 108 0.036 5.17927 108 0.038 5.24816 108 0.040 5.31329 108 0.042 5.37561 108 0.044 5.43608 108 0.046 5.49565 108 0.048 5.55528 108 0.050 5.61591 108 0.052 5.67851 108 0.054 5.74402 108 0.056 5.81340 108 0.058 5.88760 108 0.060 5.96758 108 0.062 6.05429 108 0.064 6.14868 108 0.066 6.25171 108 0.068 6.36433 108 0.070 6.48749 108 0.072 6.62214 108 0.074 6.76925 108 0.076 6.92976 108 0.078 7.10463 108 0.080 7.29481 110 0.000 1.99776 110 0.002 2.27872 110 0.004 2.53973 110 0.006 2.78174 110 0.008 3.00570 110 0.010 3.21258 110 0.012 3.40331 110 0.014 3.57886 110 0.016 3.74018 110 0.018 3.88822 110 0.020 4.02394 110 0.022 4.14829 110 0.024 4.26222 110 0.026 4.36668 110 0.028 4.46264 110 0.030 4.55104 110 0.032 4.63283 110 0.034 4.70898 110 0.036 4.78043 110 0.038 4.84813 110 0.040 4.91305 110 0.042 4.97613 110 0.044 5.03833 110 0.046 5.10060 110 0.048 5.16390 110 0.050 5.22917 110 0.052 5.29737 110 0.054 5.36947 110 0.056 5.44639 110 0.058 5.52912 110 0.060 5.61858 110 0.062 5.71575 110 0.064 5.82157 110 0.066 5.93699 110 0.068 6.06298 110 0.070 6.20048 110 0.072 6.35044 110 0.074 6.51383 110 0.076 6.69159 110 0.078 6.88467 110 0.080 7.09404 112 0.000 1.83083 112 0.002 2.09172 112 0.004 2.33364 112 0.006 2.55752 112 0.008 2.76433 112 0.010 2.95502 112 0.012 3.13054 112 0.014 3.29185 112 0.016 3.43989 112 0.018 3.57563 112 0.020 3.70001 112 0.022 3.81399 112 0.024 3.91853 112 0.026 4.01457 112 0.028 4.10307 112 0.030 4.18498 112 0.032 4.26126 112 0.034 4.33286 112 0.036 4.40073 112 0.038 4.46583 112 0.040 4.52912 112 0.042 4.59153 112 0.044 4.65403 112 0.046 4.71758 112 0.048 4.78312 112 0.050 4.85161 112 0.052 4.92400 112 0.054 5.00124 112 0.056 5.08429 112 0.058 5.17411 112 0.060 5.27164 112 0.062 5.37784 112 0.064 5.49366 112 0.066 5.62006 112 0.068 5.75799 112 0.070 5.90840 112 0.072 6.07225 112 0.074 6.25049 112 0.076 6.44407 112 0.078 6.65395 112 0.080 6.88108 114 0.000 1.71404 114 0.002 1.95344 114 0.004 2.17484 114 0.006 2.37917 114 0.008 2.56741 114 0.010 2.74048 114 0.012 2.89937 114 0.014 3.04500 114 0.016 3.17835 114 0.018 3.30035 114 0.020 3.41197 114 0.022 3.51417 114 0.024 3.60788 114 0.026 3.69407 114 0.028 3.77369 114 0.030 3.84769 114 0.032 3.91703 114 0.034 3.98266 114 0.036 4.04554 114 0.038 4.10661 114 0.040 4.16683 114 0.042 4.22715 114 0.044 4.28854 114 0.046 4.35193 114 0.048 4.41829 114 0.050 4.48856 114 0.052 4.56371 114 0.054 4.64469 114 0.056 4.73244 114 0.058 4.82792 114 0.060 4.93209 114 0.062 5.04590 114 0.064 5.17030 114 0.066 5.30625 114 0.068 5.45470 114 0.070 5.61660 114 0.072 5.79290 114 0.074 5.98457 114 0.076 6.19255 114 0.078 6.41780 114 0.080 6.66127 116 0.000 1.65273 116 0.002 1.86922 116 0.004 2.06867 116 0.006 2.25204 116 0.008 2.42026 116 0.010 2.57431 116 0.012 2.71512 116 0.014 2.84367 116 0.016 2.96089 116 0.018 3.06774 116 0.020 3.16518 116 0.022 3.25415 116 0.024 3.33562 116 0.026 3.41054 116 0.028 3.47985 116 0.030 3.54452 116 0.032 3.60549 116 0.034 3.66373 116 0.036 3.72018 116 0.038 3.77579 116 0.040 3.83153 116 0.042 3.88834 116 0.044 3.94718 116 0.046 4.00899 116 0.048 4.07475 116 0.050 4.14539 116 0.052 4.22187 116 0.054 4.30515 116 0.056 4.39617 116 0.058 4.49590 116 0.060 4.60529 116 0.062 4.72528 116 0.064 4.85683 116 0.066 5.00091 116 0.068 5.15845 116 0.070 5.33041 116 0.072 5.51775 116 0.074 5.72142 116 0.076 5.94238 116 0.078 6.18157 116 0.080 6.43995 118 0.000 1.65225 118 0.002 1.84440 118 0.004 2.02049 118 0.006 2.18145 118 0.008 2.32825 118 0.010 2.46183 118 0.012 2.58316 118 0.014 2.69318 118 0.016 2.79285 118 0.018 2.88313 118 0.020 2.96495 118 0.022 3.03929 118 0.024 3.10709 118 0.026 3.16931 118 0.028 3.22689 118 0.030 3.28080 118 0.032 3.33199 118 0.034 3.38140 118 0.036 3.43000 118 0.038 3.47873 118 0.040 3.52856 118 0.042 3.58043 118 0.044 3.63530 118 0.046 3.69411 118 0.048 3.75784 118 0.050 3.82742 118 0.052 3.90381 118 0.054 3.98797 118 0.056 4.08084 118 0.058 4.18339 118 0.060 4.29656 118 0.062 4.42132 118 0.064 4.55860 118 0.066 4.70937 118 0.068 4.87458 118 0.070 5.05518 118 0.072 5.25213 118 0.074 5.46638 118 0.076 5.69889 118 0.078 5.95059 118 0.080 6.22247 120 0.000 1.71794 120 0.002 1.88433 120 0.004 2.03562 120 0.006 2.17276 120 0.008 2.29670 120 0.010 2.40840 120 0.012 2.50882 120 0.014 2.59890 120 0.016 2.67959 120 0.018 2.75186 120 0.020 2.81666 120 0.022 2.87493 120 0.024 2.92763 120 0.026 2.97572 120 0.028 3.02016 120 0.030 3.06188 120 0.032 3.10185 120 0.034 3.14102 120 0.036 3.18034 120 0.038 3.22077 120 0.040 3.26326 120 0.042 3.30877 120 0.044 3.35824 120 0.046 3.41264 120 0.048 3.47290 120 0.050 3.54000 120 0.052 3.61488 120 0.054 3.69849 120 0.056 3.79179 120 0.058 3.89573 120 0.060 4.01127 120 0.062 4.13935 120 0.064 4.28094 120 0.066 4.43699 120 0.068 4.60844 120 0.070 4.79626 120 0.072 5.00139 120 0.074 5.22480 120 0.076 5.46742 120 0.078 5.73023 120 0.080 6.01416 122 0.000 1.85514 122 0.002 1.99435 122 0.004 2.11942 122 0.006 2.23131 122 0.008 2.33097 122 0.010 2.41936 122 0.012 2.49744 122 0.014 2.56615 122 0.016 2.62645 122 0.018 2.67929 122 0.020 2.72562 122 0.022 2.76640 122 0.024 2.80259 122 0.026 2.83513 122 0.028 2.86498 122 0.030 2.89310 122 0.032 2.92043 122 0.034 2.94793 122 0.036 2.97656 122 0.038 3.00726 122 0.040 3.04099 122 0.042 3.07870 122 0.044 3.12136 122 0.046 3.16990 122 0.048 3.22529 122 0.050 3.28847 122 0.052 3.36041 122 0.054 3.44205 122 0.056 3.53435 122 0.058 3.63826 122 0.060 3.75474 122 0.062 3.88474 122 0.064 4.02921 122 0.066 4.18910 122 0.068 4.36537 122 0.070 4.55898 122 0.072 4.77087 122 0.074 5.00201 122 0.076 5.25333 122 0.078 5.52581 122 0.080 5.82038 124 0.000 2.06920 124 0.002 2.17979 124 0.004 2.27722 124 0.006 2.36243 124 0.008 2.43640 124 0.010 2.50006 124 0.012 2.55437 124 0.014 2.60028 124 0.016 2.63876 124 0.018 2.67074 124 0.020 2.69719 124 0.022 2.71906 124 0.024 2.73731 124 0.026 2.75287 124 0.028 2.76672 124 0.030 2.77980 124 0.032 2.79307 124 0.034 2.80748 124 0.036 2.82398 124 0.038 2.84352 124 0.040 2.86707 124 0.042 2.89557 124 0.044 2.92998 124 0.046 2.97125 124 0.048 3.02033 124 0.050 3.07818 124 0.052 3.14575 124 0.054 3.22400 124 0.056 3.31388 124 0.058 3.41633 124 0.060 3.53233 124 0.062 3.66281 124 0.064 3.80873 124 0.066 3.97105 124 0.068 4.15072 124 0.070 4.34869 124 0.072 4.56592 124 0.074 4.80336 124 0.076 5.06196 124 0.078 5.34267 124 0.080 5.64646 126 0.000 2.36546 126 0.002 2.44601 126 0.004 2.51437 126 0.006 2.57149 126 0.008 2.61832 126 0.010 2.65582 126 0.012 2.68494 126 0.014 2.70664 126 0.016 2.72187 126 0.018 2.73157 126 0.020 2.73672 126 0.022 2.73825 126 0.024 2.73712 126 0.026 2.73429 126 0.028 2.73071 126 0.030 2.72733 126 0.032 2.72511 126 0.034 2.72500 126 0.036 2.72795 126 0.038 2.73492 126 0.040 2.74686 126 0.042 2.76472 126 0.044 2.78946 126 0.046 2.82203 126 0.048 2.86338 126 0.050 2.91447 126 0.052 2.97625 126 0.054 3.04968 126 0.056 3.13571 126 0.058 3.23528 126 0.060 3.34937 126 0.062 3.47891 126 0.064 3.62486 126 0.066 3.78818 126 0.068 3.96982 126 0.070 4.17073 126 0.072 4.39187 126 0.074 4.63419 126 0.076 4.89864 126 0.078 5.18617 126 0.080 5.49775 128 0.000 2.74925 128 0.002 2.79834 128 0.004 2.83621 128 0.006 2.86380 128 0.008 2.88208 128 0.010 2.89200 128 0.012 2.89451 128 0.014 2.89057 128 0.016 2.88112 128 0.018 2.86712 128 0.020 2.84953 128 0.022 2.82930 128 0.024 2.80738 128 0.026 2.78473 128 0.028 2.76229 128 0.030 2.74103 128 0.032 2.72190 128 0.034 2.70584 128 0.036 2.69382 128 0.038 2.68678 128 0.040 2.68569 128 0.042 2.69148 128 0.044 2.70513 128 0.046 2.72757 128 0.048 2.75977 128 0.050 2.80268 128 0.052 2.85725 128 0.054 2.92443 128 0.056 3.00518 128 0.058 3.10046 128 0.060 3.21121 128 0.062 3.33838 128 0.064 3.48294 128 0.066 3.64584 128 0.068 3.82802 128 0.070 4.03045 128 0.072 4.25407 128 0.074 4.49984 128 0.076 4.76872 128 0.078 5.06165 128 0.080 5.37959 130 0.000 3.22593 130 0.002 3.24213 130 0.004 3.24808 130 0.006 3.24473 130 0.008 3.23304 130 0.010 3.21395 130 0.012 3.18842 130 0.014 3.15740 130 0.016 3.12186 130 0.018 3.08274 130 0.020 3.04099 130 0.022 2.99757 130 0.024 2.95343 130 0.026 2.90953 130 0.028 2.86682 130 0.030 2.82624 130 0.032 2.78877 130 0.034 2.75535 130 0.036 2.72692 130 0.038 2.70446 130 0.040 2.68891 130 0.042 2.68121 130 0.044 2.68234 130 0.046 2.69324 130 0.048 2.71486 130 0.050 2.74816 130 0.052 2.79409 130 0.054 2.85360 130 0.056 2.92765 130 0.058 3.01720 130 0.060 3.12319 130 0.062 3.24657 130 0.064 3.38831 130 0.066 3.54936 130 0.068 3.73066 130 0.070 3.93318 130 0.072 4.15786 130 0.074 4.40567 130 0.076 4.67754 130 0.078 4.97444 130 0.080 5.29733 132 0.000 3.80084 132 0.002 3.78273 132 0.004 3.75534 132 0.006 3.71961 132 0.008 3.67651 132 0.010 3.62699 132 0.012 3.57200 132 0.014 3.51249 132 0.016 3.44943 132 0.018 3.38375 132 0.020 3.31642 132 0.022 3.24839 132 0.024 3.18061 132 0.026 3.11403 132 0.028 3.04962 132 0.030 2.98831 132 0.032 2.93107 132 0.034 2.87886 132 0.036 2.83261 132 0.038 2.79329 132 0.040 2.76186 132 0.042 2.73925 132 0.044 2.72643 132 0.046 2.72436 132 0.048 2.73397 132 0.050 2.75624 132 0.052 2.79211 132 0.054 2.84253 132 0.056 2.90845 132 0.058 2.99084 132 0.060 3.09065 132 0.062 3.20882 132 0.064 3.34632 132 0.066 3.50409 132 0.068 3.68309 132 0.070 3.88427 132 0.072 4.10859 132 0.074 4.35700 132 0.076 4.63045 132 0.078 4.92990 132 0.080 5.25629 134 0.000 4.47932 134 0.002 4.42547 134 0.004 4.36331 134 0.006 4.29379 134 0.008 4.21786 134 0.010 4.13648 134 0.012 4.05060 134 0.014 3.96118 134 0.016 3.86917 134 0.018 3.77551 134 0.020 3.68117 134 0.022 3.58710 134 0.024 3.49426 134 0.026 3.40358 134 0.028 3.31604 134 0.030 3.23258 134 0.032 3.15415 134 0.034 3.08172 134 0.036 3.01622 134 0.038 2.95863 134 0.040 2.90988 134 0.042 2.87094 134 0.044 2.84275 134 0.046 2.82628 134 0.048 2.82247 134 0.050 2.83227 134 0.052 2.85665 134 0.054 2.89655 134 0.056 2.95293 134 0.058 3.02674 134 0.060 3.11894 134 0.062 3.23047 134 0.064 3.36230 134 0.066 3.51537 134 0.068 3.69064 134 0.070 3.88907 134 0.072 4.11160 134 0.074 4.35918 134 0.076 4.63279 134 0.078 4.93336 134 0.080 5.26184 136 0.000 5.26671 136 0.002 5.17570 136 0.004 5.07734 136 0.006 4.97260 136 0.008 4.86242 136 0.010 4.74776 136 0.012 4.62957 136 0.014 4.50881 136 0.016 4.38642 136 0.018 4.26336 136 0.020 4.14059 136 0.022 4.01906 136 0.024 3.89972 136 0.026 3.78352 136 0.028 3.67143 136 0.030 3.56438 136 0.032 3.46335 136 0.034 3.36927 136 0.036 3.28310 136 0.038 3.20580 136 0.040 3.13832 136 0.042 3.08162 136 0.044 3.03664 136 0.046 3.00434 136 0.048 2.98568 136 0.050 2.98160 136 0.052 2.99306 136 0.054 3.02102 136 0.056 3.06643 136 0.058 3.13024 136 0.060 3.21340 136 0.062 3.31687 136 0.064 3.44160 136 0.066 3.58855 136 0.068 3.75867 136 0.070 3.95291 136 0.072 4.17222 136 0.074 4.41757 136 0.076 4.68990 136 0.078 4.99016 136 0.080 5.31931 138 0.000 6.16835 138 0.002 6.03876 138 0.004 5.90279 138 0.006 5.76140 138 0.008 5.61554 138 0.010 5.46617 138 0.012 5.31425 138 0.014 5.16072 138 0.016 5.00653 138 0.018 4.85265 138 0.020 4.70002 138 0.022 4.54960 138 0.024 4.40234 138 0.026 4.25920 138 0.028 4.12113 138 0.030 3.98907 138 0.032 3.86400 138 0.034 3.74685 138 0.036 3.63859 138 0.038 3.54016 138 0.040 3.45253 138 0.042 3.37663 138 0.044 3.31344 138 0.046 3.26389 138 0.048 3.22895 138 0.050 3.20956 138 0.052 3.20669 138 0.054 3.22128 138 0.056 3.25429 138 0.058 3.30667 138 0.060 3.37937 138 0.062 3.47335 138 0.064 3.58957 138 0.066 3.72897 138 0.068 3.89251 138 0.070 4.08114 138 0.072 4.29581 138 0.074 4.53749 138 0.076 4.80712 138 0.078 5.10565 138 0.080 5.43405 140 0.000 7.18959 140 0.002 7.01999 140 0.004 6.84498 140 0.006 6.66552 140 0.008 6.48256 140 0.010 6.29706 140 0.012 6.10997 140 0.014 5.92225 140 0.016 5.73484 140 0.018 5.54871 140 0.020 5.36480 140 0.022 5.18406 140 0.024 5.00746 140 0.026 4.83595 140 0.028 4.67047 140 0.030 4.51199 140 0.032 4.36145 140 0.034 4.21982 140 0.036 4.08803 140 0.038 3.96705 140 0.040 3.85783 140 0.042 3.76133 140 0.044 3.67849 140 0.046 3.61027 140 0.048 3.55762 140 0.050 3.52150 140 0.052 3.50287 140 0.054 3.50266 140 0.056 3.52185 140 0.058 3.56138 140 0.060 3.62220 140 0.062 3.70527 140 0.064 3.81154 140 0.066 3.94196 140 0.068 4.09750 140 0.070 4.27910 140 0.072 4.48771 140 0.074 4.72429 140 0.076 4.98980 140 0.078 5.28518 140 0.080 5.61139 ; %let nlevels=8; %let colors='black vibg cyan green lime gold orange red'; proc means data=results noprint min max; var temp catalyst yield; output out=range min=tempmin catmin yieldmin max=tempmax catmax yieldmax; run; data _null_; set range; call symput('tempmin', tempmin); call symput('tempmax', tempmax); call symput('catmin', catmin); call symput('catmax', catmax); call symput('yieldmin', yieldmin); call symput('yieldmax', yieldmax); call symput('floor', int(yieldmin-4)); call symput('ceil', int(yieldmax+2)); call symput('step', (yieldmax-yieldmin)/&nlevels); run; proc sort data=results; by temp catalyst; run; data plane1 surf1; length function color $ 8; retain xsys ysys zsys '2'; drop catalyst temp yield ncol; set results; by temp; x=temp; y=catalyst; z=&floor; if first.temp then function='move'; else do; function='draw'; ncol=min(&nlevels,int(1+(yield-&yieldmin)/&step)); color=scan(&colors,ncol); end; output plane1; z=yield; output surf1; run; proc sort data=results; by catalyst temp; run; data plane2 surf2; length function color $ 8; retain xsys ysys zsys '2'; drop catalyst temp yield ncol; set results; by catalyst; x=temp; y=catalyst; z=&floor; if first.catalyst then function='move'; else do; function='draw'; ncol=min(&nlevels,int(1+(yield-&yieldmin)/&step)); color=scan(&colors,ncol); end; output plane2; z=yield; output surf2; run; data legend; length function color $ 8; retain xsys ysys zsys '2'; drop legend ncol; do legend=&yieldmin to (&yieldmax-&step) by &step; x=&tempmin; y=&catmax; z=legend; function='poly'; style='solid'; ncol=min(&nlevels, int(1+(legend+(&step/2)-&yieldmin)/&step)); color=scan(&colors,ncol); output; z=legend+&step; function='polycont'; output; x=&tempmin+(&tempmax-&tempmin)*.05; output; z=legend; output; end; run; data annoall; set surf1 surf2 plane1 plane2 legend; run; data plotdata; temp=&tempmin; catalyst=&catmin; yield=&floor; output; temp=&tempmax; catalyst=&catmax; output; run; title1 height=6 'Catalyst Experiment'; footnote1 font=swissl height=2.5 justify=left ' SAS/GRAPH' move=(+0,+.5) '02'x move=(+0,-.5) ' Software' justify=right 'SURFACE '; proc g3d data=plotdata; scatter catalyst*temp=yield/rotate=40 xticknum=5 yticknum=5 zticknum=5 shape='point' zmin=&floor zmax=&ceil annotate=annoall; label catalyst='Catalyst' temp ='Temperature' yield ='Yield'; run; goptions reset=(global goptions); /* BACTERIA.SAS */ goptions reset=(global goptions); goptions reset=global targetdevice=tek4105 gunit=pct ftext=swissl htext=3 colors=(black) cback=white border; data stardata; input temp div mass life @@; cards; 10 3 10 1 20 22 46 0 30 23 20 9 40 42 16 16 50 33 20 6 10 1 11 2 20 01 44 2 30 21 31 10 40 41 14 12 50 31 21 7 10 4 14 3 20 13 32 4 30 24 34 9 40 43 22 14 50 34 24 2 10 2 09 2 20 12 40 6 30 26 29 8 40 42 20 16 50 26 29 4 10 3 08 3 20 09 33 8 30 24 38 11 40 39 23 18 50 34 38 2 10 2 09 1 20 08 38 1 30 25 47 14 40 38 18 12 50 43 44 1 10 4 10 3 20 15 42 3 30 29 30 14 40 35 22 14 50 39 20 8 10 3 11 2 20 20 36 5 30 28 31 9 40 40 26 15 50 28 31 0 10 2 15 3 20 19 35 7 30 26 25 11 40 39 25 17 50 26 15 4 10 4 12 3 20 14 33 2 30 27 22 8 40 36 23 12 50 27 22 3 10 4 13 3 20 12 37 4 30 26 33 9 40 42 27 14 50 26 33 5 10 2 17 1 20 10 39 6 30 25 43 13 40 40 29 16 50 35 43 7 10 3 14 1 20 08 38 4 30 28 34 8 40 38 28 14 50 28 34 4 10 1 12 1 20 06 41 2 30 26 32 14 40 36 21 12 50 21 22 2 10 1 11 4 20 09 32 2 30 27 31 8 40 39 22 12 50 37 31 2 10 1 20 2 20 11 32 5 30 25 32 16 40 41 22 15 50 35 22 5 10 4 09 2 20 13 39 1 30 28 29 12 40 43 19 15 50 28 29 1 10 3 02 2 20 09 32 5 30 26 32 9 40 39 22 15 50 36 22 5 10 2 05 3 20 07 35 4 30 24 35 15 40 37 25 14 50 24 35 4 10 3 08 1 20 05 38 6 30 23 28 9 40 35 28 16 50 33 28 6 ; proc sort data=stardata; by temp descending mass; run; proc means data=stardata noprint; by temp; var div mass life; output out=averages mean=xave yave zave max=xmax ymax zmax min=xmin ymin zmin; run; data plotstar(drop=_type_ _freq_ xmax ymax zmax xmin ymin zmin xave yave zave temp div mass life); retain xave yave zave; merge averages stardata; by temp; length function color style $ 8 text $ 17; retain text 'dot' xsys ysys zsys '2' position '5' line 1 style ' ' color size x y z; if mass < yave then do; when='a'; function='symbol'; x=div; y=mass; z=life; size=1.5; color='blue'; output; when='b'; end; else do; when='b'; function='symbol'; x=div; y=mass; z=life; size=1.5; color='blue'; output; when='a'; end; function='move'; x=xave; y=yave; z=zave; output; function='draw'; x=div; y=mass; z=life; size=0.1; color='green'; output; run; data setuplab; set stardata(keep=temp); by temp; if first.temp; run; data labels; retain function 'label' xsys ysys zsys '2' hsys '3' position '5' when 'a' color 'black' line 1 style 'swissl' size 3; merge setuplab averages(where=(temp ne .)); drop _type_ _freq_ xave yave zave xmax ymax zmax xmin ymin zmin texttmp temp; length text $ 20; texttmp=trim(left(put(temp,2.))); text=' ' || texttmp || ' Deg.'; x=xave+3.5; y=yave-10; z=zave; run; data axislgnd; length function color style $ 8 text $ 17; retain function 'label' xsys ysys hsys '3' when 'a' line 1; text='Divisions per day'; x=73; y=13; color='black'; position='5'; size=3; style='swissl'; output; text='Days'; x=4; y=77; output; text='lived'; x=4; y=74; output; text='Size in'; x=14; y=18; output; text='Angstroms'; x=14; y=15; output; text='J'; x=82; y=77; color='blue'; size=6; style='special'; position='6'; output; text='Observation'; x=87; y=77; color='black'; size=3; style='swissl'; output; function='move'; x=82; y=72; output; function='draw'; x=84; y=72.5; color='green'; line=1; size=.1; output; function='move'; x=82; y=72; output; function='draw'; x=85; y=72; output; function='move'; x=82; y=72; output; function='draw'; x=82; y=70; output; function='move'; x=82; y=72; output; function='draw'; x=81; y=70; output; function='move'; x=82; y=72; output; function='draw'; x=81; y=72.5; output; function='label'; text='Average'; x=87; y=72; color='black'; size=3; output; run; data annoall; set plotstar labels axislgnd; run; data plotdata(keep=div mass life); set averages; div=xmax; mass=ymax; life=zmax; output; div=xmin; mass=ymin; life=zmin; output; run; title1 height=6 'Bacterial Growth Rate'; title2 height=4 'Streptococcus Thermophilous'; title3 'by Temperature in Degrees Celsius'; footnote1 font=swissl justify=left ' SAS/GRAPH' move=(+0,+.5) '02'x move=(+0,-.5) ' Software' justify=right 'BACTERIA '; proc g3d data=plotdata; scatter mass*div=life / rotate=30 shape='point' noneedle caxis=grayaa color='grayaa' xticknum=7 yticknum=7 zticknum=7 zmax=18 zmin=0 size=1 grid annotate=annoall; label div='00'x mass='00'x life='00'x; run; goptions reset=(global goptions); /* TEXMAP.SAS */ /* */ /* If you are using SAS 6.09 or 6.10, delete the WIDTH= */ /* option from the PROC GCHART statement. The PROC */ /* GCHART statement should look like this: */ /* */ /* proc gchart data=sales; */ /* vbar year / sumvar=amount raxis=axis1 maxis=axis2 */ /* patternid=by name='bar'; */ /* */ /* */ goptions reset=(global goptions); proc greplay igout=work.gseg nofs; delete shadow texasmap title bar bar1 bar2 template; quit; goptions reset=global ftext=swiss gunit=pct target=tek4105 cback=grayaa colors=(white) nodisplay; data texmap; set maps.county(where=(state=stfips('TX'))); drop state; select; when (county in (111 421 195 357 295 205 341 233 393 211 359 375 65 179 483 117 381 11 129 87 369 69 437 45 191 75 197 487 17 279 189 153 345 101 155 79 219 303 107 125 269 275 23 501 445 305 169 263 433 207 447 165 115 33 415 151 253 417 3 317 227 335 353 441 59 81 399 83 49 451 95 307 411 413 327 319 299 435 267 171 137 385 265 271 323 141 229 109 301 495 135 329 173 431 475 103 461 383 235 389 371 105 465 443 43 377 243)) region=1; when (county in (53 491 453 31 21 149 55 259 91 19 187 177 285 89 463 325 29 493 123 507 163 13 255 175 469 239 127 283 311 297 25 391 57 479 131 249 409 355 273 505 247 47 261 427 215 489 61 7 149 209)) region=2; otherwise region=3; end; run; proc sort data=texmap; by region; run; proc gremove data=texmap out=texreg; by region; id county; run; proc gproject data=texreg out=texreg; id region; run; pattern1 color=vliv value=solid; pattern2 color=liv value=solid; pattern3 color=lip value=solid; proc gmap data=texreg map=texreg; id region; choro region / discrete nolegend name='texasmap'; run; pattern1 color=dagr repeat=3; choro region / discrete nolegend name='shadow'; run; data sales; input year $ amount region; cards; 1989 44.02 1 1990 59.41 1 1991 51.25 1 1992 57.93 1 1989 38.17 2 1990 36.95 2 1991 42.09 2 1992 37.66 2 1989 35.94 3 1990 35.57 3 1991 43.21 3 1992 26.58 3 ; axis1 label=none length=30 order=(0 to 60 by 30) major=none minor=none color=cream value=(height=3) width=2; axis2 label=none color=cream value=(height=3) width=2; pattern1 color=cyan repeat=1; pattern2 color=gold; pattern3 color=bilg; options nobyline; title1 move=(-5,66) height=4 font=swissxb color=cream 'Region #byval(region)'; proc gchart data=sales; vbar year / sumvar=amount raxis=axis1 maxis=axis2 width=3.5 patternid=by name='bar'; by region; run; title1 lspace=4 height=6 font=swissxb '1989-1992 Sales Figures'; title2 height=4 font=swissxb 'In Millions'; footnote1 height=2.5 justify=left font=swissl ' SAS/GRAPH' move=(+0,+.5) '02'x move=(+0,-.5) ' Software' justify=right 'TEXMAP '; proc gslide border name='title'; run; goptions display; proc greplay igout=gseg tc=tempcat template=texas nofs; tdef texas 1/llx=-2 lly=-2 ulx=-2 uly=98 urx=98 ury=98 lrx=98 lry=-2 2/llx=0 lly=0 ulx=0 uly=100 urx=100 ury=100 lrx=100 lry=0 3/copy=2 scalex=.8 scaley=.8 xlatex=-13 xlatey=4 4/copy=2 scalex=.8 scaley=.8 xlatex=5 xlatey=-28 5/copy=2 scalex=.8 scaley=.8 xlatex=20 xlatey=8; treplay 1:shadow 2:texasmap 2:title 3:bar 4:bar1 5:bar2; run; quit; goptions reset=(global goptions); /* TERRMAP.SAS */ goptions reset=(global goptions); goptions reset=global ftext=swiss htext=3 gunit=pct target=tek4105 cback=white colors=(black) border; data newaustr; set maps.austral; select (id); when (3) do; region=1; x=x+.04; y=y+.01; end; when (2,4,5,6) do; region=2; x=x+.02; y=y-.02; end; otherwise region=3; end; run; title1 height=6 'Sales Assignments for Australia'; footnote1 font=swissl justify=left height=2.5 ' SAS/GRAPH' move=(+0,+.5) '02'x move=(+0,-.5) ' Software' justify=right 'TERRMAP '; legend1 value=(height=4 'Region 1: Mintz' 'Region 2: Ito' 'Region 3: Nye') label=none shape=bar(3,4); pattern1 value=solid color=rose; pattern2 value=solid color=vilg; pattern3 value=solid color=vioy; proc gmap map=newaustr data=newaustr; id region id; choro region / discrete coutline=black legend=legend1; run; quit; goptions reset=(global goptions); /* COMMERCE.SAS */ goptions reset=(global goptions); goptions reset=global gunit=pct target=tek4105 colors=(white) cback=blue ftext=swiss htext=4; data ctycoord(drop=cityfips); set maps.uscity(where=(state=12 and cityfips in (1050,1510,2950)) keep=city cityfips state x y); state=state+cityfips; run; data flmap; set maps.us(where=(state=12) drop=segment) ctycoord; run; data shipping(drop=cityfips); input state cityfips portname & $15. tonnage; state=state+cityfips; cards; 12 2950 Tampa Harbor 49280790 12 1510 Jacksonville 15002231 12 1050 Port Everglades 14684674 12 0 . . ; data label; length function $ 8 text $ 20; retain function 'label' xsys ysys hsys '3' size 3; position='4'; x=77; y=70; text='Jacksonville'; output; position='6'; x=35; y=50; text='Tampa Harbor'; output; x=86; y=27; text='Port'; output; x=86; y=23; text='Everglades'; output; run; title1 height=5 'Commerce at Florida Ports'; title2 '(1991)'; footnote1 angle=90 height=15 ' '; footnote2 angle=-90 height=2 ' '; footnote3 height=2.5 font=swissl justify=left ' SAS/GRAPH' move=(+0,+.5) '02'x move=(+0,-.5) ' Software' justify=right 'COMMERCE '; pattern1 value=msolid color=lime; pattern2 value=solid color=vioy; pattern3 value=solid color=orange; pattern4 value=solid color=maroon; legend1 shape=bar(6,3) position=(left bottom) offset=(5,8) mode=share across=1 label=(position=top 'Tons Shipped'); proc gmap data=shipping map=flmap; format tonnage comma12.; id state; block tonnage / discrete blocksize=4 xview=.7 legend=legend1 annotate=label; run; quit; goptions reset=(global goptions); /* POP.SAS */ /* */ /* If you are using SAS 6.09 or 6.10, change the ORIGIN */ /* option on the LEGEND1 statement. Change the option */ /* from ORIGIN=(78,18) to ORIGIN=(77,18) */ /* */ goptions reset=(global goptions); goptions reset=global ftext=zapfi htext=4 gunit=pct target=tek4105 cback=white colors=(black) border; data pop(drop=st); input st $ change @@; state=stfips(st); cards; AL 3.8 AK 36.9 AZ 34.8 AR 2.8 CA 25.7 CO 14.0 CT 5.8 DE 12.1 FL 32.7 GA 18.6 HI 14.9 ID 6.7 IL 0.0 IN 1.0 IA -4.7 KS 4.8 KY 7.0 LA 0.3 ME 9.2 MD 13.4 MA 4.9 MI 0.4 MN 7.3 MS 2.1 MO 4.1 MT 1.6 NE 0.5 NV 50.1 NH 20.5 NJ 5.0 NM 16.3 NY 2.5 NC 12.7 ND -2.1 OH 0.5 OK 4.0 OR 7.9 PA 0.1 RI 5.9 SC 11.7 SD 0.8 TN 6.2 TX 19.4 UT 17.9 VT 10.0 VA 15.7 WA 17.8 WV -8.0 WI 4.0 WY -3.4 ; data maplabel; length function $ 8; retain flag 0 xsys ysys '2' hsys '3' when 'a' style 'swissb'; set maps.uscenter(where=(fipstate(state) ne 'DC') drop=long lat); function='label'; text=fipstate(state); size=2.5; position='5'; if ocean='Y' then do; position='6'; output; function='move'; flag=1; end; else if flag=1 then do; function='draw'; size=.5; flag=0; end; output; run; proc format; value pchange low - -0.01 = 'Decrease' 0.0 - 5 = 'Up 0 to 5%' 5.01 - 10 = 'Up 5 to 10%' 10.01 - 20 = 'Up 10 to 20%' 20.01 - 30 = 'Up 20 to 30%' 30.01 - high = 'Up over 30%'; run; pattern1 value=solid color=grayff; /* white */ pattern2 value=solid color=grayee; pattern3 value=solid color=graycc; pattern4 value=solid color=gray99; pattern5 value=solid color=gray77; pattern6 value=solid color=gray44; /* dark gray */ title1 height=6 'Change in Population between 1980 and 1990'; footnote1 justify=left ' Source: U.S. Bureau of Census'; footnote2 font=swissl height=2.5 justify=left ' SAS/GRAPH' move=(+0,+.5) '02'x move=(+0,-.5) ' Software' justify=right 'POP '; footnote3 height=10 angle=90 ' '; legend1 label=none shape=bar(4,3) value=(height=3) across=1 origin=(78,18) mode=share; proc gmap data=pop map=maps.us; format change pchange.; id state; choro change / legend=legend1 discrete coutline=black annotate=maplabel; run; quit; goptions reset=(global goptions); /* AIRPORTS.SAS */ goptions reset=(global goptions); goptions reset=global cback=white colors=(black) border htext=3 gunit=pct targetdevice=tek4105; data airprts(drop=st); input st $2. city $25. airport $20. passngrs comma12.; state=stfips(st); cards; IL Chicago O'Hare Int'l 21,841,000 GA Atlanta Hartsfield Int'l 17,472,000 CA Los Angeles International 15,298,000 NY New York J.F.K. 11,975,000 CA San Francisco International 11,247,000 ; proc format; value passfmt 1000000-5000000='Q' 5000001-10000000='QR' 10000001-15000000='QRQ' 15000001-20000000='QRQR' 20000001-25000000='QRQRQ'; run; proc sort data=airprts; by state city; run; data airprts2(keep=city airport passngrs x y); merge airprts(in=inair) maps.uscity; by state city; if inair; run; data labels(drop=city airport passngrs); length function color $ 8 text $ 25; retain function 'label' xsys ysys '2' hsys '3' when 'a'; set airprts2; text='X'; style='swissb'; color='gray66'; size=4; position='5'; output; text=' '||city; style='swiss'; color='black'; size=3; position='3'; output; text=' '||airport; position='6'; output; text=' '||put(passngrs,passfmt.); position='9'; style='marker'; size=3.75; output; run; title1 font=swissb height=6 'Busiest Airports in the U.S.'; footnote1 font=swissl height=2.5 justify=left ' SAS/GRAPH' move=(+0,+.5) '02'x move=(+0,-.5) ' Software' justify=right 'AIRPORTS '; pattern1 value=msolid color=graydd repeat=49; proc gmap data=maps.us map=maps.us; note move=(10,15) font=marker 'Q' font=swiss '= 5 million people'; id state; choro state / discrete xsize=95 pct nolegend coutline=gray88 annotate=labels; where fipstate(state) not in ('AK' 'HI'); run; quit; goptions reset=(global goptions); /* HOLDINGS.SAS */ goptions reset=(global goptions); goptions reset=global gunit=pct ftext=swiss colors=(white) targetdevice=tek4105 cback=blue htext=3; data euromap; set maps.worldmap; where (cont=93 and id not in(405 488 845)) or id=905; run; proc sort data=euromap; by id segment; run; proc gproject data=euromap out=peuromap project=albers; id id; run; proc means data=peuromap mean noprint; var x y; by id segment; output out=avexy mean=xm ym n=n; run; proc sort data=avexy; by id descending n; run; data select(drop=_type_ _freq_); set avexy; by id; if first.id; run; data stat; length country $15; input id value country $15.; cards; 165 6153 Austria 190 7849 Belgium 315 7073 Denmark 340 6475 Finland 350 23946 France 394 44260 Germany 400 2323 Greece 450 302 Iceland 470 3409 Ireland 480 42298 Italy 630 11266 Netherlands 685 10054 Norway 735 10018 Portugal 830 34722 Spain 850 12206 Sweden 855 20480 Switzerland 905 4332 Turkey 925 23143 United Kingdom 970 3838 Yugoslavia ; proc sort data=stat; by id; run; data avail(drop=segment n); merge select stat; by id; run; data symbols(drop=radius value xm ym); length function color style $ 8; retain rotate 360 style 'solid' when 'a' line 0 xsys ysys '2' hsys '3'; set avail(where=(value ne .)); radius=sqrt(value/1500); function='pie'; x=xm; y=ym; size=radius; color='red'; output; run; data legval; length labeltxt $20; input value labelx labely labeltxt $20.; cards; 500 71.0 82.0 500 Mio. SZR * 10000 71.0 76.0 10000 Mio. SZR 25000 71.0 67.0 25000 Mio. SZR 45000 71.0 55.0 45000 Mio. SZR ; data legend(drop=value labelx labely labeltxt radius); length function color style $ 8 text $ 25; retain rotate 360 when 'a' line 0 xsys ysys hsys '3' position '6'; set legval end=eof; if _n_=1 then do; function='label'; text='Legend:'; x=labelx-5; y=labely+5; color='white'; size=4; style='swiss'; output; end; radius=sqrt(value/1500); function='pie'; x=labelx; y=labely; size=radius; style='solid'; color='red'; output; function='label'; text=labeltxt; x=labelx+5; y=labely+1; color='white'; size=3.5; style='swiss'; output; if eof then do; function='label'; text='* 1 SZR=1,4227$'; x=labelx+5; y=labely-16; color='white'; size=3; style='swiss'; output; function='move'; x=labelx-2.3; y=labely-9; output; function='bar'; x=labelx+2.3; y=labely-13.2; color='h0f8cc99'; style='solid'; output; function='label'; text='No Values Available'; x=labelx+5; y=labely-10.5; color='white'; style='swiss'; size=3.5; output; end; run; pattern1 value=solid color=h0f8cc99; pattern2 value=solid color=h0f89999; title1 height=5.5 'Foreign Currency Holdings in Europe 1990'; footnote1 'Source: Statistisches Jahrbuch 1991, Ausland (Germany)'; footnote2 font=swissl height=2.5 justify=left ' SAS/GRAPH' move=(+0,+.5) '02'x move=(+0,-.5) ' Software' justify=right 'HOLDINGS '; proc gmap data=avail map=peuromap annotate=legend; id id; choro value / levels=1 missing nolegend coutline=white annotate=symbols; run; quit; goptions reset=(global goptions); /* EURCOM.SAS */ goptions reset=(global goptions); proc greplay igout=work.gseg nofs; delete chart europe us template; quit; goptions reset=global ftext=swissb htitle=5 gunit=pct target=tek4105 cback=white colors=(black) border nodisplay; data rates; length indicatr $ 5 economy $ 3; input indicatr economy percent; cards; unemp USA .055 unemp EC .112 inter USA .097 inter EC .088 infla USA .044 infla EC .044 gdpg USA .043 gdpg EC .028 ; proc sort data=rates; by indicatr economy; run; proc format; value $textfmt 'unemp'='Unemployment Rate' 'inter'='Interest Rates' 'infla'='Inflation Rate' 'gdpg'='GDP Growth Rate'; run; data labels (drop=indicatr economy percent); length function color $ 8 text $ 25; retain hsys '3' when 'a' style 'swissb' size 3.5; set rates; by indicatr economy; function='move'; xsys='2'; ysys='2'; yc=economy; x=percent; group=indicatr; output; function='label'; position='<'; color='white'; text=put(percent,percent7.1); output; if first.indicatr then do; function='move'; xsys='1'; x=0; ysys='A'; y=+1.5; output; function='cntl2txt'; output; function='label'; x=.; y=.; yc=' '; ysys='4'; xsys='4'; position='C'; color='black'; text=put(indicatr,textfmt.); output; end; run; title1 font=swissb move=(3,+0) 'The European and U.S. Economies'; footnote1 height=2.5 font=swissl justify=left ' SAS/GRAPH' move=(+0,+.5) '02'x move=(+0,-.5) ' Software' justify=right 'EURCOM '; axis1 label=none value=none style=0; axis2 label=none value=none style=0 major=none minor=none origin=(3,); pattern1 value=solid color=salmon; pattern2 value=solid color=maroon; proc gchart data=rates; hbar economy / sumvar=percent group=indicatr patternid=midpoint nostats width=2 space=0 gspace=3 coutline=black gaxis=axis1 maxis=axis1 raxis=axis2 annotate=labels name='chart'; run; goptions reset=(title footnote) noborder; pattern1 repeat=99; proc gmap map=maps.europe data=maps.europe; id id; choro id / nolegend name='europe'; run; pattern1 color=maroon; proc gmap map=maps.us data=maps.us; id state; choro state / nolegend name='us'; run; goptions display; proc greplay igout=gseg nofs tc=tempcat template=eurcom; tdef eurcom 1/llx=0 lly=0 ulx=0 uly=100 urx=100 ury=100 lrx=100 lry=0 2/llx=65 lly=70 ulx=65 uly=95 urx=90 ury=95 lrx=90 lry=70 3/llx=65 lly=45 ulx=65 uly=70 urx=90 ury=70 lrx=90 lry=45 scalex=.8 scaley=.8; treplay 1:chart 2:europe 3:us; run; quit; goptions reset=(global goptions); /* SALES.SAS */ goptions reset=(global goptions); proc greplay igout=work.gseg nofs; delete pie bar template; quit; goptions reset=global gunit=pct target=tek4105 cback=grayaa ctext=black htext=3 ftext=swiss nodisplay; data sales; input country $ product $ amount @@; cards; ITA 1 134962 BEL 1 115623 GER 1 199614 UK 1 202435 FRA 1 161856 ITA 2 76826 BEL 2 99817 GER 2 113478 UK 2 138969 FRA 2 87415 ITA 3 94817 BEL 3 118275 GER 3 184817 UK 3 168194 FRA 3 143295 ITA 4 128997 BEL 4 109896 GER 4 160142 UK 4 150214 FRA 4 194813 ; proc format; value $eurfmt 'ITA' = 'Italy' 'BEL' = 'Belgium' 'GER' = 'Germany' 'UK' = 'U.K.' 'FRA' = 'France'; value $prodfmt '1' = 'Shoes' '2' = 'Hats' '3' = 'Belts' '4' = 'Gloves'; run; data baranno(drop=country product amount); length function color $ 8 text $ 10; retain when 'a' hsys '3'; set sales(where=(country='ITA')); function='move'; xsys='2'; ysys='2'; xc=country; subgroup=product; output; ysys='A'; y=-1.25; output; function='cntl2txt'; output; function='push'; output; function='label'; xc=' '; x=.; y=.; xsys='4'; ysys='4'; position='B'; color='black'; size=3; text=put(product,$prodfmt.); output; function='pop'; output; function='label'; position='E'; text=put(amount,dollar8.); output; run; data pieanno; length function color $ 8; retain when 'a' xsys '3' ysys '3' hsys '3'; function='move'; x=37.5; y=45.5; output; function='draw'; x=95; color='cyan'; size=1; output; run; title1 color=white height=6 justify=left move=(+12,+0) 'Fourth Quarter Sales'; title2 color=white height=6 justify=left move=(+25,+0) 'in Europe'; title3 height=30 angle=-90 ' '; footnote1 color=white font=swissl justify=left height=2.5 ' SAS/GRAPH' move=(+0,+.5) '02'x move=(+0,-.5) ' Software' justify=right 'SALES '; pattern1 value=psolid color=magenta; pattern2 value=psolid color=gold; pattern3 value=psolid color=lime; pattern4 value=psolid color=cyan; pattern5 value=psolid color=violet; proc gchart data=sales; format amount dollar8. country $eurfmt.; pie country / sumvar=amount slice=inside noheading explode='Italy' midpoints='Italy' 'France' 'Germany' 'Belgium' 'U.K.' name='pie' annotate=pieanno; run; axis1 label=none value=none major=none minor=none style=0; axis2 label=none value=(color=white height=4 'Breakdown for Italy') origin=(58,45.5) offset=(8,8); pattern1 value=solid color=magenta; pattern2 value=solid color=bip; pattern3 value=solid color=bippk; pattern4 value=solid color=lippk; goptions reset=(title footnote); proc gchart data=sales(where=(country='ITA')); vbar country / discrete sumvar=amount subgroup=product width=15 raxis=axis1 maxis=axis2 nolegend name='bar' annotate=baranno; run; goptions display; proc greplay igout=gseg tc=sashelp.templt template=whole nofs; treplay 1:pie 1:bar; run; quit; goptions reset=(global goptions); /* INVEST.SAS */ goptions reset=(global goptions); proc greplay igout=work.gseg nofs; delete map vbar template; quit; goptions reset=global ftext=swiss htext=3 cback=blue colors=(white) hpos=150 vpos=64 targetdevice=tek4105 gunit=pct nodisplay; data invest; input country $ 1-14 type $ 16 amount; cards; Canada 1 23759 Canada 2 10936 Canada 3 6442 Canada 4 9041 Netherlands 1 4697 Netherlands 2 3418 Netherlands 3 1810 Netherlands 4 1949 Switzerland 1 1301 Switzerland 2 0 Switzerland 3 6359 Switzerland 4 9798 United Kingdom 1 13990 United Kingdom 2 8673 United Kingdom 3 7367 United Kingdom 4 4960 Germany 1 13007 Germany 2 3212 Germany 3 1177 Germany 4 2948 Japan 1 5305 Japan 2 2623 Japan 3 689 Japan 4 2716 ; proc summary data=invest sum nway; class country; var amount; output out=sumdata sum=total; run; proc sort data=sumdata(where=(country ne '')); by total; run; proc format; value $typefmt '1' = 'Goods' '2' = 'Petroleum' '3' = 'Finance' '4' = 'Other'; run; %let axishght=50; axis1 label=none value=none width=3 major=none minor=none length=110 cells origin=(30,10)cells; axis2 label=none value=none style=0 major=none minor=none length=&axishght cells order=0 to 60000 by 10000; data leaders(drop=total ctotcels mheight country _type_ _freq_ dlrpcell); length function color $8 text $23; retain line 1 hsys '4' when 'a' color 'white' size 2.25 mheight dlrpcell; set sumdata; xsys='2'; ysys='2'; function='move'; xc=country; y=0; output; function='move'; xc=' '; xsys='A'; x=9; output; if _n_=1 then do; dlrpcell=round(60000/&axishght); ctotcels=total/dlrpcell+.5; y=ctotcels; end; else do; ctotcels=total/dlrpcell+.5; if ctotcels le mheight then y=mheight; else y=ctotcels; end; mheight=y+6; function='draw'; x=0; ysys='A'; output; x=0; xsys='4'; y=0; output; function='cntl2txt'; output; function='label'; x=.; y=.; position='f'; text=trim(country)||' '||trim(left(put(total,dollar10.))); output; run; title1 height=6 'U.S. Direct Investment Position'; footnote1 font=swissl justify=left ' SAS/GRAPH' move=(+0,+.5) '02'x move=(+0,-.5) ' Software' justify=right 'INVEST '; legend1 label=none shape=bar(6,2) mode=share; pattern1 value=solid color=deypk; pattern2 value=solid color=magenta; pattern3 value=solid color=gold; pattern4 value=solid color=yellow; proc gchart data=invest; format type $typefmt.; vbar country / sumvar=amount subgroup=type ascending raxis=axis2 maxis=axis1 legend=legend1 space=4 width=14 name='vbar' annotate=leaders; run; goptions reset=global; pattern1 color=green value=solid repeat=182; proc gmap data=maps.worldprj map=maps.worldprj all; id id; choro id / discrete nolegend name='map'; run; goptions display; proc greplay igout=gseg tc=sashelp.templt template=whole nofs; treplay 1:map 1:vbar; run; quit; goptions reset=(global goptions); /* DRIVER.SAS */ goptions reset=(global goptions); goptions reset=global gunit=pct cback=blue colors=(white) targetdevice=tek4105 htext=3 ftext=zapf; data mileage; input age $ sex $ amount; cards; 65-up M 7199 65-up F 4502 55-64 M 12304 55-64 F 5428 45-54 M 15701 45-54 F 6915 35-44 M 17916 35-44 F 7653 25-34 M 16683 25-34 F 7124 16-24 M 10718 16-24 F 6047 ; data convert; set mileage; if sex='F' then amount=-amount; run; proc format; picture posval low-high='000,009'; run; data anlabels(drop=age sex amount); length text $ 8; retain function 'label' when 'a' xsys ysys '2' hsys '3' size 4; set convert; midpoint=age; subgroup=sex; text=left(put(amount, posval.)); if sex ='F' then position='>'; else position='<'; output; run; title1 font=zapfb height=6.5 'Average Miles Driven Annually'; footnote1 font=swissl height=2.5 justify=left ' SAS/GRAPH' move=(+0,+.5) '02'x move=(+0,-.5) ' Software' justify=right 'DRIVER '; axis1 label=(justify=left 'Age') style=0; axis2 label=none value=(tick=3 '') minor=none major=none width=3 order=(-10000 to 20000 by 10000); pattern1 value=solid color=cyan; pattern2 value=solid color=magenta; proc gchart data=convert; format amount posval.; note move=(25,78) height=4 'Women' move=(+3.5,+0) 'Men'; hbar age / sumvar=amount discrete nostat subgroup=sex maxis=axis1 raxis=axis2 nolegend annotate=anlabels; run; quit; goptions reset=(global goptions); /* WINE.SAS */ goptions reset=(global goptions); goptions reset=global gunit=pct target=tek4105 cback=black colors=(white) ftext=swissl; /* replace SAS-data-library with the location of your SAS library */ libname gfont0 'SAS-data-library'; data glass; retain char 'A'; input segment lp $ X Y; cards; 1 L -0.5 0.0 1 L 0.6 0.0 1 L 0.5 0.1 1 L 0.2 0.2 1 L 0.1 0.3 1 L 0.1 1.0 1 L 0.2 1.1 1 L -0.1 1.1 1 L 0.0 1.0 1 L 0.0 0.3 1 L -0.1 0.2 1 L -0.4 0.1 1 L -0.5 0.0 2 P -0.1 1.1 2 P -0.4 1.2 2 P -0.6 1.3 2 P -0.7 1.5 2 P -0.7 1.7 2 P -0.6 1.9 2 P 0.7 1.9 2 P 0.8 1.7 2 P 0.8 1.5 2 P 0.7 1.3 2 P 0.5 1.2 2 P 0.2 1.1 2 P -0.1 1.1 3 L -0.6 1.9 3 L -0.5 2.0 3 L 0.6 2.0 3 L 0.7 1.9 ; proc gfont data=glass name=figures filled resol=1 nodisplay; run; data wine (drop=liters); input year liters; do glasses=1 to liters/2; output; end; cards; 1985 6 1986 6 1987 8 1988 14 1989 24 ; title height=6 'Wine Consumption Per Family (France)'; footnote1 color=red font=figures height=10 'A' color=white font=swissl height=6 '= 2 Liters'; footnote2 justify=left height=2.5 ' SAS/GRAPH' move=(+0,+.5) '02'x move=(+0,-.5) ' Software' justify=right 'WINE '; axis1 label=none major=none minor=none style=0 value=(height=7) offset=(6,0); axis2 label=none major=none value=none minor=none color=vibg width=3 length=80 offset=(5,5); symbol1 interpol=none font=figures value=A color=red height=10; proc gplot data=wine; plot year*glasses / vreverse vaxis=axis1 haxis=axis2; run; quit; goptions reset=(global goptions); /* PLANES.SAS */ goptions reset=(global goptions); goptions reset=global gunit=pct cback=white ctext=black ftext=zapfi targetdevice=tek4105 border; title1 height=6 'Commercial Airlines in Business'; footnote1 height=4 'Source: Airline Economics, Inc.'; footnote2 font=swissl height=2.5 justify=left ' SAS/GRAPH' move=(+0,+.5) '02'x move=(+0,-.5) ' Software' justify=right 'PLANES '; data planes; input year $ number; cards; 1978 36 1981 68 1982 93 1983 98 1984 123 1985 100 1986 96 1987 78 ; proc summary data=planes max; var number; output out=outdata max=maxval n=bars; run; data _null_; set planes end=lastob; retain xmin xlabel top hscale; if _n_=1 then do; set outdata; rc=ginit(); rc=graph('clear', 'planes'); call gask('window', 0, llx, lly, urx, ury, rc); xrange=urx-llx; yrange=ury-lly; xlabel=.25*xrange; xmin=.3*xrange; xmax=.75*xrange; hscale=(xmax-xmin)/maxval; top=(yrange/2)+(((bars-1)*11)/2); rc=gset('colrep', 250, 'black'); rc=gset('colrep', 251, 'graydd'); rc=gset('texcolor', 250); rc=gset('texheight', 4); rc=gset('texalign', 'center', 'normal'); rc=gset('filtype', 'solid'); end; y=top-((_n_-1)*11); length=xmin+(number*hscale); rc=gset('filcolor', 251); rc=gdraw('bar', xmin, y-.75, length-10, y+.75); rc=gset('filcolor', 250); rc=gdraw('fill', ., length, length-5, length-10, length-5, y, y-1, y, y+1); rc=gdraw('fill', ., length-3, length-6, length-8, length-5, y, y+5, y+5, y); rc=gdraw('fill', ., length-3, length-6, length-8, length-5, y, y-5, y-5, y); rc=gdraw('fill', ., length-8, length-8.5, length-9, length-8.5, y, y+2, y+2, y); rc=gdraw('fill', ., length-8, length-8.5, length-9, length-8.5, y, y-2, y-2, y); rc=gdraw('text', length+3, y-1, trim(left(put(number,10.)))); rc=gdraw('text', xlabel, y-1, year); if lastob then do; rc=graph('update'); rc=gterm(); end; run; goptions reset=(global goptions); /* HOUSES.SAS */ goptions reset=(global goptions); goptions reset=global gunit=pct colors=(black) cback=white targetdevice=tek4105 border ftext=zapfi; title1 height=6 'Local Housing Starts in District 2'; title2 height=4 '(Single Family Homes, in thousands)'; footnote1 font=swissl height=2.5 justify=left ' SAS/GRAPH' move=(+0,+.5) '02'x move=(+0,-.5) ' Software' justify=right 'HOUSES '; data homes; input year $ number; cards; 1981 10 1982 14 1983 18 1984 17 1985 22 1986 26 1987 28 1988 33 1989 29 1990 24 1991 18 ; proc summary data=homes max; var number; output out=outdata max=maxval n=bars; run; data _null_; set homes end=lastob; retain ymin ylabel vscale hoffset; if _n_=1 then do; set outdata; rc=ginit(); rc=graph('clear', 'houses'); call gask('window', 0, llx, lly, urx, ury, rc); xrange=urx-llx; yrange=ury-lly; ylabel=.15*yrange; ymin=.2*yrange; ymax=.90*yrange; vscale=(ymax-ymin)/maxval; hoffset=(xrange/2)-(((bars-1)*13)/2); rc=gset('texheight', 4); rc=gset('texalign', 'center', 'normal'); end; height=(number*vscale); x=(_n_-1)*13+hoffset; rc=gset('linwidth', 3); rc=gdraw('line', ., x+5, x+5, x-5, x-5, x-6, x, x+6, x-5, ymin+height-5, ymin, ymin, ymin+height-5, ymin+height-5, ymin+height, ymin+height-5, ymin+height-5); rc=gset('filtype', 'solid'); rc=gdraw('bar', x-1, ymin, x+1, ymin+4); rc=gset('filtype', 'hollow'); rc=gdraw('bar', x-3, ymin+1, x-2, ymin+4); rc=gdraw('bar', x+2, ymin+1, x+3, ymin+4); rc=gset('linwidth', 1); rc=gdraw('line', ., x-3, x-2, ymin+2.5, ymin+2.5); rc=gdraw('line', ., x-2.5, x-2.5, ymin+1, ymin+4); rc=gdraw('line', ., x+3, x+2, ymin+2.5, ymin+2.5); rc=gdraw('line', ., x+2.5, x+2.5, ymin+1, ymin+4); rc=gdraw('text', x, 10, year); rc=gdraw('text', x, ymin+height+1, trim(left(put(number,10.)))); if lastob then do; rc=graph('update'); rc=gterm(); end; run; goptions reset=(global goptions); /* AUTOPROD.SAS */ /* */ /* If you are using SAS 6.09 or 6.10, change the ORIGIN */ /* option in the AXIS2 statement from ORIGIN=(15,25) */ /* to ORIGIN=(15.4) */ /* */ goptions reset=(global goptions); proc greplay igout=work.gseg nofs; delete vbar plot template; quit; goptions reset=global gunit=pct target=tek4105 cback=black colors=(white) ftext=swiss htext=3.5 lfactor=2 nodisplay; data autos; length producer $ 12; input year producer amount; cards; 1950 Europe 1991 1950 Japan 32 1950 US 8006 1950 Other 548 1960 Europe 6830 1960 US 7905 1960 Japan 482 1960 Other 1271 1970 Europe 13243 1970 Japan 5289 1970 US 8284 1970 Other 2587 1980 Europe 15446 1980 Japan 11043 1980 US 8010 1980 Other 4015 1990 Europe 18614 1990 Japan 13487 1990 US 9780 1990 Other 6232 ; proc sort data=autos; by producer year; run; pattern1 value=solid color=cyan; axis1 length=60 cells offset=(6,6) cells label=none major=none minor=none; axis2 order=(0 to 50000 by 10000) minor=(number=1) origin=(15.4) length=55 offset=(0,0) label=('Thousands' justify=right 'of Autos'); proc gchart data=autos; format amount comma6.; vbar year / discrete sumvar=amount sum width=8 space=4 maxis=axis1 raxis=axis2 noaxis name='vbar'; run; data plotanno (drop=year producer amount); length text $ 11; retain xsys ysys '2' hsys '3' position '6' size 3; set autos; by producer; if last.producer then do; x=year; y=amount; text=' '||producer; output; end; run; title1 height=5 'Increase in Worldwide Automobile Production'; footnote1 font=swissl justify=left height=2.5 ' SAS/GRAPH' move=(+0,+.5) '02'x move=(+0,-.5) ' Software' justify=right 'AUTOPROD '; symbol1 value=dot color=viyg height=3 interpol=join; symbol2 value=dot color=paypk height=3 interpol=join; symbol3 value=dot color=yellow height=3 interpol=join; symbol4 value=dot color=magenta height=3 interpol=join; proc gplot data=autos; format amount comma6.; plot amount*year=producer / haxis=axis1 vaxis=axis2 nolegend annotate=plotanno name='plot'; run; goptions display; proc greplay igout=gseg tc=sashelp.templt template=whole nofs; treplay 1:vbar 1:plot; run; quit; goptions reset=(global goptions); /* BARMAP.SAS */ goptions reset=(global goptions); proc greplay igout=work.gseg nofs; delete map chart titles template; quit; goptions reset=global nodisplay gunit=pct htext=6 cback=black colors=(white) ftext=swissl targetdevice=tek4105; data ncmap; set maps.counties(where=(state=stfips('NC'))); select; when (county in(39,43,75,87,99,113, 173, 175)) region=1; when (county in(21,23,89,111,115,121,149,161,199)) region=2; when (county in(3,35,45,71,97,109)) region=3; when (county in(5,9,11,27,171,189,193,197)) region=4; when (county in(7,25,119,167,179)) region=5; when (county in(57,59,67,159,169)) region=6; when (county in(37,93,105,123,125,151,153,165)) region=7; when (county in(1,33,81,135,157)) region=8; when (county in(17,47,51,85,155)) region=9; when (county in(63,69,77,145,181,183,185)) region=10; when (county in(65,83,101,127,191,195)) region=11; when (county in(19,61,129,133,141,163)) region=12; when (county in(13,31,49,79,103,107,137,147)) region=13; otherwise region=14; end; run; proc gproject data=ncmap out=pncmap; id county; run; pattern1 value=solid color=violet; pattern2 value=solid color=gray; pattern3 value=solid color=brown; pattern4 value=solid color=gold; pattern5 value=solid color=rose; pattern6 value=solid color=red; pattern7 value=solid color=magenta; pattern8 value=solid color=cyan; pattern9 value=solid color=bigb; pattern10 value=solid color=green; pattern11 value=solid color=lime; pattern12 value=solid color=yellow; pattern13 value=solid color=orange; pattern14 value=solid color=tan; proc gmap map=pncmap data=pncmap all; id county; choro region / discrete coutline=white nolegend name='map'; run; goptions vpos=18 vsize=3.015 hpos=60 hsize=7.125; data donate; input region amount; cards; 1 77.8 2 44.3 3 60.8 4 62.4 5 55.1 6 40.9 7 39.3 8 48.2 9 42.3 10 42.5 11 59.1 12 37.7 13 68.9 14 126.2 ; axis1 label=none order=(0 to 150 by 50) minor=none; axis2 label=('Region'); proc gchart data=donate; format amount dollar4.; vbar region / discrete sumvar=amount patternid=midpoint nolegend ref=53 raxis=axis1 maxis=axis2 name='chart'; run; goptions vpos= vsize= hpos= hsize=; title1 'N.C. Per Capita Donations'; footnote1 height=3 justify=left ' SAS/GRAPH' move=(+0,+.5) '02'x move=(+0,-.5) ' Software' justify=right 'BARMAP '; proc gslide name='titles'; run; goptions display; proc greplay nofs igout=gseg tc=tcwork template=threetmp; tdef threetmp 1/llx=15 lly=30 ulx=15 uly=100 urx=85 ury=100 lrx=85 lry=30 2/llx=10 lly=10 ulx=10 uly=55 urx=85 ury=55 lrx=85 lry=10 3/llx=0 lly=0 ulx=0 uly=100 urx=100 ury=100 lrx=100 lry=0; treplay 1:map 2:chart 3:titles; run; quit; goptions reset=(global goptions); /* USDOCTRS.SAS */ goptions reset=(global goptions); proc greplay igout=work.gseg nofs; delete map barchart template; quit; goptions reset=global ftext=swiss gunit=pct target=tek4105 cback=vib ctext=white nodisplay; data doctors; input region $ tot_doc; cards; REG_A 163821 REG_B 34635 REG_C 98752 REG_D 94138 REG_E 46947 REG_F 107141 ; data barlabel(drop=region tot_doc); retain function 'label' xsys ysys '2' hsys '3' when 'a' size 3.5 color 'white' position '<'; set doctors; midpoint=tot_doc; y=tot_doc; text=put(tot_doc,comma9.); run; axis1 label=none value=none style=0 major=none minor=none length=55; axis2 label=none value=none style=0 origin=(03,45); pattern1 value=solid color=violet; pattern2 value=solid color=bibg; pattern3 value=solid color=vilg; pattern4 value=solid color=gold; pattern5 value=solid color=cyan; pattern6 value=solid color=magenta; proc gchart data=doctors; hbar tot_doc / discrete sumvar=tot_doc descending nostats patternid=midpoint space=.5 width=2 nolegend raxis=axis1 maxis=axis2 annotate=barlabel name='barchart'; run; data usregion; set maps.us; select (fipstate(state)); /* region A */ when ('WA','OR','CA','NV','ID') rank=6; /* region B */ when ('MT','ND','SD','WY','NE','UT','CO','KS') rank=1; /* region C */ when ('MN','WI','MI','IA','IL','IN','OH','MO') rank=4; /* region D */ when ('PA','NY','ME','VT','NH','MA','RI','CT','NJ','DE','MD') rank=3; /* region E */ when ('AZ','NM','TX','OK') rank=2; /* region F */ when ('WV','VA','KY','AL','TN','NC','SC','GA','MS','AR','LA','FL') rank=5; /* delete all other observations */ otherwise delete; end; run; title1 height=20 angle=90 ' '; title2 height=6 font=swissb 'Practicing Physicians'; title3 height=4 '(By Region)'; title4 height=4 ' '; footnote1 font=swissl height=2.5 justify=left ' SAS/GRAPH' move=(+0,+.5) '02'x move=(+0,-.5) ' Software' justify=right 'USDOCTRS '; proc gmap data=usregion map=usregion; id rank state; prism rank / discrete coutline=white nolegend xview=-6 yview=-6 zview=15 name='map'; run; goptions display; proc greplay igout=gseg tc=sashelp.templt template=whole nofs; treplay 1:map 1:barchart; run; quit; goptions reset=(global goptions); /* I40.SAS */ goptions reset=(global goptions); proc greplay igout=work.gseg nofs; delete titles ncmap chart template; quit; goptions reset=global gunit=pct target=tek4105 cback=grayaa ctext=white ftext=swiss htext=3 nodisplay; data nccounty; set maps.counties(where=(state=stfips('NC'))); drop density state; if county in (177 187 15 91 41 143 139 29 73 117 147 49 137 103 47 17 163 191 79 107 13 69 127 83 85 101 195 77 61 181 185 183 65 131 51 155 63 145) then alpha=9; else if county=19 then alpha=1; /* Brunswick */ else if county=31 then alpha=2; /* Carteret */ else if county=53 then alpha=3; /* Currituck */ else if county=55 then alpha=4; /* Dare */ else if county=95 then alpha=5; /* Hyde */ else if county=129 then alpha=6; /* New Hanover */ else if county=133 then alpha=7; /* Onslow */ else if county=141 then alpha=8; /* Pender */ else delete; run; proc gproject data=nccounty out=ncmap; id county; run; data mapanno; length function style color $ 8 text $ 15; retain xsys ysys '2' hsys '3' when 'a'; function='label'; text='J'; x=.025; y=.0165; position='5'; color='white'; size=6.5; style='special'; output; text='Duck'; x=x+.001; position='6'; size=3; style='swiss'; output; text='J'; x=.0265; y=.013; position='5'; size=6.5; style='special'; output; text='Nags'; x=x+.001; position='6'; size=3; style='swiss'; output; text='Head'; y=y-.0015; output; text='Cape'; x=.028; y=.0015; position='C'; output; text='Hatteras'; y=y-.0015; output; text='J'; x=.022; y=-.0002; position='5'; size=6.5; style='special'; output; text='Ocracoke'; x=x+.001; size=3; style='swiss'; position='F'; output; text='Pamlico'; x=.016; y=-.002; angle=35; position='0'; output; text=' Sound'; x=.; y=.; angle=58; output; text='Atlantic'; x=.028; y=-.005; angle=0; output; text='Ocean'; y=y-.0015; output; text='J'; x=.010; y=-.0083; position='5'; size=6.5; style='special'; output; text='Atlantic'; position='8'; size=3; style='swiss'; output; text='Beach'; y=y-.0015; output; text='Cape Lookout'; x=.014; y=-.011; position='3'; output; text='J'; x=-.002; y=-.0142; position='5'; size=6.5; style='special'; output; text='Topsail Beach'; x=x+.001; position='6'; size=3; style='swiss'; output; text='J'; x=-.006; y=-.0182; position='5'; size=6.5; style='special'; output; text='Wilmington'; x=x+.001; position='6'; size=3; style='swiss'; output; text='J'; x=-.015; y=-.0229; position='5'; size=6.5; style='special'; output; text='Sunset Beach'; x=x+.001; position='F'; size=3; style='swiss'; output; text='J'; x=-.017; y=.0105; position='5'; color='black'; size=6.5; style='special'; output; text='Raleigh'; x=x+.001; position='6'; size=3; style='swiss'; output; function='move'; x=-.017; y=.0105; output; function='draw'; x=-.014; y=.007; color='black'; line=1; size=1; output; x=-.013; y=.005; output; x=-.004; y=.0015; output; x=-.002; y=.0018; output; x=.001; y=.0002; output; x=.006; y=-.002; output; x=.010; y=-.0083; output; function='label'; text='R'; x=.0035; y=.0015; position='5'; size=6.5; style='cartog'; output; text='70'; size=3; style='swiss'; output; function='move'; x=-.017; y=.0105; output; function='draw'; x=-.0155; y=.0018; line=1; size=1; output; x=-.01; y=-.003; line=2; output; x=-.007; y=-.007; line=1; output; x=-.006; y=-.0182; output; function='label'; text='S'; x=-.019; y=.0085; size=6.5; style='cartog'; output; text='40'; size=3; style='swiss'; output; text='S'; x=-.007; y=-.0045; size=6.5; style='cartog'; output; text='40'; size=3; style='swiss'; output; function='poly'; x=-.019; y=-.0063; style='solid'; color='black'; output; function='polycont'; x=-.013; y=-.0063; output; x=-.01; y=-.003; output; x=-.015; y=-.0063; output; x=-.009; y=-.0063; output; x=-.009; y=-.011; output; x=-.019; y=-.011; output; function='label'; text='Opened'; x=-.018; y=-.007; position='6'; color='white'; size=3.5; style='swissl'; output; text='June, 1990'; x=-.018; y=-.009; output; run; pattern1 value=solid color=blue; /* Brunswick */ pattern2 value=solid color=violet; /* Carteret */ pattern3 value=solid color=yellow; /* Currituck */ pattern4 value=solid color=salmon; /* Dare */ pattern5 value=solid color=lime; /* Hyde */ pattern6 value=solid color=lilac; /* New Hanover */ pattern7 value=solid color=cyan; /* Onslow */ pattern8 value=solid color=green; /* Pender */ pattern9 value=solid color=white; /* others */ proc gmap data=ncmap map=ncmap; id alpha county; choro alpha / discrete nolegend coutline=dargr annotate=mapanno name='ncmap'; run; data tourism; input cntyname $15. dollars; cards; Dare 441 New Hanover 253 Carteret 171 Brunswick 146 Onslow 54 Pender 26 Hyde 17 Currituck 4 ; data baranno; length function color style $ 8 text $ 25; retain xsys ysys hsys '3' when 'a' position '6'; function='label'; text='1988 tourist'; x=50; y=98; color='white'; size=5; style='swiss'; output; text='dollars spent'; x=50; y=93; output; text='in oceanfront'; x=50; y=88; output; text='counties'; x=50; y=83; output; text='(In millions of dollars)'; x=50; y=78; size=4; output; function='poly'; x=53; y=67; color='white'; style='solid'; line=1; output; function='polycont'; x=68; y=67; color='black'; output; x=68; y=58.5; output; x=77; y=54; output; x=68; y=55.5; output; x=68; y=49; output; x=53; y=49; output; function='label'; text='County'; x=54.3; y=65; color='black'; size=3.5; style='swissl'; output; text='expected'; x=54.3; y=61; output; text='to benefit'; x=54.3; y=57; output; text='most'; x=54.3; y=53; output; run; axis1 label=none value=(height=2.5) major=none style=0; axis2 label=none value=none major=none minor=none style=0; proc gchart data=tourism; format dollars dollar5.; vbar cntyname / sumvar=dollars sum ascending patternid=midpoint maxis=axis1 raxis=axis2 width=8 annotate=baranno name='chart'; run; title1 height=8 font=swissb 'Interstate 40 Impact on Tourism'; footnote1 justify=left ' Source: N. C. Division of Travel and Tourism'; footnote2 justify=left height=2.5 ' SAS/GRAPH' move=(+0,+.5) '02'x move=(+0,-.5) ' Software ' justify=right 'I40 '; proc gslide name='titles'; run; goptions display; proc greplay igout=gseg tc=tempcat template=i40map nofs; tdef i40map 1/llx=0 lly=0 ulx=0 uly=100 urx=100 ury=100 lrx=100 lry=0 2/llx=0 lly=12 ulx=0 uly=90 urx=65 ury=90 lrx=65 lry=12 3/llx=35 lly=10 ulx=35 uly=90 urx=95 ury=90 lrx=95 lry=10; treplay 1:titles 2:ncmap 3:chart; run; quit; goptions reset=(global goptions); /* FRANCE.SAS */ goptions reset=(global goptions); goptions reset=global ftext=swiss htext=3.5 gunit=pct target=tek4105 cback=white colors=(black); data migrate; input year number; cards; 1984 3.3 1985 3.5 1986 3.9 1987 3.8 1988 3.6 1989 4.1 1990 4.3 ; data flag; length function style color $ 8; retain xsys ysys '3'; function='move'; x=0; y=0; style='solid'; output; function='bar'; x=33; y=100; color='blue'; output; function='move'; x=33; y=0; output; function='bar'; x=67; y=100; color='white'; output; function='move'; x=67; y=0; output; function='bar'; x=100; y=100; color='red'; output; function='move'; x=0; y=0; style='frame'; output; function='frame'; x=100; y=100; color='black'; output; run; title1 height=5 'Emigration from'; title2 height=5 'France to U.S.'; footnote1 font=swissl color=ltgray justify=left height=2.5 ' SAS/GRAPH' move=(+0,+.5) '02'x move=(+0,-.5) 'Software' justify=right 'FRANCE '; axis1 label=(height=4 'Number of People' justify=center '(in thousands)') value=(color=ltgray) length=84 origin=(8,) offset=(0,0); axis2 style=0 label=none value=(color=ltgray) offset=(,4); pattern1 value=solid color=ltgray repeat=7; proc gchart data=migrate; hbar year / sumvar=number discrete nostats maxis=axis2 raxis=axis1 caxis=ltgray coutline=black width=2 annotate=flag; run; quit; goptions reset=(global goptions); /* HOMERATE.SAS */ goptions reset=(global goptions); proc greplay igout=work.gseg nofs; delete titles hilomap bar bar1 template; quit; goptions reset=global gunit=pct target=tek4105 cback=vig colors=(white) ftext=swiss nodisplay; data turnover; input state years group $; cards; 06 8.0 Fewest 10 8.4 Fewest 16 18.5 Most 22 26.3 Most 23 7.9 Fewest 24 8.5 Fewest 28 18.5 Most 49 19.2 Most 50 8.5 Fewest 56 20.8 Most ; proc sort data=turnover; by group; run; pattern1 color=cyan value=solid; pattern2 color=rose value=solid; proc gmap data=turnover map=maps.us all; where state ne stfips('AK') and state ne stfips('HI'); id state; prism group / nolegend cempty=white coutline=black xlight=6 xview=.25 yview=.01 zview=2 name='hilomap'; run; data house; length function color style $ 8; retain xsys ysys hsys '3'; function='move'; x=5; y=7; output; function='bar'; x=85; y=57; line=0; style='solid'; color='graydd'; output; function='poly'; x=90; y=57; line=1; style='solid'; color='black'; output; function='polycont'; x=85; y=75; output; function='polycont'; x=5; y=75; output; function='polycont'; x=0; y=57; output; function='move'; x=15; y=75; output; function='bar'; x=25; y=90; line=0; style='solid'; color='rose'; output; run; data bartext(drop=state years yeartxt); length function color $ 8 yeartxt $ 5 text $ 20; retain function 'label' xsys '1' ysys '2' hsys '3' x 1 size 4.7 position '6' color 'black' when 'a'; set turnover; midpoint=state; yeartxt=years; text=trim(fipnamel(state))||': '||trim(left(yeartxt)); output; run; axis1 origin=(5,8) length=45; axis2 length=80 order=(0 to 27); options nobyline; title1 color=graydd font=swissb height=8 move=(15,63) '#byval(group) Years in House'; proc gchart data=turnover annotate=house; hbar state / sumvar=years discrete descending patternid=by noaxis maxis=axis1 raxis=axis2 nostats width=3.25 coutline=black nolegend annotate=bartext name='bar'; by group; run; title1 height=7 font=zapfb 'Housing Turnover'; title2 height=5 font=zapf 'Based on Leng