sas画社会网络分析图

《sas画社会网络分析图》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、/*Definethepathtothearchivefile,theHTMLoutputfile,andtheSASlibrary*/%letjarfiles=path-to-archive-files;%lethtmlfile=html-filename.htm;%letlib=WORK;/*puteverythingintheWORKlibrary*//*Definethenodenamesandlocations.*/data&lib..regions;lengthregionName$80/

2、*Nodetextlabel*/regionId$4/*Nodeidentifyingstring*/xLocyLoc8;/*Pixelpositionofnode*/inputregionIDxLocyLocreserveRegionName$&;cards;PNW30308.5WesternSystemsCoordinatingCouncil-PacificNorthwestNWPE100608.5WesternSystemsCoordinatingCouncil-NorthwestPowerPo

3、olEastCALI402209.5WesternSystemsCoordinatingCouncil-CaliforniaRMPA14018010.8WesternSystemsCoordinatingCouncil-RockyMountainPowerAreaAZNM11031012.9WesternSystemsCoordinatingCouncil-AZNMSNVMAPP1808015Mid-continentAreaPowerPoolSPPN18520013.6SouthwestPowerP

4、ool-NorthSPPS17027013.6SouthwestPowerPool-SouthERCT18040015ElectricReliabilityCouncilofTexasWUMS2709017Wisconsin-UpperMichiganMANO29024017Mid-AmericaInterconnectedNetwork-SouthENTG29036012.4EntergyMECS35013015MichiganElectricCoordinationSystemECAO360200

5、15EastCentralAreaReliabilityCoordinationAgreement-SouthTVA36030012.4TennesseeValleyAuthoritySOU39040012.4SouthernCompanyFRCC42046015FloridaReliabilityCoordinatingCouncilVACA45034012.4VirginiaandCarolinasMACS46028019Mid-AtlanticAreaCouncil-SouthMACE49523

6、519Mid-AtlanticAreaCouncil-EastMACW43022019Mid-AtlanticAreaCouncil-WestUPNY45016018UpstateNewYorkDSNY50017018DownstateNewYorkNYC53020018NewYorkCityLILC57017018LongIslandLightingCompanyNENG5709018NewEnglandPowerPool;run;/*Definethenodeconnections.*/data&

7、lib..links;lengthfromto$4ltip$12lcolor$8;formatcapacitycomma.;inputfromtocapacity;lcolor="#BBBBBB";/*Lightgraylines*/ltip=left(put(capacity,comma.)

8、

9、"MW");/*Definethetooltips*/ifcapacity<500thenwidth=1;/*Definethelinewidths*/elseifcapacity<1000thenwidth

10、=2;elseifcapacity<2000thenwidth=3;elseifcapacity<3000thenwidth=4;elsewidth=5;cards;MECSECAO2250ECAOMECS2250ECAOMACW2957ECAOMANO1655ECAOTVA1890ECAOVACA2334ERCTSPPS635MACEMACW1500MACEDSNY1130MACSMACW1800MACSVACA3075MACWECAO2612MACW