GPSS , Вопрос для знающих

Я попыталась сделать для первой эвм.проверь,пожалуйста: Gte1 QUEUE OCH1 Seize Evm1 Advance 2,1 Split 2,Gte2,Gte3 Advance 5,2
Release Evm1
Seize Evm2 Advance 11,2
Release Evm2
Seize Evm3 Advance 16,2
Release Evm3
Advance 2
ASSEMBLE 3
DEPART OCH1
Transfer ,Out

честно.. я смотрю на ЭТО и не понимаю как ЭТО должно работать.....
собственно даже генератора нету.

Здраствуйте,эта программа написана для GPSS PC.Ответьте,пожалуйста что в ней нужно изменить чтобы она работала в GPSS World?
Требуется промоделировать решение задач в двухпроцессорной ЭВМ с общей памятью, разделенной на восемь блоков. Каждой задаче отводится при ее решении один блок. Интервалы времени между поступлениями задач распределены равномерно в интервале [2,14] единиц времени, время обработки порции информации подчинено экспоненциальному закону с интенсивностью v1=5 в процессоре CPU1 и с v2=2 в процессоре CPU2.
Между обработкой порций с вероятностью 0.6 возможно обращение к внешней памяти, в которой время обслуживания распределено равномерно в диапазоне [2,8]. С вероятностью 0.4 задачи оказываются решенными и покидают систему. Моделирование выполнить на отрезке времени, соответствующем решению не менее 100 задач. Ниже текст программы на языке GPSS.
MEM STORAGE 8
EXP FUNCTION RN1,C12
0,0/.2,.22/.4,.51/.5,.69/.6,.92/.7,1.2/.8,1.61/
.9,2.3/.95,3/.99,4.6/.999,6.9/1,100
GENERATE 8,6,,100
QUEUE A1
ENTER MEM,1
DEPART A1
M6 QUEUE A2
TRANSFER BOTH,M1,M2
M1 SEIZE CPU1
DEPART A2
ADVANCE 5,FN*EXP
RELEASE CPU1
TRANSFER ,M3
M2 SEIZE CPU2
DEPART A2
ADVANCE 2,FN*EXP
RELEASE CPU2
M3 TRANSFER .6,M5,M4
M4 QUEUE A3
SEIZE DISK
DEPART A3
ADVANCE 5,3
RELEASE DISK
TRANSFER ,M6
M5 LEAVE MEM,1
TERMINATE 1

абсолютно все 100% задач, работающих на пс работают и на верде. обратного сказать не могу )

может быть,но он мне кучу ошибок выдал,такого плана:
11/17/09 18:05:45 Model Translation Begun.
11/17/09 18:05:45 Line 2, Col 4. Invalid keyword. Expecting a Label or GPSS Verb.
11/17/09 18:05:45 EXP FUNCTION RN1,C12
11/17/09 18:05:45 Line 3, Col 2. Line numbers must begin in the first column.
11/17/09 18:05:45 0,0/.2,.22/.4,.51/.5,.69/.6,.92/.7,1.2/.8,1.61/
11/17/09 18:05:45 Line 4, Col 2. Line numbers must begin in the first column.
11/17/09 18:05:45 .9,2.3/.95,3/.99,4.6/.999,6.9/1,100
11/17/09 18:05:45 Line 11, Col 4. Invalid SNA. Expecting a Label or GPSS Verb.
11/17/09 18:05:45 M1 SEIZE CPU1
11/17/09 18:05:45 Line 13, Col 25. Invalid SNA Entity Specifier.
11/17/09 18:05:45 ADVANCE 5,FN*EXP
11/17/09 18:05:45 Line 18, Col 25. Invalid SNA Entity Specifier.
11/17/09 18:05:45 ADVANCE 2,FN*EXP
11/17/09 18:05:45 **** Model Translation Aborted ****

EXP замените на expon по всему тексту программы
M1 замените на met1 по всему тексту программы
FN*EXP на FN$EXPon

вообще на писЯх она тоже работать не должна

Здравствуйте. Подскажите как сделать пункт b? Задача такая: оценить надежность изделия (в соответствии с вариантом), состоящего из трех узлов и устройств A, B, C, D, E, F. Узел выходит из строя, когда выходят из строя все устройства, входящие в узел. Изделие выходит из строя, когда отказывает хотя бы один из его узлов. Вероятности безотказной работы всех устройств равны соответственно: P(A) = 0,8; P(B) = 0,7; P(C) = 0,95; P(D) = 0,85; P(E) = 0,9; P(F) = 0,7. 1 узел состоит из А,В,С; 2 узел - из D; 3 узел - из E,F.
a. Рассчитать аналитически вероятность безотказной работы всей системы.
b. Оценить вероятность безотказной работы системы с помощью имитационных методов. Количество имитационных экспериментов N = 100.

Аналитически вероятность расчитал быстро. Что предпринять для решения b?

программу надо писать. большую и сложную ))

Добавлено 18.11.09, 09:07
Ничего подобного не писал ранее.
ну решение мне видится как то так

PA  EQU 800
PB  EQU 700
PC  EQU 950
PD  EQU 850
PE  EQU 900
PF  EQU 700
 
VPA VARIABLE    RN1>PA
VPB VARIABLE    RN2>PB
VPC VARIABLE    RN3>PC
VPD VARIABLE    RN4>PD
VPE VARIABLE    RN5>PE
VPF VARIABLE    RN6>PF
 
    generate    ,,,100
    ASSIGN  Y1,((V$VPA+V$VPA+V$VPA)=3)
    ASSIGN  Y2,V$VPD
    ASSIGN  Y3,((V$VPE+V$VPF)=2)
    SAVEVALUE   VER+,((P$Y1+P$Y2+P$Y3)>0)  
    terminate   1
    start   100

вероятность безотказной работы получилась 0,83

Добавлено 18.11.09, 09:32
из моих познаний теории вероятности, должно быть нечто такое

abc=(1-pa)(1-pb)(1-pc)
d=1-pd
ef=(1-pe)(1-pf)
P=(1-abc)(1-d)(1-ef)=0.822

Сообщение отредактировано: TEMENb - 18.11.09, 09:32

Уважаемый TEMENb, спасибо за такой быстрый ответ. Скажу честно: не ожидал такой оперативности!

Здравствуйте! Очень нужна Ваша помощь! Проверьте, пожалуйста, то что мне удалось сотворить ( в этом деле знания и умения мои довольно скудны):
Система автоматизации проектирования (САПР) создана на базе ЭВМ, функционирующей в режиме множествен¬ного доступа. Пять инженеров проектировщиков с помощью своих дисплеев одновременно и независимо проводят диалог с ЭВМ, определяя очередной вариант расчета. Каждый диалог со¬стоит из 10 циклов ввода-вывода данных. Во время одного цикла происходит следующее: за 10 ± 5 с.Инженер обдумывает и вводит текст строки; в течение 2 с работает процессор ЭВМ, подготавли¬вая текст ответа; в течение 5 с текст ответа выводится на дисплей. После ввода 11 -й строки начинается работа процессора по расчету конструкции и продолжается 30 ± 10 с. За 5 с результат расчета вы¬водится на экран, после чего инженер в течение 15 ± 5 с анализи¬рует его и начинает новый диалог. Операции по подготовке текста ответа имеют абсолютный приоритет над расчётными, т. е. преры¬вают выполнение последних.
Смоделировать процесс работы САПР при условии, что расчет вариантов конструкции повторяется 100 раз. Определить среднее время выполнения диалога и расчетных операций, а также коэф¬фициент загрузки процессора.

Текст программы:

Generate 10,5; генерируются транзакты
Queue PROС; занятие очереди
Depart PROС; обеспечивает освобождение в очереди
Seize PROС; занятие устройства
DIS STORAGE 5;
ENTER DIS; вхождение транзакта в накопитель
Advance 2,0; задерживает транзакт на время 2,0
Advance 5,0; задерживает транзакт на время 5,0
Priority 1; присваивает входящему транзакту приоритет
Test E DIS,11,C; проверяет соотношение
C Advance 30,10; задерживает транзакт на время 30,10
Advance 5,0; задерживает транзакт на время 5,0
Advance 15,5; задерживает транзакт на время 15,5;
LEAVE DIS; освобождение памяти
Release PROС; освобождает усройство с 10 циклами
Transfer 10,T; изменяет направление движения транзактов согласно режиму САПР
T Terminate 1; уничтожение транзактов

Здравствуйте. Подскажите пожалуйста как сделать, чтобы прерывание выполнялось через определенное время?

смотря что вы подразумеваете под прерыванием.
окончание модаллирования?
сбор статистики через определенные периоды времени?
вообщем уточните вопрос.

Идет моделирование обработки задачи на ЦПУ, затем через определенное время она должна прерываться и ставится в конец очереди,а на ее место приходит другая и т.д.И вот я никак не пойму как сделать так чтоб блок прерывания срабатывал через определенные промежуток времени.

ну вот пример на скорую руку

    generate    50
    assign  tim,(40+20#rn1/1000)    ;время обработки 40+-20
met1    queue   och
    seize   zp
    depart  och
    mark
povt    advance 1
    assign  tim-,1
    test e  ((p$tim<=0)|(m1>=10)),1,povt    ;квант работы процессора - 10. Если время вышло или время обработки превысило 10 - то дальше, иначе на метку
    release zp
    test le p$tim,0,met1
    terminate   1
 
    start   100

или так

    generate    50
    assign  tim,(40+20#rn1/1000)    ;время обработки 40+-20
met1    assign  ttt,10  ;квант работы процессора - 10
    queue   och
    seize   zp
    depart  och
povt    advance 1
    assign  tim-,1
    test g  p$tim,0,met3    ;время вышло - на метку
    loop    ttt,povt    ;делаем цикл
met3    release zp
    test le p$tim,0,met1
    terminate   1
 
    start   100

Добавлено 01.12.09, 00:05
возможно вам надо не квантовать время процессора, а выход по какому то событию.. тогда просто меняете условие (m1>=10) на нужное вам и вуаля.

Добавлено 01.12.09, 00:09
вообще, на самом деле способов значительно больше двух. можно прерывать операторами, например премитом или фавайлом...или накомбинировать со списками пользователя )
Все зависит от конкретной задачи.

Всем здрасти!
Народ выручайте!нужна помощь в решении задачи


Поток самолетов, требующих посадки в аэропорту, - пуасоновский с интенсивностью 15 самолетов в час. В аэропорту есть 4 посадочных полос. самолет, совершивший посадкку на полосу, освобождает ее через 70 минут. Если самолет требующий посадки, застает все полосы занятыми, то он становится в "очередь" самолетов, ожидающих посадки. Через 80+-10 минут после затребования посадки самолет нуждается в дозаправке. что обходится аэропорту в 1200+-250 ед. стоимости. После 120 минут безуспешного ожидания самолет отправляется на посадку в другой аэропорт. За каждый самолет, совершивший посадку без жидания, аэропорт получает прибыль 2500 ед.стоимости. За каждый самолет, севший после ожидания, - 1200+-200 ед. стоимости. эксплуатация одной посадочной полосы обходится в 5000000 ед.стоимости в месяц.
Определить количество посадочных полос, при котором достигается максимальная экономическая эффективность.


Я хз чо с ней делать, а сдавать надо

Хелп ми!!!!

Сообщение отредактировано: WoodenArow - 02.12.09, 05:09