1、/* 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 length regionName $80 /* Node text label *
2、/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
3、.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
4、 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 Re
5、liability 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 Counc
6、il - 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 length from to $4 ltip $
7、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
8、 = 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 608MAN
9、O 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 DS
10、NY 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
11、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 RMP
12、A 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= /* Footnote text size */* Close ODS LISTING and open ODS HTML. */*ods listing close;ods html;*/
