Очень нужна помощь в переводе программы на GPSS Word из С++ или из GPSS/H.
Или подскажите, где можно помотреть, как это сделать.
Буду очень благодарна!!!
Вот задание:
В системе передачи цифровой информации передается речь в цифровом виде.
Речевые пакеты передаются через два транзитных канала, буферируясь в накопителях перед каждым каналом.
Время передачи пакета по каналу составляет 5 мс.
Пакеты поступают через 6+3мс.
Пакеты, передававшиеся более 10 мс, на выходе системы уничтожаются, так как их появление в декодере значительно снизит качество передаваемой речи.
Уничтожение более 30% пакетов недопустимо.
При достижении такого уровня система за счет ресурсов ускоряет передачу до 4 мс на канал.
При снижении уровня до приемлемого происходит отключение ресурсов.
Смоделировать 10с работы системы.
Определить частоту уничтожения пакетов и частоту подключения ресурса.
Код программы на С++:
| C++ |
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
| #include <iostream.h>
#include <conio.h>
#include <string.h>
#include <stdio.h>
#include <stdlib.h>
#include <math.h>
void main()
{
clrscr();
randomize();
//============================
float m[4],t=0,tk=1000,ocher[4][100],pered[100],r,fdel=0,fob=0,fobr=0,rez=0;
int speed=5,priwlo=0,obsl=0,obslr=0,del=0,i,k,l[4];
//============================
m[1]=0;
m[2]=m[1]+5;
m[3]=m[2]+5;
for(k=0;k<5;l[k++]=0);
//============================
_1: if(t<tk){
//============================
i=1;
t=m[1];
for(int j=2;j<=3;j++){
if (m[j]<t){
t=m[j];
i=j;
};
};
//============================
if(i==1){
priwlo++;
l[1]++;
ocher[1][l[1]]=m[1];
l[3]++;
pered[l[3]]=m[1];
r=rand()%1000;
r=r/1000;
m[1]+=6+3*(2*r-1);
goto _1;
}else{
//============================
fdel=del;
fob=obsl;
fobr=obslr;
if((fob!=0)||(fobr!=0)){rez=(fdel/(fob+fobr))*100;}else{rez=0;};
if(rez<=30){speed=5;}else{speed=4;};
if(i==2){
if(l[1]!=0){
m[2]+=speed;
l[2]++;
ocher[2][l[2]]=m[2];
l[1]--;
for(k=1;k<l[1];ocher[1][k]=ocher[1][k+1],k++);
}else{m[2]=m[1];};
goto _1;
}else{
if(l[2]!=0){
//=======================================
m[3]+=speed;
l[2]--;
for(k=1;k<l[2];ocher[2][k]=ocher[2][k+1],k++);
if((m[3]-pered[1])>10){
del++;
}else{
if(speed==5){obsl++;}
else{obslr++;};
};
l[3]--;
for(k=1;k<l[3];pered[k]=pered[k+1],k++);
goto _1;
//=======================================
}else{m[3]=m[2];};
goto _1;
};
};
//============================
};
fdel=del;
fob=obsl;
fobr=obslr;
//============================
cout<<"VREMYA RABOTI SISTEMI................"<<t<<endl;
cout<<"VSE ZAYAVKI......................... "<<priwlo<<endl;
cout<<"UNIZTOCHENO......................... "<<del<<endl;
cout<<"PEREDANO BEZ REZERVA................ "<<obsl<<endl;
cout<<"PEREDANO S REZERVOM................. "<<obslr<<endl;
cout<<"CHASTOTA UNIZTOCHENIYA PACETOV.."<<fdel/(fob+fobr)<<endl;
cout<<"CHASTOTA PODKLUCHENIA RESURSA..."<<fobr/(fob+fobr)<<endl;
//============================
getche(); |
|
| Javascript |
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
| SIMULATE
REAL &SCF
REAL &FLD
REAL &ADV
REAL &SUM
REAL &TEM
REAL &VRE
GENERATE 6,3
MARK
BLET &SUM=&SUM+1
BLET &TEM=&FLD/&SUM
TEST GE &SUM,5,NOR
TEST GE &TEM,0.3,NOR
LET &ADV=4
TRANSFER ,OCH
NOR BLET &ADV=5
OCH TRANSFER .5,QU1,QU2
QU1 ADVANCE &ADV
TEST LE M1,10,T1
TRANSFER ,T2
QU2 ADVANCE &ADV
TEST LE M1,10,T1
TRANSFER ,T2
T2 BLET &SCF=&SCF+1
BLET &VRE=M1
SEIZE DCDR
RELEASE DCDR
TERMINATE 1
T1 BLET &FLD=&FLD+1
BLET &VRE=M1
TERMINATE
START 10000
TERMINATE 1
END |
|
(
