Исследовательская часть

fscanf(in,"%lf%s ",&alfa,s1);

fprintf(out,"%s%5.3e\n ",s1,alfa);

fscanf(in,"%lf%s ",&Ia,s1);

fprintf(out,"Walfa %s%5.3e ",s1,Ia);

fscanf(in,"%lf%s",&na,s1);

fprintf(out,"%s%5.3e\n ",s1,na);

fscanf(in,"%lf%s",&Ib1,s1);

fprintf(out,"Wbeta1 %s%5.3e ",s1,Ib1);

fscanf(in,"%lf%s",&nb1,s1);

fprintf(out,"%s%5.3e\n ",s1,nb1);

fscanf(in,"%lf%s",&Ib2,s1);

fprintf(out,"Wbeta1 %s%5.3e ",s1,Ib2);

fscanf(in,"%lf%s",&nb2,s1);

fprintf(out,"%s%5.3e\n ",s1,nb2);

fscanf(in,"%lf%s",&Itau,s1);

fprintf(out,"Wbetatau %s%5.3e ",s1,Itau);

fscanf(in,"%lf%s",&ntau,s1);

fprintf(out,"%s%5.3e ",s1,ntau);

fscanf(in,"%lf%s",&mltau,s1);

fprintf(out,"%s%5.3e\n ",s1,mltau);

fscanf(in,"%lf%s",&Ic,s1);

fprintf(out,"Wbetac %s%5.3e ",s1,Ic);

fscanf(in,"%lf%s",&nc,s1);

fprintf(out,"%s%5.3e ",s1,nc);

fscanf(in,"%lf%s",&mlc,s1);

fprintf(out,"%s%5.3e\n ",s1,mlc);

fscanf(in,"%lf%s",&Kdu1,s1);

fprintf(out,"Wreg1os %s%5.3e ",s1,Kdu1);

fscanf(in,"%lf%s ",&Kdm1,s1);

fprintf(out,"%s%5.3e ",s1,Kdm1);

fscanf(in,"%lf%s",&Kc1,s1);

fprintf(out,"%s%5.3e ",s1,Kc1);

fscanf(in,"%lf%s",&t11,s1);

fprintf(out,"%s%5.3e ",s1,t11);

fscanf(in,"%lf%s",&t21,s1);

fprintf(out,"%s%5.3e ",s1,t21);

fscanf(in,"%lf%s",&t31,s1);

fprintf(out,"%s%5.3e ",s1,t31);

fscanf(in,"%lf%s",&t41,s1);

fprintf(out,"%s%5.3e ",s1,t41);

fscanf(in,"%lf%s",&t51,s1);

fprintf(out,"%s%5.3e\n ",s1,t51);

fscanf(in,"%lf%s",&Kdu2,s1);

fprintf(out,"Wreg2os %s%5.3e ",s1,Kdu2);

fscanf(in,"%lf%s",&Kdm2,s1);

fprintf(out,"%s%5.3e ",s1,Kdm2);

fscanf(in,"%lf%s",&Kc2,s1);

fprintf(out,"%s%5.3e ",s1,Kc2);

fscanf(in,"%lf%s",&t12,s1);

fprintf(out,"%s%5.3e ",s1,t12);

fscanf(in,"%lf%s",&t22,s1);

fprintf(out,"%s%5.3e ",s1,t22);

fscanf(in,"%lf%s",&t32,s1);

fprintf(out,"%s%5.3e ",s1,t32);

fscanf(in,"%lf%s",&t42,s1);

fprintf(out,"%s%5.3e ",s1,t42);

fscanf(in,"%lf%s ",&t52,s1);

fprintf(out,"%s%5.3e\n ",s1,t52);

fscanf(in,"%lf%s",&Kytau1,s1);

fprintf(out,"%s%5.3e\n ",s1,Kytau1);

fscanf(in,"%lf%s",&Kdutau,s1);

fprintf(out,"Wregtauos %s%5.3e ",s1,Kdutau);

fscanf(in,"%lf%s",&Kdmtau,s1);

fprintf(out,"%s%5.3e ",s1,Kdmtau);

fscanf(in,"%lf%s",&Rdmtau,s1);

fprintf(out,"%s%5.3e ",s1,Rdmtau);

fscanf(in,"%lf%s",&Rtau1,s1);

fprintf(out,"%s%5.3e ",s1,Rtau1);

fscanf(in,"%lf%s",&Rtau2,s1);

fprintf(out,"%s%5.3e ",s1,Rtau2);

fscanf(in,"%lf%s",&tftau,s1);

fprintf(out,"%s%5.3e\n ",s1,tftau);

fscanf(in,"%lf%s",&tftau1,s1);

fprintf(out,"%s%5.3e ",s1,tftau1);

fscanf(in,"%lf%s",&Kytau,s1);

fprintf(out,"%s%5.3e ",s1,Kytau);

fscanf(in,"%lf%s",&t1tau,s1);

fprintf(out,"%s%5.3e ",s1,t1tau);

fscanf(in,"%lf%s",&t2tau,s1);

fprintf(out,"%s%5.3e ",s1,t2tau);

fscanf(in,"%lf%s",&Atau1,s1);

fprintf(out,"%s%5.3e ",s1,Atau1);

fscanf(in,"%lf%s",&Atau2,s1);

fprintf(out,"%s%5.3e ",s1,Atau2);

fscanf(in,"%lf%s",&Atau11,s1);

fprintf(out,"%s%5.3e ",s1,Atau11);

fscanf(in,"%lf%s",&Atau22,s1);

fprintf(out,"%s%5.3e\n ",s1,Atau22);

fscanf(in,"%lf%s",&Kyc1,s1);

fprintf(out,"%s%e\n ",s1,Kyc1);

fscanf(in,"%lf%s",&Kduc,s1);

fprintf(out,"Wregcos %s%5.3e ",s1,Kduc);

fscanf(in,"%lf%s",&Kdmc,s1);

fprintf(out,"%s%5.3e ",s1,Kdmc);

fscanf(in,"%lf%s",&Rdmc,s1);

fprintf(out,"%s%5.3e ",s1,Rdmc);

fscanf(in,"%lf%s",&Rc1,s1);

fprintf(out,"%s%5.3e ",s1,Rc1);