BullCharts : BullScript

BullScript : Calculate dates

Sun, 07 Feb 2021 13:50:31 +0000

Author: G-fer
Subject: Calculate dates
Posted: 07 Feb 2021 at 1:50pm

Hi all,

I'm hoping one of the script gurus can help me with 2 problems that have been frustrating me. The first is that I can't figure out the code to produce a column in a scan that will show me the date 4 days before the scan date. For example, if I start a scan on 6/2, I would like to produce a column using bullscript that says shows 2/2. The built in scan criteria dialogue doesn't work if you choose to display date minus 4 days, you get an error message, so it needs to be done with bullscript.

The second thing that I would like to do is hide columns that I don't need to see. This helps to keep a spreadsheet smaller.

Any help would be much appreciated.

Graham

BullScript : Welles Wilder Super Trend

Wed, 09 Dec 2020 14:02:31 +0000

Author: meldeans
Subject: Welles Wilder Super Trend
Posted: 09 Dec 2020 at 2:02pm

Sorry for the delay response - thought i had email notification set on my post but didn't.

Thanks Maximo - works a treat. Really appreciate it.

BullScript : Welles Wilder Super Trend

Fri, 04 Dec 2020 04:24:31 +0000

Author: maximo
Subject: Welles Wilder Super Trend
Posted: 04 Dec 2020 at 4:24am

It probably doesn't constantly show a 1 or 0 due to the 'undefined' output for changing the line colours.

This similar indicator is easier to adapt. The last line should provide the digital output you're looking for.

{ Stop Trail ATR }
[Target=price]
atrper :=Input("ATR period: ",14);
atrfact:=Input("ATR multiplier: ",2);
loss:=atrfact*ATR(atrper);
trail:=
If(C>PREV and Ref(C,-1)>PREV, Max(PREV,C-loss),
If(CIf(C>PREV, C-loss, C+loss)));
Trail;

{ digital signal: if close is above previous value it's in buy(1) else it's in sell(0) }
direction := if(close>prev,1,0);

Edited by maximo - 06 Dec 2020 at 11:19pm

BullScript : Welles Wilder Super Trend

Fri, 04 Dec 2020 02:12:19 +0000

Author: maximo
Subject: Welles Wilder Super Trend
Posted: 04 Dec 2020 at 2:12am

Edited by maximo - 06 Dec 2020 at 11:20pm

BullScript : Welles Wilder Volatility Stop

Fri, 04 Dec 2020 02:10:08 +0000

Author: maximo
Subject: Welles Wilder Volatility Stop
Posted: 04 Dec 2020 at 2:10am

If the stop setting is < 'less than' 3, the minimum lookback bars used in calculation is 7 bars. This is also the smallest number of bars for 3x ATR. Higher ATR values will calculate with more bars than 7.

BullScript : Welles Wilder Super Trend

Thu, 26 Nov 2020 15:48:42 +0000

Author: meldeans
Subject: Welles Wilder Super Trend
Posted: 26 Nov 2020 at 3:48pm

Hi,

Can anyone help with some issues I am having with Super Trend indicators?

I am using the indicator to trade long only in SMSF. I only want to take signals when price is trading above the indicator. None of my indicators with my criteria work when i include the code line:

c>Formula("Super Trend Wilders", 3, 30, Wilders, 2).

I have copied this formula I presume off here somewhere as below:

{==== BullScript ====}

[Description="SuperTrend - Max"]

[target=price]

Mult:=Input("ATR Multiplier",3,1);

Nb:=Input("Nb Periods",8,1);

method:=inputma("Method",Wilders);

price:=Input("1=Median, 2=Close",1,1);

TruRan:=ma(ATR(1),Nb,method)*Mult;

HiLimit:=if(price=1,(H+L)/2-TruRan,C-TruRan);

LoLimit:=if(price=1,(H+L)/2+TruRan,C+TruRan);

LB:=If(HiLimit>=PREV and HiLimit

UB:=If(LoLimitC,LoLimit,If(C>PREV,LoLimit+0.1,PREV));

Trend:=if(UB>ref(UB,-1),1,if(LB

[drawundefined=gap]

[Color=lime green]

if(Trend=1 and hist(Trend,1)=-1,LB,if(Trend=-1,UB,undefined));

[Color=red]

if(Trend=-1 ,UB,if(hist(Trend,1)=1 ,LB,undefined));

[Color=lime green]

if(Trend=1 or Trend=0,LB,undefined);

When I display the Super Trend indicator in a pane all of its own so it should show "0" when price below indicator and "1" when above. It only shows "1" when price crosses above when it immediately does not each day that it is true.

Appreciate any help.

Thanks

Dean

BullScript : Welles Wilder Volatility Stop

Thu, 26 Nov 2020 15:24:21 +0000

Author: meldeans
Subject: Welles Wilder Volatility Stop
Posted: 26 Nov 2020 at 3:24pm

Hi Maximo, I know this post is old now but i am new to it. I understand this stop is 3 x ATR but i don't know what ATR period length is. Is it 7 periods or some other number??? I don't understand the code.

Thanks

Dean

BullScript : 52 week High and 10% retracement level indicator

Thu, 09 Jul 2020 22:56:09 +0000

Author: cudderbean
Subject: 52 week High and 10% retracement level indicator
Posted: 09 Jul 2020 at 10:56pm

I am away for a week tomorrow (busy at the moment) and I'm afraid also I'm not that good a coder to be able to help you. But I will have a look when I return.

I can see the merit of linking your varying stop loss to Index sentiment. And of course anything automatic is much preferable to tedious manual insertion.

Maybe someone more skilled could help. Good luck.

BullScript : 52 week High and 10% retracement level indicator

Thu, 09 Jul 2020 15:14:09 +0000

Author: Z2195067
Subject: 52 week High and 10% retracement level indicator
Posted: 09 Jul 2020 at 3:14pm

Hi cudderbean,

Thanks for your reply. From what you suggest, there was still the need to develop an EITHER/OR logic with the creation of the "retrac" variable.

Having said that, after this post, it got my brain juices going and I have made some considerable progress in formulating a stop-loss that varies based on the index filter sentiment. It's not complete and I'd like to ask someone a small favour who could make the last part of the code below work in a way that enables a user to drag the date of the trend on the chart left and right and the stop loss indicator updates dynamically , cause at the moment it is static at 52 bars.

Any further assistance would be greatly appreciated.

Please note I have some of my own notes in { } that can be ignored for these purposes.

An example of CDA is attached below. Try it out and let me know if you can see anything I can do to streamline it.

***

[Target=Price; category=Stop Loss];

{Define the date of the trend}
TDate:=InputDate("Date of trend", date(2020,01,01));

{Define the stop-loss retracement percentages}
Value1:=input("Retracement Bullish %",0.6,0);
Value2:=input("Retracement Bearish %",0.9,0);

{Defines the variables for exponential moving average and index filter}
expr := Expression("Expression",Close);
method := inputma("Method",Exponential);
n := input("Time periods",10,1);
symb := inputsymbol("Compare to", "XAO");

P:=LoadSymbol(symb,expr);

{Evaluate Bullish sentiment}
[color=Lime Green; name=Bullish]
SignalAbove:=ref(P,1)>ref(MA(P,n,method),1);
{SignalAbove;}

{Evaluate Bearish sentiment}{possibly redundant section?}
[color=Red; name=Bearish]
SignalBelow:=ref(P,1){SignalBelow;}

HoldingDays:=BarsSince(OnOrSkipped(TDate));

{Determines the highest prominent high over the last 52 weeks}

{NOTE:>>>>> I want to link the number of bars to the HoldingDays variable, not 52 weeks}
[color=Blue; linestyle=Dotted ; name=Highest Prominent High]
Stop:=HighestSince(1, (lastvalue(barnumber) - barnumber = 52) ,H);

{could this be replaced with HoldingDays variable?}
Stop;

[color=Red; linestyle=Horz step; name=Retracement % Stop]
ValueB := If(Stop>PREV(undefined) AND ref(P,1)>ref(MA(P,n,method),1),Stop*Value1,Stop*Value2);

{If(Stop<=PREV(undefined),PREV(undefined),Stop*Holdingdays));NOTE:>>>>> I haven't figured out what to do with the rest of this nested IF statement as it was inherited from a previous Bullscript file, possibly redundant now!}

If(ValueB = 0, undefined, ValueB);

BullScript : 52 week High and 10% retracement level indicator

Wed, 08 Jul 2020 18:04:23 +0000

Author: cudderbean
Subject: 52 week High and 10% retracement level indicator
Posted: 08 Jul 2020 at 6:04pm

Perhaps I have misunderstood your question. Apologies if I have.

Could you simply Input the retracement level manually, depending on your assessment of the bearish/bullish nature of the index.

So, taking Maximo's coding, I have added a manual input, which you can adjust in the Parameters dialog box as you load the indicator...

{ Yearly High and 10% retracement level }

[Description="Stocks making new highs make great trading prospects.

The 10% retracement level is often a time to consider - Max"]

[target=price]

Nb:=Input("Number of Weeks",50,1);

retrac:=Input("Retracement",.9,0);

timeframe:= if(DayOfWeek(Now)=ref(DayOfWeek(Now),-1), Nb, Nb*5);

ColB:=HighestSince(1,(lastvalue(barnumber) - barnumber = timeframe),H);

ColB;

[color=red]

retrac*(ColB)

There is possibly a way to make it run automatically linked to say the XJO that perhaps someone more skilled can code. I can see it may be handy to run it automatically for backtesting purposes.