SAS画社会网络分析图.doc

/* Define the path to the archive file, the HTML output file, and the SASlibrary */%let jarfiles = path-to-archive-files;%let htmlfile = html-filename.htm;%let lib = WORK; /* put everything in the WORK library */* Define the node names and locations. */data &lib.regions;length regionName $80 /* Node text label */ regionId $4 /* Node identifying string */ xLoc yLoc 8; /* Pixel position of node */input regionID xLoc yLoc reserve RegionName $ &;cards;PNW 30 30 8.5 Western Systems Coordinating Council - Pacific NorthwestNWPE 100 60 8.5 Western Systems Coordinating Council - Northwest Power Pool EastCALI 40 220 9.5 Western Systems Coordinating Council - CaliforniaRMPA 140 180 10.8 Western Systems Coordinating Council - Rocky Mountain Power AreaAZNM 110 310 12.9 Western Systems Coordinating Council - AZNMSNVMAPP 180 80 15 Mid-continent Area Power PoolSPPN 185 200 13.6 Southwest Power Pool - NorthSPPS 170 270 13.6 Southwest Power Pool - SouthERCT 180 400 15 Electric Reliability Council of TexasWUMS 270 90 17 Wisconsin - Upper MichiganMANO 290 240 17 Mid-America Interconnected Network - SouthENTG 290 360 12.4 EntergyMECS 350 130 15 Michigan Electric Coordination SystemECAO 360 200 15 East Central Area Reliability Coordination Agreement - SouthTVA 360 300 12.4 Tennessee Valley AuthoritySOU 390 400 12.4 Southern CompanyFRCC 420 460 15 Florida Reliability Coordinating CouncilVACA 450 340 12.4 Virginia and CarolinasMACS 460 280 19 Mid-Atlantic Area Council - SouthMACE 495 235 19 Mid-Atlantic Area Council - EastMACW 430 220 19 Mid-Atlantic Area Council - WestUPNY 450 160 18 Upstate New YorkDSNY 500 170 18 Downstate New YorkNYC 530 200 18 New York CityLILC 570 170 18 Long Island Lighting CompanyNENG 570 90 18 New England Power Pool;run;/* Define the node connections. */data &lib.links;length from to $4 ltip $12 lcolor $8;format capacity comma.;input from to capacity;lcolor = #BBBBBB; /* Light gray lines */ltip = left(put(capacity, comma.) | MW); /* Define the tool tips */if capacity 500 then width = 1; /* Define the line widths */else if capacity 1000 then width = 2;else if capacity 2000 then width = 3;else if capacity 3000 then width = 4;else width = 5;cards;MECS ECAO 2250ECAO MECS 2250ECAO MACW 2957ECAO MANO 1655ECAO TVA 1890ECAO VACA 2334ERCT SPPS 635MACE MACW 1500MACE DSNY 1130MACS MACW 1800MACS VACA 3075MACW ECAO 2612MACW MACE 3368MACW MACS 3075MACW UPNY 481MANO ECAO 3033MANO WUMS 608MANO MAPP 531MANO SPPN 1191MANO TVA 2207MANO ENTG 1245WUMS MANO 1080WUMS MAPP 676MAPP MANO 1150MAPP WUMS 324MAPP SPPN 1172MAPP ENTG 1000MAPP NWPE 150MAPP RMPA 233NENG DSNY 1425UPNY MACW 1418UPNY DSNY 3750DSNY LILC 788DSNY MACE 308DSNY NENG 1125DSNY UPNY 3750DSNY NYC 3750NYC LILC 788NYC DSNY 3750LILC DSNY 938LILC NYC 788SPPN MANO 1228SPPN MAPP 891SPPN SPPS 525SPPN ENTG 636SPPS ERCT 569SPPS ENTG 636SPPS SPPN 900SPPS AZNM 315SPPS ENTG 1200ENTG SOU 1136ENTG TVA 1278ENTG MANO 1399ENTG SPPS 292ENTG SPPN 292ENTG MAPP 856SOU FRCC 4516SOU TVA 1810SOU VACA 1346SOU ENTG 1902FRCC SOU 21TVA ECAO 2235TVA MANO 2331TVA SOU 2052TVA ENTG 2153TVA VACA 2261VACA ECAO 2822VACA MACS 2794VACA SOU 3042VACA TVA 2240CALI PNW 4922CALI AZNM 0CALI NWPE 1184PNW CALI 5903PNW NWPE 1050RMPA MAPP 233RMPA AZNM 518RMPA NWPE 413NWPE RMPA 413NWPE CALI 1574NWPE MAPP 113NWPE AZNM 840NWPE PNW 2145AZNM CALI 5663AZNM NWPE 638AZNM RMPA 518AZNM SPPS 315;run;/* Close the ODS HTML destination and open the ODS LISTING destination. */*ods html close;ods listing;*/* Set chart title. */title1 Electric Power Regional Interconnections;title2 Created with SAS/GRAPH Constellation Applet;footnote1 Link: Base Electricity Transfer Capacity;footnote2 Node: Generation Reserve Margin;/* Use the DS2CONST macro to generate the chart. */%ds2const(/* Arguments for the Applet Tag */ codebase=&jarfiles, /* Path to archive file */ height=520, /* Applet window height */ width=600, /* Applet window width */ /* Arguments for Data Definition */ datatype=assoc, /* Size nodes by nvalue var */ nsize=reserve, /* Node sizes */ ncolval=reserve, /* Node colors */ layout=user, /* Use nx/ny to position nodes */ nx=xLoc, /* x-coordinate of node */ ny=yLoc, /* y-coordinate of node */ lcolor=lcolor, /* Link color */ lvalue=width, /* Link values */ lwidth=width, /* Link widths */ minlnkwt=0, /* Sets minimum link weight displayed*/ labels=y, /* Display node labels */ linktype=line, /* Do not show flow direction */ ndata=&lib.regions, /* Node data */ ldata=&lib.links, /* Node linkage data */ nid=regionID, /* Var for node ID string */ nlabel=regionID, /* Var for node label string */ lfrom=from, /* Var for from-node ID */ lto=to, /* Var for to-node ID */ ntip=RegionName, /* Var for popup node text */ ltip=ltip, /* Var for popup line text */ /* Arguments for Generating HTML and XML Files */ htmlfile=&htmlfile, /* Output file name */ openmode=replace, /* Create a new html file */ /* Arguments for Diagram Appearance */ nodeshap=circle, /* Node shape */ border=y, /* Enclose diagram */ colormap=y, /* Use colormap for link/node colors */ fntsize=14, /* Node label font size */ fntstyl=plain, /* Node label font style */ /* Arguments for Page Formatting */ bgtype=color, /* Use page background color */ bg=#DDDDDD, /* The page background color */ center=y, /* Center chart on the page */ septype=none, /* No separator