Support and Resistance ღ الدعم والمقاومة ღ

 
SECTION_BEGIN(" Support and Resistance ");
/* Support and Resistance Formula for Amibroker
based on Excel spreadsheet by nmralarb */
GraphXSpace=1; MaxGraph=15;
Period=Param("MM_Period", 70, 4, 256, 1) ;
Graph1Color=4; Graph2Color=4; Graph3Color=4; Graph4Color=2;
Graph5Color=5; Graph6Color=5; Graph7Color=5; Graph8Color=5;
Graph9Color=5; Graph10Color=5; Graph11Color=4;Graph12Color=4;
Graph13Color=4; 
 
 
Graph0=Close; Graph0Color=1; Graph0Style=64;
Graph1Style=1; Graph2Style=1; Graph3Style=1; Graph4Style=1;
Graph5Style=1; Graph6Style=1; Graph7Style=1; Graph8Style=1;
Graph9Style=1; Graph10Style=1; Graph11Style=4; Graph12Style=1;
Graph12Style=1;
 
 
 
PER = Period;
BarNR = LastValue(Cum(1)) ;
TimeFrame = BarNR - PER ;
TF = TimeFrame ;
Lo = LastValue(ValueWhen(Cross(Cum(1), TF), LLV(Min(H,L),PER),1)) ;
Hi = LastValue(ValueWhen(Cross(Cum(1), TF), HHV(Max(H,L),PER),1)) ;
Lo = LastValue( LLV(Min(H,L),PER ),1) ;
Hi = LastValue( HHV(Max(H,L),PER ),1) ;
Fractal = IIf(Hi<=250,100, IIf(Hi<=2500,1000, IIf(Hi<=25000,10000, IIf(Hi<=250000,100000, 0 )))) ;
int_Log = int( log(Fractal/(Hi-Lo))/log(2) ) ;
Oct = Fractal * ( exp(ln(1/2)* int_Log ) ) ;
 
 
Min_1 = int( Lo / Oct ) * Oct ;
Max_1 = IIf( (Min_1 + Oct) > Hi, Min_1 + Oct, Min_1 + 2*Oct ) ;
Min_2 = IIf( (Min_1 + 1/8*(Max_1-Min_1)) <= Lo AND Hi <= (Max_1 - 1/8*(Max_1-Min_1)) ,
(Min_1 + 1/4*(Max_1-Min_1)) , Min_1 ) ;
Max_2 = IIf( (Min_1 + 1/8*(Max_1-Min_1)) <= Lo AND Hi <= (Max_1 - 1/8*(Max_1-Min_1)) ,
(Max_1 - 1/4*(Max_1-Min_1)) , Max_1 ) ;
/******************************/
Diff = Max_2 - Min_2 ;
H1 = IIf( (Min_2 + 3/16*Diff) <= Lo AND Hi <= (9/16*Diff + Min_2) ,
Min_2 + 1/2*Diff, 0) ;
H2 = IIf( (Min_2 - 1/8*Diff) <= Lo AND Hi <= (5/8*Diff + Min_2) AND H1==0,
Min_2 + 1/2*Diff, 0) ;
H3 = IIf( (Min_2 + 7/16*Diff) <= Lo AND Hi <= (Min_2 + 13/16*Diff), Min_2 + 3/4*Diff, 0 ) ;
H4 = IIf( (Min_2 + 3/8*Diff) <= Lo AND Hi <= (Min_2 + 9/8*Diff) AND H3==0,
Max_2, 0 ) ;
H5 = IIf( (Min_2 + 1/8*Diff)<=Lo AND Hi <= (Min_2 + 7/8*Diff) AND H1==0 AND H2==0 AND H3==0 AND H4==0,
Min_2 + 3/4*Diff , 0 ) ;
H6 = IIf( ( H1 + H2 + H3 + H4 + H5 ) == 0, Max_2, 0 ) ;
/**************************/
L1 = IIf(H1>0, Min_2 + 1/4*Diff, 0) ;
L2 = IIf(H2>0, Min_2, 0) ;
L3 = IIf(H3>0, Min_2 + 1/2*Diff, 0) ;
L4 = IIf(H4>0, Min_2 + 1/2*Diff, 0) ;
L5 = IIf(H5>0, Min_2 + 1/4*Diff, 0) ;
L6 = IIf(H6>0, Min_2, 0 ) ;
 
 
M_8 = ( H1 + H2 + H3 + H4 + H5 + H6 ) ;
M_0 = ( L1 + L2 + L3 + L4 + L5 + L6 ) ;
/**************************************/
Graph1 = ValueWhen(Cum(1) >= TF, M_0 );
Graph2 = ValueWhen(Cum(1) >= TF, M_0 + (1*(0.175*(M_8-M_0))));
Graph3 = ValueWhen(Cum(1) >= TF, M_0 + (2*(0.175*(M_8-M_0))));
Graph4 = ValueWhen(Cum(1) >= TF, M_0 + (3*(0.175*(M_8-M_0))));
Graph5 = ValueWhen(Cum(1) >= TF, M_0 + (4*(0.175*(M_8-M_0))));
Graph6 = ValueWhen(Cum(1) >= TF, M_0 + (5*(0.175*(M_8-M_0))));
Graph7 = ValueWhen(Cum(1) >= TF, M_0 + (6*(0.175*(M_8-M_0))));
Graph8 = ValueWhen(Cum(1) >= TF, M_0 + (7*(0.175*(M_8-M_0))));
Graph9 = ValueWhen(Cum(1) >= TF, M_0 + (8*(0.175*(M_8-M_0))));
Graph10 = ValueWhen(Cum(1) >= TF, M_0 + (9*(0.175*(M_8-M_0))));
Graph11 = ValueWhen(Cum(1) >= TF, M_0 - (1*(0.175*(M_8-M_0))));
Graph12 = ValueWhen(Cum(1) >= TF, M_0 - (2*(0.175*(M_8-M_0))));
Graph13 = ValueWhen(Cum(1) >= TF, M_0 - (3*(0.175*(M_8-M_0))));
/************************************************** ************/
Title = Name()
+ "=" + WriteIf( round(C)== C, NumToStr(C,1) , WriteVal(C) ) + " " + "\\c17"
+ WriteIf( Interval()==86400, "Daily ", WriteIf(Interval()==3600,"Hourly ", 
WriteIf(Interval()==900,"15 Min ", WriteIf(Interval()==300,"5 Min ", 
WriteIf(Interval()==60,"1 Min ", "" ) ) ) ) )
+ Date() + "\\c12" + WriteIf(Volume>0," Turnover=","") 
+ WriteIf(Volume>0, WriteVal(Volume*Close/1000), "" ) ;
_SECTION_END(); 

{$I 'Commentary Utility'}
function SR( hi, lo, cl: float ): string;
begin
var histr: string = formatfloat( '##.####', hi );
var lostr: string = formatfloat( '##.####', lo );
var clstr: string = formatfloat( '##.####', cl );
Result := ' '
+'function flComputeAll(form) {'
+' var hi = eval(form.high.value);'
+' var lo = eval(form.low.value);'
+' var cl = eval(form.close.value);'
+' var p1 = (hi + lo + cl) / 3;'
+' var r1 = (2 * p1) - lo;'
+' var s1 = (2 * p1) - hi;'
+' var r2 = p1 - s1 + r1;'
+' var s2 = p1 - (r1 - s1);'
+' form.result1.value = fxPrec(r2,2,false);'
+' form.result2.value = fxPrec(r1,2,false);'
+' form.result3.value = fxPrec(p1,2,false);'
+' form.result4.value = fxPrec(s1,2,false);'
+' form.result5.value = fxPrec(s2,2,false);'
+'}'
+'function maketable() {'
+' var x = 130;'
+' var y = 120;'
+' var t = "<"+"form>"'
+'  + fxTHead(fx_w)'
+'  + fxTTitle(2,"S-R Calculator")'
+'  + "<"+"tr>" + fxTEnter("All",2) + "<"+"/tr>"'
+'  + "<"+"tr>" + fxTItem("High",1,x) + fxTInput("high",y, "value='+histr+'", "")  + "<"+"/tr>"'
+'  + "<"+"tr>" + fxTItem("Low",1,x)  + fxTInput("low",y, "value='+lostr+'", "")   + "<"+"/tr>"'
+'  + "<"+"tr>" + fxTItem("Close",1,x)+ fxTInput("close",y, "value='+clstr+'", "") + "<"+"/tr>"'
+'  + "<"+"/table><"+"br>"'
+''
+'  + fxTHead(fx_w)'
+'  + "<"+"tr>" + fxTColmn("Results",2) + "<"+"/tr>"'
+'  + "<"+"tr>" + fxTItem("Resistance 2",1,x) + fxTInput("result1",y,fx_r) + "<"+"/tr>"'
+'  + "<"+"tr>" + fxTItem("Resistance 1")     + fxTInput("result2",y,fx_r) + "<"+"/tr>"'
+'  + "<"+"tr>" + fxTItem("Pivot")            + fxTInput("result3",y,fx_r) + "<"+"/tr>"'
+'  + "<"+"tr>" + fxTItem("Support 1")        + fxTInput("result4",y,fx_r) + "<"+"/tr>"'
+'  + "<"+"tr>" + fxTItem("Support 2")        + fxTInput("result5",y,fx_r) + "<"+"/tr>"'
+'  + "<"+"/table><"+"br>"'
+'  + fxTHead(fx_b)'
+'  + "<"+"td>"+fxCalcBtn("flComputeAll")+"<"+"/td>"'
+'  + "<"+"/table><"+"/form>";'
+' document.write(t);'
+'}'
+'function fcCFactors() {'
+' maketable();'
+'}'
+'fcCFactors();';
end;
var _SRBar : integer = BarCount-1;
AddCommentary( js+r + Commentary_Utility
          + SR( @#High[_SRBar], @#Low[_SRBar], @#Close[_SRBar] ) + r+ejs );
                                          procedure SMA65VolumeColor;
begin
var Bar, BCnt: integer;
// Make sure there is an average even if the symbol has less than 65 bars
if BarCount < 66 then
BCnt := BarCount
else
BCnt := 65;
{$I 'TBui Support Resistance'}
for Bar := 1 to BarCount - 1 do
if PriceClose( Bar ) > PriceClose( Bar - 1 ) then
  SetSeriesBarColor( Bar, #Volume, #Green )
else
  SetSeriesBarColor( Bar, #Volume, #Red );
end;
SMA65VolumeColor;