Моделирование процесса обработки на участке 400 шестерен, страница 5

int d1=0, d2=0;

int t=0;

START:

if (t_post==0)

   {

    t_post=rnd_exp(10,5,0.1);

    if (e1>e2)

       {

               e2++;

               nb=1;

       };

    if (e1<=e2 && nb!=1)

       {

               e1++;

       };

   };

nb=0;

if (c1==0)

   {

    if (e1>0)

       {

               e1--;

               c1=rnd_exp(10,7,0.1);

               i++;

               if (i==1)  {x1=c1+r;};

               if (i==2)  {x2=c1+r;};

               if (i==3)  {x3=c1+r;};

               if (i==4)  {x4=c1+r;};

               if (i==5)  {x5=c1+r;};

               if (i==6)  {x6=c1+r;};

               if (i==7)  {x7=c1+r;};

               if (i==8)  {x8=c1+r;};

               if (i==9)  {x9=c1+r;};

               if (i==10) {x10=c1+r;};

               if (i==11) {x11=c1+r;};

               if (i==12) {x12=c1+r;};

               if (i==13) {x13=c1+r;};

               if (i==14) {x14=c1+r;};

               if (i==15) {x15=c1+r;};

               if (i==16) {x16=c1+r;};

               if (i==17) {x17=c1+r;};

               if (i==18) {x18=c1+r;};

               if (i==19) {x19=c1+r;};

               if (i==20) {x20=c1+r;};

               if (i==21) {x21=c1+r;};

               if (i==22) {x22=c1+r;};

               if (i==23) {x23=c1+r;};

               if (i==24) {x24=c1+r;};

               if (i==25) {x25=c1+r;};

               if (i==26) {x26=c1+r;};

               if (i==27) {x27=c1+r;};

               if (i==28) {x28=c1+r;};

               if (i==29) {x29=c1+r;};

               if (i==30) {x30=c1+r;};

               if (i==31) {x31=c1+r;};

               if (fc1==1) {ez1++; r=0;};

               if (fc1!=1) {fc1=1;};

       };

   };

//r=0;

if (z1==0)

   {

    if (ez1>0)

       {

               ez1--;

               z1=rnd_exp(10,6,0.1);

               j++;

               if (j==1)  {k1=z1+x1;   u1=1;};

               if (j==2)  {k2=z1+x2;   u1=2;};

               if (j==3)  {k3=z1+x3;   u1=3;};

               if (j==4)  {k4=z1+x4;   u1=4;};

               if (j==5)  {k5=z1+x5;   u1=5;};

               if (j==6)  {k6=z1+x6;   u1=6;};

               if (j==7)  {k7=z1+x7;   u1=7;};

               if (j==8)  {k8=z1+x8;   u1=8;};

               if (j==9)  {k9=z1+x9;   u1=9;};

               if (j==10) {k10=z1+x10; u1=10;};

               if (j==11) {k11=z1+x11; u1=11;};

               if (j==12) {k12=z1+x12; u1=12;};

               if (j==13) {k13=z1+x13; u1=13;};

               if (j==14) {k14=z1+x14; u1=14;};

               if (j==15) {k15=z1+x15; u1=15;};

               if (j==16) {k16=z1+x16; u1=16;};

               if (j==17) {k17=z1+x17; u1=17;};

               if (j==18) {k18=z1+x18; u1=18;};

               if (j==19) {k19=z1+x19; u1=19;};

               if (j==20) {k20=z1+x20; u1=20;};

               if (j==21) {k21=z1+x21; u1=21;};

               if (j==22) {k22=z1+x22; u1=22;};

               if (j==23) {k23=z1+x23; u1=23;};

               if (j==24) {k24=z1+x24; u1=24;};

               if (j==25) {k25=z1+x25; u1=25;};

               if (j==26) {k26=z1+x26; u1=26;};

               if (j==27) {k27=z1+x27; u1=27;};

               if (j==28) {k28=z1+x28; u1=28;};

               if (j==29) {k29=z1+x29; u1=29;};

               if (j==30) {k30=z1+x30; u1=30;};

               if (j==31) {k30=z1+x31; u1=31;};

               if (fz1==1) {d1=1;};

               if (fz1!=1) {fz1=1;};

       };

   };

if (i>30)

   {

    i=i-15;       //smes'henie

    j=j-15;

    u1=u1-15;

    x1=x16;

    x2=x17;

    x3=x18;

    x4=x19;

    x5=x20;

    x6=x21;

    x7=x22;

    x8=x23;

    x9=x24;

    x10=x25;

    x11=x26;

    x12=x27;

    x13=x28;

    x14=x29;

    x15=x30;

    x16=x31;

    k1=k16;

    k2=k17;

    k3=k18;

    k4=k19;

    k5=k20;

    k6=k21;

    k7=k22;

    k8=k23;

    k9=k24;

    k10=k25;

    k11=k26;

    k12=k27;

    k13=k28;

    k14=k29;

    k15=k30;

    k16=k31;

   };

if (d1==1)

   {

    if (u1-1==1)  {k=k1;};

    if (u1-1==2)  {k=k2;};

    if (u1-1==3)  {k=k3;};

    if (u1-1==4)  {k=k4;};

    if (u1-1==5)  {k=k5;};

    if (u1-1==6)  {k=k6;};

    if (u1-1==7)  {k=k7;};

    if (u1-1==8)  {k=k8;};

    if (u1-1==9)  {k=k9;};

    if (u1-1==10) {k=k10;};

    if (u1-1==11) {k=k11;};

    if (u1-1==12) {k=k12;};