Simple Coding Help - No Promise.

H

houmansat

Member
#5,081
#5,081
i wanna to change color grey to black (show in the attachment) will you please specify for me in which line i must change?there is no Grey color in text of afl.
afl and picture attached
 

Attachments

Romeo1998

Romeo1998

Well-Known Member
#5,082
#5,082
Dear friend, u have to change this line
Code: 
Plot( 100, /* defines the height of the ribbon in percent of pane width */"ribbon",
IIf( up1, colorGreen, IIf( sel1, colorRed,IIf(bluestar, colorDarkBlue, 0 ))), /* choose color */
styleOwnScale|styleArea|styleNoLabel, -0.5, 100 );
and replace it with this line :happy:
Code: 
Plot( 100, /* defines the height of the ribbon in percent of pane width */"ribbon",
IIf( up1, colorGreen, IIf( sel1, colorRed,IIf(bluestar, colorDarkBlue, colorBlack ))), /* choose color */
styleOwnScale|styleArea|styleNoLabel, -0.5, 100 );
I changed the 0 to colorblack :happy:
 
Last edited:
H

houmansat

Member
#5,083
#5,083
Hi DearRomeo God bless you man.as you can see i change green and red to black also but i have grey color .what should i do? i want balck on my background only.
Code: 
Plot( 100, /* defines the height of the ribbon in percent of pane width */"ribbon",
IIf( up1, colorBlack, IIf( sel1, colorBlack,IIf(bluestar, colorBlack, 0 ))), /* choose color */
styleOwnScale|styleArea|styleNoLabel, -0.5, 100 );
///////////////////////////////////////////////////////
 

Attachments

Romeo1998

Romeo1998

Well-Known Member
#5,084
#5,084
Dear friend,
thank u for ur kind words :happy:
may GOD always bless u, me and everyone else :happy:
if u want only black colour in background, then replace this code
Code: 
Plot( 100, /* defines the height of the ribbon in percent of pane width */"ribbon",
IIf( up1, colorBlack, IIf( sel1, colorBlack,IIf(bluestar, colorBlack, 0 ))), /* choose color */
styleOwnScale|styleArea|styleNoLabel, -0.5, 100 );
///////////////////////////////////////////////////////
with this code
1)
Code: 
Plot( 100, /* defines the height of the ribbon in percent of pane width */"ribbon",
IIf( up1, colorBlack, IIf( sel1, colorBlack,IIf(bluestar, colorBlack, colorBlack ))), /* choose color */
styleOwnScale|styleArea|styleNoLabel, -0.5, 100 );
OR with this code
2)
Code: 
SetChartBkColor(colorBlack);
the better option is the 2nd code
:happy:
 
Last edited:
jalpesh123

jalpesh123

New Member
#5,086
#5,086
sir,
i need one help to code amibroker afl as per below conditions..
afl 1
condition 1 - afl should execute buy at 9.17 am ( whatever is the price) and target to be 1%
afl 2
condition 2 - afl should execute sell at 9.17 am ( whatever is the price) and target to be 1%
 
Romeo1998

Romeo1998

Well-Known Member
#5,087
#5,087
Dear friend Jalpesh123,
this code will buy at 9:17 am and will close that position when price will be (buyprice + 1 % of buy price)
e.g. bought at 300, so it will sell at 303 :happy:
here is the code :happy:
Code: 
Buy = TimeNum()==91700;
Sell=0;
ApplyStop(1,1,1,1);


this code will create a short position at 9:17 am and will close that position when price will be (shortprice - 1 % of short price)
e.g. opened a short position at 300, so it will cover at 297 :happy:
here is the code :happy:
Code: 
Short=TimeNum()==91700;
Cover=0;
ApplyStop(1,1,1,1);
:happy:
 
Last edited:
H

houmansat

Member
#5,088
#5,088
hi dear romeo.is it possible to add more option for this trend line imean i want to change trend line wedge by my self.
Code: 
_SECTION_BEGIN("RSI Trendlines and Wedges");
/*RSI Trendlines and Wedges*/
G=0;// set G=1, 2, 3, ... to see previous Resistance trendlines
GG=0;// set G=1, 2, 3, ... to see previous Support trendlines
x = Cum(1);
per = 1;// sensitivity calibration
s1=RSI();s11=RSI();
Plot(RSI(),"RSI",9,8);
pS = TroughBars( s1, per, 1 ) == 0;
endt= LastValue(ValueWhen( pS, x, 1+GG ));
startt=LastValue(ValueWhen( pS, x, 2+GG ));
dtS =endt-startt;
endS = LastValue(ValueWhen( pS, s1, 1+GG ) );
startS = LastValue( ValueWhen( pS, s1, 2+GG ));
aS = (endS-startS)/dtS;
bS = endS;
trendlineS = aS * ( x -endt ) + bS;// the Support trendline equation
Plot(IIf(x>startt-6 AND TRENDLINES>0 AND TRENDLINES<100,trendlineS,-1e10),"Support",IIf(as>0,5,4),8);
pR = PeakBars( s11, per, 1 ) == 0;
endt1= LastValue(ValueWhen( pR, x, 1+G ));
startt1=LastValue(ValueWhen( pR, x, 2+G ));
dtR =endt1-startt1;
endR = LastValue(ValueWhen( pR, s11, 1+G ) );
startR = LastValue( ValueWhen( pR, s11, 2 +G ));
aR = (endR-startR)/dtR;
bR = endR;
trendlineR = aR * ( x -endt1 ) + bR;// the Resistance trendline equation
Plot(IIf(x>startT1-6 AND TRENDLINER>0 AND TRENDLINER<100,trendlineR,-1e10),"Resistance",IIf(Ar>0,5,4),8);
Ascwedge=Ar>0.5 AND As>sqrt(2)*Ar AND trendlineR>trendlineS;
Descwedge= As<-0.5 AND As>Ar/sqrt(2) AND trendlineR>trendlineS;
Filter=1;
AddColumn(Ascwedge,"AscWedge",1.0);
AddColumn(DescWedge,"DesWedge",1.0);
AddColumn(Ascwedge AND trendlineS>50 AND RSI()>50,"Probable Bearish Breakout",1.0);
AddColumn(Descwedge AND trendlineR<50 AND RSI()<50,"Probable Bullish Breakout",1.0);


/* END of code */
_SECTION_END();
 
Romeo1998

Romeo1998

Well-Known Member
#5,089
#5,089
Dear friend houmansat,
its good to hear from u again :happy:
adjust the sensitivity from parameters :happy:
here is the code :happy:
Code: 
_SECTION_BEGIN("RSI Trendlines and Wedges");
SetChartOptions(0,0,chartGrid30|chartGrid70);
periods = Param( "Periods", 14, 1, 200, 1 );
Plot( RSI( periods), _DEFAULT_NAME(), ParamColor( "Color", colorlightblue ), ParamStyle("Style",styleThick)  );

/*RSI Trendlines and Wedges*/
G=0;// set G=1, 2, 3, ... to see previous Resistance trendlines
GG=0;// set G=1, 2, 3, ... to see previous Support trendlines
x = Cum(1);
per = Param("Sensitivity",1,1,100,1); // sensitivity calibration
s1=RSI();s11=RSI();
pS = TroughBars( s1, per, 1 ) == 0;
endt= LastValue(ValueWhen( pS, x, 1+GG ));
startt=LastValue(ValueWhen( pS, x, 2+GG ));
dtS =endt-startt;
endS = LastValue(ValueWhen( pS, s1, 1+GG ) );
startS = LastValue( ValueWhen( pS, s1, 2+GG ));
aS = (endS-startS)/dtS;
bS = endS;
trendlineS = aS * ( x -endt ) + bS;// the Support trendline equation
Plot(IIf(x>startt-6 AND TRENDLINES>0 AND TRENDLINES<100,trendlineS,-1e10),"Support",IIf(as>0,5,4),8);
pR = PeakBars( s11, per, 1 ) == 0;
endt1= LastValue(ValueWhen( pR, x, 1+G ));
startt1=LastValue(ValueWhen( pR, x, 2+G ));
dtR =endt1-startt1;
endR = LastValue(ValueWhen( pR, s11, 1+G ) );
startR = LastValue( ValueWhen( pR, s11, 2 +G ));
aR = (endR-startR)/dtR;
bR = endR;
trendlineR = aR * ( x -endt1 ) + bR;// the Resistance trendline equation
Plot(IIf(x>startT1-6 AND TRENDLINER>0 AND TRENDLINER<100,trendlineR,-1e10),"Resistance",IIf(Ar>0,5,4),8);
Ascwedge=Ar>0.5 AND As>sqrt(2)*Ar AND trendlineR>trendlineS;
Descwedge= As<-0.5 AND As>Ar/sqrt(2) AND trendlineR>trendlineS;
Filter=1;
AddColumn(Ascwedge,"AscWedge",1.0);
AddColumn(DescWedge,"DesWedge",1.0);
AddColumn(Ascwedge AND trendlineS>50 AND RSI()>50,"Probable Bearish Breakout",1.0);
AddColumn(Descwedge AND trendlineR<50 AND RSI()<50,"Probable Bullish Breakout",1.0);
/* END of code */
_SECTION_END();
:happy:
 
H

houmansat

Member
#5,090
#5,090
Hi Dear Romeo you are really an expert. as usual you are wonderful man. i dont know how to be thankful.will you plsease add scan/explorer to this .buy on support sell on resistance. and also consider difference indicator from main trendline option (from 1 to 5)
somthing like this h have but i dont know where i should add it .your sensitivity trendline is working only for rsi 14. when i change rsi for example rsi =9 trend lines is not adjust to rsi 9. please check it am i right?



Code: 
MainTrendLine_Diff = Param("Difference IND from MainTrendLine", 2.5, 0.5,7,  0.5);

d = starthigh ; 
FirstDownSlope = (secondhigh - d) / (secondhighbar - starthighbar) ;
FirstDownTrendline = FirstDownSlope * ( BarIndex() - starthighbar ) + d;                                                             

SecondDownSlope = (thirdhigh - d) / (thirdhighbar - starthighbar) ;
SecondDownTrendline = SecondDownSlope * ( BarIndex() -  starthighbar ) + d;                                                       

ThirdDownSlope = (fourthhigh - d) / (fourthhighbar - starthighbar) ;
ThirdDownTrendline = ThirdDownSlope * ( BarIndex() - starthighbar ) + d;

FourthDownSlope = (fifthhigh - d) / (fifthhighbar - starthighbar) ;
FourthDownTrendline = FourthDownSlope * ( BarIndex() - starthighbar ) + d;

FifthDownSlope = (sixthhigh - d) / (sixthhighbar - starthighbar) ;
FifthDownTrendline = FifthDownSlope * ( BarIndex() - starthighbar ) + d;

MainDownSlope = IIf( FirstDownSlope < SecondDownSlope,  IIf( SecondDownSlope < ThirdDownSlope,
IIf( ThirdDownSlope < FourthDownSlope,  IIf( FourthDownSlope <  FifthDownSlope, FifthDownSlope, FourthDownSlope),ThirdDownSlope), SecondDownSlope), FirstDownSlope) ;

MainDownLine =  IIf( MainDownSlope == 0, Null, MainDownSlope * ( BarIndex() - starthighbar ) + d ) ; 
Plot(  IIf(  BarIndex() >=  starthighbar, MainDownLine, Null ) , "Main_DOWN_Line", colorViolet, styleThick ) ; 

IND_Diff = IIf(  BarIndex() >=  starthighbar, abs( IND - MainDownLine), Null) ;

Cond_Sell = IIf( BarIndex() >= Thirdbar AND  IND_Diff  <= MainTrendLine_Diff, IND, 0)  AND  MainDownLine > 45 ;

PlotShapes( IIf( Cond_Sell, shapeDownArrow , shapeNone ), colorRed );
and for scan/explorer i have this:
Code: 
Filter=Cond_buy OR Cond_sell;
AddColumn(IIf(Cond_buy,Close,Null)," Buy ", 6.2,1.2,colorGreen);
AddColumn(IIf(Cond_sell,Close,Null)," Sell ",6.2,1.2,colorOrange);
BEST WISHES:);)
 
Last edited:
You must log in or register to reply here.
Thread starter Similar threads Forum Replies Date
S Convert Simple Thinkscript Support/Resistance Lines into AFL AmiBroker 4
S Simple coding help in metastock MetaStock 0
P Coding help.........adding exploration for the simple combo AmiBroker 2
P Help with simple coding...........SUPERTREND AND STOCHASTICS AmiBroker 3
I MA ribbon simple help to the coding gurus out here AmiBroker 0

Similar threads