RUN PGM=MATRIX PRNFILE="H:\TransTAG\9000 Department\9300 Employee\9350 Birat Pandey\EWG2\04MAT00A.PRN" MSG='Pulls Matrix Total for Header of Output'

;This program writes the sum of the input matrix in a varaible which can be called for Header of the output Matrix.

;-----------------------------------------
;Define the name/path of the input Matrix
;----------------------------------------
FILEI MATI[1] = "C:\BiratPersonal\OriginBasedAlgorithm\data\VHICLE TRIPS FINAL AMPK 30 BUILD.MAT"

par zonemsg=100

mw[1]=mi.1.1
jloop
  TotalTrips=TotalTrips+mi.1.1
endjloop


log var=TotalTrips

ENDRUN

RUN PGM=MATRIX PRNFILE="C:\BiratPersonal\OriginBasedAlgorithm\OBA Conversion\04MAT00B.PRN" MSG='Changing VTrip into OBA Format'

;This Prgoram Converts the CUBE Matrix into OBA Format

;-------------------------------------------------------
;Define the name/path of the output Matrix ( OBA Format)
;-------------------------------------------------------
FILEO PRINTO[1] = "C:\BiratPersonal\OriginBasedAlgorithm\data\ODVehTripData.DAT"

;------------------------------------------------------
;Define the name/path of the input Matrix (Cube Format)
;------------------------------------------------------
FILEI MATI[1] = "C:\BiratPersonal\OriginBasedAlgorithm\data\VHICLE TRIPS FINAL AMPK 30 BUILD.MAT"

par zonemsg=100

if (i=1) print list="\n<NUMBER OF ZONES>",_zones(6.0),"\n<TOTAL OD FLOW>",@matrix.TotalTrips@(11.0),"\n<END OF METADATA>", printo=1

mw[1]=mi.1.1

print list="\nOrigin",i(8.0), printo=1

numrec=int(_zones/5)
leftover=_zones-(numrec*5)

loop FldNo=1,_zones,5
if (FldNo/5<=numrec)
print list=FldNo(6.0),":",mw[1][FldNo](10.1),";", 
           FldNo+1(6.0),":",mw[1][FldNo+1](10.1), ";", 
           FldNo+2(6.0),":",mw[1][FldNo+2](10.1), ";",
           FldNo+3(6.0),":",mw[1][FldNo+3](10.1),";", 
           FldNo+4(6.0),":",mw[1][FldNo+4](10.1),";",
           printo=1
else
print list=FldNo(6.0),":",mw[1][FldNo](10.1),";",
           FldNo+1(6.0),":",mw[1][FldNo+1](10.1),";",
           FldNo+2(6.0),":",mw[1][FldNo+2](10.1),";",
           FldNo+3(6.0),":",mw[1][FldNo+3](10.1),";",
           printo=1
endif
endloop

ENDRUN