Применение GPSS для анализа характеристик системы

  simulate
  storage  s1, 4	    ; накопитель 1 имеет емкость 4
  generate  M, N
  gate_snf  1, otkaz	    ; если накопитель не полон, то
  enter 1		    ; добавить в накопитель 1
  seize 2
  leave 1
  advance  A, B
  release 2
  terminate
otkaz save 1+, 1	    ; в ячейке 1 - счетчик отказов
  terminate 
  generate  ,,25000
  terminate 1
  start 1
  end

generate  ,,25000  ; две запятые наверно лишние!!!
savevalue intensivnostb,(N10/AC1) ; в сохр величину записываем интенсивность как число обслуженных (число заявок прошедших через блок №10 - номер блока уточнить в ходе моделирования ) делённое на время моделирования AC1.
  terminate 1
  start 1

stor1	storage 4

n_reject	equ 1
n_all	equ 2
n_min	equ 3


	generate 23,5 	; генерируем транзкаты в интервале 23+-5
	savevalue n_all+,1	; сохраняем значение в переменную n_all
	gate snf stor1,otkaz	; проверть не заполнена ли память stor1, если занято то идет в otkaz
	Mark 1
	enter stor1	; войти в память stor1
	seize pribor	; занять устройство pribor
	leave stor1	; выйти из памяти stor1
	advance 22,4	; задержаться на время 22+-4
	release pribor	; покинуть устройство pribor
	TEST L (MP1),n_min,ter
	savevalue n_min,MP1
ter	terminate		; удалить транзакт


otkaz	savevalue n_reject+,1	; сохраняем значение в n_reject
	terminate		; удалить транзакт
 	

	generate 25000	; таймер на 25000 едениц времени
	terminate 1	; удалить транзакт и уменьшить значение на единицу
	start 1

TEST L M1,X$MINIMUM,NET ; время заявки в системе М1 < X$MINIMUM если да то заявка идёт ниже по коду, иначе по метке "нет".
   savevalue MINIMUM,M1 ; записываем минимум = время в системе текущей заявки (М1)

NET terminate

TEST L (MP1),n_min,ter
    savevalue n_min,MP1