Приложение 2. Пример.

 

  Головная форма.

 

 Отчет.

 // model description auto.

const modelname='E:\ProjectGPSS\Object GPSS\models\trial1.txt' ;

ng1_=1; 

NG2_=11; 

num_bl=14; 

   {/sh} {//end_const}

   {/sh} var

//

{/ng1} ng1:Tgenerate;

{/fac1} fac1:Tfacility;

{/que1} que1:Tqueue;

{/NG2} NG2:Tgenerate;

{/tabl} tabl:Ttable;

  {/sh} {//end_var}

   {/sh} {//end_proc_func}

   {/sh} procedure initial; begin

 {/ng1}  tgenerate.init(ng1,ng1_,EXPONENTIAL(120));

{/fac1}  Tfacility.init(fac1);

             setstart(10000);

{/que1}  Tqueue.init(que1);

{/NG2}  tgenerate.init(NG2,NG2_,250000);

{/tabl}  Ttable.init(tabl,0,100,100);

  {/sh} {//end_init}  end;

   {/sh} procedure closeallobj;  begin  {//begin_close}

{/tabl}  tabl.freeobj;

{/NG2}  NG2.freeobj;

{/que1}  que1.freeobj;

{/fac1}  fac1.freeobj;

{/ng1}  ng1.freeobj;  

  {/sh}  end;

   {/sh} procedure resetall;  begin

 {/fac1}  fac1.reset;

{/que1}  que1.reset;

{/tabl}  tabl.reset;

  {/sh} {//end_reset} end;

   {/sh} procedure  modeltxt(NextBlock:integer);begin

  {/sh}    With BL,SYS do case NextBlock of

{/ng1} {::ng1_}   1:ng1.generate(EXPONENTIAL(120));

        2: que1.queue ;

        3: fac1.seize ;

        4: que1.depart ;

        5: advance(EXPONENTIAL(105)) ;

        6: fac1.release ;

        7:topoint(0,sys.ac1,que1.a);

        8: tabl.tabulate(SYS.M1) ;

        9: buffer ;

        10: terminate(1) ;

{/NG2} {::NG2_}   11:NG2.generate(25000);

       12: CurrentBlocks;

        13:toValue(1,que1.a);

        14: terminate(0) ;

  {/sh} {//end_model} else modelerror;end;end;

    {/sh} procedure report; begin

 {/fac1}  fac1.report('fac1');

{/que1}  que1.report('que1');

{/tabl}  tabl.report('tabl');

  {/sh} {//end_report} end;

  {/sh}  procedure modeling(tg:integer);  var i:integer; begin

 valuetitle(1,'que1.a');

 valuecolor(1,clblue);

   showValue(2,10);

   for i:=1 to InputValueI(' cicle num ') do

   begin

Linecolor(1, rgb(random(256),random(256),random(256)));

Linetitle(1,'gue1.a '+inttostr(i));

 {/sh}     start(tg);

 SetXvalue(i,que1.a);

addtomemo(inttostr(i)+'  '+floattostr(que1.a) );

   end;

tabl.show(1);

  {/sh}  end;

//end----

 StartTime         0.00000 EndTime    5964784.03323

          BLOCK REPORT

    Location   Entries   Current

         1     50011         0

         2     50011        10

         3     50001         0

         4     50001         0

         5     50001         1

         6     50000         0

         7     50000         0

         8     50000         0

         9     50000         0

        10     50000         0

        11       229         0

        12       229         0

        13       229         0

        14       229         0

              REPORT CURRENT LIST  

       XN1        A1        Pr   Current      Next       TimeStamp       TimeEnter   Preempt

     50232     50232         0         2         3   5963564.90132   5963564.90132         0

     50233     50233         0         2         3   5963666.71782   5963666.71782         0

     50234     50234         0         2         3   5964073.56799   5964073.56799         0

     50235     50235         0         2         3   5964365.65348   5964365.65348         0

     50236     50236         0         2         3   5964381.26818   5964381.26818         0

     50237     50237         0         2         3   5964453.23756   5964453.23756         0

     50238     50238         0         2         3   5964592.81713   5964592.81713         0

     50239     50239         0         2         3   5964636.40224   5964636.40224         0

     50240     50240         0         2         3   5964672.80576   5964672.80576         0

     50241     50241         0         2         3   5964760.26999   5964760.26999         0

              REPORT FUTURE LIST           

       XN1        A1        Pr   Current      Next       TimeStamp         EndTime   Preempt

     50231     50231         0         5         6   5963500.30576   5964826.85649         0

     50242     50242         0         0         1   5965173.07294   5965173.07294         0

     50109     50109         0         0        11   5975000.00000   5975000.00000         0

    REPORT X LIST ( DOUBLE )

       Num          double

         1         5.24675

         2         5.14753

         3         4.82243

         4         5.60328

         5         5.90207

  Facility   Entries   Current         Utility        AverTime    NextGo       XN1      XN1P    NumObj

      fac1     50001         1         0.87753       104.68313         0     50231      0         2

     Queue   Entries   Current       Max      Zero       AverQueue        AverTime   AverTime(-Ze)    NumObj

      que1     50011        10        47      6137         5.90207       703.93611       802.40116         3

 Table      tabl  Entries     50000.00000

 Mean       808.65707 StdDev       776.34189    NumObj         5

           Range       Frequency

         0.00000         0.00000

       100.00000      5407.00000

       200.00000      4907.00000

       300.00000      4526.00000

       400.00000      4027.00000

       500.00000      3454.00000

       600.00000      3372.00000

       700.00000      2790.00000

       800.00000      2672.00000

       900.00000      2219.00000

      1000.00000      1910.00000

      1100.00000      1743.00000

      1200.00000      1588.00000

      1300.00000      1419.00000

      1400.00000      1207.00000

      1500.00000      1034.00000

      1600.00000       926.00000

      1700.00000       762.00000

      1800.00000       691.00000

      1900.00000       747.00000

      2000.00000       611.00000

      2100.00000       585.00000

      2200.00000       453.00000

      2300.00000       411.00000

      2400.00000       302.00000

      2500.00000       252.00000

      2600.00000       264.00000

      2700.00000       192.00000

      2800.00000       143.00000

      2900.00000       158.00000

      3000.00000       127.00000

      3100.00000       111.00000

      3200.00000        86.00000

      3300.00000       113.00000

      3400.00000        82.00000

      3500.00000        66.00000

      3600.00000        56.00000

      3700.00000        63.00000

      3800.00000        60.00000

      3900.00000        53.00000

      4000.00000        58.00000

      4100.00000        45.00000

      4200.00000        42.00000

      4300.00000        41.00000

      4400.00000        43.00000

      4500.00000        38.00000

      4600.00000        29.00000

      4700.00000        31.00000

      4800.00000        24.00000

      4900.00000        15.00000

      5000.00000        11.00000

      5100.00000        17.00000

      5200.00000         4.00000

      5300.00000         4.00000

      5400.00000         6.00000

      5500.00000         2.00000

      5600.00000         1.00000

      5700.00000         0.00000  

График очереди, que1.A  

График времени обслуживания, SYS.M1

 

 
назад