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",_zones(6.0),"\n",@matrix.TotalTrips@(11.0),"\n", 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