Statement

extern int PauseBars = 0; // Количество баров после закрытия ордера extern int VisibleBar = 0; // Последний видимый на графике бар. Если 0, то все настройки кроме "PauseBars" - по умолчанию.(Cт. 213.) extern int Width = 0; // Ширина скрина extern int Hight = 0; // Высота скрина int pixels = 20; // Перемещение графики на скринах по вертикали bool separate = false; // Если график отдельный у него у него надпись на экране "Statement" int wh; int skr; int ord=777; string ticket; string Per; int schet; int candle; //+*********************************************************************************************+ int start(){ if(OrdersTotal()skr){screen();} if(OrdersTotal()!=ord)ord=OrdersTotal(); return;} //+*********************************************************************************************+ int rab(){ int handle = FileOpen("Счёт № - "+schet+".html",FILE_READ,';'); if(handle>=0){FileClose(handle);zapis();} else{sozdanie();zapis();} return;} //+*********************************************************************************************+ void sozdanie(){ int handle = FileOpen("Счёт № - "+schet+".html",FILE_READ|FILE_WRITE,';'); string t="\r\n"; string t0="\r\n\r\n\r\n\r\n"; string t1="\r\n\r\n\r\nStatement\r\n"; string t2="\r\n\r\n"; string t6="\r\n\r\n\r\n\r\n"; string t7="\r\n\r\n\r\n\r\n\r\n\r\n

Время

Символ

Тип

Лот

Пункты

%

$

Комментарий

\r\n"; string t8="\r\n\r\n\r\n\r\n"; string t9="\r\n\r\n\r\n\r\n"; string t10="\r\n\r\n\r\n"; string t11="

Screens

Отчёт"; FileWrite(handle,t+t0+t1+t2+t3+t4+t5+t6+t7+t8+t9+t10+t11); FileClose(handle); return;} //+*********************************************************************************************+ void zapis(){ int handle = FileOpen("Счёт № - "+schet+".html",FILE_READ,';'); FileSeek(handle,4,SEEK_SET); int oct=StrToInteger(FileReadString(handle)); //+-----------------------------------------------------------------------------------------------------------------------------------+ string print; string substr; int yu=(-59); while(substr!="tab") { yu--;if(yu<(-77)){FileClose(handle);return;} FileSeek(handle,yu,SEEK_END); print=FileReadString(handle); substr = StringSubstr(print,0,3); }yu=yu-3; //+-----------------------------------------------------------------------------------------------------------------------------------+ FileClose(handle); if(oct==0)oct=TimeCurrent()-864000; double total=0; double sum=0; double bal=AccountBalance(); int mass[999]; ArrayInitialize(mass,11111111111); for(int i=0;i1&&OrderType()<6)continue; handle = FileOpen("Счёт № - "+schet+".html",FILE_READ|FILE_WRITE,';'); mass[i]=OrderCloseTime();total=total+OrderProfit()+OrderCommission()+OrderSwap(); } bal=bal-total; ArraySort(mass,WHOLE_ARRAY,0,MODE_ASCEND); for(i=0;mass[i]<11111111111;i++) { for(int z=0;z0){double pips=MathAbs((OrderClosePrice()-OrderOpenPrice())/POINT); string pip=DoubleToStr(MathAbs(pips),0); }else pip="???"; if(OrderProfit()>0){string znak="+";string cvet="Yellow";} if(OrderProfit()==0){znak=" ";cvet="PaleGreen";} if(OrderProfit()<0){znak="-";cvet="#87CEFA";} //+----------------------------------------------------------------------------------------------------------------------------------+ double pr=OrderProfit()+OrderCommission()+OrderSwap(); bal=bal+pr; double proc=pr/(bal/100); string percent=DoubleToStr(MathAbs(proc),2); string simvol=OrderSymbol(); if(OrderType()==0)string tip="BUY";else tip="SELL"; string lot=DoubleToStr(OrderLots(),2); string profit=DoubleToStr(MathAbs(pr),2); string zn=znak; if(OrderType()>5) { cvet="White";tip="-";lot="-";zn=" ";pip="-"; if(znak==" ")simvol="IR"; if(znak=="+")simvol="ПРИХОД"; if(znak=="-")simvol="РАСХОД"; } //+-----------------------------------------------------------------------------------------------------------------------------------+ string vremya=TimeToStr(OrderCloseTime()); string coment=OrderComment(); ticket=DoubleToStr(OrderTicket(),0); //+-----------------------------------------------------------------------------------------------------------------------------------+ FileSeek(handle,yu,SEEK_END); string t="\r\n"+vremya+"\r\n"+simvol+"\r\n"+tip+"\r\n"+lot+"\r\n"; string t0=""+zn+pip+"\r\n"+znak+percent+"\r\n"+znak+profit+"\r\n Screens \r\n"; string t1=""+coment+"\r\nОтчёт"; FileWrite(handle,t+t0+t1); if(OrderType()<2)dopfile(); //+-----------------------------------------------------------------------------------------------------------------------------------+ }} string vremyazak=DoubleToStr(OrderCloseTime(),0); FileSeek(handle,4,SEEK_SET); FileWrite(handle,vremyazak+"\r\n-->"); FileClose(handle); return;} //+*********************************************************************************************+ void dopfile(){ int handle = FileOpen(ticket+".html",FILE_READ|FILE_WRITE,';'); string t1="\r\n\r\n\r\nScreens\r\n"; string t2="\r\n\r\n\r\n"; FileWrite(handle,t1+t2); FileClose(handle); //+---------------------------------------------------------------------------------+ handle = FileOpen(ticket+"F.html",FILE_READ|FILE_WRITE,';'); t1="\r\n\r\n M1 |\r\n"; string t4=" M5 |\r\n"; string t5=" M15 |\r\n"; string t6=" M30 |\r\n"; string t7=" H1 |\r\n"; string t8=" H4 |\r\n"; string t9=" D1 |\r\n"; string t10=" W1 |\r\n"; string t11=" MN \r\n"; FileWrite(handle,t1+t2+t3+t4+t5+t6+t7+t8+t9+t10+t11); FileClose(handle); return;} //+*********************************************************************************************+ int init(){ candle=Period()*60; wh=WindowHandle(Symbol(),Period()); GlobalVariableSet("State",wh); //+------------------------------------------------------------------+ switch(Period()) { case 1: Per="M1";break; case 5: Per="M5";break; case 15: Per="M15";break; case 30: Per="M30";break; case 60: Per="H1";break; case 240: Per="H4";break; case 1440: Per="D1";break; case 10080: Per="W1";break; case 43200: Per="MN";break; } //+------------------------------------------------------------------+ if(separate){ ObjectCreate("separ",OBJ_LABEL,0,0,0); ObjectSet("separ", OBJPROP_CORNER, 0); ObjectSet("separ",OBJPROP_XDISTANCE,15); ObjectSet("separ",OBJPROP_YDISTANCE,130); ObjectSetText("separ","Statement",222,"Tahoma",OrangeRed);}else ObjectDelete("separ"); //+------------------------------------------------------------------+ schet=AccountNumber(); //+---------------------------------------------------------------------------------+ return;} //+*********************************************************************************************+*/ int deinit(){GlobalVariableDel("State");ObjectDelete("separ");return;} //+*********************************************************************************************+*/ int screen(){ //+---------------------------------------------------------------------------------+ int handle = FileOpen("Счёт № - "+schet+".html",FILE_READ,';'); if(handle<0)return; skr=Time[0]; //+------------------------------------------------------------------+ string print; string substr; int yu=1337; while(substr!="20") { yu++;if(yu>1400){FileClose(handle);return;} FileSeek(handle,yu,SEEK_SET); print=FileReadString(handle); substr = StringSubstr(print,0,2); } //+------------------------------------------------------------------+ FileClose(handle); substr = StringSubstr(print,0,16); datetime blok=StrToTime(substr); if(blok<1083988800)return; //+---------------------------------------------------------------------------------+ int pausa=Time[0]-(candle*PauseBars)+candle; int scale=(-3); if(VisibleBar==0){VisibleBar=277; Width=1400; Hight = 730; scale=2;} //+-------------------------------------------+ for(int i=OrdersHistoryTotal()-1;i>=0;i--) {OrderSelect(i,SELECT_BY_POS,MODE_HISTORY); if(OrderSymbol()!=Symbol()||OrderType()>1)continue; //+-------------------------------------------------------------------------------------------------------------+ if(OrderCloseTime()pausa)continue; //+-------------------------------------------------------------------------------------------------------------+ int StartBar=(-3); int otstup=VisibleBar/5; if(Time[VisibleBar-otstup]>OrderOpenTime()) { int e=0; while(Time[e]>OrderOpenTime()){e++;} StartBar=e+otstup; } //+-------------------------------------------------------------------------------------------------------------+ string per=Period(); handle = FileOpen(OrderTicket()+per+".gif",FILE_READ,';'); if(handle>=0){FileClose(handle);continue;} else { //+-------------------------------------------+ ObjectDelete("separ"); //+------------------------------------------------------------------+ int tick=OrderTicket(); color col=Red; if(OrderType()==0)col=Blue; datetime a = OrderOpenTime(); double b = OrderOpenPrice(); datetime c = OrderCloseTime(); double d = OrderClosePrice(); //+------------------------------------------------------------------+ ObjectCreate("T",OBJ_ARROW,0,a,b); ObjectSet("T",OBJPROP_COLOR,col); ObjectSet("T",OBJPROP_ARROWCODE,1); //+------------------------------------------------------------------+ ObjectCreate("D",OBJ_TREND,0,a,b,c,d); ObjectSet("D",OBJPROP_COLOR,col); ObjectSet("D",OBJPROP_WIDTH,1); ObjectSet("D",OBJPROP_STYLE,STYLE_DOT); ObjectSet("D",OBJPROP_RAY,0); //+------------------------------------------------------------------+ ObjectCreate("F",OBJ_ARROW,0,c,d); ObjectSet("F",OBJPROP_COLOR,Green); ObjectSet("F",OBJPROP_ARROWCODE,3); //+------------------------------------------------------------------+ ObjectCreate("K",OBJ_LABEL,0,0,0); ObjectSet("K", OBJPROP_CORNER, 1); ObjectSet("K",OBJPROP_XDISTANCE,10); ObjectSet("K",OBJPROP_YDISTANCE,pixels); ObjectSetText("K",OrderComment(),14,"Times New Roman",Aquamarine); //+------------------------------------------------------------------+ ObjectCreate("A",OBJ_LABEL,0,0,0); ObjectSet("A", OBJPROP_CORNER, 1); ObjectSet("A",OBJPROP_XDISTANCE,10); ObjectSet("A",OBJPROP_YDISTANCE,pixels+20); ObjectSetText("A",AccountCompany(),10,"Times New Roman",Blue); //+------------------------------------------------------------------+ double texts=MathAbs((OrderOpenPrice()-OrderClosePrice())/Point); string text=DoubleToStr(texts,0); if(OrderProfit()>0){string k="+ ";color cv=Gold;}else {k="- ";cv=Magenta;} if(OrderProfit()==0){k=" ";cv=Green;} double PrOFIT=OrderProfit()+OrderSwap()+OrderCommission(); double pc=MathAbs(PrOFIT/((AccountBalance()-OrderProfit())/100)); double pr=MathAbs(PrOFIT); ObjectCreate("P",OBJ_LABEL,0,0,0); ObjectSet("P", OBJPROP_CORNER, 1); ObjectSet("P",OBJPROP_XDISTANCE,10); ObjectSet("P",OBJPROP_YDISTANCE,pixels+37); ObjectSetText("P",Symbol()+" - "+Per,16,"Times New Roman",OrangeRed); //+------------------------------------------------------------------+ ObjectCreate("B",OBJ_LABEL,0,0,0); ObjectSet("B", OBJPROP_CORNER, 1); ObjectSet("B",OBJPROP_XDISTANCE,10); ObjectSet("B",OBJPROP_YDISTANCE,pixels+60); ObjectSetText("B","#"+tick,11,"Tahoma",Teal); //+------------------------------------------------------------------+ ObjectCreate("Y",OBJ_LABEL,0,0,0); ObjectSet("Y", OBJPROP_CORNER, 1); ObjectSet("Y",OBJPROP_XDISTANCE,10); ObjectSet("Y",OBJPROP_YDISTANCE,pixels+77); ObjectSetText("Y","=============",14,"Times New Roman",SandyBrown); //+------------------------------------------------------------------+ ObjectCreate("C",OBJ_LABEL,0,0,0); ObjectSet("C", OBJPROP_CORNER, 1); ObjectSet("C",OBJPROP_XDISTANCE,10); ObjectSet("C",OBJPROP_YDISTANCE,pixels+95); ObjectSetText("C",k+text+" points",14,"Times New Roman",cv); //+------------------------------------------------------------------+ ObjectCreate("E",OBJ_LABEL,0,0,0); ObjectSet("E", OBJPROP_CORNER, 1); ObjectSet("E",OBJPROP_XDISTANCE,10); ObjectSet("E",OBJPROP_YDISTANCE,pixels+115); ObjectSetText("E",k+DoubleToStr(pc,2)+" %",14,"Times New Roman",cv); //+------------------------------------------------------------------+ ObjectCreate("G",OBJ_LABEL,0,0,0); ObjectSet("G", OBJPROP_CORNER, 1); ObjectSet("G",OBJPROP_XDISTANCE,10); ObjectSet("G",OBJPROP_YDISTANCE,pixels+135); ObjectSetText("G",k+DoubleToStr(pr,2)+" $",14,"Times New Roman",cv); //+------------------------------------------------------------------+ WindowScreenShot(OrderTicket()+per+".gif",Width,Hight,StartBar,scale); ObjectDelete("T"); ObjectDelete("D"); ObjectDelete("F"); ObjectDelete("P"); ObjectDelete("A"); ObjectDelete("B"); ObjectDelete("C"); ObjectDelete("E"); ObjectDelete("G"); ObjectDelete("Y"); ObjectDelete("K"); } //+------------------------------------------------------------------+ if(separate){ ObjectCreate("separ",OBJ_LABEL,0,0,0); ObjectSet("separ", OBJPROP_CORNER, 0); ObjectSet("separ",OBJPROP_XDISTANCE,15); ObjectSet("separ",OBJPROP_YDISTANCE,130); ObjectSetText("separ","Statement",222,"Tahoma",OrangeRed);} //+------------------------------------------------------------------+ } //+---------------------------------------------------------------------------------+ return;} //+*********************************************************************************************+ void otchet(){ FileDelete("Отчёт "+schet+".html"); bool PIPS=false; string inf=" "; int vsego=0; int vp=0; int pp=0; int up=0; int colprib=0; double pr_prib=0; int colub=0; double ub_ubyt=0; int vsego1=0; int vp1=0; int pp1=0; int up1=0; int colprib1=0; double pr_prib1=0; int colub1=0; double ub_ubyt1=0; int vsego2=0; int vp2=0; int pp2=0; int up2=0; int colprib2=0; double pr_prib2=0; int colub2=0; double ub_ubyt2=0; int vsego3=0; int vp3=0; int pp3=0; int up3=0; int colprib3=0; double pr_prib3=0; int colub3=0; double ub_ubyt3=0; int vsego4=0; int vp4=0; int pp4=0; int up4=0; int colprib4=0; double pr_prib4=0; int colub4=0; double ub_ubyt4=0; int vsego5=0; int vp5=0; int pp5=0; int up5=0; int colprib5=0; double pr_prib5=0; int colub5=0; double ub_ubyt5=0; int vsego6=0; int vp6=0; int pp6=0; int up6=0; int colprib6=0; double pr_prib6=0; int colub6=0; double ub_ubyt6=0; int vsego7=0; int vp7=0; int pp7=0; int up7=0; int colprib7=0; double pr_prib7=0; int colub7=0; double ub_ubyt7=0; int vsego8=0; int vp8=0; int pp8=0; int up8=0; int colprib8=0; double pr_prib8=0; int colub8=0; double ub_ubyt8=0; int vsego9=0; int vp9=0; int pp9=0; int up9=0; int colprib9=0; double pr_prib9=0; int colub9=0; double ub_ubyt9=0; //+------------------------------------------------------------------+ int handle = FileOpen("Счёт № - "+schet+".html",FILE_READ,';'); if(handle<0)return; string print; string substr; int yu=1337; while(substr!="20") { yu++;if(yu>1400){FileClose(handle);return;} FileSeek(handle,yu,SEEK_SET); print=FileReadString(handle); substr = StringSubstr(print,0,2); } //+------------------------------------------------------------------+ FileClose(handle); substr = StringSubstr(print,0,16); datetime start=StrToTime(substr); //+*****************************************************************************+Найдено начальное время for(int i=0;i1||OrderCloseTime()0){if(OrderType()==0)int pip=(OrderClosePrice()-OrderOpenPrice())/pips;else pip=(OrderOpenPrice()-OrderClosePrice())/pips;} else {PIPS=true;inf=" Нет символа в \"Обзоре рынка\"";} vp=vp+pip; if(prord>0) { pr_prib=pr_prib+prord;colprib++;pp=pp+pip; if(comm=="1"){pr_prib1=pr_prib1+prord;colprib1++;vsego1++;pp1=pp1+pip;vp1=vp1+pip;} if(comm=="2"){pr_prib2=pr_prib2+prord;colprib2++;vsego2++;pp2=pp2+pip;vp2=vp2+pip;} if(comm=="3"){pr_prib3=pr_prib3+prord;colprib3++;vsego3++;pp3=pp3+pip;vp3=vp3+pip;} if(comm=="4"){pr_prib4=pr_prib4+prord;colprib4++;vsego4++;pp4=pp4+pip;vp4=vp4+pip;} if(comm=="5"){pr_prib5=pr_prib5+prord;colprib5++;vsego5++;pp5=pp5+pip;vp5=vp5+pip;} if(comm=="6"){pr_prib6=pr_prib6+prord;colprib6++;vsego6++;pp6=pp6+pip;vp6=vp6+pip;} if(comm=="7"){pr_prib7=pr_prib7+prord;colprib7++;vsego7++;pp7=pp7+pip;vp7=vp7+pip;} if(comm=="8"){pr_prib8=pr_prib8+prord;colprib8++;vsego8++;pp8=pp8+pip;vp8=vp8+pip;} if(comm=="9"){pr_prib9=pr_prib9+prord;colprib9++;vsego9++;pp9=pp9+pip;vp9=vp9+pip;} } else { ub_ubyt=ub_ubyt+prord;colub++;up=up+pip; if(comm=="1"){ub_ubyt1=ub_ubyt1+prord;colub1++;vsego1++;up1=up1+pip;vp1=vp1+pip;} if(comm=="2"){ub_ubyt2=ub_ubyt2+prord;colub2++;vsego2++;up2=up2+pip;vp2=vp2+pip;} if(comm=="3"){ub_ubyt3=ub_ubyt3+prord;colub3++;vsego3++;up3=up3+pip;vp3=vp3+pip;} if(comm=="4"){ub_ubyt4=ub_ubyt4+prord;colub4++;vsego4++;up4=up4+pip;vp4=vp4+pip;} if(comm=="5"){ub_ubyt5=ub_ubyt5+prord;colub5++;vsego5++;up5=up5+pip;vp5=vp5+pip;} if(comm=="6"){ub_ubyt6=ub_ubyt6+prord;colub6++;vsego6++;up6=up6+pip;vp6=vp6+pip;} if(comm=="7"){ub_ubyt7=ub_ubyt7+prord;colub7++;vsego7++;up7=up7+pip;vp7=vp7+pip;} if(comm=="8"){ub_ubyt8=ub_ubyt8+prord;colub8++;vsego8++;up8=up8+pip;vp8=vp8+pip;} if(comm=="9"){ub_ubyt9=ub_ubyt9+prord;colub9++;vsego9++;up9=up9+pip;vp9=vp9+pip;} } } //+---------------------------------------------------------------------------------------------------------+for if(vsego>0) { string z=""; string VP=DoubleToStr(vp,0)+" п.";if(vp>0){VP="+"+VP;z=z+"+";} string sr=z+DoubleToStr(vp/vsego,0)+" п. (в среднем за сделку)"; string PP=DoubleToStr(pp,0); string UP=DoubleToStr(up,0); double prub=pr_prib+MathAbs(ub_ubyt); double chistaya=pr_prib+ub_ubyt; double pnb=(AccountBalance()-chistaya)/100; if(ub_ubyt!=0)string perc_pr=DoubleToStr(pr_prib/(prub/100),0);else {perc_pr="";if(pr_prib>0)perc_pr="100";} if(ub_ubyt!=0)string perc_ub=DoubleToStr(100-(pr_prib/(prub/100)),0);else {perc_ub="";if(pr_prib>0)perc_ub="0";} string chist=DoubleToStr(chistaya,2);if(chistaya>0)chist="+"+chist; string pchist=DoubleToStr(chistaya/pnb,2); string ob_prib=DoubleToStr(pr_prib,2);if(pr_prib>0)ob_prib="+"+ob_prib; string ob_ubyt=DoubleToStr(ub_ubyt,2); string vsego_sd=DoubleToStr(vsego,0); string prib_sd=DoubleToStr(colprib,0); double per1=colprib+colub; double per2=NormalizeDouble(colprib/(per1/100),0); string prprsd=DoubleToStr(per2,0); string ubyt_sd=DoubleToStr(colub,0); string prubsd=DoubleToStr(100-per2,0); if(ub_ubyt!=0)string pf=DoubleToStr(pr_prib/MathAbs(ub_ubyt),2);else if(pr_prib>0)pf="100%";else pf="???"; } //+------------------------------------------------------------------+ if(vsego1>0) { z=""; string VP1=DoubleToStr(vp1,0)+" п.";if(vp1>0){VP1="+"+VP1;z=z+"+";} string sr1=z+DoubleToStr(vp1/vsego1,0)+" п. (в среднем за сделку)"; string PP1=DoubleToStr(pp1,0); string UP1=DoubleToStr(up1,0); double prub1=pr_prib1+MathAbs(ub_ubyt1); double chistaya1=pr_prib1+ub_ubyt1; if(ub_ubyt1!=0)string perc_pr1=DoubleToStr(pr_prib1/(prub1/100),0);else {perc_pr1="";if(pr_prib1>0)perc_pr1="100";} if(ub_ubyt1!=0)string perc_ub1=DoubleToStr(100-(pr_prib1/(prub1/100)),0);else {perc_ub1="";if(pr_prib1>0)perc_ub1="0";} string chist1=DoubleToStr(chistaya1,2);if(chistaya1>0)chist1="+"+chist1; string ob_prib1=DoubleToStr(pr_prib1,2);if(pr_prib1>0)ob_prib1="+"+ob_prib1; string ob_ubyt1=DoubleToStr(ub_ubyt1,2); string vsego_sd1=DoubleToStr(vsego1,0); string prib_sd1=DoubleToStr(colprib1,0); double per1_1=colprib1+colub1; double per2_1=NormalizeDouble(colprib1/(per1_1/100),0); string prprsd1=DoubleToStr(per2_1,0); string ubyt_sd1=DoubleToStr(colub1,0); string prubsd1=DoubleToStr(100-per2_1,0); if(ub_ubyt1!=0)string pf1=DoubleToStr(pr_prib1/MathAbs(ub_ubyt1),2);else if(pr_prib1>0)pf1="100%";else pf1="???"; } //+------------------------------------------------------------------+ if(vsego2>0) { z=""; string VP2=DoubleToStr(vp2,0)+" п.";if(vp2>0){VP2="+"+VP2;z=z+"+";} string sr2=z+DoubleToStr(vp2/vsego2,0)+" п. (в среднем за сделку)"; string PP2=DoubleToStr(pp2,0); string UP2=DoubleToStr(up2,0); double prub2=pr_prib2+MathAbs(ub_ubyt2); double chistaya2=pr_prib2+ub_ubyt2; if(ub_ubyt2!=0)string perc_pr2=DoubleToStr(pr_prib2/(prub2/100),0);else {perc_pr2="";if(pr_prib2>0)perc_pr2="100";} if(ub_ubyt2!=0)string perc_ub2=DoubleToStr(100-(pr_prib2/(prub2/100)),0);else {perc_ub2="";if(pr_prib2>0)perc_ub2="0";} string chist2=DoubleToStr(chistaya2,2);if(chistaya2>0)chist2="+"+chist2; string ob_prib2=DoubleToStr(pr_prib2,2);if(pr_prib2>0)ob_prib2="+"+ob_prib2; string ob_ubyt2=DoubleToStr(ub_ubyt2,2); string vsego_sd2=DoubleToStr(vsego2,0); string prib_sd2=DoubleToStr(colprib2,0); double per1_2=colprib2+colub2; double per2_2=NormalizeDouble(colprib2/(per1_2/100),0); string prprsd2=DoubleToStr(per2_2,0); string ubyt_sd2=DoubleToStr(colub2,0); string prubsd2=DoubleToStr(100-per2_2,0); if(ub_ubyt2!=0)string pf2=DoubleToStr(pr_prib2/MathAbs(ub_ubyt2),2);else if(pr_prib2>0)pf2="100%";else pf2="???"; } //+------------------------------------------------------------------+ if(vsego3>0) { z=""; string VP3=DoubleToStr(vp3,0)+" п.";if(vp3>0){VP3="+"+VP3;z=z+"+";} string sr3=z+DoubleToStr(vp3/vsego3,0)+" п. (в среднем за сделку)"; string PP3=DoubleToStr(pp3,0); string UP3=DoubleToStr(up3,0); double prub3=pr_prib3+MathAbs(ub_ubyt3); double chistaya3=pr_prib3+ub_ubyt3; if(ub_ubyt3!=0)string perc_pr3=DoubleToStr(pr_prib3/(prub3/100),0);else {perc_pr3="";if(pr_prib3>0)perc_pr3="100";} if(ub_ubyt3!=0)string perc_ub3=DoubleToStr(100-(pr_prib3/(prub3/100)),0);else {perc_ub3="";if(pr_prib3>0)perc_ub3="0";} string chist3=DoubleToStr(chistaya3,2);if(chistaya3>0)chist3="+"+chist3; string ob_prib3=DoubleToStr(pr_prib3,2);if(pr_prib3>0)ob_prib3="+"+ob_prib3; string ob_ubyt3=DoubleToStr(ub_ubyt3,2); string vsego_sd3=DoubleToStr(vsego3,0); string prib_sd3=DoubleToStr(colprib3,0); double per1_3=colprib3+colub3; double per2_3=NormalizeDouble(colprib3/(per1_3/100),0); string prprsd3=DoubleToStr(per2_3,0); string ubyt_sd3=DoubleToStr(colub3,0); string prubsd3=DoubleToStr(100-per2_3,0); if(ub_ubyt3!=0)string pf3=DoubleToStr(pr_prib3/MathAbs(ub_ubyt3),2);else if(pr_prib3>0)pf3="100%";else pf3="???"; } //+------------------------------------------------------------------+ if(vsego4>0) { z=""; string VP4=DoubleToStr(vp4,0)+" п.";if(vp4>0){VP4="+"+VP4;z=z+"+";} string sr4=z+DoubleToStr(vp4/vsego4,0)+" п. (в среднем за сделку)"; string PP4=DoubleToStr(pp4,0); string UP4=DoubleToStr(up4,0); double prub4=pr_prib4+MathAbs(ub_ubyt4); double chistaya4=pr_prib4+ub_ubyt4; if(ub_ubyt4!=0)string perc_pr4=DoubleToStr(pr_prib4/(prub4/100),0);else {perc_pr4="";if(pr_prib4>0)perc_pr4="100";} if(ub_ubyt4!=0)string perc_ub4=DoubleToStr(100-(pr_prib4/(prub4/100)),0);else {perc_ub4="";if(pr_prib4>0)perc_ub4="0";} string chist4=DoubleToStr(chistaya4,2);if(chistaya4>0)chist4="+"+chist4; string ob_prib4=DoubleToStr(pr_prib4,2);if(pr_prib4>0)ob_prib4="+"+ob_prib4; string ob_ubyt4=DoubleToStr(ub_ubyt4,2); string vsego_sd4=DoubleToStr(vsego4,0); string prib_sd4=DoubleToStr(colprib4,0); double per1_4=colprib4+colub4; double per2_4=NormalizeDouble(colprib4/(per1_4/100),0); string prprsd4=DoubleToStr(per2_4,0); string ubyt_sd4=DoubleToStr(colub4,0); string prubsd4=DoubleToStr(100-per2_4,0); if(ub_ubyt4!=0)string pf4=DoubleToStr(pr_prib4/MathAbs(ub_ubyt4),2);else if(pr_prib4>0)pf4="100%";else pf4="???"; } //+------------------------------------------------------------------+ if(vsego5>0) { z=""; string VP5=DoubleToStr(vp5,0)+" п.";if(vp5>0){VP5="+"+VP5;z=z+"+";} string sr5=z+DoubleToStr(vp5/vsego5,0)+" п. (в среднем за сделку)"; string PP5=DoubleToStr(pp5,0); string UP5=DoubleToStr(up5,0); double prub5=pr_prib5+MathAbs(ub_ubyt5); double chistaya5=pr_prib5+ub_ubyt5; if(ub_ubyt5!=0)string perc_pr5=DoubleToStr(pr_prib5/(prub5/100),0);else {perc_pr5="";if(pr_prib5>0)perc_pr5="100";} if(ub_ubyt5!=0)string perc_ub5=DoubleToStr(100-(pr_prib5/(prub5/100)),0);else {perc_ub5="";if(pr_prib5>0)perc_ub5="0";} string chist5=DoubleToStr(chistaya5,2);if(chistaya5>0)chist5="+"+chist5; string ob_prib5=DoubleToStr(pr_prib5,2);if(pr_prib5>0)ob_prib5="+"+ob_prib5; string ob_ubyt5=DoubleToStr(ub_ubyt5,2); string vsego_sd5=DoubleToStr(vsego5,0); string prib_sd5=DoubleToStr(colprib5,0); double per1_5=colprib5+colub5; double per2_5=NormalizeDouble(colprib5/(per1_5/100),0); string prprsd5=DoubleToStr(per2_5,0); string ubyt_sd5=DoubleToStr(colub5,0); string prubsd5=DoubleToStr(100-per2_5,0); if(ub_ubyt5!=0)string pf5=DoubleToStr(pr_prib5/MathAbs(ub_ubyt5),2);else if(pr_prib5>0)pf5="100%";else pf5="???"; } //+------------------------------------------------------------------+ if(vsego6>0) { z=""; string VP6=DoubleToStr(vp6,0)+" п.";if(vp6>0){VP6="+"+VP6;z=z+"+";} string sr6=z+DoubleToStr(vp6/vsego6,0)+" п. (в среднем за сделку)"; string PP6=DoubleToStr(pp6,0); string UP6=DoubleToStr(up6,0); double prub6=pr_prib6+MathAbs(ub_ubyt6); double chistaya6=pr_prib6+ub_ubyt6; if(ub_ubyt6!=0)string perc_pr6=DoubleToStr(pr_prib6/(prub6/100),0);else {perc_pr6="";if(pr_prib6>0)perc_pr6="100";} if(ub_ubyt6!=0)string perc_ub6=DoubleToStr(100-(pr_prib6/(prub6/100)),0);else {perc_ub6="";if(pr_prib6>0)perc_ub6="0";} string chist6=DoubleToStr(chistaya6,2);if(chistaya6>0)chist6="+"+chist6; string ob_prib6=DoubleToStr(pr_prib6,2);if(pr_prib6>0)ob_prib6="+"+ob_prib6; string ob_ubyt6=DoubleToStr(ub_ubyt6,2); string vsego_sd6=DoubleToStr(vsego6,0); string prib_sd6=DoubleToStr(colprib6,0); double per1_6=colprib6+colub6; double per2_6=NormalizeDouble(colprib6/(per1_6/100),0); string prprsd6=DoubleToStr(per2_6,0); string ubyt_sd6=DoubleToStr(colub6,0); string prubsd6=DoubleToStr(100-per2_6,0); if(ub_ubyt6!=0)string pf6=DoubleToStr(pr_prib6/MathAbs(ub_ubyt6),2);else if(pr_prib6>0)pf6="100%";else pf6="???"; } //+------------------------------------------------------------------+ if(vsego7>0) { z=""; string VP7=DoubleToStr(vp7,0)+" п.";if(vp7>0){VP7="+"+VP7;z=z+"+";} string sr7=z+DoubleToStr(vp7/vsego7,0)+" п. (в среднем за сделку)"; string PP7=DoubleToStr(pp7,0); string UP7=DoubleToStr(up7,0); double prub7=pr_prib7+MathAbs(ub_ubyt7); double chistaya7=pr_prib7+ub_ubyt7; if(ub_ubyt7!=0)string perc_pr7=DoubleToStr(pr_prib7/(prub7/100),0);else {perc_pr7="";if(pr_prib7>0)perc_pr7="100";} if(ub_ubyt7!=0)string perc_ub7=DoubleToStr(100-(pr_prib7/(prub7/100)),0);else {perc_ub7="";if(pr_prib7>0)perc_ub7="0";} string chist7=DoubleToStr(chistaya7,2);if(chistaya7>0)chist7="+"+chist7; string ob_prib7=DoubleToStr(pr_prib7,2);if(pr_prib7>0)ob_prib7="+"+ob_prib7; string ob_ubyt7=DoubleToStr(ub_ubyt7,2); string vsego_sd7=DoubleToStr(vsego7,0); string prib_sd7=DoubleToStr(colprib7,0); double per1_7=colprib7+colub7; double per2_7=NormalizeDouble(colprib7/(per1_7/100),0); string prprsd7=DoubleToStr(per2_7,0); string ubyt_sd7=DoubleToStr(colub7,0); string prubsd7=DoubleToStr(100-per2_7,0); if(ub_ubyt7!=0)string pf7=DoubleToStr(pr_prib7/MathAbs(ub_ubyt7),2);else if(pr_prib7>0)pf7="100%";else pf7="???"; } //+------------------------------------------------------------------+ if(vsego8>0) { z=""; string VP8=DoubleToStr(vp8,0)+" п.";if(vp8>0){VP8="+"+VP8;z=z+"+";} string sr8=z+DoubleToStr(vp8/vsego8,0)+" п. (в среднем за сделку)"; string PP8=DoubleToStr(pp8,0); string UP8=DoubleToStr(up8,0); double prub8=pr_prib8+MathAbs(ub_ubyt8); double chistaya8=pr_prib8+ub_ubyt8; if(ub_ubyt8!=0)string perc_pr8=DoubleToStr(pr_prib8/(prub8/100),0);else {perc_pr8="";if(pr_prib8>0)perc_pr8="100";} if(ub_ubyt8!=0)string perc_ub8=DoubleToStr(100-(pr_prib8/(prub8/100)),0);else {perc_ub8="";if(pr_prib8>0)perc_ub8="0";} string chist8=DoubleToStr(chistaya8,2);if(chistaya8>0)chist8="+"+chist8; string ob_prib8=DoubleToStr(pr_prib8,2);if(pr_prib8>0)ob_prib8="+"+ob_prib8; string ob_ubyt8=DoubleToStr(ub_ubyt8,2); string vsego_sd8=DoubleToStr(vsego8,0); string prib_sd8=DoubleToStr(colprib8,0); double per1_8=colprib8+colub8; double per2_8=NormalizeDouble(colprib8/(per1_8/100),0); string prprsd8=DoubleToStr(per2_8,0); string ubyt_sd8=DoubleToStr(colub8,0); string prubsd8=DoubleToStr(100-per2_8,0); if(ub_ubyt8!=0)string pf8=DoubleToStr(pr_prib8/MathAbs(ub_ubyt8),2);else if(pr_prib8>0)pf8="100%";else pf8="???"; } //+-----------------------------------------------------------------+ if(vsego9>0) { z=""; string VP9=DoubleToStr(vp9,0)+" п.";if(vp9>0){VP9="+"+VP9;z=z+"+";} string sr9=z+DoubleToStr(vp9/vsego9,0)+" п. (в среднем за сделку)"; string PP9=DoubleToStr(pp9,0); string UP9=DoubleToStr(up9,0); double prub9=pr_prib9+MathAbs(ub_ubyt9); double chistaya9=pr_prib9+ub_ubyt9; if(ub_ubyt9!=0)string perc_pr9=DoubleToStr(pr_prib9/(prub9/100),0);else {perc_pr9="";if(pr_prib9>0)perc_pr9="100";} if(ub_ubyt9!=0)string perc_ub9=DoubleToStr(100-(pr_prib9/(prub9/100)),0);else {perc_ub9="";if(pr_prib9>0)perc_ub9="0";} string chist9=DoubleToStr(chistaya9,2);if(chistaya9>0)chist9="+"+chist9; string ob_prib9=DoubleToStr(pr_prib9,2);if(pr_prib9>0)ob_prib9="+"+ob_prib9; string ob_ubyt9=DoubleToStr(ub_ubyt9,2); string vsego_sd9=DoubleToStr(vsego9,0); string prib_sd9=DoubleToStr(colprib9,0); double per1_9=colprib9+colub9; double per2_9=NormalizeDouble(colprib9/(per1_9/100),0); string prprsd9=DoubleToStr(per2_9,0); string ubyt_sd9=DoubleToStr(colub9,0); string prubsd9=DoubleToStr(100-per2_9,0); if(ub_ubyt9!=0)string pf9=DoubleToStr(pr_prib9/MathAbs(ub_ubyt9),2);else if(pr_prib9>0)pf9="100%";else pf9="???"; } //+*****************************************************************************+ if(PIPS==true) { VP="???";VP1="???";VP2="???";VP3="???";VP4="???";VP5="???";VP6="???";VP7="???";VP8="???";VP9="???"; PP="???";PP1="???";PP2="???";PP3="???";PP4="???";PP5="???";PP6="???";PP7="???";PP8="???";PP9="???"; UP="???";UP1="???";UP2="???";UP3="???";UP4="???";UP5="???";UP6="???";UP7="???";UP8="???";UP9="???"; } //+-----------------------------------------------------------------+ handle = FileOpen("Отчёт "+schet+".html",FILE_READ|FILE_WRITE,';'); string t0="\r\n"; string t1="\r\n\r\n\r\nОтчёт\r\n"; string t2="\r\n\r\n"; string t6="\r\n

ПРИБЫЛЬ ( "+perc_pr+" % ) УБЫТОК ( "+perc_ub+" % )

\r\n"; if(perc_pr=="0")perc_pr="1"; string t7="\r\n\r\n\r\n"; string t8="\r\n\r\n

\r\n

\r\n\r\n"; string t9="\r\n"; string t10="\r\n"; string t11="\r\n

Чистая прибыль :	"+chist+" $ ( "+pchist+" % )	"+VP+"
Общая прибыль :	"+ob_prib+" $	+"+PP+" п.
Общий убыток :	"+ob_ubyt+" $	"+UP+" п.

\r\n"; string t12="\r\n"+sr+"\r\n"; string t13="\r\n"; string t14="\r\n

Всего сделок :	"+vsego_sd+"
Прибыльных :	"+prib_sd+" ( "+prprsd+" % )
Убыточных :	"+ubyt_sd+" ( "+prubsd+" % )

\r\n

\r\n"; string t15="Прибыльность : "+pf+" "+inf+"

\r\n"; if(vsego1>0) { string t16="

Комментарий - 1

\r\n

ПРИБЫЛЬ ( "+perc_pr1+" % ) УБЫТОК ( "+perc_ub1+" % )

\r\n"; if(perc_pr1=="0")perc_pr1="1"; string t17="\r\n\r\n\r\n"; string t18="\r\n\r\n

\r\n

\r\n\r\n"; string t19="\r\n"; string t20="\r\n"; string t21="\r\n

Чистая прибыль :	"+chist1+" $	"+VP1+"
Общая прибыль :	"+ob_prib1+" $	+"+PP1+" п.
Общий убыток :	"+ob_ubyt1+" $	"+UP1+" п.

\r\n"; string t22="\r\n"+sr1+"\r\n"; string t23="\r\n"; string t24="\r\n

Всего сделок :	"+vsego_sd1+"
Прибыльных :	"+prib_sd1+" ( "+prprsd1+" % )
Убыточных :	"+ubyt_sd1+" ( "+prubsd1+" % )

\r\n

\r\n"; string t25="Прибыльность : "+pf1+"

\r\n"; } if(vsego2>0) { string t26="

Комментарий - 2

\r\n

ПРИБЫЛЬ ( "+perc_pr2+" % ) УБЫТОК ( "+perc_ub2+" % )

\r\n"; if(perc_pr2=="0")perc_pr2="1"; string t27="\r\n\r\n\r\n"; string t28="\r\n\r\n

\r\n

\r\n\r\n"; string t29="\r\n"; string t30="\r\n"; string t31="\r\n

Чистая прибыль :	"+chist2+" $	"+VP2+"
Общая прибыль :	"+ob_prib2+" $	+"+PP2+" п.
Общий убыток :	"+ob_ubyt2+" $	"+UP2+" п.

\r\n"; string t32="\r\n"+sr2+"\r\n"; string t33="\r\n"; string t34="\r\n

Всего сделок :	"+vsego_sd2+"
Прибыльных :	"+prib_sd2+" ( "+prprsd2+" % )
Убыточных :	"+ubyt_sd2+" ( "+prubsd2+" % )

\r\n

\r\n"; string t35="Прибыльность : "+pf2+"

\r\n"; } if(vsego3>0) { string t36="

Комментарий - 3

\r\n

ПРИБЫЛЬ ( "+perc_pr3+" % ) УБЫТОК ( "+perc_ub3+" % )

\r\n"; if(perc_pr3=="0")perc_pr3="1"; string t37="\r\n\r\n\r\n"; string t38="\r\n\r\n

\r\n

\r\n\r\n"; string t39="\r\n"; string t40="\r\n"; string t41="\r\n

Чистая прибыль :	"+chist3+" $	"+VP3+"
Общая прибыль :	"+ob_prib3+" $	+"+PP3+" п.
Общий убыток :	"+ob_ubyt3+" $	"+UP3+" п.

\r\n"; string t42="\r\n"+sr3+"\r\n"; string t43="\r\n"; string t44="\r\n

Всего сделок :	"+vsego_sd3+"
Прибыльных :	"+prib_sd3+" ( "+prprsd3+" % )
Убыточных :	"+ubyt_sd3+" ( "+prubsd3+" % )

\r\n

\r\n"; string t45="Прибыльность : "+pf3+"

\r\n"; } if(vsego4>0) { string t46="

Комментарий - 4

\r\n

ПРИБЫЛЬ ( "+perc_pr4+" % ) УБЫТОК ( "+perc_ub4+" % )

\r\n"; if(perc_pr4=="0")perc_pr4="1"; string t47="\r\n\r\n\r\n"; string t48="\r\n\r\n

\r\n

\r\n\r\n"; string t49="\r\n"; string t50="\r\n"; string t51="\r\n

Чистая прибыль :	"+chist4+" $	"+VP4+"
Общая прибыль :	"+ob_prib4+" $	+"+PP4+" п.
Общий убыток :	"+ob_ubyt4+" $	"+UP4+" п.

\r\n"; string t52="\r\n"+sr4+"\r\n"; string t53="\r\n"; string t54="\r\n

Всего сделок :	"+vsego_sd4+"
Прибыльных :	"+prib_sd4+" ( "+prprsd4+" % )
Убыточных :	"+ubyt_sd4+" ( "+prubsd4+" % )

\r\n

\r\n"; string t55="Прибыльность : "+pf4+"

\r\n"; } if(vsego5>0) { string t56="

Комментарий - 5

\r\n

ПРИБЫЛЬ ( "+perc_pr5+" % ) УБЫТОК ( "+perc_ub5+" % )

\r\n"; if(perc_pr5=="0")perc_pr5="1"; string t57="\r\n\r\n\r\n"; string t58="\r\n\r\n

\r\n

\r\n\r\n"; string t59="\r\n"; string t60="\r\n"; string t61="\r\n

Чистая прибыль :	"+chist5+" $	"+VP5+"
Общая прибыль :	"+ob_prib5+" $	+"+PP5+" п.
Общий убыток :	"+ob_ubyt5+" $	"+UP5+" п.

\r\n"; string t62="\r\n"+sr5+"\r\n"; string t63="\r\n"; string t64="\r\n

Всего сделок :	"+vsego_sd5+"
Прибыльных :	"+prib_sd5+" ( "+prprsd5+" % )
Убыточных :	"+ubyt_sd5+" ( "+prubsd5+" % )

\r\n

\r\n"; string t65="Прибыльность : "+pf5+"

\r\n"; } if(vsego6>0) { string t66="

Комментарий - 6

\r\n

ПРИБЫЛЬ ( "+perc_pr6+" % ) УБЫТОК ( "+perc_ub6+" % )

\r\n"; if(perc_pr6=="0")perc_pr6="1"; string t67="\r\n\r\n\r\n"; string t68="\r\n\r\n

\r\n

\r\n\r\n"; string t69="\r\n"; string t70="\r\n"; string t71="\r\n

Чистая прибыль :	"+chist6+" $	"+VP6+"
Общая прибыль :	"+ob_prib6+" $	+"+PP6+" п.
Общий убыток :	"+ob_ubyt6+" $	"+UP6+" п.

\r\n"; string t72="\r\n"+sr6+"\r\n"; string t73="\r\n"; string t74="\r\n

Всего сделок :	"+vsego_sd6+"
Прибыльных :	"+prib_sd6+" ( "+prprsd6+" % )
Убыточных :	"+ubyt_sd6+" ( "+prubsd6+" % )

\r\n

\r\n"; string t75="Прибыльность : "+pf6+"

\r\n"; } if(vsego7>0) { string t76="

Комментарий - 7

\r\n

ПРИБЫЛЬ ( "+perc_pr7+" % ) УБЫТОК ( "+perc_ub7+" % )

\r\n"; if(perc_pr7=="0")perc_pr7="1"; string t77="\r\n\r\n\r\n"; string t78="\r\n\r\n

\r\n

\r\n\r\n"; string t79="\r\n"; string t80="\r\n"; string t81="\r\n

Чистая прибыль :	"+chist7+" $	"+VP7+"
Общая прибыль :	"+ob_prib7+" $	+"+PP7+" п.
Общий убыток :	"+ob_ubyt7+" $	"+UP7+" п.

\r\n"; string t82="\r\n"+sr7+"\r\n"; string t83="\r\n"; string t84="\r\n

Всего сделок :	"+vsego_sd7+"
Прибыльных :	"+prib_sd7+" ( "+prprsd7+" % )
Убыточных :	"+ubyt_sd7+" ( "+prubsd7+" % )

\r\n

\r\n"; string t85="Прибыльность : "+pf7+"

\r\n"; } if(vsego8>0) { string t86="

Комментарий - 8.

\r\n

ПРИБЫЛЬ ( "+perc_pr8+" % ) УБЫТОК ( "+perc_ub8+" % )

\r\n"; if(perc_pr8=="0")perc_pr8="1"; string t87="\r\n\r\n\r\n"; string t88="\r\n\r\n

\r\n

\r\n\r\n"; string t89="\r\n"; string t90="\r\n"; string t91="\r\n

Чистая прибыль :	"+chist8+" $	"+VP8+"
Общая прибыль :	"+ob_prib8+" $	+"+PP8+" п.
Общий убыток :	"+ob_ubyt8+" $	"+UP8+" п.

\r\n"; string t92="\r\n"+sr8+"\r\n"; string t93="\r\n"; string t94="\r\n

Всего сделок :	"+vsego_sd8+"
Прибыльных :	"+prib_sd8+" ( "+prprsd8+" % )
Убыточных :	"+ubyt_sd8+" ( "+prubsd8+" % )

\r\n

\r\n"; string t95="Прибыльность : "+pf8+"

\r\n"; } if(vsego9>0) { string t96="

Комментарий - 9

\r\n

ПРИБЫЛЬ ( "+perc_pr9+" % ) УБЫТОК ( "+perc_ub9+" % )

\r\n"; if(perc_pr9=="0")perc_pr9="1"; string t97="\r\n\r\n\r\n"; string t98="\r\n\r\n

\r\n

\r\n\r\n"; string t99="\r\n"; string t100="\r\n"; string t101="\r\n

Чистая прибыль :	"+chist9+" $	"+VP9+"
Общая прибыль :	"+ob_prib9+" $	+"+PP9+" п.
Общий убыток :	"+ob_ubyt9+" $	"+UP9+" п.

\r\n"; string t102="\r\n"+sr9+"\r\n"; string t103="\r\n"; string t104="\r\n

Всего сделок :	"+vsego_sd9+"
Прибыльных :	"+prib_sd9+" ( "+prprsd9+" % )
Убыточных :	"+ubyt_sd9+" ( "+prubsd9+" % )

\r\n

\r\n"; string t105="Прибыльность : "+pf9+"

\r\n"; } string t106="\r\n"; if(vsego1>0)string com1=t16+t17+t18+t19+t20+t21+t22+t23+t24+t25; if(vsego2>0)string com2=t26+t27+t28+t29+t30+t31+t32+t33+t34+t35; if(vsego3>0)string com3=t36+t37+t38+t39+t40+t41+t42+t43+t44+t45; if(vsego4>0)string com4=t46+t47+t48+t49+t50+t51+t52+t53+t54+t55; if(vsego5>0)string com5=t56+t57+t58+t59+t60+t61+t62+t63+t64+t65; if(vsego6>0)string com6=t66+t67+t68+t69+t70+t71+t72+t73+t74+t75; if(vsego7>0)string com7=t76+t77+t78+t79+t80+t81+t82+t83+t84+t85; if(vsego8>0)string com8=t86+t87+t88+t89+t90+t91+t92+t93+t94+t95; if(vsego9>0)string com9=t96+t97+t98+t99+t100+t101+t102+t103+t104+t105; FileWrite(handle,t0+t1+t2+t3+t4+t5+t6+t7+t8+t9+t10+t11+t12+t13+t14+t15+com1+com2+com3+com4+com5+com6+com7+com8+com9+t106); FileClose(handle); return;} //+****************************************************************************************************************+