//+------------------------------------------------------------------+ //| KG Power Meter.mq4 | //| Kang Gun - Modify by WanImran | //| http://www.senang2u.com/kgers | //+------------------------------------------------------------------+ #property copyright "Kang Gun - Modify by WanImran " #property link "http://www.senang2u.com/kgers" #property indicator_chart_window #property indicator_buffers 0 extern int Corner=1; extern int x_distance=0; extern int y_distance=0; //+------------------------------------------------------------------+ //| Custom indicator initialization function | //+------------------------------------------------------------------+ int init() { string bsdz = "B%"; ObjectDelete(bsdz); ObjectCreate( bsdz, OBJ_LABEL, 0, 0, 0 ); ObjectSetText(bsdz,"%",8, "Arial Bold", Silver); ObjectSet( bsdz, OBJPROP_CORNER, Corner ); ObjectSet( bsdz, OBJPROP_XDISTANCE, 58+x_distance ); ObjectSet( bsdz, OBJPROP_YDISTANCE, 30+y_distance ); string bsdaz1z = "BB"; ObjectDelete(bsdaz1z); ObjectCreate( bsdaz1z, OBJ_LABEL, 0, 0, 0 ); ObjectSetText(bsdaz1z,"W",8, "Arial Bold", Silver); ObjectSet( bsdaz1z, OBJPROP_CORNER, Corner ); ObjectSet( bsdaz1z, OBJPROP_XDISTANCE, 95+x_distance ); ObjectSet( bsdaz1z, OBJPROP_YDISTANCE, 30+y_distance ); string bsdy = "BSD_Y1"; ObjectDelete(bsdy); ObjectCreate( bsdy, OBJ_LABEL, 0, 0, 0 ); ObjectSetText(bsdy,"01 YR",8, "Arial Bold", SlateBlue); ObjectSet( bsdy, OBJPROP_CORNER, Corner ); ObjectSet( bsdy, OBJPROP_XDISTANCE, 3+x_distance ); ObjectSet( bsdy, OBJPROP_YDISTANCE, 50+y_distance ); string bsdy4 = "BSD_MN4"; ObjectDelete(bsdy4); ObjectCreate( bsdy4, OBJ_LABEL, 0, 0, 0 ); ObjectSetText(bsdy4,"04 MH",8, "Arial Bold", SandyBrown); ObjectSet( bsdy4, OBJPROP_CORNER, Corner ); ObjectSet( bsdy4, OBJPROP_XDISTANCE, 3+x_distance ); ObjectSet( bsdy4, OBJPROP_YDISTANCE, 65+y_distance ); string bsd0 = "BSD_MN1"; ObjectDelete(bsd0); ObjectCreate( bsd0, OBJ_LABEL, 0, 0, 0 ); ObjectSetText(bsd0,"01 MH",8, "Arial Bold", Aqua); ObjectSet( bsd0, OBJPROP_CORNER, Corner ); ObjectSet( bsd0, OBJPROP_XDISTANCE, 3+x_distance ); ObjectSet( bsd0, OBJPROP_YDISTANCE, 80+y_distance ); string bsd1 = "BSD_W1"; ObjectDelete(bsd1); ObjectCreate( bsd1, OBJ_LABEL, 0, 0, 0 ); ObjectSetText(bsd1,"05 DY",8, "Arial Bold", Magenta); ObjectSet( bsd1, OBJPROP_CORNER, Corner ); ObjectSet( bsd1, OBJPROP_XDISTANCE, 3+x_distance ); ObjectSet( bsd1, OBJPROP_YDISTANCE, 110+y_distance ); string bsd1a = "BSD_W1a"; ObjectDelete(bsd1a); ObjectCreate( bsd1a, OBJ_LABEL, 0, 0, 0 ); ObjectSetText(bsd1a,"04 DY",8, "Arial Bold", SteelBlue); ObjectSet( bsd1a, OBJPROP_CORNER, Corner ); ObjectSet( bsd1a, OBJPROP_XDISTANCE, 3+x_distance ); ObjectSet( bsd1a, OBJPROP_YDISTANCE, 125+y_distance ); string bsd1b = "BSD_W1b"; ObjectDelete(bsd1b); ObjectCreate( bsd1b, OBJ_LABEL, 0, 0, 0 ); ObjectSetText(bsd1b,"03 DY",8, "Arial Bold", Orange); ObjectSet( bsd1b, OBJPROP_CORNER, Corner ); ObjectSet( bsd1b, OBJPROP_XDISTANCE, 3+x_distance ); ObjectSet( bsd1b, OBJPROP_YDISTANCE, 140+y_distance ); string bsd1c = "BSD_W1c"; ObjectDelete(bsd1c); ObjectCreate( bsd1c, OBJ_LABEL, 0, 0, 0 ); ObjectSetText(bsd1c,"02 DY",8, "Arial Bold", SeaGreen); ObjectSet( bsd1c, OBJPROP_CORNER, Corner ); ObjectSet( bsd1c, OBJPROP_XDISTANCE, 3+x_distance ); ObjectSet( bsd1c, OBJPROP_YDISTANCE, 155+y_distance ); string bsd2 = "BSD_D1"; ObjectDelete(bsd2); ObjectCreate( bsd2, OBJ_LABEL, 0, 0, 0 ); ObjectSetText(bsd2,"24 HR",8, "Arial Bold", Lime); ObjectSet( bsd2, OBJPROP_CORNER, Corner ); ObjectSet( bsd2, OBJPROP_XDISTANCE, 3+x_distance ); ObjectSet( bsd2, OBJPROP_YDISTANCE, 185+y_distance ); string bsd2a = "BSD_D1a"; ObjectDelete(bsd2a); ObjectCreate( bsd2a, OBJ_LABEL, 0, 0, 0 ); ObjectSetText(bsd2a,"18 HR",8, "Arial Bold", DeepPink); ObjectSet( bsd2a, OBJPROP_CORNER, Corner ); ObjectSet( bsd2a, OBJPROP_XDISTANCE, 3+x_distance ); ObjectSet( bsd2a, OBJPROP_YDISTANCE, 200+y_distance ); string bsd3 = "BSD_8H"; ObjectDelete(bsd3); ObjectCreate( bsd3, OBJ_LABEL, 0, 0, 0 ); ObjectSetText(bsd3,"12 HR",8, "Arial Bold", Yellow); ObjectSet( bsd3, OBJPROP_CORNER, Corner ); ObjectSet( bsd3, OBJPROP_XDISTANCE, 3+x_distance ); ObjectSet( bsd3, OBJPROP_YDISTANCE, 215+y_distance ); string bsd4 = "BSD_4H"; ObjectDelete(bsd4); ObjectCreate( bsd4, OBJ_LABEL, 0, 0, 0 ); ObjectSetText(bsd4,"06 HR",8, "Arial Bold", Blue); ObjectSet( bsd4, OBJPROP_CORNER, Corner ); ObjectSet( bsd4, OBJPROP_XDISTANCE, 3+x_distance ); ObjectSet( bsd4, OBJPROP_YDISTANCE, 230+y_distance ); string bsd5a = "BSD_1Ha"; ObjectDelete(bsd5a); ObjectCreate( bsd5a, OBJ_LABEL, 0, 0, 0 ); ObjectSetText(bsd5a,"05 HR",8, "Arial Bold", Teal); ObjectSet( bsd5a, OBJPROP_CORNER, Corner ); ObjectSet( bsd5a, OBJPROP_XDISTANCE, 3+x_distance ); ObjectSet( bsd5a, OBJPROP_YDISTANCE, 260+y_distance ); string bsd5b = "BSD_1Hb"; ObjectDelete(bsd5b); ObjectCreate( bsd5b, OBJ_LABEL, 0, 0, 0 ); ObjectSetText(bsd5b,"04 HR",8, "Arial Bold", CornflowerBlue); ObjectSet( bsd5b, OBJPROP_CORNER, Corner ); ObjectSet( bsd5b, OBJPROP_XDISTANCE, 3+x_distance ); ObjectSet( bsd5b, OBJPROP_YDISTANCE, 275+y_distance ); string bsd5 = "BSD_1H"; ObjectDelete(bsd5); ObjectCreate( bsd5, OBJ_LABEL, 0, 0, 0 ); ObjectSetText(bsd5,"03 HR",8, "Arial Bold", Red); ObjectSet( bsd5, OBJPROP_CORNER, Corner ); ObjectSet( bsd5, OBJPROP_XDISTANCE, 3+x_distance ); ObjectSet( bsd5, OBJPROP_YDISTANCE, 290+y_distance ); string bsd5c = "BSD_1Hc"; ObjectDelete(bsd5c); ObjectCreate( bsd5c, OBJ_LABEL, 0, 0, 0 ); ObjectSetText(bsd5c,"02 HR",8, "Arial Bold", Khaki); ObjectSet( bsd5c, OBJPROP_CORNER, Corner ); ObjectSet( bsd5c, OBJPROP_XDISTANCE, 3+x_distance ); ObjectSet( bsd5c, OBJPROP_YDISTANCE, 305+y_distance ); string bsd6 = "BSD_30M"; ObjectDelete(bsd6); ObjectCreate( bsd6, OBJ_LABEL, 0, 0, 0 ); ObjectSetText(bsd6,"60 MN",8, "Arial Bold", DarkGreen); ObjectSet( bsd6, OBJPROP_CORNER, Corner ); ObjectSet( bsd6, OBJPROP_XDISTANCE, 3+x_distance ); ObjectSet( bsd6, OBJPROP_YDISTANCE, 335+y_distance ); string bsd7 = "BSD_15M"; ObjectDelete(bsd7); ObjectCreate( bsd7, OBJ_LABEL, 0, 0, 0 ); ObjectSetText(bsd7,"45 MN",8, "Arial Bold", Gold); ObjectSet( bsd7, OBJPROP_CORNER, Corner ); ObjectSet( bsd7, OBJPROP_XDISTANCE, 3+x_distance ); ObjectSet( bsd7, OBJPROP_YDISTANCE, 350+y_distance ); string bsd7a = "BSD_15Ma"; ObjectDelete(bsd7a); ObjectCreate( bsd7a, OBJ_LABEL, 0, 0, 0 ); ObjectSetText(bsd7a,"30 MN",8, "Arial Bold", MediumSpringGreen); ObjectSet( bsd7a, OBJPROP_CORNER, Corner ); ObjectSet( bsd7a, OBJPROP_XDISTANCE, 3+x_distance ); ObjectSet( bsd7a, OBJPROP_YDISTANCE, 365+y_distance ); string bsd7b = "BSD_15Mb"; ObjectDelete(bsd7b); ObjectCreate( bsd7b, OBJ_LABEL, 0, 0, 0 ); ObjectSetText(bsd7b,"15 MN",8, "Arial Bold", Crimson); ObjectSet( bsd7b, OBJPROP_CORNER, Corner ); ObjectSet( bsd7b, OBJPROP_XDISTANCE, 3+x_distance ); ObjectSet( bsd7b, OBJPROP_YDISTANCE, 380+y_distance ); string bsd7bc = "BSD_15Mbc"; ObjectDelete(bsd7bc); ObjectCreate( bsd7bc, OBJ_LABEL, 0, 0, 0 ); ObjectSetText(bsd7bc,"Created By: KG",8, "Arial Bold", Silver); ObjectSet( bsd7bc, OBJPROP_CORNER, Corner ); ObjectSet( bsd7bc, OBJPROP_XDISTANCE, 20+x_distance ); ObjectSet( bsd7bc, OBJPROP_YDISTANCE, 415+y_distance ); string bsd7bcd = "BSD_15Mbcd"; ObjectDelete(bsd7bcd); ObjectCreate( bsd7bcd, OBJ_LABEL, 0, 0, 0 ); ObjectSetText(bsd7bcd,"---------------------------------",8, "Arial Bold", Silver); ObjectSet( bsd7bcd, OBJPROP_CORNER, Corner ); ObjectSet( bsd7bcd, OBJPROP_XDISTANCE, 5+x_distance ); ObjectSet( bsd7bcd, OBJPROP_YDISTANCE, 405+y_distance ); string bsd7bcde = "BSD_15Mbcde"; ObjectDelete(bsd7bcde); ObjectCreate( bsd7bcde, OBJ_LABEL, 0, 0, 0 ); ObjectSetText(bsd7bcde,"---------------------------------",8, "Arial Bold", Silver); ObjectSet( bsd7bcde, OBJPROP_CORNER, Corner ); ObjectSet( bsd7bcde, OBJPROP_XDISTANCE, 5+x_distance ); ObjectSet( bsd7bcde, OBJPROP_YDISTANCE, 425+y_distance ); return(0); } //+------------------------------------------------------------------+ //| Custom indicator deinitialization function | //+------------------------------------------------------------------+ int deinit() { //---- ObjectDelete("B%"); ObjectDelete("BB"); ObjectDelete("BSD_Y1"); ObjectDelete("BSD_MN4"); ObjectDelete("BSD_MN1"); ObjectDelete("BSD_W1"); ObjectDelete("BSD_W1a"); ObjectDelete("BSD_W1b"); ObjectDelete("BSD_W1c"); ObjectDelete("BSD_D1"); ObjectDelete("BSD_D1a"); ObjectDelete("BSD_8H"); ObjectDelete("BSD_4H"); ObjectDelete("BSD_1H"); ObjectDelete("BSD_1Ha"); ObjectDelete("BSD_1Hb"); ObjectDelete("BSD_1Hc"); ObjectDelete("BSD_30M"); ObjectDelete("BSD_15M"); ObjectDelete("BSD_15Ma"); ObjectDelete("BSD_15Mb"); //-------------- ObjectDelete("BSD_15Mbc"); ObjectDelete("BSD_15Mbcd"); ObjectDelete("BSD_15Mbcde"); //--------------- ObjectDelete("BY1"); ObjectDelete("SY1"); ObjectDelete("BMN4"); ObjectDelete("SMN4"); ObjectDelete("BMN1"); ObjectDelete("SMN1"); ObjectDelete("BW1"); ObjectDelete("BW1a"); ObjectDelete("BW1b"); ObjectDelete("BW1c"); ObjectDelete("SW1"); ObjectDelete("SW1a"); ObjectDelete("SW1b"); ObjectDelete("SW1c"); ObjectDelete("BD1"); ObjectDelete("BD1a"); ObjectDelete("SD1"); ObjectDelete("SD1a"); ObjectDelete("B8H"); ObjectDelete("S8H"); ObjectDelete("B4H"); ObjectDelete("S4H"); ObjectDelete("B1H"); ObjectDelete("B1Ha"); ObjectDelete("B1Hb"); ObjectDelete("B1Hc"); ObjectDelete("S1H"); ObjectDelete("S1Ha"); ObjectDelete("S1Hb"); ObjectDelete("S1Hc"); ObjectDelete("BM30"); ObjectDelete("SM30"); ObjectDelete("BM15"); ObjectDelete("BM15a"); ObjectDelete("BM15ab"); ObjectDelete("SM15"); ObjectDelete("SM15a"); ObjectDelete("SM15ab"); ObjectDelete("Yearly BB"); ObjectDelete("4Month BB"); ObjectDelete("Monthly BB"); ObjectDelete("Weekly BB"); ObjectDelete("Weekly BBa"); ObjectDelete("Weekly BBb"); ObjectDelete("Weekly BBc"); ObjectDelete("Daily BB"); ObjectDelete("Daily BBa"); ObjectDelete("12H BB"); ObjectDelete("6H BB"); ObjectDelete("3H BB"); ObjectDelete("3H BBa"); ObjectDelete("3H BBb"); ObjectDelete("3H BBc"); ObjectDelete("90 mnt BB"); ObjectDelete("45 mnt BB"); ObjectDelete("45 mnt BBa"); ObjectDelete("45 mnt BBab"); return(0); } //+------------------------------------------------------------------+ //| Custom indicator iteration function | //+------------------------------------------------------------------+ int start() { int counted_bars=IndicatorCounted(); //---- int limit=Bars-counted_bars; if(counted_bars>0) limit++; string Sign; color Col, Arr; // 1 Years ago double highest_y1 = iHigh(NULL, PERIOD_D1, iHighest(NULL, PERIOD_D1, MODE_HIGH, 240, 0)); double lowest_y1 = iLow(NULL, PERIOD_D1, iLowest(NULL, PERIOD_D1, MODE_LOW, 240, 0)); double y1_buyers=100*(iClose(NULL,PERIOD_D1,0)-lowest_y1 )/(highest_y1-lowest_y1); if (y1_buyers>=75) { Col=Lime; } if (y1_buyers>50 && y1_buyers<75) { Col=Lime; } if (y1_buyers<50 ) { Col=Red; } if (y1_buyers==50) { Col=DarkOrange; } string b_disp_y1 = "BY1"; ObjectDelete(b_disp_y1); ObjectCreate(b_disp_y1, OBJ_LABEL, 0, 0, 0 ); ObjectSetText(b_disp_y1, DoubleToStr(y1_buyers,2) ,8, "Arial", Col); ObjectSet(b_disp_y1, OBJPROP_CORNER, Corner ); ObjectSet(b_disp_y1, OBJPROP_XDISTANCE, 50+x_distance ); ObjectSet(b_disp_y1, OBJPROP_YDISTANCE, 50+y_distance ); highest_y1 = iHigh(NULL, PERIOD_D1, iHighest(NULL, PERIOD_D1, MODE_HIGH, 240, 0)); lowest_y1 = iLow(NULL, PERIOD_D1, iLowest(NULL, PERIOD_D1, MODE_LOW, 240, 0)); double y1_sellers=100*(highest_y1-iClose(NULL,PERIOD_D1,0) )/(highest_y1-lowest_y1); if (y1_sellers>=75) { Col=Lime; } if (y1_sellers>50 && y1_sellers<75) { Col=Lime; } if (y1_sellers<50) { Col=Red; } if (y1_sellers==50) { Col=DarkOrange; } if (y1_buyers==y1_sellers) { Sign="ó"; Arr=DarkOrange; } else if (y1_buyers>y1_sellers) { Sign="ñ"; Arr=Lime; } else { Sign="ò"; Arr=Red; } string sign1 = "Yearly BB"; ObjectDelete(sign1); ObjectCreate(sign1, OBJ_LABEL, 0, 0, 0 ); ObjectSetText(sign1, Sign ,10, "Wingdings", Arr); ObjectSet(sign1, OBJPROP_CORNER, Corner ); ObjectSet(sign1, OBJPROP_XDISTANCE, 95+x_distance ); ObjectSet(sign1, OBJPROP_YDISTANCE, 50+y_distance ); // 4 Months ago double highest_mn4 = iHigh(NULL, PERIOD_D1, iHighest(NULL, PERIOD_D1, MODE_HIGH, 80, 0)); double lowest_mn4 = iLow(NULL, PERIOD_D1, iLowest(NULL, PERIOD_D1, MODE_LOW, 80, 0)); double mn4_buyers=100*(iClose(NULL,PERIOD_D1,0)-lowest_mn4 )/(highest_mn4-lowest_mn4); if (mn4_buyers>=75) { Col=Lime; } if (mn4_buyers>50 && mn4_buyers<75) { Col=Lime; } if (mn4_buyers<50 ) { Col=Red; } if (mn4_buyers==50) { Col=DarkOrange; } string b_disp_mn4 = "BMN4"; ObjectDelete(b_disp_mn4); ObjectCreate(b_disp_mn4, OBJ_LABEL, 0, 0, 0 ); ObjectSetText(b_disp_mn4, DoubleToStr(mn4_buyers,2) ,8, "Arial", Col); ObjectSet(b_disp_mn4, OBJPROP_CORNER, Corner ); ObjectSet(b_disp_mn4, OBJPROP_XDISTANCE, 50+x_distance ); ObjectSet(b_disp_mn4, OBJPROP_YDISTANCE, 65+y_distance ); highest_mn4 = iHigh(NULL, PERIOD_D1, iHighest(NULL, PERIOD_D1, MODE_HIGH, 80, 0)); lowest_mn4 = iLow(NULL, PERIOD_D1, iLowest(NULL, PERIOD_D1, MODE_LOW, 80, 0)); double mn4_sellers=100*(highest_mn4-iClose(NULL,PERIOD_D1,0) )/(highest_mn4-lowest_mn4); if (mn4_sellers>=75) { Col=Lime; } if (mn4_sellers>50 && mn4_sellers<75) { Col=Lime; } if (mn4_sellers<50) { Col=Red; } if (mn4_sellers==50) { Col=DarkOrange; } if (mn4_buyers==mn4_sellers) { Sign="ó"; Arr=DarkOrange; } else if (mn4_buyers>mn4_sellers) { Sign="ñ"; Arr=Lime; } else { Sign="ò"; Arr=Red; } string sign2 = "4Month BB"; ObjectDelete(sign2); ObjectCreate(sign2, OBJ_LABEL, 0, 0, 0 ); ObjectSetText(sign2, Sign ,10, "Wingdings", Arr); ObjectSet(sign2, OBJPROP_CORNER, Corner ); ObjectSet(sign2, OBJPROP_XDISTANCE, 95+x_distance ); ObjectSet(sign2, OBJPROP_YDISTANCE, 65+y_distance ); // 20 days ago double highest_mn1 = iHigh(NULL, PERIOD_D1, iHighest(NULL, PERIOD_D1, MODE_HIGH, 20, 0)); double lowest_mn1 = iLow(NULL, PERIOD_D1, iLowest(NULL, PERIOD_D1, MODE_LOW, 20, 0)); double mn1_buyers=100*(iClose(NULL,PERIOD_D1,0)-lowest_mn1 )/(highest_mn1-lowest_mn1); if (mn1_buyers>=75) { Col=Lime; } if (mn1_buyers>50 && mn1_buyers<75) { Col=Lime; } if (mn1_buyers<50 ) { Col=Red; } if (mn1_buyers==50) { Col=DarkOrange; } string b_disp_mn1 = "BMN1"; ObjectDelete(b_disp_mn1); ObjectCreate(b_disp_mn1, OBJ_LABEL, 0, 0, 0 ); ObjectSetText(b_disp_mn1, DoubleToStr(mn1_buyers,2) ,8, "Arial", Col); ObjectSet(b_disp_mn1, OBJPROP_CORNER, Corner ); ObjectSet(b_disp_mn1, OBJPROP_XDISTANCE, 50+x_distance ); ObjectSet(b_disp_mn1, OBJPROP_YDISTANCE, 80+y_distance ); highest_mn1 = iHigh(NULL, PERIOD_D1, iHighest(NULL, PERIOD_D1, MODE_HIGH, 20, 0)); lowest_mn1 = iLow(NULL, PERIOD_D1, iLowest(NULL, PERIOD_D1, MODE_LOW, 20, 0)); double mn1_sellers=100*(highest_mn1-iClose(NULL,PERIOD_D1,0) )/(highest_mn1-lowest_mn1); if (mn1_sellers>=75) { Col=Lime; } if (mn1_sellers>50 && mn1_sellers<75) { Col=Lime; } if (mn1_sellers<50) { Col=Red; } if (mn1_sellers==50) { Col=DarkOrange; } if (mn1_buyers==mn1_sellers) { Sign="ó"; Arr=DarkOrange; } else if (mn1_buyers>mn1_sellers) { Sign="ñ"; Arr=Lime; } else { Sign="ò"; Arr=Red; } string sign3 = "Monthly BB"; ObjectDelete(sign3); ObjectCreate(sign3, OBJ_LABEL, 0, 0, 0 ); ObjectSetText(sign3, Sign ,10, "Wingdings", Arr); ObjectSet(sign3, OBJPROP_CORNER, Corner ); ObjectSet(sign3, OBJPROP_XDISTANCE,95+x_distance ); ObjectSet(sign3, OBJPROP_YDISTANCE, 80+y_distance ); // 5 days ago double highest_w1 = iHigh(NULL, PERIOD_M15, iHighest(NULL, PERIOD_M15, MODE_HIGH, 480, 0)); double lowest_w1 = iLow(NULL, PERIOD_M15, iLowest(NULL, PERIOD_M15, MODE_LOW, 480, 0)); double w1_buyers=100*(iClose(NULL,PERIOD_M15,0)-lowest_w1 )/(highest_w1-lowest_w1); if (w1_buyers>=75) { Col=Lime; } if (w1_buyers>50 && w1_buyers<75) { Col=Lime; } if (w1_buyers<50 ) { Col=Red; } if (w1_buyers==50) { Col=DarkOrange; } string b_disp_w1 = "BW1"; ObjectDelete(b_disp_w1); ObjectCreate(b_disp_w1, OBJ_LABEL, 0, 0, 0 ); ObjectSetText(b_disp_w1, DoubleToStr(w1_buyers,2) ,8, "Arial", Col); ObjectSet(b_disp_w1, OBJPROP_CORNER, Corner ); ObjectSet(b_disp_w1, OBJPROP_XDISTANCE, 50+x_distance ); ObjectSet(b_disp_w1, OBJPROP_YDISTANCE, 110+y_distance ); highest_w1 = iHigh(NULL, PERIOD_M15, iHighest(NULL, PERIOD_M15, MODE_HIGH, 480, 0)); lowest_w1 = iLow(NULL, PERIOD_M15, iLowest(NULL, PERIOD_M15, MODE_LOW, 480, 0)); double w1_sellers=100*(highest_w1-iClose(NULL,PERIOD_M15,0) )/(highest_w1-lowest_w1); if (w1_sellers>=75) { Col=Lime; } if (w1_sellers>50 && w1_sellers<75) { Col=Lime; } if (w1_sellers<50) { Col=Red; } if (w1_sellers==50) { Col=DarkOrange; } if (w1_buyers==w1_sellers) { Sign="ó"; Arr=DarkOrange; } else if (w1_buyers>w1_sellers) { Sign="ñ"; Arr=Lime; } else { Sign="ò"; Arr=Red; } string sign4 = "Weekly BB"; ObjectDelete(sign4); ObjectCreate(sign4, OBJ_LABEL, 0, 0, 0 ); ObjectSetText(sign4, Sign ,10, "Wingdings", Arr); ObjectSet(sign4, OBJPROP_CORNER, Corner ); ObjectSet(sign4, OBJPROP_XDISTANCE, 95+x_distance ); ObjectSet(sign4, OBJPROP_YDISTANCE, 110+y_distance ); // 4 days ago double highest_w1a = iHigh(NULL, PERIOD_M15, iHighest(NULL, PERIOD_M15, MODE_HIGH, 384, 0)); double lowest_w1a = iLow(NULL, PERIOD_M15, iLowest(NULL, PERIOD_M15, MODE_LOW, 384, 0)); double w1a_buyers=100*(iClose(NULL,PERIOD_M15,0)-lowest_w1a )/(highest_w1a-lowest_w1a); if (w1a_buyers>=75) { Col=Lime; } if (w1a_buyers>50 && w1a_buyers<75) { Col=Lime; } if (w1a_buyers<50 ) { Col=Red; } if (w1a_buyers==50) { Col=DarkOrange; } string b_disp_w1a = "BW1a"; ObjectDelete(b_disp_w1a); ObjectCreate(b_disp_w1a, OBJ_LABEL, 0, 0, 0 ); ObjectSetText(b_disp_w1a, DoubleToStr(w1a_buyers,2) ,8, "Arial", Col); ObjectSet(b_disp_w1a, OBJPROP_CORNER, Corner ); ObjectSet(b_disp_w1a, OBJPROP_XDISTANCE, 50+x_distance ); ObjectSet(b_disp_w1a, OBJPROP_YDISTANCE, 125+y_distance ); highest_w1a = iHigh(NULL, PERIOD_M15, iHighest(NULL, PERIOD_M15, MODE_HIGH, 384, 0)); lowest_w1a = iLow(NULL, PERIOD_M15, iLowest(NULL, PERIOD_M15, MODE_LOW, 384, 0)); double w1a_sellers=100*(highest_w1a-iClose(NULL,PERIOD_M15,0) )/(highest_w1a-lowest_w1a); if (w1a_sellers>=75) { Col=Lime; } if (w1a_sellers>50 && w1a_sellers<75) { Col=Lime; } if (w1a_sellers<50) { Col=Red; } if (w1a_sellers==50) { Col=DarkOrange; } if (w1a_buyers==w1a_sellers) { Sign="ó"; Arr=DarkOrange; } else if (w1a_buyers>w1a_sellers) { Sign="ñ"; Arr=Lime; } else { Sign="ò"; Arr=Red; } string sign4a = "Weekly BBa"; ObjectDelete(sign4a); ObjectCreate(sign4a, OBJ_LABEL, 0, 0, 0 ); ObjectSetText(sign4a, Sign ,10, "Wingdings", Arr); ObjectSet(sign4a, OBJPROP_CORNER, Corner ); ObjectSet(sign4a, OBJPROP_XDISTANCE, 95+x_distance ); ObjectSet(sign4a, OBJPROP_YDISTANCE, 125+y_distance ); // 3 days ago double highest_w1b = iHigh(NULL, PERIOD_M15, iHighest(NULL, PERIOD_M15, MODE_HIGH, 288, 0)); double lowest_w1b = iLow(NULL, PERIOD_M15, iLowest(NULL, PERIOD_M15, MODE_LOW, 288, 0)); double w1b_buyers=100*(iClose(NULL,PERIOD_M15,0)-lowest_w1b )/(highest_w1b-lowest_w1b); if (w1b_buyers>=75) { Col=Lime; } if (w1b_buyers>50 && w1b_buyers<75) { Col=Lime; } if (w1b_buyers<50 ) { Col=Red; } if (w1b_buyers==50) { Col=DarkOrange; } string b_disp_w1b = "BW1b"; ObjectDelete(b_disp_w1b); ObjectCreate(b_disp_w1b, OBJ_LABEL, 0, 0, 0 ); ObjectSetText(b_disp_w1b, DoubleToStr(w1b_buyers,2) ,8, "Arial", Col); ObjectSet(b_disp_w1b, OBJPROP_CORNER, Corner ); ObjectSet(b_disp_w1b, OBJPROP_XDISTANCE, 50+x_distance ); ObjectSet(b_disp_w1b, OBJPROP_YDISTANCE, 140+y_distance ); highest_w1b = iHigh(NULL, PERIOD_M15, iHighest(NULL, PERIOD_M15, MODE_HIGH, 288, 0)); lowest_w1b = iLow(NULL, PERIOD_M15, iLowest(NULL, PERIOD_M15, MODE_LOW, 288, 0)); double w1b_sellers=100*(highest_w1b-iClose(NULL,PERIOD_M15,0) )/(highest_w1b-lowest_w1b); if (w1b_sellers>=75) { Col=Lime; } if (w1b_sellers>50 && w1b_sellers<75) { Col=Lime; } if (w1b_sellers<50) { Col=Red; } if (w1b_sellers==50) { Col=DarkOrange; } if (w1b_buyers==w1b_sellers) { Sign="ó"; Arr=DarkOrange; } else if (w1b_buyers>w1b_sellers) { Sign="ñ"; Arr=Lime; } else { Sign="ò"; Arr=Red; } string sign4b = "Weekly BBb"; ObjectDelete(sign4b); ObjectCreate(sign4b, OBJ_LABEL, 0, 0, 0 ); ObjectSetText(sign4b, Sign ,10, "Wingdings", Arr); ObjectSet(sign4b, OBJPROP_CORNER, Corner ); ObjectSet(sign4b, OBJPROP_XDISTANCE, 95+x_distance ); ObjectSet(sign4b, OBJPROP_YDISTANCE, 140+y_distance ); // 2 days ago double highest_w1c = iHigh(NULL, PERIOD_M15, iHighest(NULL, PERIOD_M15, MODE_HIGH, 192, 0)); double lowest_w1c = iLow(NULL, PERIOD_M15, iLowest(NULL, PERIOD_M15, MODE_LOW, 192, 0)); double w1c_buyers=100*(iClose(NULL,PERIOD_M15,0)-lowest_w1c )/(highest_w1c-lowest_w1c); if (w1c_buyers>=75) { Col=Lime; } if (w1c_buyers>50 && w1c_buyers<75) { Col=Lime; } if (w1c_buyers<50 ) { Col=Red; } if (w1c_buyers==50) { Col=DarkOrange; } string b_disp_w1c = "BW1c"; ObjectDelete(b_disp_w1c); ObjectCreate(b_disp_w1c, OBJ_LABEL, 0, 0, 0 ); ObjectSetText(b_disp_w1c, DoubleToStr(w1c_buyers,2) ,8, "Arial", Col); ObjectSet(b_disp_w1c, OBJPROP_CORNER, Corner ); ObjectSet(b_disp_w1c, OBJPROP_XDISTANCE, 50+x_distance ); ObjectSet(b_disp_w1c, OBJPROP_YDISTANCE, 155+y_distance ); highest_w1c = iHigh(NULL, PERIOD_M15, iHighest(NULL, PERIOD_M15, MODE_HIGH, 192, 0)); lowest_w1c = iLow(NULL, PERIOD_M15, iLowest(NULL, PERIOD_M15, MODE_LOW, 192, 0)); double w1c_sellers=100*(highest_w1c-iClose(NULL,PERIOD_M15,0) )/(highest_w1c-lowest_w1c); if (w1c_sellers>=75) { Col=Lime; } if (w1c_sellers>50 && w1c_sellers<75) { Col=Lime; } if (w1c_sellers<50) { Col=Red; } if (w1c_sellers==50) { Col=DarkOrange; } if (w1c_buyers==w1c_sellers) { Sign="ó"; Arr=DarkOrange; } else if (w1c_buyers>w1c_sellers) { Sign="ñ"; Arr=Lime; } else { Sign="ò"; Arr=Red; } string sign4c = "Weekly BBc"; ObjectDelete(sign4c); ObjectCreate(sign4c, OBJ_LABEL, 0, 0, 0 ); ObjectSetText(sign4c, Sign ,10, "Wingdings", Arr); ObjectSet(sign4c, OBJPROP_CORNER, Corner ); ObjectSet(sign4c, OBJPROP_XDISTANCE, 95+x_distance ); ObjectSet(sign4c, OBJPROP_YDISTANCE, 155+y_distance ); // 24 hrs ago double highest_d1 = iHigh(NULL, PERIOD_M15, iHighest(NULL, PERIOD_M15, MODE_HIGH, 96, 0)); double lowest_d1 = iLow(NULL, PERIOD_M15, iLowest(NULL, PERIOD_M15, MODE_LOW, 96, 0)); double d1_buyers=100*(iClose(NULL,PERIOD_M15,0)-lowest_d1 )/(highest_d1-lowest_d1); if (d1_buyers>=75) { Col=Lime; } if (d1_buyers>50 && d1_buyers<75) { Col=Lime; } if (d1_buyers<50 ) { Col=Red; } if (d1_buyers==50) { Col=DarkOrange; } string b_disp_d1 = "BD1"; ObjectDelete(b_disp_d1); ObjectCreate(b_disp_d1, OBJ_LABEL, 0, 0, 0 ); ObjectSetText(b_disp_d1, DoubleToStr(d1_buyers,2) ,8, "Arial", Col); ObjectSet(b_disp_d1, OBJPROP_CORNER, Corner ); ObjectSet(b_disp_d1, OBJPROP_XDISTANCE, 50+x_distance ); ObjectSet(b_disp_d1, OBJPROP_YDISTANCE, 185+y_distance ); highest_d1 = iHigh(NULL, PERIOD_M15, iHighest(NULL, PERIOD_M15, MODE_HIGH, 96, 0)); lowest_d1 = iLow(NULL, PERIOD_M15, iLowest(NULL, PERIOD_M15, MODE_LOW, 96, 0)); double d1_sellers=100*(highest_d1-iClose(NULL,PERIOD_M15,0) )/(highest_d1-lowest_d1); if (d1_sellers>=75) { Col=Lime; } if (d1_sellers>50 && d1_sellers<75) { Col=Lime; } if (d1_sellers<50) { Col=Red; } if (d1_sellers==50) { Col=DarkOrange; } if (d1_buyers==d1_sellers) { Sign="ó"; Arr=DarkOrange; } else if (d1_buyers>d1_sellers) { Sign="ñ"; Arr=Lime; } else { Sign="ò"; Arr=Red; } string sign5 = "Daily BB"; ObjectDelete(sign5); ObjectCreate(sign5, OBJ_LABEL, 0, 0, 0 ); ObjectSetText(sign5, Sign ,10, "Wingdings", Arr); ObjectSet(sign5, OBJPROP_CORNER, Corner ); ObjectSet(sign5, OBJPROP_XDISTANCE, 95+x_distance ); ObjectSet(sign5, OBJPROP_YDISTANCE, 185+y_distance ); // 18 hrs ago double highest_d1a = iHigh(NULL, PERIOD_M15, iHighest(NULL, PERIOD_M15, MODE_HIGH, 72, 0)); double lowest_d1a = iLow(NULL, PERIOD_M15, iLowest(NULL, PERIOD_M15, MODE_LOW, 72, 0)); double d1a_buyers=100*(iClose(NULL,PERIOD_M15,0)-lowest_d1a )/(highest_d1a-lowest_d1a); if (d1a_buyers>=75) { Col=Lime; } if (d1a_buyers>50 && d1a_buyers<75) { Col=Lime; } if (d1a_buyers<50 ) { Col=Red; } if (d1a_buyers==50) { Col=DarkOrange; } string b_disp_d1a = "BD1a"; ObjectDelete(b_disp_d1a); ObjectCreate(b_disp_d1a, OBJ_LABEL, 0, 0, 0 ); ObjectSetText(b_disp_d1a, DoubleToStr(d1a_buyers,2) ,8, "Arial", Col); ObjectSet(b_disp_d1a, OBJPROP_CORNER, Corner ); ObjectSet(b_disp_d1a, OBJPROP_XDISTANCE, 50+x_distance ); ObjectSet(b_disp_d1a, OBJPROP_YDISTANCE, 200+y_distance ); highest_d1a = iHigh(NULL, PERIOD_M15, iHighest(NULL, PERIOD_M15, MODE_HIGH, 72, 0)); lowest_d1a = iLow(NULL, PERIOD_M15, iLowest(NULL, PERIOD_M15, MODE_LOW, 72, 0)); double d1a_sellers=100*(highest_d1a-iClose(NULL,PERIOD_M15,0) )/(highest_d1a-lowest_d1a); if (d1a_sellers>=75) { Col=Lime; } if (d1a_sellers>50 && d1a_sellers<75) { Col=Lime; } if (d1a_sellers<50) { Col=Red; } if (d1a_sellers==50) { Col=DarkOrange; } if (d1a_buyers==d1a_sellers) { Sign="ó"; Arr=DarkOrange; } else if (d1a_buyers>d1a_sellers) { Sign="ñ"; Arr=Lime; } else { Sign="ò"; Arr=Red; } string sign5a = "Daily BBa"; ObjectDelete(sign5a); ObjectCreate(sign5a, OBJ_LABEL, 0, 0, 0 ); ObjectSetText(sign5a, Sign ,10, "Wingdings", Arr); ObjectSet(sign5a, OBJPROP_CORNER, Corner ); ObjectSet(sign5a, OBJPROP_XDISTANCE, 95+x_distance ); ObjectSet(sign5a, OBJPROP_YDISTANCE, 200+y_distance ); // 12 hrs ago double highest_h8 = iHigh(NULL, PERIOD_M15, iHighest(NULL, PERIOD_M15, MODE_HIGH, 48, 0)); double lowest_h8 = iLow(NULL, PERIOD_M15, iLowest(NULL, PERIOD_M15, MODE_LOW, 48, 0)); double h8_buyers=100*(iClose(NULL,PERIOD_M15,0)-lowest_h8 )/(highest_h8-lowest_h8); if (h8_buyers>=75) { Col=Lime; } if (h8_buyers>50 && h8_buyers<75) { Col=Lime; } if (h8_buyers<50 ) { Col=Red; } if (h8_buyers==50) { Col=DarkOrange; } string b_disp_h8 = "B8H"; ObjectDelete(b_disp_h8); ObjectCreate(b_disp_h8, OBJ_LABEL, 0, 0, 0 ); ObjectSetText(b_disp_h8, DoubleToStr(h8_buyers,2) ,8, "Arial", Col); ObjectSet(b_disp_h8, OBJPROP_CORNER, Corner ); ObjectSet(b_disp_h8, OBJPROP_XDISTANCE, 50+x_distance ); ObjectSet(b_disp_h8, OBJPROP_YDISTANCE, 215+y_distance ); highest_h8 = iHigh(NULL, PERIOD_M15, iHighest(NULL, PERIOD_M15, MODE_HIGH, 48, 0)); lowest_h8 = iLow(NULL, PERIOD_M15, iLowest(NULL, PERIOD_M15, MODE_LOW, 48, 0)); double h8_sellers=100*(highest_h8-iClose(NULL,PERIOD_M15,0) )/(highest_h8-lowest_h8); if (h8_sellers>=75) { Col=Lime; } if (h8_sellers>50 && h8_sellers<75) { Col=Lime; } if (h8_sellers<50) { Col=Red; } if (h8_sellers==50) { Col=DarkOrange; } if (h8_buyers==h8_sellers) { Sign="ó"; Arr=DarkOrange; } else if (h8_buyers>h8_sellers) { Sign="ñ"; Arr=Lime; } else { Sign="ò"; Arr=Red; } string sign6 = "12H BB"; ObjectDelete(sign6); ObjectCreate(sign6, OBJ_LABEL, 0, 0, 0 ); ObjectSetText(sign6, Sign ,10, "Wingdings", Arr); ObjectSet(sign6, OBJPROP_CORNER, Corner ); ObjectSet(sign6, OBJPROP_XDISTANCE, 95+x_distance ); ObjectSet(sign6, OBJPROP_YDISTANCE, 215+y_distance ); // 6 hrs ago double highest_h4 = iHigh(NULL, PERIOD_M15, iHighest(NULL, PERIOD_M15, MODE_HIGH, 24, 0)); double lowest_h4 = iLow(NULL, PERIOD_M15, iLowest(NULL, PERIOD_M15, MODE_LOW, 24, 0)); double h4_buyers=100*(iClose(NULL,PERIOD_M15,0)-lowest_h4 )/(highest_h4-lowest_h4); if (h4_buyers>=75) { Col=Lime; } if (h4_buyers>50 && h4_buyers<75) { Col=Lime; } if (h4_buyers<50 ) { Col=Red; } if (h4_buyers==50) { Col=DarkOrange; } string b_disp_h4 = "B4H"; ObjectDelete(b_disp_h4); ObjectCreate(b_disp_h4, OBJ_LABEL, 0, 0, 0 ); ObjectSetText(b_disp_h4, DoubleToStr(h4_buyers,2) ,8, "Arial", Col); ObjectSet(b_disp_h4, OBJPROP_CORNER, Corner ); ObjectSet(b_disp_h4, OBJPROP_XDISTANCE, 50+x_distance ); ObjectSet(b_disp_h4, OBJPROP_YDISTANCE, 230+y_distance ); highest_h4 = iHigh(NULL, PERIOD_M15, iHighest(NULL, PERIOD_M15, MODE_HIGH, 24, 0)); lowest_h4 = iLow(NULL, PERIOD_M15, iLowest(NULL, PERIOD_M15, MODE_LOW, 24, 0)); double h4_sellers=100*(highest_h4-iClose(NULL,PERIOD_M15,0) )/(highest_h4-lowest_h4); if (h4_sellers>=75) { Col=Lime; } if (h4_sellers>50 && h4_sellers<75) { Col=Lime; } if (h4_sellers<50) { Col=Red; } if (h4_sellers==50) { Col=DarkOrange; } if (h4_buyers==h4_sellers) { Sign="ó"; Arr=DarkOrange; } else if (h4_buyers>h4_sellers) { Sign="ñ"; Arr=Lime; } else { Sign="ò"; Arr=Red; } string sign7 = "6H BB"; ObjectDelete(sign7); ObjectCreate(sign7, OBJ_LABEL, 0, 0, 0 ); ObjectSetText(sign7, Sign ,10, "Wingdings", Arr); ObjectSet(sign7, OBJPROP_CORNER, Corner ); ObjectSet(sign7, OBJPROP_XDISTANCE, 95+x_distance ); ObjectSet(sign7, OBJPROP_YDISTANCE, 230+y_distance ); // 5 hrs ago double highest_h1a = iHigh(NULL, PERIOD_M15, iHighest(NULL, PERIOD_M15, MODE_HIGH, 20, 0)); double lowest_h1a = iLow(NULL, PERIOD_M15, iLowest(NULL, PERIOD_M15, MODE_LOW, 20, 0)); double h1a_buyers=100*(iClose(NULL,PERIOD_M15,0)-lowest_h1a )/(highest_h1a-lowest_h1a); if (h1a_buyers>=75) { Col=Lime; } if (h1a_buyers>50 && h1a_buyers<75) { Col=Lime; } if (h1a_buyers<50 ) { Col=Red; } if (h1a_buyers==50) { Col=DarkOrange; } string b_disp_h1a = "B1Ha"; ObjectDelete(b_disp_h1a); ObjectCreate(b_disp_h1a, OBJ_LABEL, 0, 0, 0 ); ObjectSetText(b_disp_h1a, DoubleToStr(h1a_buyers,2) ,8, "Arial", Col); ObjectSet(b_disp_h1a, OBJPROP_CORNER, Corner ); ObjectSet(b_disp_h1a, OBJPROP_XDISTANCE, 50+x_distance ); ObjectSet(b_disp_h1a, OBJPROP_YDISTANCE, 260+y_distance ); highest_h1a = iHigh(NULL, PERIOD_M15, iHighest(NULL, PERIOD_M15, MODE_HIGH, 20, 0)); lowest_h1a = iLow(NULL, PERIOD_M15, iLowest(NULL, PERIOD_M15, MODE_LOW, 20, 0)); double h1a_sellers=100*(highest_h1a-iClose(NULL,PERIOD_M15,0) )/(highest_h1a-lowest_h1a); if (h1a_sellers>=75) { Col=Lime; } if (h1a_sellers>50 && h1a_sellers<75) { Col=Lime; } if (h1a_sellers<50) { Col=Red; } if (h1a_sellers==50) { Col=DarkOrange; } if (h1a_buyers==h1a_sellers) { Sign="ó"; Arr=DarkOrange; } else if (h1a_buyers>h1a_sellers) { Sign="ñ"; Arr=Lime; } else { Sign="ò"; Arr=Red; } string sign8a = "3H BBa"; ObjectDelete(sign8a); ObjectCreate(sign8a, OBJ_LABEL, 0, 0, 0 ); ObjectSetText(sign8a, Sign ,10, "Wingdings", Arr); ObjectSet(sign8a, OBJPROP_CORNER, Corner ); ObjectSet(sign8a, OBJPROP_XDISTANCE, 95+x_distance ); ObjectSet(sign8a, OBJPROP_YDISTANCE, 260+y_distance ); // 4 hrs ago double highest_h1b = iHigh(NULL, PERIOD_M15, iHighest(NULL, PERIOD_M15, MODE_HIGH, 16, 0)); double lowest_h1b = iLow(NULL, PERIOD_M15, iLowest(NULL, PERIOD_M15, MODE_LOW, 16, 0)); double h1b_buyers=100*(iClose(NULL,PERIOD_M15,0)-lowest_h1b )/(highest_h1b-lowest_h1b); if (h1b_buyers>=75) { Col=Lime; } if (h1b_buyers>50 && h1b_buyers<75) { Col=Lime; } if (h1b_buyers<50 ) { Col=Red; } if (h1b_buyers==50) { Col=DarkOrange; } string b_disp_h1b = "B1Hb"; ObjectDelete(b_disp_h1b); ObjectCreate(b_disp_h1b, OBJ_LABEL, 0, 0, 0 ); ObjectSetText(b_disp_h1b, DoubleToStr(h1b_buyers,2) ,8, "Arial", Col); ObjectSet(b_disp_h1b, OBJPROP_CORNER, Corner ); ObjectSet(b_disp_h1b, OBJPROP_XDISTANCE, 50+x_distance ); ObjectSet(b_disp_h1b, OBJPROP_YDISTANCE, 275+y_distance ); highest_h1b = iHigh(NULL, PERIOD_M15, iHighest(NULL, PERIOD_M15, MODE_HIGH, 16, 0)); lowest_h1b = iLow(NULL, PERIOD_M15, iLowest(NULL, PERIOD_M15, MODE_LOW, 16, 0)); double h1b_sellers=100*(highest_h1b-iClose(NULL,PERIOD_M15,0) )/(highest_h1b-lowest_h1b); if (h1b_sellers>=75) { Col=Lime; } if (h1b_sellers>50 && h1b_sellers<75) { Col=Lime; } if (h1b_sellers<50) { Col=Red; } if (h1b_sellers==50) { Col=DarkOrange; } if (h1b_buyers==h1b_sellers) { Sign="ó"; Arr=DarkOrange; } else if (h1b_buyers>h1b_sellers) { Sign="ñ"; Arr=Lime; } else { Sign="ò"; Arr=Red; } string sign8b = "3H BBb"; ObjectDelete(sign8b); ObjectCreate(sign8b, OBJ_LABEL, 0, 0, 0 ); ObjectSetText(sign8b, Sign ,10, "Wingdings", Arr); ObjectSet(sign8b, OBJPROP_CORNER, Corner ); ObjectSet(sign8b, OBJPROP_XDISTANCE, 95+x_distance ); ObjectSet(sign8b, OBJPROP_YDISTANCE, 275+y_distance ); // 3 hrs ago double highest_h1 = iHigh(NULL, PERIOD_M15, iHighest(NULL, PERIOD_M15, MODE_HIGH, 12, 0)); double lowest_h1 = iLow(NULL, PERIOD_M15, iLowest(NULL, PERIOD_M15, MODE_LOW, 12, 0)); double h1_buyers=100*(iClose(NULL,PERIOD_M15,0)-lowest_h1 )/(highest_h1-lowest_h1); if (h1_buyers>=75) { Col=Lime; } if (h1_buyers>50 && h1_buyers<75) { Col=Lime; } if (h1_buyers<50 ) { Col=Red; } if (h1_buyers==50) { Col=DarkOrange; } string b_disp_h1 = "B1H"; ObjectDelete(b_disp_h1); ObjectCreate(b_disp_h1, OBJ_LABEL, 0, 0, 0 ); ObjectSetText(b_disp_h1, DoubleToStr(h1_buyers,2) ,8, "Arial", Col); ObjectSet(b_disp_h1, OBJPROP_CORNER, Corner ); ObjectSet(b_disp_h1, OBJPROP_XDISTANCE, 50+x_distance ); ObjectSet(b_disp_h1, OBJPROP_YDISTANCE, 290+y_distance ); highest_h1 = iHigh(NULL, PERIOD_M15, iHighest(NULL, PERIOD_M15, MODE_HIGH, 12, 0)); lowest_h1 = iLow(NULL, PERIOD_M15, iLowest(NULL, PERIOD_M15, MODE_LOW, 12, 0)); double h1_sellers=100*(highest_h1-iClose(NULL,PERIOD_M15,0) )/(highest_h1-lowest_h1); if (h1_sellers>=75) { Col=Lime; } if (h1_sellers>50 && h1_sellers<75) { Col=Lime; } if (h1_sellers<50) { Col=Red; } if (h1_sellers==50) { Col=DarkOrange; } if (h1_buyers==h1_sellers) { Sign="ó"; Arr=DarkOrange; } else if (h1_buyers>h1_sellers) { Sign="ñ"; Arr=Lime; } else { Sign="ò"; Arr=Red; } string sign8 = "3H BB"; ObjectDelete(sign8); ObjectCreate(sign8, OBJ_LABEL, 0, 0, 0 ); ObjectSetText(sign8, Sign ,10, "Wingdings", Arr); ObjectSet(sign8, OBJPROP_CORNER, Corner ); ObjectSet(sign8, OBJPROP_XDISTANCE, 95+x_distance ); ObjectSet(sign8, OBJPROP_YDISTANCE, 290+y_distance ); // 2 hrs ago double highest_h1c = iHigh(NULL, PERIOD_M15, iHighest(NULL, PERIOD_M15, MODE_HIGH, 8, 0)); double lowest_h1c = iLow(NULL, PERIOD_M15, iLowest(NULL, PERIOD_M15, MODE_LOW, 8, 0)); double h1c_buyers=100*(iClose(NULL,PERIOD_M15,0)-lowest_h1c )/(highest_h1c-lowest_h1c); if (h1c_buyers>=75) { Col=Lime; } if (h1c_buyers>50 && h1c_buyers<75) { Col=Lime; } if (h1c_buyers<50 ) { Col=Red; } if (h1c_buyers==50) { Col=DarkOrange; } string b_disp_h1c = "B1Hc"; ObjectDelete(b_disp_h1c); ObjectCreate(b_disp_h1c, OBJ_LABEL, 0, 0, 0 ); ObjectSetText(b_disp_h1c, DoubleToStr(h1c_buyers,2) ,8, "Arial", Col); ObjectSet(b_disp_h1c, OBJPROP_CORNER, Corner ); ObjectSet(b_disp_h1c, OBJPROP_XDISTANCE, 50+x_distance ); ObjectSet(b_disp_h1c, OBJPROP_YDISTANCE, 305+y_distance ); highest_h1c = iHigh(NULL, PERIOD_M15, iHighest(NULL, PERIOD_M15, MODE_HIGH, 8, 0)); lowest_h1c = iLow(NULL, PERIOD_M15, iLowest(NULL, PERIOD_M15, MODE_LOW, 8, 0)); double h1c_sellers=100*(highest_h1c-iClose(NULL,PERIOD_M15,0) )/(highest_h1c-lowest_h1c); if (h1c_sellers>=75) { Col=Lime; } if (h1c_sellers>50 && h1c_sellers<75) { Col=Lime; } if (h1c_sellers<50) { Col=Red; } if (h1c_sellers==50) { Col=DarkOrange; } if (h1c_buyers==h1c_sellers) { Sign="ó"; Arr=DarkOrange; } else if (h1c_buyers>h1c_sellers) { Sign="ñ"; Arr=Lime; } else { Sign="ò"; Arr=Red; } string sign8c = "3H BBc"; ObjectDelete(sign8c); ObjectCreate(sign8c, OBJ_LABEL, 0, 0, 0 ); ObjectSetText(sign8c, Sign ,10, "Wingdings", Arr); ObjectSet(sign8c, OBJPROP_CORNER, Corner ); ObjectSet(sign8c, OBJPROP_XDISTANCE, 95+x_distance ); ObjectSet(sign8c, OBJPROP_YDISTANCE, 305+y_distance ); // 60 mnt ago double highest_m30 = iHigh(NULL, PERIOD_M5, iHighest(NULL, PERIOD_M5, MODE_HIGH, 12, 0)); double lowest_m30 = iLow(NULL, PERIOD_M5, iLowest(NULL, PERIOD_M5, MODE_LOW, 12, 0)); double m30_buyers=100*(iClose(NULL,PERIOD_M5,0)-lowest_m30 )/(highest_m30-lowest_m30); if (m30_buyers>=75) { Col=Lime; } if (m30_buyers>50 && m30_buyers<75) { Col=Lime; } if (m30_buyers<50 ) { Col=Red; } if (m30_buyers==50) { Col=DarkOrange; } string b_disp_m30 = "BM30"; ObjectDelete(b_disp_m30); ObjectCreate(b_disp_m30, OBJ_LABEL, 0, 0, 0 ); ObjectSetText(b_disp_m30, DoubleToStr(m30_buyers,2) ,8, "Arial", Col); ObjectSet(b_disp_m30, OBJPROP_CORNER, Corner ); ObjectSet(b_disp_m30, OBJPROP_XDISTANCE, 50+x_distance ); ObjectSet(b_disp_m30, OBJPROP_YDISTANCE, 335+y_distance ); highest_m30 = iHigh(NULL, PERIOD_M5, iHighest(NULL, PERIOD_M5, MODE_HIGH, 12, 0)); lowest_m30 = iLow(NULL, PERIOD_M5, iLowest(NULL, PERIOD_M5, MODE_LOW, 12, 0)); double m30_sellers=100*(highest_m30-iClose(NULL,PERIOD_M5,0) )/(highest_m30-lowest_m30); if (m30_sellers>=75) { Col=Lime; } if (m30_sellers>50 && m30_sellers<75) { Col=Lime; } if (m30_sellers<50) { Col=Red; } if (m30_sellers==50) { Col=DarkOrange; } if (m30_buyers==m30_sellers) { Sign="ó"; Arr=DarkOrange; } else if (m30_buyers>m30_sellers) { Sign="ñ"; Arr=Lime; } else { Sign="ò"; Arr=Red; } string sign9 = "90 mnt BB"; ObjectDelete(sign9); ObjectCreate(sign9, OBJ_LABEL, 0, 0, 0 ); ObjectSetText(sign9, Sign ,10, "Wingdings", Arr); ObjectSet(sign9, OBJPROP_CORNER, Corner ); ObjectSet(sign9, OBJPROP_XDISTANCE, 95+x_distance ); ObjectSet(sign9, OBJPROP_YDISTANCE, 335+y_distance ); // 45 mnt ago double highest_m15 = iHigh(NULL, PERIOD_M5, iHighest(NULL, PERIOD_M5, MODE_HIGH, 9, 0)); double lowest_m15 = iLow(NULL, PERIOD_M5, iLowest(NULL, PERIOD_M5, MODE_LOW, 9, 0)); double m15_buyers=100*(iClose(NULL,PERIOD_M5,0)-lowest_m15 )/(highest_m15-lowest_m15); if (m15_buyers>=75) { Col=Lime; } if (m15_buyers>50 && m15_buyers<75) { Col=Lime; } if (m15_buyers<50 ) { Col=Red; } if (m15_buyers==50) { Col=DarkOrange; } string b_disp_m15 = "BM15"; ObjectDelete(b_disp_m15); ObjectCreate(b_disp_m15, OBJ_LABEL, 0, 0, 0 ); ObjectSetText(b_disp_m15, DoubleToStr(m15_buyers,2) ,8, "Arial", Col); ObjectSet(b_disp_m15, OBJPROP_CORNER, Corner ); ObjectSet(b_disp_m15, OBJPROP_XDISTANCE, 50+x_distance ); ObjectSet(b_disp_m15, OBJPROP_YDISTANCE, 350+y_distance ); highest_m15 = iHigh(NULL, PERIOD_M5, iHighest(NULL, PERIOD_M5, MODE_HIGH, 9, 0)); lowest_m15 = iLow(NULL, PERIOD_M5, iLowest(NULL, PERIOD_M5, MODE_LOW, 9, 0)); double m15_sellers=100*(highest_m15-iClose(NULL,PERIOD_M5,0) )/(highest_m15-lowest_m15); if (m15_sellers>=75) { Col=Lime; } if (m15_sellers>50 && m15_sellers<75) { Col=Lime; } if (m15_sellers<50) { Col=Red; } if (m15_sellers==50) { Col=DarkOrange; } if (m15_buyers==m15_sellers) { Sign="ó"; Arr=DarkOrange; } else if (m15_buyers>m15_sellers) { Sign="ñ"; Arr=Lime; } else { Sign="ò"; Arr=Red; } string sign10 = "45 mnt BB"; ObjectDelete(sign10); ObjectCreate(sign10, OBJ_LABEL, 0, 0, 0 ); ObjectSetText(sign10, Sign ,10, "Wingdings", Arr); ObjectSet(sign10, OBJPROP_CORNER, Corner ); ObjectSet(sign10, OBJPROP_XDISTANCE, 95+x_distance ); ObjectSet(sign10, OBJPROP_YDISTANCE, 350+y_distance ); // 30 mnt ago double highest_m15a = iHigh(NULL, PERIOD_M5, iHighest(NULL, PERIOD_M5, MODE_HIGH, 6, 0)); double lowest_m15a = iLow(NULL, PERIOD_M5, iLowest(NULL, PERIOD_M5, MODE_LOW, 6, 0)); double m15a_buyers=100*(iClose(NULL,PERIOD_M5,0)-lowest_m15a )/(highest_m15a-lowest_m15a); if (m15a_buyers>=75) { Col=Lime; } if (m15a_buyers>50 && m15a_buyers<75) { Col=Lime; } if (m15a_buyers<50 ) { Col=Red; } if (m15a_buyers==50) { Col=DarkOrange; } string b_disp_m15a = "BM15a"; ObjectDelete(b_disp_m15a); ObjectCreate(b_disp_m15a, OBJ_LABEL, 0, 0, 0 ); ObjectSetText(b_disp_m15a, DoubleToStr(m15a_buyers,2) ,8, "Arial", Col); ObjectSet(b_disp_m15a, OBJPROP_CORNER, Corner ); ObjectSet(b_disp_m15a, OBJPROP_XDISTANCE, 50+x_distance ); ObjectSet(b_disp_m15a, OBJPROP_YDISTANCE, 365+y_distance ); highest_m15a = iHigh(NULL, PERIOD_M5, iHighest(NULL, PERIOD_M5, MODE_HIGH, 6, 0)); lowest_m15a = iLow(NULL, PERIOD_M5, iLowest(NULL, PERIOD_M5, MODE_LOW, 6, 0)); double m15a_sellers=100*(highest_m15a-iClose(NULL,PERIOD_M5,0) )/(highest_m15a-lowest_m15a); if (m15a_sellers>=75) { Col=Lime; } if (m15a_sellers>50 && m15a_sellers<75) { Col=Lime; } if (m15a_sellers<50) { Col=Red; } if (m15a_sellers==50) { Col=DarkOrange; } if (m15a_buyers==m15a_sellers) { Sign="ó"; Arr=DarkOrange; } else if (m15a_buyers>m15a_sellers) { Sign="ñ"; Arr=Lime; } else { Sign="ò"; Arr=Red; } string sign10a = "45 mnt BBa"; ObjectDelete(sign10a); ObjectCreate(sign10a, OBJ_LABEL, 0, 0, 0 ); ObjectSetText(sign10a, Sign ,10, "Wingdings", Arr); ObjectSet(sign10a, OBJPROP_CORNER, Corner ); ObjectSet(sign10a, OBJPROP_XDISTANCE, 95+x_distance ); ObjectSet(sign10a, OBJPROP_YDISTANCE, 365+y_distance ); // 15 mnt ago double highest_m15ab = iHigh(NULL, PERIOD_M5, iHighest(NULL, PERIOD_M5, MODE_HIGH, 3, 0)); double lowest_m15ab = iLow(NULL, PERIOD_M5, iLowest(NULL, PERIOD_M5, MODE_LOW, 3, 0)); double m15ab_buyers=100*(iClose(NULL,PERIOD_M5,0)-lowest_m15ab )/(highest_m15ab-lowest_m15ab); if (m15ab_buyers>=75) { Col=Lime; } if (m15ab_buyers>50 && m15ab_buyers<75) { Col=Lime; } if (m15ab_buyers<50 ) { Col=Red; } if (m15ab_buyers==50) { Col=DarkOrange; } string b_disp_m15ab = "BM15ab"; ObjectDelete(b_disp_m15ab); ObjectCreate(b_disp_m15ab, OBJ_LABEL, 0, 0, 0 ); ObjectSetText(b_disp_m15ab, DoubleToStr(m15ab_buyers,2) ,8, "Arial", Col); ObjectSet(b_disp_m15ab, OBJPROP_CORNER, Corner ); ObjectSet(b_disp_m15ab, OBJPROP_XDISTANCE, 50+x_distance ); ObjectSet(b_disp_m15ab, OBJPROP_YDISTANCE, 380+y_distance ); highest_m15ab = iHigh(NULL, PERIOD_M5, iHighest(NULL, PERIOD_M5, MODE_HIGH, 3, 0)); lowest_m15ab = iLow(NULL, PERIOD_M5, iLowest(NULL, PERIOD_M5, MODE_LOW, 3, 0)); double m15ab_sellers=100*(highest_m15ab-iClose(NULL,PERIOD_M5,0) )/(highest_m15ab-lowest_m15ab); if (m15ab_sellers>=75) { Col=Lime; } if (m15ab_sellers>50 && m15ab_sellers<75) { Col=Lime; } if (m15ab_sellers<50) { Col=Red; } if (m15ab_sellers==50) { Col=DarkOrange; } if (m15ab_buyers==m15ab_sellers) { Sign="ó"; Arr=DarkOrange; } else if (m15ab_buyers>m15ab_sellers) { Sign="ñ"; Arr=Lime; } else { Sign="ò"; Arr=Red; } string sign10ab = "45 mnt BBab"; ObjectDelete(sign10ab); ObjectCreate(sign10ab, OBJ_LABEL, 0, 0, 0 ); ObjectSetText(sign10ab, Sign ,10, "Wingdings", Arr); ObjectSet(sign10ab, OBJPROP_CORNER, Corner ); ObjectSet(sign10ab, OBJPROP_XDISTANCE, 95+x_distance ); ObjectSet(sign10ab, OBJPROP_YDISTANCE, 380+y_distance ); return(0); } //+------------------------------------------------------------------+