#include <stdio.h>
#include <stdlib.h>
#include <stdbool.h>
#include <math.h>
#include <limits.h>
#include <float.h>

#define BUF_COL 10 //Количество предзаданных размеров, для счётчиков и временных массивов
#define DIODE_DROP 0.7 //Кофициэнт подения на диоде
#define pi M_PI //Задания числа пи

#define KOL 0
#define H_OB 1


int main() {
	#ifdef WIN32 //Смена кодировки (выполняетса в случяе компиляции под Windows)
	system("chcp 1251");
	#endif
	
	/*Определение переменных и указателей*/
    FILE * file, * txt;
	double frq=0, Pout=0, Uin=0, Uout=0, Kpuls=0, Pgab=0;
	double y=0, y1=0, h=0, H=0, b=0, Swin=0, Swin_req, Scer=0, d=0, D=0, B0=0;
	double D1=0, D2=0, I1=0, I2=0, j=2, K3=0.5, U1=0, U2=0, N1=0, N2=0, Uc=0, C=0, Iout=0, Fd_m=0, Pd_m=0, Rl_m=0, Ud_m=0;
	double B_d[]={0, 0.3, 1, 1.5, 1.5, 1.5, 1.5}; //Массив 
	/*Массивы предзаданных размеров в сантиметрах(для удобства расчёта)*/
	double SH[]={2.0, 2.4, 3.2, 4.0, 4.8, 6.4, 8.0, 10.0, 12.8, 16.0}; //Ш-образные
	double SD[]={1.6, 2.0, 2.6, 3.2, 4.0, 5.0, 6.4, 8.0, 10.0, 12.8}; //Дисковые
	double Pcalc[BUF_COL];//Буферный массив для расчётных мощностей
	double Swin_calc[BUF_COL], Ss_calc[BUF_COL];//Расчётные Площадь окна и сечения сердечника
	int mat_type=-1, mat_tmp=-1, form_type=-1, var_t=-1;
	bool hfrq=false; //Флаг допуска
    char pname[20], name_r[20], tmps[400];
	

	//bzero(pname, 20);
	
	/*Ввод данных*/
    printf("Введите имя расчёта:");
    scanf("%s", name_r);	
	
    sprintf(pname, "trans_%s_d.txt", name_r);//формирование и запись имени файла во временую переменную
    txt=fopen(pname, "w+t"); //открытие файла на запись с его созданием или очисткой
	fprintf(txt, "Введённые значения\n");
	
	fprintf(txt, "Имя расчёта:%s\n", name_r);
    printf("Введите частоту(f, Гц):");
    scanf("%lf",&frq);
	fprintf(txt, "Частота:%lfГц\n", frq);
	
    printf("Введите выходную мощность (Pвых, Вт):");
    scanf("%lf",&Pout);
	fprintf(txt, "Выходная мощность:%lfВт\n", Pout);
	
    printf("Введите входное напряжение (Uвх, В):");
    scanf("%lf",&Uin);
	fprintf(txt, "Входная напряжение:%lfВ\n", Uin);
	
    printf("Введите выходное напряжение (Uвых, В):");
    scanf("%lf",&Uout);
	fprintf(txt, "Выходная напряжение:%lfВ\n", Uout);
	
    printf("Введите кофициэнт пульсаций (Kп, %c):", 37);
    scanf("%lf",&Kpuls);
	fprintf(txt, "Кофициэнт пульсаций:%lf%c\n", Kpuls, 37);
	
	/*Выборка матерьяла сердечника*/
	printf("Выберите тип матерьяла из доступных:\n");
	if(frq > 0 && frq <= 1000000) {
		hfrq=true;
		printf(" 1. Феррит, B=%.1f\n", B_d[1]);
	}
	if(frq > 0 && frq <= 20000) {
		hfrq=true;
		printf(" 2. Альсифер, B=%.1f\n", B_d[2]);
	}
	if(frq >= 50 && frq <= 100) {
		hfrq=true;
		printf(" 3. Ш-образные пластины 0,5мм, B=%.1f\n", B_d[3]);
	}
	if(frq >= 100 && frq <= 200) {
		hfrq=true;
		printf(" 4. Ш-образные пластины 0,2мм, B=%.1f\n", B_d[4]);
	}
	if(frq >= 200 && frq <= 1000) {
		hfrq=true;
		printf(" 5. Лента 0,1мм, B=%.1f\n", B_d[5]);
	}
	if(frq >= 1000 && frq <= 4000) {
		hfrq=true;
		printf(" 6. Лента 0,05мм, B=%.1f\n", B_d[6]);
	}
	if(hfrq==false) {
		printf(" Не найдено матерьялов подходящих по параметрам\n");
		return 2;
	}
	scanf("%d", &mat_tmp);
	
	if(mat_tmp > 0 && mat_tmp <= 6) {
		mat_type=mat_tmp;
	}
	else {
		printf("Матерьял не найден\n");
		return 3;
	}
	
	fprintf(txt, "ID матерьяла:%d\n", mat_type);
	
	/*Установка параметров расчёта*/
	switch(mat_type){
		case 1:
			form_type=KOL;//Задание матерьяла сердечника
			B0=B_d[1];
			break;
		case 2:
			form_type=KOL;
			B0=B_d[2];
			break;
		case 3:
			form_type=H_OB;
			B0=B_d[3];
			break;
		case 4:
			form_type=H_OB;
			B0=B_d[4];
			break;
		case 5:
			form_type=KOL;
			B0=B_d[5];
			break;
		case 6:
			form_type=KOL;
			B0=B_d[6];
			break;
        default:
			//return 0;
			break;
	}
	
	fprintf(txt, "B0:%lfТ\n", B0);
	
	/*Расчёты сердечников*/
	if(form_type==KOL) { //Расчёт для кольцевого сердечника
		for(int i=0;BUF_COL > i; i++) {
			d=0.625*SD[i];
			h=0.35*SD[i];
			Swin_calc[i]=((pi*(d*d))/4); //см2
			Ss_calc[i]=(((SD[i]-d)/2)*h);
			printf(" [debug]ser var:%d SD:%lf d:%lf h:%lf Swin:%lf Ss_calc:%lf\n", i, SD[i], d, h, Swin_calc[i], Ss_calc[i]); 
		}
		fprintf(txt, "Выбран кольцевой сердечник.\n");
	}
	if(form_type==H_OB) { //Расчёт для Ш-образного сердечника
		for(int i=0;BUF_COL > i; i++) {
			H=0.86*SH[i];
			b=0.25*SH[i];
			h=2.5*b;
			y=b;
			y1=1.5*y;
			Swin_calc[i]=b*h; //см2
			Ss_calc[i]=y1*y;
			printf(" [debug]ser var:%d SH:%lf H:%lf b:%lf h:%lf y1:%lf Swin:%lf Ss_calc:%lf\n", i, SH[i], H, b, h, y1, Swin_calc[i], Ss_calc[i]); 
		}
		fprintf(txt, "Выбран Ш-образный сердечник.\n");
	}
	/*Расчёт мощностей*/
	for(int i=0;BUF_COL > i; i++) {
		Pcalc[i]=(Swin_calc[i]*Ss_calc[i]*B0*frq)/80;
		printf(" [debug]ser var:%d Pcalc:%lf\n", i, Pcalc[i]); 
	}
	
	Pgab=1.2*Pout; //расчёт гоборитной мощности
	fprintf(txt, "Габаритная мощность:%lfВт\n", Pgab);
	
	//U1=2*pi*frq*Ss_calc[i];
	/*Расчёт токов*/
	I2=Pgab/Uout;
	fprintf(txt, "Ток вторичной обмотки:%lfА\n", I2);
	I1=Pgab/Uin;
	fprintf(txt, "Ток первичной обмотки:%lfА\n", I1);
	//N2=(Uout/U1);
	//N1=((Uin*sqrt(2))/Uout)/N2;
	
	/*Расчёт диаметров*/
	D1=sqrt((4*I1)/(pi*j));
	fprintf(txt, "Диаметр провода первичной обмотки:%lf\n", D1);
	D2=sqrt((4*I2)/(pi*j));
	fprintf(txt, "Диаметр провода вторичной обмотки:%lf\n", D2);
	//Swin_req=K3(N1*((pi*D1*D1)/4)+N2*((pi*D2*D2)/4));
	
	printf(" [debug]D1=%lf\n D2=%lf\n I1=%lf\n I2=%lf\n U1=%lf\n", D1, D2, I1, I2, U1);
	//printf("Выбирите Размер из доступных:\n");
	
	/*Подборка размеров по габаритной мощности и размеру окна в цикле*/
	for(var_t=0;BUF_COL > var_t; var_t++) {
		//printf("%d. Pcalc:%f>=Pgab:%f Swin:%f Ss:%f \n", var_t, Pcalc[var_t], Pgab, Swin_calc[var_t], Ss_calc[var_t]);
		if(Pcalc[var_t]>=Pgab){			printf("  [debug]P ok\n");
			U1=2*pi*frq*Ss_calc[var_t]*0.0001*B0;//Расчёт напряжения на виток
			N2=round((Uout/U1)); //Расчёт и округление кличества витоков 2-ой обмотки
			N1=round(((Uin*sqrt(2))/Uout)*N2); //Расчёт и округление кличества витоков 1-ой обмотки
			Swin_req=K3*(N1*((pi*D1*D1)/4)+N2*((pi*D2*D2)/4));//Расчёт требуемого окна в мм
			if(Swin_calc[var_t] >= (Swin_req*0.01)){ //Сравнение требуемого окна с имеющимеся
				printf(" [debug]var:%d Pcalc:%lf>=Pgab:%lf Swin:%lf Ss:%lf \n", var_t, Pcalc[var_t], Pgab, Swin_calc[var_t], Ss_calc[var_t]);
				printf("  [debug]Swin ok\n");
				printf("  [debug]Swin_req=%lf\n U1=%lf\n N1=%lf\n N2=%lf\n", Swin_req, U1, N1, N2);
				break;//остоновка в случае успеха
			}
		}
	}
	
	
	if(form_type==KOL) {
		fprintf(txt, "Диаметр сердечника:%.0lfмм\n", SD[var_t]*10);
	}
	if(form_type==H_OB) {
		fprintf(txt, "Размер сердечника:%.0lfмм\n", SH[var_t]*10);
	}
	fprintf(txt, "Sтреб_ок:%.0lfмм\n", Swin_req);
	fprintf(txt, "Sсер_ок:%.0lfмм\n", Swin_calc[var_t]*10);
	fprintf(txt, "Вольт на виток:%lfВ\n", U1);
	fprintf(txt, "Расчётная мошность сердечника:%lfВ\n", Pcalc[var_t]);
	fprintf(txt, "Количество витков первичной обмотки:%.0lf\n", N1);
	fprintf(txt, "Количество витков вторичной обмотки:%.0lf\n", N2);
	
	/*Расчёт выпрямителя*/
	Ud_m=Uout/2;//Расчёт минимального обратного напряжения диодов
	Iout=I2;
	Pd_m=(Iout*DIODE_DROP)/2; //Расчёт минимальной мощности диодов
	Fd_m=2*frq; //Расчёт минимальной частоты
	Rl_m=Uout/Iout; //Расчёт минимально допустимого напряжения нагрузки
	//Rl_m=(Uout*Uout)/Pout;
	C=1000000*(1/(4*frq*Rl_m*Kpuls*0.01)); //Расчёт ёмкости в фарадах и преведения к микрофорадам
	Uc=1.5*Uout; //Расчёт минимального напряжения конденсатора
	
	
	/*Вывод результатов в формете rtf*/
	/*В качестви шаблона используется документ созданный в LibreOffice 5.3.4.2*/
	/*Сторонние библиотеки не используются для максимальной лёгкости и совместимостипрограммы*/
    sprintf(pname, "trans_%s_r.rtf", name_r);//формирование и запись имени файла во временую переменную
    file=fopen(pname, "w+t"); //открытие файла на запись с его созданием или очисткой
	
	/*Запись данных в файл*/
    fprintf(file,"{\\rtf1\\ansi\\deff3\\adeflang1025\n");
    fprintf(file,"{\\fonttbl{\\f0\\froman\\fprq2\\fcharset0 Times New Roman;}{\\f1\\froman\\fprq2\\fcharset2 Symbol;}{\\f2\\fswiss\\fprq2\\fcharset0 Arial;}{\\f3\\froman\\fprq2\\fcharset204 Liberation Serif{\\*\\falt Times New Roman};}{\\f4\\froman\\fprq2\\fcharset204 Liberation Sans{\\*\\falt Arial};}{\\f5\\froman\\fprq2\\fcharset204 Calibri;}{\\f6\\fnil\\fprq2\\fcharset204 Mangal;}{\\f7\\fnil\\fprq2\\fcharset204 Calibri;}{\\f8\\fnil\\fprq2\\fcharset204 Liberation Serif{\\*\\falt Times New Roman};}}\n");
	fprintf(file,"{\\colortbl;\\red0\\green0\\blue0;\\red0\\green0\\blue255;\\red0\\green255\\blue255;\\red0\\green255\\blue0;\\red255\\green0\\blue255;\\red255\\green0\\blue0;\\red255\\green255\\blue0;\\red255\\green255\\blue255;\\red0\\green0\\blue128;\\red0\\green128\\blue128;\\red0\\green128\\blue0;\\red128\\green0\\blue128;\\red128\\green0\\blue0;\\red128\\green128\\blue0;\\red128\\green128\\blue128;\\red192\\green192\\blue192;\\red0\\green0\\blue1;}\n");
	fprintf(file,"{\\stylesheet{\\s0\\snext0\\ql\\widctlpar\\hyphpar0\\ltrpar\\cf1\\kerning1\\dbch\\af6\\langfe1081\\dbch\\af8\\afs24\\alang1049\\loch\\f3\\fs24\\lang1049 Normal;}\n");
	fprintf(file,"{\\s15\\sbasedon0\\snext16\\ql\\widctlpar\\hyphpar0\\sb240\\sa120\\keepn\\ltrpar\\cf1\\kerning1\\dbch\\af6\\langfe1081\\dbch\\af8\\afs24\\alang1049\\loch\\f4\\fs28 \\u1047\\'c7\\u1072\\'e0\\u1075\\'e3\\u1086\\'ee\\u1083\\'eb\\u1086\\'ee\\u1074\\'e2\\u1086\\'ee\\u1082\\'ea;}\n");
	fprintf(file,"{\\s16\\sbasedon0\\snext16\\sl288\\slmult1\\ql\\widctlpar\\hyphpar0\\sb0\\sa140\\ltrpar\\cf1\\kerning1\\dbch\\af6\\langfe1081\\dbch\\af8\\afs24\\alang1049\\loch\\f3\\fs24 \\u1054\\'ce\\u1089\\'f1\\u1085\\'ed\\u1086\\'ee\\u1074\\'e2\\u1085\\'ed\\u1086\\'ee\\u1081\\'e9 \\u1090\\'f2\\u1077\\'e5\\u1082\\'ea\\u1089\\'f1\\u1090\\'f2;}\n");
	fprintf(file,"{\\s17\\sbasedon16\\snext17\\sl288\\slmult1\\ql\\widctlpar\\hyphpar0\\sb0\\sa140\\ltrpar\\cf1\\kerning1\\dbch\\af6\\langfe1081\\dbch\\af8\\afs24\\alang1049\\loch\\f3\\fs24 \\u1057\\'d1\\u1087\\'ef\\u1080\\'e8\\u1089\\'f1\\u1086\\'ee\\u1082\\'ea;}\n");
	fprintf(file,"{\\s18\\sbasedon0\\snext18\\ql\\widctlpar\\hyphpar0\\sb120\\sa120\\ltrpar\\cf1\\i\\kerning1\\dbch\\af6\\langfe1081\\dbch\\af8\\afs24\\alang1049\\loch\\f3\\fs24 \\u1053\\'cd\\u1072\\'e0\\u1079\\'e7\\u1074\\'e2\\u1072\\'e0\\u1085\\'ed\\u1080\\'e8\\u1077\\'e5;}\n");
	fprintf(file,"{\\s19\\sbasedon0\\snext19\\ql\\widctlpar\\hyphpar0\\ltrpar\\cf1\\kerning1\\dbch\\af6\\langfe1081\\dbch\\af8\\afs24\\alang1049\\loch\\f3\\fs24 \\u1059\\'d3\\u1082\\'ea\\u1072\\'e0\\u1079\\'e7\\u1072\\'e0\\u1090\\'f2\\u1077\\'e5\\u1083\\'eb\\u1100\\'fc;}\n");
	fprintf(file,"{\\s20\\sbasedon0\\snext20\\ql\\widctlpar\\hyphpar0\\ltrpar\\cf1\\kerning1\\dbch\\af6\\langfe1081\\dbch\\af8\\afs24\\alang1049\\loch\\f3\\fs24 \\u1057\\'d1\\u1086\\'ee\\u1076\\'e4\\u1077\\'e5\\u1088\\'f0\\u1078\\'e6\\u1080\\'e8\\u1084\\'ec\\u1086\\'ee\\u1077\\'e5 \\u1090\\'f2\\u1072\\'e0\\u1073\\'e1\\u1083\\'eb\\u1080\\'e8\\u1094\\'f6\\u1099\\'fb;}\n");
	fprintf(file,"{\\s21\\snext21\\ql\\widctlpar\\hyphpar0\\ltrpar\\cf1\\kerning1\\dbch\\af6\\langfe1081\\dbch\\af7\\afs24\\alang1049\\loch\\f5\\fs24\\lang1049 Default;}\n");
	fprintf(file,"}{\\*\\generator LibreOffice/5.3.4.2$Windows_X86_64 LibreOffice_project/f82d347ccc0be322489bf7da61d7e4ad13fe2ff3}{\\info{\\author \\u1041\\'c1\\u1077\\'e5\\u1083\\'eb\\u1086\\'ee\\u1076\\'e4\\u1077\\'e5\\u1076\\'e4\\u1086\\'ee\\u1074\\'e2}{\\creatim\\yr2017\\mo11\\dy24\\hr15\\min56}{\\revtim\\yr2017\\mo12\\dy24\\hr23\\min50}{\\printim\\yr0\\mo0\\dy0\\hr0\\min0}}{\\*\\userprops}\\deftab720\\deftab720\n");
	fprintf(file,"\\hyphauto0\\viewscale100\n");
	fprintf(file,"{\\*\\pgdsctbl\n");
	fprintf(file,"{\\pgdsc0\\pgdscuse451\\pgwsxn11906\\pghsxn16838\\marglsxn1134\\margrsxn1134\\margtsxn1134\\margbsxn1134\\pgdscnxt0 \\u1041\\'3f\\u1072\\'3f\\u1079\\'3f\\u1086\\'3f\\u1074\\'3f\\u1099\\'3f\\u1081\\'3f;}}\n");
	fprintf(file,"\\formshade{\\*\\pgdscno0}\\paperh16838\\paperw11906\\margl1134\\margr1134\\margt1134\\margb1134\\sectd\\sbknone\\sectunlocked1\\pgndec\\pgwsxn11906\\pghsxn16838\\marglsxn1134\\margrsxn1134\\margtsxn1134\\margbsxn1134\\ftnbj\\ftnstart1\\ftnrstcont\\ftnnar\\aenddoc\\aftnrstcont\\aftnstart1\\aftnnrlc\n");
	fprintf(file,"{\\*\\ftnsep\\chftnsep}\\pgndec\\pard\\plain \\s0\\ql\\widctlpar\\hyphpar0\\ltrpar\\cf1\\kerning1\\dbch\\af6\\langfe1081\\dbch\\af8\\afs24\\alang1049\\loch\\f3\\fs24\\lang1049{\\rtlch \\ltrch\\loch\n");
	fprintf(file,"1. \\u1047\\'c7\\u1072\\'e0\\u1076\\'e4\\u1072\\'e0\\u1085\\'ed\\u1080\\'e8\\u1077\\'e5:}\n");
	fprintf(file,"\\par \\trowd\\trql\\trleft0\\ltrrow\\trpaddft3\\trpaddt0\\trpaddfl3\\trpaddl0\\trpaddfb3\\trpaddb0\\trpaddfr3\\trpaddr0\\clbrdrt\\brdrs\\brdrw2\\brdrcf17\\clpadfl3\\clpadl55\\clbrdrl\\brdrs\\brdrw2\\brdrcf17\\clpadft3\\clpadt55\\clbrdrb\\brdrs\\brdrw2\\brdrcf17\\clpadfb3\\clpadb55\\clpadfr3\\clpadr55\\cellx1927\\clbrdrt\\brdrs\\brdrw2\\brdrcf17\\clpadfl3\\clpadl55\\clbrdrl\\brdrs\\brdrw2\\brdrcf17\\clpadft3\\clpadt55\\clbrdrb\\brdrs\\brdrw2\\brdrcf17\\clpadfb3\\clpadb55\\clpadfr3\\clpadr55\\cellx3855\\clbrdrt\\brdrs\\brdrw2\\brdrcf17\\clpadfl3\\clpadl55\\clbrdrl\\brdrs\\brdrw2\\brdrcf17\\clpadft3\\clpadt55\\clbrdrb\\brdrs\\brdrw2\\brdrcf17\\clpadfb3\\clpadb55\\clpadfr3\\clpadr55\\cellx5780\\clbrdrt\\brdrs\\brdrw2\\brdrcf17\\clpadfl3\\clpadl55\\clbrdrl\\brdrs\\brdrw2\\brdrcf17\\clpadft3\\clpadt55\\clbrdrb\\brdrs\\brdrw2\\brdrcf17\\clpadfb3\\clpadb55\\clpadfr3\\clpadr55\\cellx7708\\clbrdrt\\brdrs\\brdrw2\\brdrcf17\\clpadfl3\\clpadl55\\clbrdrl\\brdrs\\brdrw2\\brdrcf17\\clpadft3\\clpadt55\\clbrdrb\\brdrs\\brdrw2\\brdrcf17\\clpadfb3\\clpadb55\\clbrdrr\\brdrs\\brdrw2\\brdrcf17\\clpadfr3\\clpadr55\\cellx9638\\pard\\plain \\s20\\ql\\widctlpar\\hyphpar0\\ltrpar\\cf1\\kerning1\\dbch\\af6\\langfe1081\\dbch\\af8\\afs24\\alang1049\\loch\\f3\\fs24\\intbl\\qc{\\rtlch \\ltrch\\loch\n");
	fprintf(file,"f, \\u1043\\'c3\\u1094\\'f6}\\cell\\pard\\plain \\s20\\ql\\widctlpar\\hyphpar0\\ltrpar\\cf1\\kerning1\\dbch\\af6\\langfe1081\\dbch\\af8\\afs24\\alang1049\\loch\\f3\\fs24\\intbl\\qc{\\rtlch \\ltrch\\loch\n");
	fprintf(file,"P}{\\sub\\rtlch \\ltrch\\loch\\lang1049\n");
	fprintf(file,"\\u1074\\'e2\\u1099\\'fb\\u1093\\'f5}{\\rtlch \\ltrch\\loch\n");
	fprintf(file,", \\u1042\\'c2\\u1090\\'f2}\\cell\\pard\\plain \\s20\\ql\\widctlpar\\hyphpar0\\ltrpar\\cf1\\kerning1\\dbch\\af6\\langfe1081\\dbch\\af8\\afs24\\alang1049\\loch\\f3\\fs24\\intbl\\qc{\\rtlch \\ltrch\\loch\\lang1033\n");
	fprintf(file,"U}{\\sub\\rtlch \\ltrch\\loch\\lang1049\n");
	fprintf(file,"\\u1074\\'e2\\u1093\\'f5}{\\rtlch \\ltrch\\loch\\lang1033\n");
	fprintf(file,", }{\\rtlch \\ltrch\\loch\\lang1049\n");
	fprintf(file,"\\u1042\\'c2}\\cell\\pard\\plain \\s20\\ql\\widctlpar\\hyphpar0\\ltrpar\\cf1\\kerning1\\dbch\\af6\\langfe1081\\dbch\\af8\\afs24\\alang1049\\loch\\f3\\fs24\\intbl\\qc{\\rtlch \\ltrch\\loch\\lang1033\n");
	fprintf(file,"U}{\\sub\\rtlch \\ltrch\\loch\\lang1049\n");
	fprintf(file,"\\u1074\\'e2\\u1099\\'fb\\u1093\\'f5}{\\rtlch \\ltrch\\loch\\lang1033\n");
	fprintf(file,", }{\\rtlch \\ltrch\\loch\\lang1049\n");
	fprintf(file,"\\u1042\\'c2}\\cell\\pard\\plain \\s20\\ql\\widctlpar\\hyphpar0\\ltrpar\\cf1\\kerning1\\dbch\\af6\\langfe1081\\dbch\\af8\\afs24\\alang1049\\loch\\f3\\fs24\\intbl\\qc{\\rtlch \\ltrch\\loch\\lang1049\n");
	fprintf(file,"\\u1050\\'ca}{\\sub\\rtlch \\ltrch\\loch\\lang1049\n");
	fprintf(file,"\\u1087\\'ef}{\\rtlch \\ltrch\\loch\\lang1049\n");
	fprintf(file,", %c}\\cell\\row\\pard\\trowd\\trql\\trleft0\\ltrrow\\trpaddft3\\trpaddt0\\trpaddfl3\\trpaddl0\\trpaddfb3\\trpaddb0\\trpaddfr3\\trpaddr0\\clpadfl3\\clpadl55\\clbrdrl\\brdrs\\brdrw2\\brdrcf17\\clpadft3\\clpadt55\\clbrdrb\\brdrs\\brdrw2\\brdrcf17\\clpadfb3\\clpadb55\\clpadfr3\\clpadr55\\cellx1927\\clpadfl3\\clpadl55\\clbrdrl\\brdrs\\brdrw2\\brdrcf17\\clpadft3\\clpadt55\\clbrdrb\\brdrs\\brdrw2\\brdrcf17\\clpadfb3\\clpadb55\\clpadfr3\\clpadr55\\cellx3855\\clpadfl3\\clpadl55\\clbrdrl\\brdrs\\brdrw2\\brdrcf17\\clpadft3\\clpadt55\\clbrdrb\\brdrs\\brdrw2\\brdrcf17\\clpadfb3\\clpadb55\\clpadfr3\\clpadr55\\cellx5780\\clpadfl3\\clpadl55\\clbrdrl\\brdrs\\brdrw2\\brdrcf17\\clpadft3\\clpadt55\\clbrdrb\\brdrs\\brdrw2\\brdrcf17\\clpadfb3\\clpadb55\\clpadfr3\\clpadr55\\cellx7708\\clpadfl3\\clpadl55\\clbrdrl\\brdrs\\brdrw2\\brdrcf17\\clpadft3\\clpadt55\\clbrdrb\\brdrs\\brdrw2\\brdrcf17\\clpadfb3\\clpadb55\\clbrdrr\\brdrs\\brdrw2\\brdrcf17\\clpadfr3\\clpadr55\\cellx9638\\pard\\plain \\s20\\ql\\widctlpar\\hyphpar0\\ltrpar\\cf1\\kerning1\\dbch\\af6\\langfe1081\\dbch\\af8\\afs24\\alang1049\\loch\\f3\\fs24\\intbl\\qc{\\rtlch \\ltrch\\loch\\lang1033\n", 37);
	
	/*Запись введёных значений в файл*/
	fprintf(file,"%.2lf}\\cell\\pard\\plain \\s20\\ql\\widctlpar\\hyphpar0\\ltrpar\\cf1\\kerning1\\dbch\\af6\\langfe1081\\dbch\\af8\\afs24\\alang1049\\loch\\f3\\fs24\\intbl\\qc{\\rtlch \\ltrch\\loch\\lang1033\n", frq);
	fprintf(file,"%.2lf}\\cell\\pard\\plain \\s20\\ql\\widctlpar\\hyphpar0\\ltrpar\\cf1\\kerning1\\dbch\\af6\\langfe1081\\dbch\\af8\\afs24\\alang1049\\loch\\f3\\fs24\\intbl\\qc{\\rtlch \\ltrch\\loch\\lang1033\n", Pout);
	fprintf(file,"%.2lf}\\cell\\pard\\plain \\s20\\ql\\widctlpar\\hyphpar0\\ltrpar\\cf1\\kerning1\\dbch\\af6\\langfe1081\\dbch\\af8\\afs24\\alang1049\\loch\\f3\\fs24\\intbl\\qc{{\\*\\bkmkstart __DdeLink__670_6935312}\\rtlch \\ltrch\\loch\\lang1033{\\*\\bkmkend __DdeLink__670_6935312}\n", Uin);
	fprintf(file,"%.2lf}\\cell\\pard\\plain \\s20\\ql\\widctlpar\\hyphpar0\\ltrpar\\cf1\\kerning1\\dbch\\af6\\langfe1081\\dbch\\af8\\afs24\\alang1049\\loch\\f3\\fs24\\intbl\\qc{\\rtlch \\ltrch\\loch\\lang1033\n", Uout);
	fprintf(file,"%.3lf}\\cell\\row\\pard\\pard\\plain \\s0\\ql\\widctlpar\\hyphpar0\\ltrpar\\cf1\\kerning1\\dbch\\af6\\langfe1081\\dbch\\af8\\afs24\\alang1049\\loch\\f3\\fs24\\lang1049\\rtlch \\ltrch\\loch\n", Kpuls);
//	fprintf(file,"\n");
	fprintf(file,"\\par \\pard\\plain \\s0\\ql\\widctlpar\\hyphpar0\\ltrpar\\cf1\\kerning1\\dbch\\af6\\langfe1081\\dbch\\af8\\afs24\\alang1049\\loch\\f3\\fs24\\lang1049{\\rtlch \\ltrch\\loch\n");
	fprintf(file,"2. \\u1055\\'cf\\u1072\\'e0\\u1088\\'f0\\u1072\\'e0\\u1084\\'ec\\u1077\\'e5\\u1090\\'f2\\u1088\\'f0\\u1099\\'fb \\u1090\\'f2\\u1088\\'f0\\u1072\\'e0\\u1085\\'ed\\u1089\\'f1\\u1092\\'f4\\u1086\\'ee\\u1088\\'f0\\u1084\\'ec\\u1072\\'e0\\u1090\\'f2\\u1086\\'ee\\u1088\\'f0\\u1072\\'e0:}\n");
	fprintf(file,"\\par \\trowd\\trql\\trleft0\\ltrrow\\trpaddft3\\trpaddt0\\trpaddfl3\\trpaddl0\\trpaddfb3\\trpaddb0\\trpaddfr3\\trpaddr0\\clbrdrt\\brdrs\\brdrw2\\brdrcf17\\clpadfl3\\clpadl55\\clbrdrl\\brdrs\\brdrw2\\brdrcf17\\clpadft3\\clpadt55\\clbrdrb\\brdrs\\brdrw2\\brdrcf17\\clpadfb3\\clpadb55\\clpadfr3\\clpadr55\\cellx4819\\clbrdrt\\brdrs\\brdrw2\\brdrcf17\\clpadfl3\\clpadl55\\clbrdrl\\brdrs\\brdrw2\\brdrcf17\\clpadft3\\clpadt55\\clbrdrb\\brdrs\\brdrw2\\brdrcf17\\clpadfb3\\clpadb55\\clbrdrr\\brdrs\\brdrw2\\brdrcf17\\clpadfr3\\clpadr55\\cellx9637\\pard\\plain \\s20\\ql\\widctlpar\\hyphpar0\\ltrpar\\cf1\\kerning1\\dbch\\af6\\langfe1081\\dbch\\af8\\afs24\\alang1049\\loch\\f3\\fs24\\intbl{\\rtlch \\ltrch\\loch\n");
	fprintf(file,"\\u1052\\'cc\\u1072\\'e0\\u1090\\'f2\\u1077\\'e5\\u1088\\'f0\\u1080\\'e8\\u1072\\'e0\\u1083\\'eb \\u1089\\'f1\\u1077\\'e5\\u1088\\'f0\\u1076\\'e4\\u1077\\'e5\\u1095\\'f7\\u1085\\'ed\\u1080\\'e8\\u1082\\'ea\\u1072\\'e0}\\cell\\pard\\plain \\s20\\ql\\widctlpar\\hyphpar0\\ltrpar\\cf1\\kerning1\\dbch\\af6\\langfe1081\\dbch\\af8\\afs24\\alang1049\\loch\\f3\\fs24\\intbl\\qr{\\rtlch \\ltrch\\loch\\lang1033\n");

	/*Запись метерьяла (используетса готовые шаблоны строк юникода)*/
	if(mat_type==1) 
		sprintf(tmps, "\\u1060\\'d4\\u1077\\'e5\\u1088\\'f0\\u1088\\'f0\\u1080\\'e8\\u1090\\'f2"); //Феррит
	else if(mat_type==2) 
		sprintf(tmps, "\\u1040\\'c0\\u1083\\'eb\\u1100\\'fc\\u1089\\'f1\\u1080\\'e8\\u1092\\'f4\\u1077\\'e5\\u1088\\'f0"); //Альсифер
	else if(mat_type==3)
		sprintf(tmps, "\\u1064\\'d8-\\u1086\\'ee\\u1073\\'e1\\u1088\\'f0\\u1072\\'e0\\u1079\\'e7\\u1085\\'ed\\u1099\\'fb\\u1077\\'e5 \\u1087\\'ef\\u1083\\'eb\\u1072\\'e0\\u1089\\'f1\\u1090\\'f2\\u1080\\'e8\\u1085\\'ed\\u1099\\'fb 0,5\\u1084\\'ec\\u1084\\'ec"); //Ш-образные пластины 0,5мм
	else if(mat_type==4)
		sprintf(tmps, "\\u1064\\'d8-\\u1086\\'ee\\u1073\\'e1\\u1088\\'f0\\u1072\\'e0\\u1079\\'e7\\u1085\\'ed\\u1099\\'fb\\u1077\\'e5 \\u1087\\'ef\\u1083\\'eb\\u1072\\'e0\\u1089\\'f1\\u1090\\'f2\\u1080\\'e8\\u1085\\'ed\\u1099\\'fb 0,2\\u1084\\'ec\\u1084\\'ec"); //Ш-образные пластины 0,2мм
	else if(mat_type==5)
		sprintf(tmps, "\\u1051\\'cb\\u1077\\'e5\\u1085\\'ed\\u1090\\'f2\\u1072\\'e0 0,1\\u1084\\'ec\\u1084\\'ec"); //Лента 0,1мм
	else if(mat_type==6)
		sprintf(tmps, "\\u1051\\'cb\\u1077\\'e5\\u1085\\'ed\\u1090\\'f2\\u1072\\'e0 0,05\\u1084\\'ec\\u1084\\'ec"); //Лента 0,05мм
		
	fprintf(file,"%s}\\cell\\row\\pard\\trowd\\trql\\trleft0\\ltrrow\\trpaddft3\\trpaddt0\\trpaddfl3\\trpaddl0\\trpaddfb3\\trpaddb0\\trpaddfr3\\trpaddr0\\clpadfl3\\clpadl55\\clbrdrl\\brdrs\\brdrw2\\brdrcf17\\clpadft3\\clpadt55\\clbrdrb\\brdrs\\brdrw2\\brdrcf17\\clpadfb3\\clpadb55\\clpadfr3\\clpadr55\\cellx4819\\clpadfl3\\clpadl55\\clbrdrl\\brdrs\\brdrw2\\brdrcf17\\clpadft3\\clpadt55\\clbrdrb\\brdrs\\brdrw2\\brdrcf17\\clpadfb3\\clpadb55\\clbrdrr\\brdrs\\brdrw2\\brdrcf17\\clpadfr3\\clpadr55\\cellx9637\\pard\\plain \\s20\\ql\\widctlpar\\hyphpar0\\ltrpar\\cf1\\kerning1\\dbch\\af6\\langfe1081\\dbch\\af8\\afs24\\alang1049\\loch\\f3\\fs24\\intbl{\\rtlch \\ltrch\\loch\n", tmps);
	
	fprintf(file,"\\u1058\\'d2\\u1080\\'e8\\u1087\\'ef \\u1089\\'f1\\u1077\\'e5\\u1088\\'f0\\u1076\\'e4\\u1077\\'e5\\u1095\\'f7\\u1085\\'ed\\u1080\\'e8\\u1082\\'ea\\u1072\\'e0}\\cell\\pard\\plain \\s20\\ql\\widctlpar\\hyphpar0\\ltrpar\\cf1\\kerning1\\dbch\\af6\\langfe1081\\dbch\\af8\\afs24\\alang1049\\loch\\f3\\fs24\\intbl\\qr{\\rtlch \\ltrch\\loch\n");
	fprintf(file,"}{\\rtlch \\ltrch\\loch\\lang1033\n");
	
	/*Запись Типа (используетса готовые шаблоны строк юникода)*/
	if(form_type==KOL) //Кольцевой
		sprintf(tmps, "\\u1050\\'ca\\u1086\\'ee\\u1083\\'eb\\u1100\\'fc\\u1094\\'f6\\u1077\\'e5\\u1074\\'e2\\u1086\\'ee\\u1081\\'e9");
	if(form_type==H_OB) //Ш
		sprintf(tmps, "\\u1064\\'d8-\\u1086\\'ee\\u1073\\'e1\\u1088\\'f0\\u1072\\'e0\\u1079\\'e7\\u1085\\'ed\\u1099\\'fb\\u1081\\'e9");
	
	fprintf(file,"%s}\\cell\\row\\pard\\trowd\\trql\\trleft0\\ltrrow\\trpaddft3\\trpaddt0\\trpaddfl3\\trpaddl0\\trpaddfb3\\trpaddb0\\trpaddfr3\\trpaddr0\\clpadfl3\\clpadl55\\clbrdrl\\brdrs\\brdrw2\\brdrcf17\\clpadft3\\clpadt55\\clbrdrb\\brdrs\\brdrw2\\brdrcf17\\clpadfb3\\clpadb55\\clpadfr3\\clpadr55\\cellx4819\\clpadfl3\\clpadl55\\clbrdrl\\brdrs\\brdrw2\\brdrcf17\\clpadft3\\clpadt55\\clbrdrb\\brdrs\\brdrw2\\brdrcf17\\clpadfb3\\clpadb55\\clbrdrr\\brdrs\\brdrw2\\brdrcf17\\clpadfr3\\clpadr55\\cellx9637\\pard\\plain \\s20\\ql\\widctlpar\\hyphpar0\\ltrpar\\cf1\\kerning1\\dbch\\af6\\langfe1081\\dbch\\af8\\afs24\\alang1049\\loch\\f3\\fs24\\intbl{\\rtlch \\ltrch\\loch\n", tmps);
	
	/*Запись результатов вычесления*/
	fprintf(file,"\\u1063\\'d7\\u1080\\'e8\\u1089\\'f1\\u1083\\'eb\\u1086\\'ee \\u1074\\'e2\\u1080\\'e8\\u1090\\'f2\\u1082\\'ea\\u1086\\'ee\\u1074\\'e2 \\u1087\\'ef\\u1077\\'e5\\u1088\\'f0\\u1074\\'e2\\u1080\\'e8\\u1095\\'f7\\u1085\\'ed\\u1086\\'ee\\u1081\\'e9 \\u1086\\'ee\\u1073\\'e1\\u1084\\'ec\\u1086\\'ee\\u1090\\'f2\\u1082\\'ea\\u1080\\'e8 N}{\\sub\\rtlch \\ltrch\\loch\n");
	fprintf(file,"1}\\cell\\pard\\plain \\s20\\ql\\widctlpar\\hyphpar0\\ltrpar\\cf1\\kerning1\\dbch\\af6\\langfe1081\\dbch\\af8\\afs24\\alang1049\\loch\\f3\\fs24\\intbl\\qr{\\rtlch \\ltrch\\loch\n");
	fprintf(file,"}{\\rtlch \\ltrch\\loch\\lang1033\n");
	fprintf(file,"%.0lf}\\cell\\row\\pard\\trowd\\trql\\trleft0\\ltrrow\\trpaddft3\\trpaddt0\\trpaddfl3\\trpaddl0\\trpaddfb3\\trpaddb0\\trpaddfr3\\trpaddr0\\clpadfl3\\clpadl55\\clbrdrl\\brdrs\\brdrw2\\brdrcf17\\clpadft3\\clpadt55\\clbrdrb\\brdrs\\brdrw2\\brdrcf17\\clpadfb3\\clpadb55\\clpadfr3\\clpadr55\\cellx4819\\clpadfl3\\clpadl55\\clbrdrl\\brdrs\\brdrw2\\brdrcf17\\clpadft3\\clpadt55\\clbrdrb\\brdrs\\brdrw2\\brdrcf17\\clpadfb3\\clpadb55\\clbrdrr\\brdrs\\brdrw2\\brdrcf17\\clpadfr3\\clpadr55\\cellx9637\\pard\\plain \\s20\\ql\\widctlpar\\hyphpar0\\ltrpar\\cf1\\kerning1\\dbch\\af6\\langfe1081\\dbch\\af8\\afs24\\alang1049\\loch\\f3\\fs24\\intbl{\\rtlch \\ltrch\\loch\n", N1);
	fprintf(file,"\\u1044\\'c4\\u1080\\'e8\\u1072\\'e0\\u1084\\'ec\\u1077\\'e5\\u1090\\'f2\\u1088\\'f0 \\u1087\\'ef\\u1088\\'f0\\u1086\\'ee\\u1074\\'e2\\u1086\\'ee\\u1076\\'e4\\u1072\\'e0 \\u1087\\'ef\\u1077\\'e5\\u1088\\'f0\\u1074\\'e2\\u1080\\'e8\\u1095\\'f7\\u1085\\'ed\\u1086\\'ee\\u1081\\'e9 \\u1086\\'ee\\u1073\\'e1\\u1084\\'ec\\u1086\\'ee\\u1090\\'f2\\u1082\\'ea\\u1080\\'e8 d}{\\sub\\rtlch \\ltrch\\loch\n");
	fprintf(file,"1}{\\rtlch \\ltrch\\loch\n");
	fprintf(file," , \\u1084\\'ec\\u1084\\'ec}\\cell\\pard\\plain \\s20\\ql\\widctlpar\\hyphpar0\\ltrpar\\cf1\\kerning1\\dbch\\af6\\langfe1081\\dbch\\af8\\afs24\\alang1049\\loch\\f3\\fs24\\intbl\\qr{\\rtlch \\ltrch\\loch\n");
	fprintf(file,"}{\\rtlch \\ltrch\\loch\\lang1033\n");
	fprintf(file,"%lf}\\cell\\row\\pard\\trowd\\trql\\trleft0\\ltrrow\\trpaddft3\\trpaddt0\\trpaddfl3\\trpaddl0\\trpaddfb3\\trpaddb0\\trpaddfr3\\trpaddr0\\clpadfl3\\clpadl55\\clbrdrl\\brdrs\\brdrw2\\brdrcf17\\clpadft3\\clpadt55\\clbrdrb\\brdrs\\brdrw2\\brdrcf17\\clpadfb3\\clpadb55\\clpadfr3\\clpadr55\\cellx4819\\clpadfl3\\clpadl55\\clbrdrl\\brdrs\\brdrw2\\brdrcf17\\clpadft3\\clpadt55\\clbrdrb\\brdrs\\brdrw2\\brdrcf17\\clpadfb3\\clpadb55\\clbrdrr\\brdrs\\brdrw2\\brdrcf17\\clpadfr3\\clpadr55\\cellx9637\\pard\\plain \\s20\\ql\\widctlpar\\hyphpar0\\ltrpar\\cf1\\kerning1\\dbch\\af6\\langfe1081\\dbch\\af8\\afs24\\alang1049\\loch\\f3\\fs24\\intbl{\\rtlch \\ltrch\\loch\n", D1);
	fprintf(file,"\\u1063\\'d7\\u1080\\'e8\\u1089\\'f1\\u1083\\'eb\\u1086\\'ee \\u1074\\'e2\\u1080\\'e8\\u1090\\'f2\\u1082\\'ea\\u1086\\'ee\\u1074\\'e2 \\u1074\\'e2\\u1090\\'f2\\u1086\\'ee\\u1088\\'f0\\u1080\\'e8\\u1095\\'f7\\u1085\\'ed\\u1086\\'ee\\u1081\\'e9 \\u1086\\'ee\\u1073\\'e1\\u1084\\'ec\\u1086\\'ee\\u1090\\'f2\\u1082\\'ea\\u1080\\'e8 N}{\\sub\\rtlch \\ltrch\\loch\n");
	fprintf(file,"2}\\cell\\pard\\plain \\s20\\ql\\widctlpar\\hyphpar0\\ltrpar\\cf1\\kerning1\\dbch\\af6\\langfe1081\\dbch\\af8\\afs24\\alang1049\\loch\\f3\\fs24\\intbl\\qr{\\rtlch \\ltrch\\loch\n");
	fprintf(file,"}{\\rtlch \\ltrch\\loch\\lang1033\n");
	fprintf(file,"%.0lf}\\cell\\row\\pard\\trowd\\trql\\trleft0\\ltrrow\\trpaddft3\\trpaddt0\\trpaddfl3\\trpaddl0\\trpaddfb3\\trpaddb0\\trpaddfr3\\trpaddr0\\clpadfl3\\clpadl55\\clbrdrl\\brdrs\\brdrw2\\brdrcf17\\clpadft3\\clpadt55\\clbrdrb\\brdrs\\brdrw2\\brdrcf17\\clpadfb3\\clpadb55\\clpadfr3\\clpadr55\\cellx4819\\clpadfl3\\clpadl55\\clbrdrl\\brdrs\\brdrw2\\brdrcf17\\clpadft3\\clpadt55\\clbrdrb\\brdrs\\brdrw2\\brdrcf17\\clpadfb3\\clpadb55\\clbrdrr\\brdrs\\brdrw2\\brdrcf17\\clpadfr3\\clpadr55\\cellx9637\\pard\\plain \\s20\\ql\\widctlpar\\hyphpar0\\ltrpar\\cf1\\kerning1\\dbch\\af6\\langfe1081\\dbch\\af8\\afs24\\alang1049\\loch\\f3\\fs24\\intbl{\\rtlch \\ltrch\\loch\n", N2);
	fprintf(file,"\\u1044\\'c4\\u1080\\'e8\\u1072\\'e0\\u1084\\'ec\\u1077\\'e5\\u1090\\'f2\\u1088\\'f0 \\u1087\\'ef\\u1088\\'f0\\u1086\\'ee\\u1074\\'e2\\u1086\\'ee\\u1076\\'e4\\u1072\\'e0 \\u1074\\'e2\\u1090\\'f2\\u1086\\'ee\\u1088\\'f0\\u1080\\'e8\\u1095\\'f7\\u1085\\'ed\\u1086\\'ee\\u1081\\'e9 \\u1086\\'ee\\u1073\\'e1\\u1084\\'ec\\u1086\\'ee\\u1090\\'f2\\u1082\\'ea\\u1080\\'e8 d}{\\sub\\rtlch \\ltrch\\loch\n");
	fprintf(file,"2}{\\rtlch \\ltrch\\loch\n");
	fprintf(file," , \\u1084\\'ec\\u1084\\'ec}\\cell\\pard\\plain \\s20\\ql\\widctlpar\\hyphpar0\\ltrpar\\cf1\\kerning1\\dbch\\af6\\langfe1081\\dbch\\af8\\afs24\\alang1049\\loch\\f3\\fs24\\intbl\\qr{\\rtlch \\ltrch\\loch\n");
	fprintf(file,"}{\\rtlch \\ltrch\\loch\\lang1033\n");
	fprintf(file,"%lf}\\cell\\row\\pard\\trowd\\trql\\trleft0\\ltrrow\\trpaddft3\\trpaddt0\\trpaddfl3\\trpaddl0\\trpaddfb3\\trpaddb0\\trpaddfr3\\trpaddr0\\clpadfl3\\clpadl55\\clbrdrl\\brdrs\\brdrw2\\brdrcf17\\clpadft3\\clpadt55\\clbrdrb\\brdrs\\brdrw2\\brdrcf17\\clpadfb3\\clpadb55\\clpadfr3\\clpadr55\\cellx4819\\clpadfl3\\clpadl55\\clbrdrl\\brdrs\\brdrw2\\brdrcf17\\clpadft3\\clpadt55\\clbrdrb\\brdrs\\brdrw2\\brdrcf17\\clpadfb3\\clpadb55\\clbrdrr\\brdrs\\brdrw2\\brdrcf17\\clpadfr3\\clpadr55\\cellx9637\\pard\\plain \\s20\\ql\\widctlpar\\hyphpar0\\ltrpar\\cf1\\kerning1\\dbch\\af6\\langfe1081\\dbch\\af8\\afs24\\alang1049\\loch\\f3\\fs24\\intbl{\\rtlch \\ltrch\\loch\n", D2);
	fprintf(file,"\\u1058\\'d2\\u1088\\'f0\\u1077\\'e5\\u1073\\'e1\\u1091\\'f3\\u1077\\'e5\\u1084\\'ec\\u1086\\'ee\\u1077\\'e5 \\u1086\\'ee\\u1082\\'ea\\u1085\\'ed\\u1086\\'ee \\u1089\\'f1\\u1077\\'e5\\u1088\\'f0\\u1076\\'e4\\u1077\\'e5\\u1095\\'f7\\u1085\\'ed\\u1080\\'e8\\u1082\\'ea\\u1072\\'e0, \\u1084\\'ec\\u1084\\'ec}{\\super\\rtlch \\ltrch\\loch\n");
	fprintf(file,"2}\\cell\\pard\\plain \\s20\\ql\\widctlpar\\hyphpar0\\ltrpar\\cf1\\kerning1\\dbch\\af6\\langfe1081\\dbch\\af8\\afs24\\alang1049\\loch\\f3\\fs24\\intbl\\qr{\\rtlch \\ltrch\\loch\n");
	fprintf(file,"}{\\rtlch \\ltrch\\loch\\lang1033\n");
	fprintf(file,"%.2lf}\\cell\\row\\pard\\pard\\plain \\s0\\ql\\widctlpar\\hyphpar0\\ltrpar\\cf1\\kerning1\\dbch\\af6\\langfe1081\\dbch\\af8\\afs24\\alang1049\\loch\\f3\\fs24\\lang1049\\rtlch \\ltrch\\loch\n", Swin_req);
	fprintf(file,"\n");
	fprintf(file,"\\par \\pard\\plain \\s0\\ql\\widctlpar\\hyphpar0\\ltrpar\\cf1\\kerning1\\dbch\\af6\\langfe1081\\dbch\\af8\\afs24\\alang1049\\loch\\f3\\fs24\\lang1049{\\rtlch \\ltrch\\loch\n");
	fprintf(file,"3. \\u1055\\'cf\\u1072\\'e0\\u1088\\'f0\\u1072\\'e0\\u1084\\'ec\\u1077\\'e5\\u1090\\'f2\\u1088\\'f0\\u1099\\'fb \\u1074\\'e2\\u1099\\'fb\\u1087\\'ef\\u1088\\'f0\\u1103\\'ff\\u1084\\'ec\\u1080\\'e8\\u1090\\'f2\\u1077\\'e5\\u1083\\'eb\\u1103\\'ff:}\n");
	fprintf(file,"\\par \\trowd\\trql\\trleft0\\ltrrow\\trpaddft3\\trpaddt0\\trpaddfl3\\trpaddl0\\trpaddfb3\\trpaddb0\\trpaddfr3\\trpaddr0\\clbrdrt\\brdrs\\brdrw2\\brdrcf17\\clpadfl3\\clpadl55\\clbrdrl\\brdrs\\brdrw2\\brdrcf17\\clpadft3\\clpadt55\\clbrdrb\\brdrs\\brdrw2\\brdrcf17\\clpadfb3\\clpadb55\\clpadfr3\\clpadr55\\cellx4819\\clbrdrt\\brdrs\\brdrw2\\brdrcf17\\clpadfl3\\clpadl55\\clbrdrl\\brdrs\\brdrw2\\brdrcf17\\clpadft3\\clpadt55\\clbrdrb\\brdrs\\brdrw2\\brdrcf17\\clpadfb3\\clpadb55\\clbrdrr\\brdrs\\brdrw2\\brdrcf17\\clpadfr3\\clpadr55\\cellx9637\\pard\\plain \\s20\\ql\\widctlpar\\hyphpar0\\ltrpar\\cf1\\kerning1\\dbch\\af6\\langfe1081\\dbch\\af8\\afs24\\alang1049\\loch\\f3\\fs24\\intbl{\\rtlch \\ltrch\\loch\n");
	fprintf(file,"\\u1052\\'cc\\u1072\\'e0\\u1082\\'ea\\u1089\\'f1\\u1080\\'e8\\u1084\\'ec\\u1072\\'e0\\u1083\\'eb\\u1100\\'fc\\u1085\\'ed\\u1086\\'ee\\u1077\\'e5 \\u1086\\'ee\\u1073\\'e1\\u1088\\'f0\\u1072\\'e0\\u1090\\'f2\\u1085\\'ed\\u1086\\'ee\\u1077\\'e5}\n");
	fprintf(file,"\\par \\pard\\plain \\s20\\ql\\widctlpar\\hyphpar0\\ltrpar\\cf1\\kerning1\\dbch\\af6\\langfe1081\\dbch\\af8\\afs24\\alang1049\\loch\\f3\\fs24\\intbl{\\rtlch \\ltrch\\loch\n");
	fprintf(file,"\\u1085\\'ed\\u1072\\'e0\\u1087\\'ef\\u1088\\'f0\\u1103\\'ff\\u1078\\'e6\\u1077\\'e5\\u1085\\'ed\\u1080\\'e8\\u1077\\'e5 \\u1076\\'e4\\u1080\\'e8\\u1086\\'ee\\u1076\\'e4\\u1086\\'ee\\u1074\\'e2 U}{\\sub\\rtlch \\ltrch\\loch\n");
	fprintf(file,"\\u1086\\'ee\\u1073\\'e1\\u1088\\'f0.max}{\\rtlch \\ltrch\\loch\n");
	fprintf(file,", \\u1042\\'c2}\\cell\\pard\\plain \\s20\\ql\\widctlpar\\hyphpar0\\ltrpar\\cf1\\kerning1\\dbch\\af6\\langfe1081\\dbch\\af8\\afs24\\alang1049\\loch\\f3\\fs24\\intbl\\qr{\\rtlch \\ltrch\\loch\n");
	fprintf(file,"}{\\rtlch \\ltrch\\loch\\lang1033\n");
	fprintf(file,"%.2lf}\\cell\\row\\pard\\trowd\\trql\\trleft0\\ltrrow\\trpaddft3\\trpaddt0\\trpaddfl3\\trpaddl0\\trpaddfb3\\trpaddb0\\trpaddfr3\\trpaddr0\\clpadfl3\\clpadl55\\clbrdrl\\brdrs\\brdrw2\\brdrcf17\\clpadft3\\clpadt55\\clbrdrb\\brdrs\\brdrw2\\brdrcf17\\clpadfb3\\clpadb55\\clpadfr3\\clpadr55\\cellx4819\\clpadfl3\\clpadl55\\clbrdrl\\brdrs\\brdrw2\\brdrcf17\\clpadft3\\clpadt55\\clbrdrb\\brdrs\\brdrw2\\brdrcf17\\clpadfb3\\clpadb55\\clbrdrr\\brdrs\\brdrw2\\brdrcf17\\clpadfr3\\clpadr55\\cellx9637\\pard\\plain \\s20\\ql\\widctlpar\\hyphpar0\\ltrpar\\cf1\\kerning1\\dbch\\af6\\langfe1081\\dbch\\af8\\afs24\\alang1049\\loch\\f3\\fs24\\intbl{\\rtlch \\ltrch\\loch\n", Ud_m);
	fprintf(file,"\\u1052\\'cc\\u1072\\'e0\\u1082\\'ea\\u1089\\'f1\\u1080\\'e8\\u1084\\'ec\\u1072\\'e0\\u1083\\'eb\\u1100\\'fc\\u1085\\'ed\\u1099\\'fb\\u1081\\'e9 \\u1087\\'ef\\u1088\\'f0\\u1103\\'ff\\u1084\\'ec\\u1086\\'ee\\u1081\\'e9 \\u1090\\'f2\\u1086\\'ee\\u1082\\'ea \\u1076\\'e4\\u1080\\'e8\\u1086\\'ee\\u1076\\'e4\\u1086\\'ee\\u1074\\'e2 I}{\\sub\\rtlch \\ltrch\\loch\n");
	fprintf(file,"\\u1087\\'ef\\u1088\\'f0.max }{\\rtlch \\ltrch\\loch\n");
	fprintf(file,", \\u1040\\'c0}\\cell\\pard\\plain \\s20\\ql\\widctlpar\\hyphpar0\\ltrpar\\cf1\\kerning1\\dbch\\af6\\langfe1081\\dbch\\af8\\afs24\\alang1049\\loch\\f3\\fs24\\intbl\\qr{\\rtlch \\ltrch\\loch\n");
	fprintf(file,"}{\\rtlch \\ltrch\\loch\\lang1033\n");
	fprintf(file,"%.2lf}\\cell\\row\\pard\\trowd\\trql\\trleft0\\ltrrow\\trpaddft3\\trpaddt0\\trpaddfl3\\trpaddl0\\trpaddfb3\\trpaddb0\\trpaddfr3\\trpaddr0\\clpadfl3\\clpadl55\\clbrdrl\\brdrs\\brdrw2\\brdrcf17\\clpadft3\\clpadt55\\clbrdrb\\brdrs\\brdrw2\\brdrcf17\\clpadfb3\\clpadb55\\clpadfr3\\clpadr55\\cellx4819\\clpadfl3\\clpadl55\\clbrdrl\\brdrs\\brdrw2\\brdrcf17\\clpadft3\\clpadt55\\clbrdrb\\brdrs\\brdrw2\\brdrcf17\\clpadfb3\\clpadb55\\clbrdrr\\brdrs\\brdrw2\\brdrcf17\\clpadfr3\\clpadr55\\cellx9637\\pard\\plain \\s20\\ql\\widctlpar\\hyphpar0\\ltrpar\\cf1\\kerning1\\dbch\\af6\\langfe1081\\dbch\\af8\\afs24\\alang1049\\loch\\f3\\fs24\\intbl{\\rtlch \\ltrch\\loch\n", Iout);
	fprintf(file,"\\u1052\\'cc\\u1072\\'e0\\u1082\\'ea\\u1089\\'f1\\u1080\\'e8\\u1084\\'ec\\u1072\\'e0\\u1083\\'eb\\u1100\\'fc\\u1085\\'ed\\u1072\\'e0\\u1103\\'ff \\u1084\\'ec\\u1086\\'ee\\u1097\\'f9\\u1085\\'ed\\u1086\\'ee\\u1089\\'f1\\u1090\\'f2\\u1100\\'fc \\u1076\\'e4\\u1080\\'e8\\u1086\\'ee\\u1076\\'e4\\u1086\\'ee\\u1074\\'e2 P}{\\sub\\rtlch \\ltrch\\loch\n");
	fprintf(file,"max}{\\rtlch \\ltrch\\loch\n");
	fprintf(file,", \\u1042\\'c2\\u1090\\'f2}\\cell\\pard\\plain \\s20\\ql\\widctlpar\\hyphpar0\\ltrpar\\cf1\\kerning1\\dbch\\af6\\langfe1081\\dbch\\af8\\afs24\\alang1049\\loch\\f3\\fs24\\intbl\\qr{\\rtlch \\ltrch\\loch\n");
	fprintf(file,"}{\\rtlch \\ltrch\\loch\\lang1033\n");
	fprintf(file,"%.2lf}\\cell\\row\\pard\\trowd\\trql\\trleft0\\ltrrow\\trpaddft3\\trpaddt0\\trpaddfl3\\trpaddl0\\trpaddfb3\\trpaddb0\\trpaddfr3\\trpaddr0\\clpadfl3\\clpadl55\\clbrdrl\\brdrs\\brdrw2\\brdrcf17\\clpadft3\\clpadt55\\clbrdrb\\brdrs\\brdrw2\\brdrcf17\\clpadfb3\\clpadb55\\clpadfr3\\clpadr55\\cellx4819\\clpadfl3\\clpadl55\\clbrdrl\\brdrs\\brdrw2\\brdrcf17\\clpadft3\\clpadt55\\clbrdrb\\brdrs\\brdrw2\\brdrcf17\\clpadfb3\\clpadb55\\clbrdrr\\brdrs\\brdrw2\\brdrcf17\\clpadfr3\\clpadr55\\cellx9637\\pard\\plain \\s20\\ql\\widctlpar\\hyphpar0\\ltrpar\\cf1\\kerning1\\dbch\\af6\\langfe1081\\dbch\\af8\\afs24\\alang1049\\loch\\f3\\fs24\\intbl{\\rtlch \\ltrch\\loch\n", Pd_m);
	fprintf(file,"\\u1042\\'c2\\u1077\\'e5\\u1088\\'f0\\u1093\\'f5\\u1085\\'ed\\u1077\\'e5\\u1077\\'e5 \\u1079\\'e7\\u1085\\'ed\\u1072\\'e0\\u1095\\'f7\\u1077\\'e5\\u1085\\'ed\\u1080\\'e8\\u1077\\'e5 \\u1088\\'f0\\u1072\\'e0\\u1073\\'e1\\u1086\\'ee\\u1095\\'f7\\u1077\\'e5\\u1081\\'e9 \\u1095\\'f7\\u1072\\'e0\\u1089\\'f1\\u1090\\'f2\\u1086\\'ee\\u1090\\'f2\\u1099\\'fb \\u1076\\'e4\\u1080\\'e8\\u1086\\'ee\\u1076\\'e4\\u1086\\'ee\\u1074\\'e2 f}{\\sub\\rtlch \\ltrch\\loch\n");
	fprintf(file,"max}{\\rtlch \\ltrch\\loch\n");
	fprintf(file,", \\u1043\\'c3\\u1094\\'f6}\\cell\\pard\\plain \\s20\\ql\\widctlpar\\hyphpar0\\ltrpar\\cf1\\kerning1\\dbch\\af6\\langfe1081\\dbch\\af8\\afs24\\alang1049\\loch\\f3\\fs24\\intbl\\qr{\\rtlch \\ltrch\\loch\n");
	fprintf(file,"}{\\rtlch \\ltrch\\loch\\lang1033\n");
	fprintf(file,"%.0lf}\\cell\\row\\pard\\trowd\\trql\\trleft0\\ltrrow\\trpaddft3\\trpaddt0\\trpaddfl3\\trpaddl0\\trpaddfb3\\trpaddb0\\trpaddfr3\\trpaddr0\\clpadfl3\\clpadl55\\clbrdrl\\brdrs\\brdrw2\\brdrcf17\\clpadft3\\clpadt55\\clbrdrb\\brdrs\\brdrw2\\brdrcf17\\clpadfb3\\clpadb55\\clpadfr3\\clpadr55\\cellx4819\\clpadfl3\\clpadl55\\clbrdrl\\brdrs\\brdrw2\\brdrcf17\\clpadft3\\clpadt55\\clbrdrb\\brdrs\\brdrw2\\brdrcf17\\clpadfb3\\clpadb55\\clbrdrr\\brdrs\\brdrw2\\brdrcf17\\clpadfr3\\clpadr55\\cellx9637\\pard\\plain \\s20\\ql\\widctlpar\\hyphpar0\\ltrpar\\cf1\\kerning1\\dbch\\af6\\langfe1081\\dbch\\af8\\afs24\\alang1049\\loch\\f3\\fs24\\intbl{\\rtlch \\ltrch\\loch\n", Fd_m);
	fprintf(file,"\\u1057\\'d1\\u1086\\'ee\\u1087\\'ef\\u1088\\'f0\\u1086\\'ee\\u1090\\'f2\\u1080\\'e8\\u1074\\'e2\\u1083\\'eb\\u1077\\'e5\\u1085\\'ed\\u1080\\'e8\\u1077\\'e5 \\u1085\\'ed\\u1072\\'e0\\u1075\\'e3\\u1088\\'f0\\u1091\\'f3\\u1079\\'e7\\u1082\\'ea\\u1080\\'e8 R, \\u1054\\'ce\\u1084\\'ec}\\cell\\pard\\plain \\s20\\ql\\widctlpar\\hyphpar0\\ltrpar\\cf1\\kerning1\\dbch\\af6\\langfe1081\\dbch\\af8\\afs24\\alang1049\\loch\\f3\\fs24\\intbl\\qr{\\rtlch \\ltrch\\loch\n");
	fprintf(file,"}{\\rtlch \\ltrch\\loch\\lang1033\n");
	fprintf(file,"%.2lf}\\cell\\row\\pard\\trowd\\trql\\trleft0\\ltrrow\\trpaddft3\\trpaddt0\\trpaddfl3\\trpaddl0\\trpaddfb3\\trpaddb0\\trpaddfr3\\trpaddr0\\clpadfl3\\clpadl55\\clbrdrl\\brdrs\\brdrw2\\brdrcf17\\clpadft3\\clpadt55\\clbrdrb\\brdrs\\brdrw2\\brdrcf17\\clpadfb3\\clpadb55\\clpadfr3\\clpadr55\\cellx4819\\clpadfl3\\clpadl55\\clbrdrl\\brdrs\\brdrw2\\brdrcf17\\clpadft3\\clpadt55\\clbrdrb\\brdrs\\brdrw2\\brdrcf17\\clpadfb3\\clpadb55\\clbrdrr\\brdrs\\brdrw2\\brdrcf17\\clpadfr3\\clpadr55\\cellx9637\\pard\\plain \\s20\\ql\\widctlpar\\hyphpar0\\ltrpar\\cf1\\kerning1\\dbch\\af6\\langfe1081\\dbch\\af8\\afs24\\alang1049\\loch\\f3\\fs24\\intbl{\\rtlch \\ltrch\\loch\n", Rl_m);
	fprintf(file,"\\u1025\\'a8\\u1084\\'ec\\u1082\\'ea\\u1086\\'ee\\u1089\\'f1\\u1090\\'f2\\u1100\\'fc \\u1092\\'f4\\u1080\\'e8\\u1083\\'eb\\u1100\\'fc\\u1090\\'f2\\u1088\\'f0\\u1091\\'f3\\u1102\\'fe\\u1097\\'f9\\u1077\\'e5\\u1075\\'e3\\u1086\\'ee \\u1082\\'ea\\u1086\\'ee\\u1085\\'ed\\u1076\\'e4\\u1077\\'e5\\u1085\\'ed\\u1089\\'f1\\u1072\\'e0\\u1090\\'f2\\u1086\\'ee\\u1088\\'f0\\u1072\\'e0 C, \\u1084\\'ec\\u1082\\'ea\\u1060\\'d4}\\cell\\pard\\plain \\s20\\ql\\widctlpar\\hyphpar0\\ltrpar\\cf1\\kerning1\\dbch\\af6\\langfe1081\\dbch\\af8\\afs24\\alang1049\\loch\\f3\\fs24\\intbl\\qr{\\rtlch \\ltrch\\loch\n");
	fprintf(file,"}{\\rtlch \\ltrch\\loch\\lang1033\n");
	fprintf(file,"%lf}\\cell\\row\\pard\\trowd\\trql\\trleft0\\ltrrow\\trpaddft3\\trpaddt0\\trpaddfl3\\trpaddl0\\trpaddfb3\\trpaddb0\\trpaddfr3\\trpaddr0\\clpadfl3\\clpadl55\\clbrdrl\\brdrs\\brdrw2\\brdrcf17\\clpadft3\\clpadt55\\clbrdrb\\brdrs\\brdrw2\\brdrcf17\\clpadfb3\\clpadb55\\clpadfr3\\clpadr55\\cellx4819\\clpadfl3\\clpadl55\\clbrdrl\\brdrs\\brdrw2\\brdrcf17\\clpadft3\\clpadt55\\clbrdrb\\brdrs\\brdrw2\\brdrcf17\\clpadfb3\\clpadb55\\clbrdrr\\brdrs\\brdrw2\\brdrcf17\\clpadfr3\\clpadr55\\cellx9637\\pard\\plain \\s20\\ql\\widctlpar\\hyphpar0\\ltrpar\\cf1\\kerning1\\dbch\\af6\\langfe1081\\dbch\\af8\\afs24\\alang1049\\loch\\f3\\fs24\\intbl{\\rtlch \\ltrch\\loch\n", C);
	fprintf(file,"\\u1052\\'cc\\u1072\\'e0\\u1082\\'ea\\u1089\\'f1\\u1080\\'e8\\u1084\\'ec\\u1072\\'e0\\u1083\\'eb\\u1100\\'fc\\u1085\\'ed\\u1086\\'ee\\u1077\\'e5 \\u1088\\'f0\\u1072\\'e0\\u1073\\'e1\\u1086\\'ee\\u1095\\'f7\\u1077\\'e5\\u1077\\'e5 \\u1085\\'ed\\u1072\\'e0\\u1087\\'ef\\u1088\\'f0\\u1103\\'ff\\u1078\\'e6\\u1077\\'e5\\u1085\\'ed\\u1080\\'e8\\u1077\\'e5}\n");
	fprintf(file,"\\par \\pard\\plain \\s20\\ql\\widctlpar\\hyphpar0\\ltrpar\\cf1\\kerning1\\dbch\\af6\\langfe1081\\dbch\\af8\\afs24\\alang1049\\loch\\f3\\fs24\\intbl{\\rtlch \\ltrch\\loch\n");
	fprintf(file,"\\u1082\\'ea\\u1086\\'ee\\u1085\\'ed\\u1076\\'e4\\u1077\\'e5\\u1085\\'ed\\u1089\\'f1\\u1072\\'e0\\u1090\\'f2\\u1086\\'ee\\u1088\\'f0\\u1072\\'e0 U}{\\sub\\rtlch \\ltrch\\loch\n");
	fprintf(file,"\\u1088\\'f0\\u1072\\'e0\\u1073\\'e1.}{\\rtlch \\ltrch\\loch\n");
	fprintf(file,", \\u1042\\'c2}\\cell\\pard\\plain \\s20\\ql\\widctlpar\\hyphpar0\\ltrpar\\cf1\\kerning1\\dbch\\af6\\langfe1081\\dbch\\af8\\afs24\\alang1049\\loch\\f3\\fs24\\intbl\\qr{\\rtlch \\ltrch\\loch\n");
	fprintf(file,"}{\\rtlch \\ltrch\\loch\\lang1033\n");
	fprintf(file,"%.2lf}\\cell\\row\\pard\\pard\\plain \\s0\\ql\\widctlpar\\hyphpar0\\ltrpar\\cf1\\kerning1\\dbch\\af6\\langfe1081\\dbch\\af8\\afs24\\alang1049\\loch\\f3\\fs24\\lang1049\\rtlch \\ltrch\\loch\n", Uc);
	fprintf(file,"\n");
	fprintf(file,"\\par }\n");
	fprintf(file,"");
	
    fclose(file); //Закрытие файла
    fclose(txt); //Закрытие файла
	
	
    return 0; //Выход   
}