~o=16 ~?!i&32768 ~o=7 ~o|256 ~/******************************************************************* ~/ accumvol 1.1 (Heinz Spiess, CH-2558 Aegerten, 1995) ~/ ~/ A macro to accumulate transit counts into %1% from given boardings ~/ and alightings at the i-nodes of the segments in US2 and US3. ~/ The result is a segment vector containing the accumulated segment ~/ volumes resulting from the given ON and OFF counts. ~/ ~/ Call from main menu: ~ ~/ where: boarding counts at i-nodes of segments ~/ alighting counts at i-nodes of segments ~/ ~/******************************************************************* ~x=%0% ~?x<3 ~$end_of_macro ~/Counted boardings (input): %1% ~/Counted alightings (input): %2% ~/Resulting transit volumes: %3% 2.41 c=accumvol %1% %2% %3% 1 /compute the accumulated transit volumes y /save result %3% /into the attribute specified by the user ~?q=1 ~+|yes|accumvol(%1%,%2%) put(get(1)*(index2!=1)+%1%-%2%) all /all lines all /all links 5 /output type q /back to main menu ~/******************************************************************* ~/MACRO ACCUMVOL HAS TERMINATED NORMALLY, VOLUMES STORED IN %3% ~/******************************************************************* ~:end_of_macro ~o=6