GPSS/H SOLARIS/SPARC RELEASE 3.1 (CT059) 5 Nov 2001 18:33:36 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-9/10-7 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 2 (president line) 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 * The phone process 21 21 22 22 1 GENERATE 12,FN$POISS,,,,2PH Create calls 23 23 2 TEST G V$FREELN,2,ABND Test if system is full 24 24 3 ASN1 ASSIGN ORIG,V$LINE,PH Pick origin line 25 25 4 GATE LR PH$ORIG,ASN1 Test for busy 26 26 5 ASN2 ASSIGN DEST,V$LINE,PH Pick destination line 27 27 6 TEST NE PH$ORIG,PH$DEST,ASN2 Retry if destination = origin 28 28 7 LOGIC S PH$ORIG Make origin busy 29 29 8 TRANSFER BOTH,,BLKD Try for link 30 30 9 GETL ENTER LNKS Get link 31 31 10 GATE LR PH$DEST,BUSY Test for busy 32 32 11 LOGIC S PH$DEST Make destination busy 33 33 12 ADVANCE 120,FN$POISS Talk 34 34 13 LOGIC R PH$ORIG Origin hangs up 35 35 14 LOGIC R PH$DEST Dest. hangs up 36 36 15 LEAVE LNKS Free link 37 37 16 CKCH TEST G CH$WAIT,0,TERM Test if calls are waiting 38 38 17 GATE LR 1,GETF See if line 1 is free 39 39 18 UNLINK WAIT,GETL,1,DEST$PH,1,GETF Connect call to 1 40 40 19 TERM TERMINATE 1 41 41 20 GETF UNLINK WAIT,GETL,1 Connect first waiting call 42 42 21 TRANSFER ,TERM 43 43 44 44 22 ABND TERMINATE Abandon call 45 45 46 46 23 BLKD LINK WAIT,ORIG$PH Link in order of call origin 47 47 48 48 24 BUSY LOGIC R PH$ORIG Caller hangs up 49 49 25 LEAVE LNKS Free link 50 50 26 TRANSFER ,CKCH Go to test for waiting calls 51 51 52 52 LNKS STORAGE 10 No. of links 53 53 54 54 LINE VARIABLE XH$NOLINES*RN1/1000+1 Pick a line 55 55 FREELN VARIABLE XH$NOLINES-2*S$LNKS-CH$WAIT Count no. of free lines 56 56 GPSS/H SOLARIS/SPARC RELEASE 3.1 (CT059) 5 Nov 2001 18:33:36 FILE: prog_atf.gps
LINE# STMT# IF DO BLOCK# *LOC OPERATION A,B,C,D,E,F,G COMMENTS 57 57 58 58 * The clock process 59 59 60 60 27 GENERATE 60 1 clock tick every minute 61 61 28 TERMINATE 1 62 62 63 63 * 64 64 * GPSS/H Control Statements 65 65 * 66 66 INITIAL XH$NOLINES,50 Set no. of lines 67 67 START 10,NP Initialise (10 minutes) 68 68 RESET Wipe out statistics 69 69 START 600 Main run (10 hours) 70 70 71 71 END ENTITY DICTIONARY (IN ASCENDING ORDER BY ENTITY NUMBER; "*" => VALUE CONFLICT.) Storages: 1=LNKS Logic Switches: 1 Functions: 1=POISS (F)variables: 1=FREELN 2=LINE Halfword Savexes: 1=NOLINES User Chains: 1=WAIT Halfword Parms: 1=ORIG 2=DEST Random Numbers: 1 SYMBOL VALUE EQU DEFNS CONTEXT REFERENCES BY STATEMENT NUMBER ABND 22 44 Block 23 ASN1 3 24 Block 25 ASN2 5 26 Block 27 BLKD 23 46 Block 29 BUSY 24 48 Block 31 CKCH 16 37 Block 50 GETF 20 41 Block 38 39 GETL 9 30 Block 39 41 TERM 19 40 Block 37 42 LNKS 1 52 Storage 30 36 49 55 1 1 Logic Switch 38 POISS 1 14 Function 22 33 FREELN 1 55 (F)variable 23 LINE 2 54 (F)variable 24 26 NOLINES 1 Halfword Svx 54 55 66 WAIT 1 User Chain 37 39 41 46 55 DEST 2 Halfword Par 26 27 31 32 35 39 ORIG 1 Halfword Par 24 25 27 28 34 46 48 1 1 Random Nmbr 14 54 STORAGE REQUIREMENTS (BYTES) COMPILED CODE: 2916 COMPILED DATA: 680 MISCELLANEOUS: 0 ENTITIES: 1220 COMMON: 10000 ----------------------- TOTAL: 14816 GPSS/H MODEL SIZE: CONTROL STATEMENTS 10 BLOCKS 28
Simulation begins.
RELATIVE CLOCK: 7068.8547 ABSOLUTE CLOCK: 7297.6443BLOCK CURRENT TOTAL BLOCK CURRENT TOTAL BLOCK CURRENT TOTAL
1 482 11 341 21 96 2 482 12 9 341 ABND 0 ASN1 707 13 341 BLKD 5 98 4 707 14 341 BUSY 141 ASN2 488 15 341 25 141 6 488 CKCH 482 26 141 7 482 17 98 27 118 8 482 18 72 28 118 GETL 482 TERM 482 10 482 GETF 1 96--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.735 491 105.785 AVAIL 100.0 10 7.348 9 10 USER CHAIN ENTRIES AVERAGE AVERAGE CURRENT MAXIMUM TIME/XACT CONTENTS CONTENTS CONTENTS WAIT 103 34.906 0.509 5 9 THE FOLLOWING LOGIC SWITCHES ARE SET (ON): 3 4 5 6 8 11 14 16 17 19 20 22 32 34 36 37 41 42 43 44 45 46 48 49 NON-ZERO HALFWORD SAVEVALUES: (NAME : VALUE) NOLINES: 50 RANDOM ANTITHETIC INITIAL CURRENT SAMPLE CHI-SQUARE STREAM VARIATES POSITION POSITION COUNT UNIFORMITY 1 OFF 100087 102105 2018 0.44 STATUS OF COMMON STORAGE 8136 BYTES AVAILABLE 1864 IN USE 2248 USED (MAX)Simulation terminated. Absolute Clock: 7297.6443
Total Block Executions: 9389 Blocks / CPU second: 187780 Microseconds / Block: 5.33 CPU Time Used (SEC) LOAD/CTRL: 0.02 EXECUTION: 0.05 --------------------- TOTAL: 0.07 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.