GPSS/H SOLARIS/SPARC RELEASE 3.1 (CT059) 5 Nov 2001 18:33:06 FILE: prog_atf.gpsLINE# STMT# IF DO BLOCK# *LOC OPERATION A,B,C,D,E,F,G COMMENTS 1 1 *Origin: System simulation, Figure 12-7/10-5 2 2 *Author: G. Gordon 3 3 *Description: Simulation of a telephone system 4 4 5 5 SIMULATE 0.2 6 6 7 7 * 8 8 * GPSS/H Block Section 9 9 * 10 10 11 11 * 12 12 * SIMULATION OF A TELEPHONE SYSTEM - MODEL 1 13 13 * 14 14 POISS FUNCTION RN1,C24 Function for i/a interval (Poisson) 15 15 0.0,0.0/0.1,0.104/0.2,0.222/0.3,0.355/0.4,0.509/0.5,0.69/ 16 16 0.6,0.915/0.7,1.2/0.75,1.38/0.8,1.6/0.84,1.83/0.88,7.12/ 17 17 0.9,2.3/0.92,2.52/0.94,2.81/0.95,2.99/0.96,3.2/0.97,3.5/ 18 18 0.98,3.9/0.99,4.6/0.995,5.3/0.998,6.2/0.999,7/0.9997,8 19 19 20 20 21 21 * The phone process 22 22 23 23 1 GENERATE 12,FN$POISS,,,,2PH Create calls 24 24 2 TEST G V$FREELN,2,ABND Test if system is full 25 25 3 ASN1 ASSIGN 1,V$LINE,PH Pick origin line 26 26 4 GATE LR PH1,ASN1 Test for busy 27 27 5 ASN2 ASSIGN 2,V$LINE,PH Pick destination line 28 28 6 TEST NE PH1,PH2,ASN2 Retry if destination = origin 29 29 7 LOGIC S PH1 Make origin busy 30 30 8 TRANSFER BOTH,,BLKD Try for link 31 31 9 GETL ENTER LNKS Get link 32 32 10 GATE LR PH2,BUSY Test for busy 33 33 11 LOGIC S PH2 Make destination busy 34 34 12 ADVANCE 120,FN$POISS Talk 35 35 13 LOGIC R PH1 Origin hangs up 36 36 14 LOGIC R PH2 Dest. hangs up 37 37 15 LEAVE LNKS Free link 38 38 16 TERM TERMINATE 39 39 40 40 17 ABND TERMINATE Abandon call 41 41 42 42 18 BLKD LOGIC R PH1 Origin hangs up 43 43 19 TERMINATE Blocked calls 44 44 45 45 20 BUSY LEAVE LNKS Free link 46 46 21 LOGIC R PH1 Origin hangs up 47 47 22 TERMINATE Busy calls 48 48 49 49 LNKS STORAGE 10 No. of links 50 50 51 51 LINE VARIABLE XH$NOLINES*RN1/1000+1 Pick a line 52 52 FREELN VARIABLE XH$NOLINES-2*S$LNKS Count no. of free lines 53 53 54 54 55 55 * The clock process 56 56 GPSS/H SOLARIS/SPARC RELEASE 3.1 (CT059) 5 Nov 2001 18:33:06 FILE: prog_atf.gps
LINE# STMT# IF DO BLOCK# *LOC OPERATION A,B,C,D,E,F,G COMMENTS 57 57 23 GENERATE 60 1 clock tick every minute 58 58 24 TERMINATE 1 59 59 60 60 * 61 61 * GPSS/H Control Statements 62 62 * 63 63 INITIAL XH$NOLINES,50 Set no. of lines 64 64 START 10,NP Initialise (10 minutes) 65 65 RESET Wipe out statistics 66 66 START 600 Main run (10 hours) 67 67 68 68 END ENTITY DICTIONARY (IN ASCENDING ORDER BY ENTITY NUMBER; "*" => VALUE CONFLICT.) Storages: 1=LNKS Functions: 1=POISS (F)variables: 1=FREELN 2=LINE Halfword Savexes: 1=NOLINES Halfword Parms: 1 2 Random Numbers: 1 *** WARNING: THE FOLLOWING ENTITIES HAVE BEEN DEFINED BUT NOT EXPLICITLY REFERENCED: Blocks: GETL TERM SYMBOL VALUE EQU DEFNS CONTEXT REFERENCES BY STATEMENT NUMBER ABND 17 40 Block 24 ASN1 3 25 Block 26 ASN2 5 27 Block 28 BLKD 18 42 Block 30 BUSY 20 45 Block 32 GETL 9 31 Block TERM 16 38 Block LNKS 1 49 Storage 31 37 45 52 POISS 1 14 Function 23 34 FREELN 1 52 (F)variable 24 LINE 2 51 (F)variable 25 27 NOLINES 1 Halfword Svx 51 52 63 1 1 Halfword Par 25 26 28 29 35 42 46 2 2 Halfword Par 27 28 32 33 36 1 1 Random Nmbr 14 51 STORAGE REQUIREMENTS (BYTES) COMPILED CODE: 2012 COMPILED DATA: 680 MISCELLANEOUS: 0 ENTITIES: 1140 COMMON: 10000 ----------------------- TOTAL: 13832 GPSS/H MODEL SIZE: CONTROL STATEMENTS 10 BLOCKS 24
Simulation begins.
RELATIVE CLOCK: 36000.0000 ABSOLUTE CLOCK: 36600.0000BLOCK CURRENT TOTAL BLOCK CURRENT TOTAL BLOCK CURRENT TOTAL
1 2571 11 1733 21 602 2 2571 12 4 1733 22 602 ASN1 3561 13 1734 23 600 4 3561 14 1734 24 600 ASN2 2625 15 1734 6 2625 TERM 1734 7 2571 ABND 0 8 2571 BLKD 236 GETL 2335 19 236 10 2335 BUSY 602--AVG-UTIL-DURING--
STORAGE TOTAL AVAIL UNAVL ENTRIES AVERAGE CURRENT PERCENT CAPACITY AVERAGE CURRENT MAXIMUM TIME TIME TIME TIME/UNIT STATUS AVAIL CONTENTS CONTENTS CONTENTS LNKS 0.672 2340 103.319 AVAIL 100.0 10 6.716 4 10 THE FOLLOWING LOGIC SWITCHES ARE SET (ON): 2 10 11 15 16 18 37 42 NON-ZERO HALFWORD SAVEVALUES: (NAME : VALUE) NOLINES: 50 RANDOM ANTITHETIC INITIAL CURRENT SAMPLE CHI-SQUARE STREAM VARIATES POSITION POSITION COUNT UNIFORMITY 1 OFF 100147 110637 10490 0.98 STATUS OF COMMON STORAGE 9192 BYTES AVAILABLE 808 IN USE 1496 USED (MAX)Simulation terminated. Absolute Clock: 36600.0000
Total Block Executions: 41774 Blocks / CPU second: 179031 Microseconds / Block: 5.59 CPU Time Used (SEC) LOAD/CTRL: 0.02 EXECUTION: 0.23 --------------------- TOTAL: 0.25 GPSS/H IS A PROPRIETARY PRODUCT OF, AND IS USED UNDER A LICENSE GRANTED BY, THE WOLVERINE SOFTWARE CORPORATION, 7617 LITTLE RIVER TURNPIKE, ANNANDALE, VIRGINIA 22003-2603, USA.