Thinkscript to Easy Language

October 8th, 2012, 07:25 PM

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));

October 8th, 2012, 08:42 PM

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

October 8th, 2012, 09:07 PM

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

October 8th, 2012, 11:22 PM

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");

January 26th, 2015, 06:27 PM

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 http://ww1.smalldoginvestor.com/?usid=24&utid=7393946367 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. http://ww1.smalldoginvestor.com/?usid=24&utid=7393946367 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);
#####################

December 19th, 2018, 10:45 PM

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

December 21st, 2018, 07:28 AM

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);

Thinkscript to Easy Language

Discussion in TradeStation

Thinkscript to Easy Language