FI 20 AER\MOUT4A.TXT
FI 21 AER\MIN2A.TXT
FI 22 AER\MTFPO4AI2A.TXT
FI 23 AER\PPK2A.TXT
FI 24 AER\PP1.TXT
SET NODOECHO
SET NOCOLOR
**************************************************************************
** THIS FILE CALCULATES ELECTRICITY DNSP MULTILATERAL TFP FOR 2006-2015 **
**************************************************************************
** VARIABLES ARE IN ORDER: IDYEAR, TOTAL REVENUE, GWH, CONNECTION NO, ****
** RATCHETED MAX DEMAND, CIRCUIT LENGTH, MINS OFF SUPPLY, PRICE MIN OFF- *
** SUPPLY, OPEX, PRICE OF OPEX, OHSTLine, OHDNLine, UGSTCabl, UGDNCabl, **
** MVA TRANSFORMERS EXCL FIRST STAGE, AUCOHST, AUCOHDN, AUCUGST, AUCUGDN,*
** AUC TRANSFORMERS EXCL FIRST STAGE, SHARE OF UNDERGROUND ***************
**************************************************************************
** WE USE LEONTIEF COST FUNCTION SHARES OF 0.128, 0.176, 0.458 AND 0.238 ON 
** OUTPUTS OF GWH, RATCHETED MAX DEMAND, CONNECTION NO, CIRCUIT LENGTH ***
** RELIABILITY IS INCLUDED AS 5th OUTPUT USING DNSP VCRs *****************
** INPUTS ARE OPEX, OH SUBTRANS MVAKMS, OH DIST MVAKMS, UG SUBTRANS MVAKMS, 
** UG DIST MVAKMS, MVA TRF CAP EXCL FIRST STAGE & OTHER ASSETS ***********
** WITH EXOGENOUS CAPITAL AUCs *******************************************
**************************************************************************
SMPL 1 130
read(AER\DNSPData.txt) IDYear 	Revenue	Energy	CustNum	RMDemand	CircLen CustMOS	PRCMOS	Opex	PrOpex	&	
  OHSTLine OHDNLine UGSTCabl UGDNCabl SSTranf AUCOHST AUCOHDN AUCUGST AUCUGDN SSAUCTrn ShareUGC / skiplines=2
genr VI1=Opex
genr R1=PrOpex
genr Q1=Energy
genr Q2=RMDemand
genr Q3=CustNum
genr Q4=CircLen
genr Q5=CustMOS
genr X2=OHSTLine
genr X3=OHDNLine
genr X4=UGSTCabl
genr X5=UGDNCabl
genr X6=SSTranf
genr VI2=AUCOHST
genr VI3=AUCOHDN
genr VI4=AUCUGST
genr VI5=AUCUGDN
genr VI6=SSAUCTrn
GENR GR=Revenue+PRCMOS*Q5/1000
GENR V1=GR*0.128
GENR V2=GR*0.176
GENR V3=GR*0.458
GENR V4=GR*0.238
GENR V5=-1*PRCMOS*Q5/1000
GENR X1=VI1/R1
DO #=1,5
GENR P#=V#/Q#
GENR SO#=V#/Revenue
ENDO
DO #=2,6
GENR R#=VI#/X#
ENDO
**********************************************************************
** MULTILATERAL CCD OUTPUT INDEX - SPECIFICATION #4A *****************
**********************************************************************
GENR CCDOI=0
GENR TV=0
DO #=1,5
GENR TV=TV+Q#*P#
ENDO
DO #=1,5
GENR V=Q#*P#/TV
GENR LQ=LOG(Q#)
?STAT V/MEAN=VM
?STAT LQ/MEAN=LQM
GENR CCDOI=CCDOI+0.5*(V+VM)*(LQ-LQM)
ENDO
GEN1 BASEO=CCDOI:1
GENR CCDOI=CCDOI-BASEO
GENR CCDOI=EXP(CCDOI)
**********************************************************************
** MULTILATERAL CCD INPUT INDEX - SPECIFICATION #2A ******************
**********************************************************************
GENR CCDII=0
GENR TV=0
DO #=1,6
GENR TV=TV+X#*R#
ENDO
DO #=1,6
GENR W=X#*R#/TV
GENR W#=X#*R#/TV
GENR LX=LOG(X#)
?STAT W/MEAN=WM
?STAT LX/MEAN=LXM
GENR CCDII=CCDII+0.5*(W+WM)*(LX-LXM)
ENDO
GEN1 BASE=CCDII:1
GENR CCDII=CCDII-BASE
GENR CCDII=EXP(CCDII)
**********************************************************************
** MULTILATERAL CCD CAPITAL INDEX - SPECIFICATION #2A ****************
**********************************************************************
GENR CCDKI=0
GENR TV=0
DO #=2,6
GENR TV=TV+X#*R#
ENDO
DO #=2,6
GENR WK=X#*R#/TV
GENR LXK=LOG(X#)
?STAT WK/MEAN=WKM
?STAT LXK/MEAN=LXKM
GENR CCDKI=CCDKI+0.5*(WK+WKM)*(LXK-LXKM)
ENDO
GEN1 BASE=CCDKI:1
GENR CCDKI=CCDKI-BASE
GENR CCDKI=EXP(CCDKI)
**********************************************************************
** MULTILATERAL CCD TFP INDEX - OUTPUT SPEC #4A, INPUT SPEC #2A ******
**********************************************************************
GENR CCDTFP=CCDOI/CCDII
GENR PPK=CCDOI/CCDKI
DO #=1,5
GEN1 BASEO#=Q#(1)
GENR QB#=Q#/BASEO#
ENDO
DO #=1,6
GEN1 BASE#=X#(1)
GENR XB#=X#/BASE#
GENR PP#=CCDOI/XB#
ENDO
PRINT IDYEAR QB1-QB5 / wide
PRINT IDYEAR SO1-SO5 / wide
PRINT IDYEAR XB1-XB6 / wide
PRINT IDYEAR W1-W6 / wide
PRINT IDYEAR PPK PP1-PP6 / wide
PRINT IDYEAR CCDOI CCDII CCDTFP
**********************************************************************
** WRITE INDEXES TO FILES ********************************************
**********************************************************************
FORMAT(10F8.4)
SMPL 1 10
WRITE (20) CCDOI / FORMAT NOREWIND
SMPL 11 20
WRITE (20) CCDOI / FORMAT NOREWIND
SMPL 21 30
WRITE (20) CCDOI / FORMAT NOREWIND
SMPL 31 40
WRITE (20) CCDOI / FORMAT NOREWIND
SMPL 41 50
WRITE (20) CCDOI / FORMAT NOREWIND
SMPL 51 60
WRITE (20) CCDOI / FORMAT NOREWIND
SMPL 61 70
WRITE (20) CCDOI / FORMAT NOREWIND
SMPL 71 80
WRITE (20) CCDOI / FORMAT NOREWIND
SMPL 81 90
WRITE (20) CCDOI / FORMAT NOREWIND
SMPL 91 100
WRITE (20) CCDOI / FORMAT NOREWIND
SMPL 101 110
WRITE (20) CCDOI / FORMAT NOREWIND
SMPL 111 120
WRITE (20) CCDOI / FORMAT NOREWIND
SMPL 121 130
WRITE (20) CCDOI / FORMAT NOREWIND
SMPL 1 10
WRITE (21) CCDII / FORMAT NOREWIND
SMPL 11 20
WRITE (21) CCDII / FORMAT NOREWIND
SMPL 21 30
WRITE (21) CCDII / FORMAT NOREWIND
SMPL 31 40
WRITE (21) CCDII / FORMAT NOREWIND
SMPL 41 50
WRITE (21) CCDII / FORMAT NOREWIND
SMPL 51 60
WRITE (21) CCDII / FORMAT NOREWIND
SMPL 61 70
WRITE (21) CCDII / FORMAT NOREWIND
SMPL 71 80
WRITE (21) CCDII / FORMAT NOREWIND
SMPL 81 90
WRITE (21) CCDII / FORMAT NOREWIND
SMPL 91 100
WRITE (21) CCDII / FORMAT NOREWIND
SMPL 101 110
WRITE (21) CCDII / FORMAT NOREWIND
SMPL 111 120
WRITE (21) CCDII / FORMAT NOREWIND
SMPL 121 130
WRITE (21) CCDII / FORMAT NOREWIND
SMPL 1 10
WRITE (22) CCDTFP / FORMAT NOREWIND
SMPL 11 20
WRITE (22) CCDTFP / FORMAT NOREWIND
SMPL 21 30
WRITE (22) CCDTFP / FORMAT NOREWIND
SMPL 31 40
WRITE (22) CCDTFP / FORMAT NOREWIND
SMPL 41 50
WRITE (22) CCDTFP / FORMAT NOREWIND
SMPL 51 60
WRITE (22) CCDTFP / FORMAT NOREWIND
SMPL 61 70
WRITE (22) CCDTFP / FORMAT NOREWIND
SMPL 71 80
WRITE (22) CCDTFP / FORMAT NOREWIND
SMPL 81 90
WRITE (22) CCDTFP / FORMAT NOREWIND
SMPL 91 100
WRITE (22) CCDTFP / FORMAT NOREWIND
SMPL 101 110
WRITE (22) CCDTFP / FORMAT NOREWIND
SMPL 111 120
WRITE (22) CCDTFP / FORMAT NOREWIND
SMPL 121 130
WRITE (22) CCDTFP / FORMAT NOREWIND
SMPL 1 10
WRITE (23) PPK / FORMAT NOREWIND
SMPL 11 20
WRITE (23) PPK / FORMAT NOREWIND
SMPL 21 30
WRITE (23) PPK / FORMAT NOREWIND
SMPL 31 40
WRITE (23) PPK / FORMAT NOREWIND
SMPL 41 50
WRITE (23) PPK / FORMAT NOREWIND
SMPL 51 60
WRITE (23) PPK / FORMAT NOREWIND
SMPL 61 70
WRITE (23) PPK / FORMAT NOREWIND
SMPL 71 80
WRITE (23) PPK / FORMAT NOREWIND
SMPL 81 90
WRITE (23) PPK / FORMAT NOREWIND
SMPL 91 100
WRITE (23) PPK / FORMAT NOREWIND
SMPL 101 110
WRITE (23) PPK / FORMAT NOREWIND
SMPL 111 120
WRITE (23) PPK / FORMAT NOREWIND
SMPL 121 130
WRITE (23) PPK / FORMAT NOREWIND
SMPL 1 10
WRITE (24) PP1 / FORMAT NOREWIND
SMPL 11 20
WRITE (24) PP1 / FORMAT NOREWIND
SMPL 21 30
WRITE (24) PP1 / FORMAT NOREWIND
SMPL 31 40
WRITE (24) PP1 / FORMAT NOREWIND
SMPL 41 50
WRITE (24) PP1 / FORMAT NOREWIND
SMPL 51 60
WRITE (24) PP1 / FORMAT NOREWIND
SMPL 61 70
WRITE (24) PP1 / FORMAT NOREWIND
SMPL 71 80
WRITE (24) PP1 / FORMAT NOREWIND
SMPL 81 90
WRITE (24) PP1 / FORMAT NOREWIND
SMPL 91 100
WRITE (24) PP1 / FORMAT NOREWIND
SMPL 101 110
WRITE (24) PP1 / FORMAT NOREWIND
SMPL 111 120
WRITE (24) PP1 / FORMAT NOREWIND
SMPL 121 130
WRITE (24) PP1 / FORMAT NOREWIND
STOP