I'm struggling to learn this code.. Trying to convert my very simple watchlist script into a radar screen function of easy language. This is the code if anyone can help out maybe it will start to click after this I am hoping. Thanks in advance.


def dmiplus = DMI(length = 14)."DI+";
def dmiminus = DMI(length = 14)."DI-";


def isBull = dmiplus > dmiminus and dmiplus[1] <= dmiminus[1];
def isBear = dmiplus < dmiminus and dmiplus[1] >= dmiminus[1];
plot PlotBull = if isBull then 1 else if isBear then -1 else 0;
PlotBull.assignValueColor(if isBull then color.UPTICK else if isBear then color.DOWNTICK else CreateColor(237, 237, 237));
assignBackgroundColor(if isBull then color.UPTICK else if isBear then color.DOWNTICK else CreateColor(237, 237, 237));

Here's a simple indicator based on your tos code. I don't have experience with radarscreen so you might need to add a few function calls to change the cell colors, etc. If you really need it, I can try. Let me know.

 

Code

vars: dmipl(0), dmimi(0), isBull(false), isBear(false); dmipl = dmiplus(14); dmimi = dmiminus(14); if dmipl > dmimi and dmipl[1] <= dmimi[1] then isBull = true else isBull = false; if dmipl < dmimi and dmipl[1] >= dmimi[1] then isBear = true else isBear = false; value1 = iff (isBull, 1, iff(isBear, -1, 0)); Plot1(value1, "DMI +-"); Plot2(0, "UPTICK"); plot3(0, "DNTICK"); noPlot(2); noPlot(3); if isBull then setPlotcolor(1, getPlotColor(2)) else if isBear then setPlotcolor(1, getPlotColor(3)) else setPlotcolor(1, rgb(237, 237,237));

Hope this helps,
-C

Thanks a lot this is great! I certainly appreciate the quick response!

I think I am getting close.. It seems to work but what I was hoping for was only indicate for a current crossing otherwise the cell should be white.. Anyway this is what I have. I am struggling with if the cell isn't 1 or -1 I am wanting it to be white or black(just not setting a color if there is no cross). I hope this makes sense. Thanks again

vars:
dmipl(0),
dmimi(0),
isBull(false),
isBear(false),
LongShort("");


dmipl = dmiplus(14);
dmimi = dmiminus(14);

if dmipl > dmimi and dmipl[1] <= dmimi[1] then isBull = true else isBull = false;
if dmipl < dmimi and dmipl[1] >= dmimi[1] then isBear = true else isBear = false;

value1 = iff (isBull, 1, iff(isBear, -1,0));

var:color(0); color = yellow;

if value1 = 1 then begin

Color = Green;
End
Else Begin

Color = red;
End;

If value1 > 0 then begin
LongShort = "Long";
End
else begin
LongShort = "Short" ;
End;

If LongShort = "Short" then Color = red
Else Color = green;

SetPlotBGColor(6, color);
SetPlotColor(6, white);
Plot6(LongShort, "LongShort");

Im looking for someone who knows how to code that could help me with this. I need this converted from thinkscript to easy language. Any help is much appreciated. Thanks in advance.

# sdi_psarstgy:
#hint:Strategy to evaluate trading parabolic-stop-and-reverse signals https://www.smallDogInvestor.com rev:1.1.0
# author: allen everhart
# date: 16may2014
# revisions:
# 4jun2014-added %win label, corrected reverse price on gaps
input dollarsPerTrade = 10000;
#hint dollarsPerTrade: trades vary in share size in order to keep the invested dollars constant to create a fair comparison to passive strategies. https://www.smallDogInvestor.com rev: 1.1.0
input accelerationFactor = 0.02;
#hint accelerationFactor: controls how steep a parabola is traced by the stop.
input accelerationLimit = 0.2;
#hint accelerationLimit: after the limit is reached the stop moves up in a straight line.

def psar = ParabolicSAR( "acceleration limit" = accelerationLimit, "acceleration factor" = accelerationFactor);
def buySig = close crosses above psar;
def sellSig = close crosses below psar;
def shareSize = round(dollarsPerTrade/psar,0) ;
def buyPrice=#psar;
if open[-1]>psar then open[-1]
else psar;
def sellPrice= #psar;
if open[-1]<psar then open[-1]
else psar;
AddOrder(OrderType.BUY_AUTO, buySig[-1], price = buyPrice, tradeSize=shareSize, name = "buy");
AddOrder(OrderType.SELL_AUTO, sellSig[-1], price = sellPrice, tradeSize=shareSize, name="short");
plot parSAR = psar;
parsar.setPaintingStrategy(paintingStrategy.POINTS);
parSar.setDefaultColor(color.rED);

def longPrice=compoundValue(1,
if !longPrice[1] && buySig[-1] then buyPrice
else if longPrice[1] && sellSig[-1] then 0
else longPrice[1]
,0
);
#plot lp=longPrice;
def shortPrice=compoundValue(1,
if !shortPrice[1] && sellSig[-1] then sellPrice
else if shortPrice[1] && buySig[-1] then 0
else shortPrice[1]
,0
);
#plot sp=shortPrice;

def wincntr= compoundValue(1,
if longPrice[1] && sellSig[-1] && sellPrice>longPrice[1] then wincntr[1]+1
else if shortPrice[1] && buySig[-1] && shortPrice[1]>buyPrice then wincntr[1]+1
else wincntr[1]
,0
);
def winNum=if isnan(wincntr) then winNum[1] else wincntr ;
def losscntr= compoundValue(1,
if longPrice[1] && sellSig[-1] && sellPrice<=longPrice[1] then losscntr[1]+1
else if shortPrice[1] && buySig[-1] && shortPrice[1]<=buyPrice then losscntr[1]+1
else losscntr[1]
,0
);
def lossNum=if isnan(lossCntr) then lossNum[1] else lossCntr ;

addlabel(1,
concat( "win: ",
concat( round( 100*winNum/(winNum+lossNum),1),
concat( "% of ", winNum+lossNum))),

color.BLUE);
#####################

Can anyone please let me know how to convert thinkscript to easylanguage?
Is there any approach to do it?
Thanks

Can anyone please help me to convert this thinkscript code to easylanguage?
I would very appreciate.



declare upper;

input avglength = 14;
input MTaverageType = AverageType.WILDERS;
input ATRLength = 5;

##DayATR Value Calculation
def highPrice = FundamentalType.high;
def closePrice = FundamentalType.close;
def lowPrice = FundamentalType.low;
def aggregationPeriod = AggregationPeriod.DAY;
rec AvgTrueRange = MovingAverage(AverageType.SIMPLE, TrueRange(Fundamental (highPrice, period = AggregationPeriod.Day), Fundamental (closePrice, period = AggregationPeriod.DAY), Fundamental (lowPrice, period = AggregationPeriod.DAY) ),ATRlength);