Think or Swim Code/indicators

[popstocks 10]

  BlowFish said:

It projects what the volume would be at bar close based on how much as occurred so far.

 

This will not work in TOS, their code does not allow intrabar resampling (you cannot get it to recalculate every second) it will only calculate when a new bar is made. If you want to gauge volume more closely I suggest using a small size tick chart and watching volume there.

[elovemer 10]

... on a five min chart... i find it helpful to use three bar volume....

.... each volume bar shows as the sum of the last two volume bars and the current volume bar....

  popstocks said:

This will not work in TOS, their code does not allow intrabar resampling (you cannot get it to recalculate every second) it will only calculate when a new bar is made. If you want to gauge volume more closely I suggest using a small size tick chart and watching volume there.

[elovemer 10]

....TOS new active trader layout ....

 

.... shows how much volume happened at each price level....

.... it is a bit like market profile....

...it allows you to see at what prices the most volume occurred....

 

....anyone else using it in this way ?

[avanza 10]

elovemer,

 

where in TOS do you se this information?

 

i can´t find it anywere...

[olie1018 10]

active trader is one of the tabs to the right of your tos chart...

 

jim

[elovemer 10]

... open your "trade grid"

.... then choose "active trader" as your visual style....

... then just look at the "volume" column

 

... market profile makes a visual representation of volume....

.... this just shows the total volume for each price.....

 

....although.... i would think that someone with a little programming skill could come up with a market profile code..... just based on this data....

 

ANYONE ? ... ready to program market profile for TOS ?

 

  avanza said:

elovemer,

where in TOS do you se this information?

i can´t find it anywere...

[elovemer 10]

TOS market profile what do you think ?

Edited February 21, 2009 by elovemer

[avanza 10]

Looks great. I´m sorry to say I have free demo and can´t get anything in the "active traders grid" it´s just blank...

[hazenvnn 10]

Someone can code a non lag zigzag indicator ?

[MC 10]

  elovemer said:

TOS market profile what do you think ?

 

Better than nothing but not market profile in reality. It's a volume profile...not scalable that easily. It's not linked to the chart so while you can expand or shrink the profile it still just dosen't match the chart in my experience.

 

I have had lag issues with my TOS charting lately and am looking at going to sierra or ensign again to get full profile charting.

 

Anyone else had issues with TOS data as of the last few months?

[elovemer 10]

a lot more indicators out there now.... on various websites.... using thinkscript

[mchrisxx 10]

Does anyone has the TTM trend indicator for TOS???

 

}

inputs: CompBars(6), UpColor(Blue), DnColor(Red), BarWidth(1);

 

vars: haClose(0), haOpen(0), color(0);

 

if BarNumber = 1 then

begin

haOpen = open;

haClose = (O+H+L+C)/4;

end;

 

if BarNumber > 1 then

begin

haClose = (O+H+L+C)/4;

haOpen = (haOpen [1] + haClose [1])/2 ;

 

{ .................................................. .............................. }

 

if haClose > haOpen then color = UpColor

else color = DnColor;

 

for value1 = 1 to CompBars

begin

if haOpen <= MaxList(haOpen[value1],haClose[value1]) and

haOpen >= MinList(haOpen[value1],haClose[value1]) and

haClose <= MaxList(haOpen[value1],haClose[value1]) and

haClose >= MinList(haOpen[value1],haClose[value1]) then

color = color[value1];

end;

 

{ .................................................. .............................. }

 

 

// plotPB(haOpen,haClose,"heikin-ashi",color);

plotPB(High,Low,"heikin-ashi",color);

SetPlotWidth(1,BarWidth);

SetPlotColor(1,color);

 

end;

{ .................................................. .............................. }

 

This is trend indicator for tradestation can somebody help me translated to TOS language

Edited November 7, 2009 by mchrisxx

[Prepared Investor 10]

Where does the code below says that Bollinger Bands is set with (20, 2) and Keltner channel is with (20, 1.5)? The closest I see is marked in yellow below.

 

Just want to know what parameters have been used in BB and KC, in the code below.

 

Thanks,

 

Nidhi

 

 

  trader_john said:

There were a couple of extra spaces, and the bollingerbands reference was broken. This should work:

 

declare lower;

input Length = 20;

input price = close;

######################

def e1 = (Highest(High, length) + Lowest(low, length)) / 2 + Average(close, length);

def osc = Inertia(price - e1 / 2, length);

plot oscp = osc;

 

def diff = reference BollingerBandsSMA(length = 20)."upperband" - reference KeltnerChannels."Upper_Ba nd";

plot mid = 0;

mid.assignValueColor(if diff >= 0 then Color.UPTICK else Color.DOWNTICK);

 

#oscp.assignValueColor(if osc[1] < osc[0] then Color.CYAN else Color.magenta);

oscp.assignValueColor(if osc[1] < osc[0] then

if osc[0] >= 0 then

#UpPos

createColor(0, 255, 255) else

#UpNeg

createColor(204, 0, 204)

else if osc[0] >= 0 then

#DnPos

createColor(0, 155, 155) else

#DnNeg

createColor(255, 155, 255));

 

oscp.setPaintingStrategy( PaintingStrategy.HISTOGRAM);

mid.setPaintingStrategy(PaintingStrategy.POINTS);

[cascadegps 10]

I loaded the squeeze today and removed the extra spaces. I get the dots but no histogram to show if the do means long or short. Is there something else in the code I have to change to get the histogram? thanks

[WCMcKee87 10]

I'm not too sure what you guys are talking about, but if your looking for the tick and/or makret profile TOS has that already built in. Letme know if thats what your looking for and I'll let you know how to find it

[HI_THERE 10]

there are a bunch of free indicators, links and resources here:

 

Custom Thinkscript Indicators

[elovemer 10]

some stuff i coded....

scalps for 15 min chart

----------------------------------------

 

declare lower;

declare zerobase;

input length = 50;

input size = 2.5;

 

plot body = if ((absvalue(close-open)) >= size) then absvalue(close-open) else 0;

#absvalue (close-open) ;

plot bodyAvg = Average((absvalue(close-open)), length);

 

 

plot after = if

((absvalue(close[1]-open[1])) >= size)

and

( (absvalue(close[1]-open[1])) / (absvalue(close-open)) ) >=2 then

( (absvalue(close-open)) ) else 0;

after.SetPaintingStrategy(PaintingStrategy.HISTOGRAM);

after.SetDefaultColor(GetColor(2));

 

 

plot dwnreverse = if

(close[1] < open[1]) and

((absvalue(close[1]-open[1])) >= size)

and

( close > ( ((absvalue (close[1]-open[1]))/2)+ close[1]))

then

(absvalue(close-open)) else 0;

dwnreverse.SetPaintingStrategy(PaintingStrategy.HISTOGRAM);

dwnreverse.SetDefaultColor(GetColor(6));

 

 

plot upreverse = if

(close[1] > open[1]) and

((absvalue(close[1]-open[1])) >= 2)

and

( close < ( (close[1]) - ((absvalue (close[1]-open[1]))/2) ))

then

(absvalue(close-open)) else 0;

upreverse.SetPaintingStrategy(PaintingStrategy.HISTOGRAM);

upreverse.SetDefaultColor(GetColor(5));

 

 

 

body.SetPaintingStrategy(PaintingStrategy.HISTOGRAM);

body.DefineColor("Up", Color.yellow);

body.DefineColor("Down", Color.blue);

 

body.AssignValueColor(if close > close[1] then body.color("Up") else if close < close[1] then body.color("Down") else GetColor(1));

bodyAvg.SetDefaultColor(GetColor(8));

[elovemer 10]

reversal signal

 

------------------------------------

 

 

 

input signalOffsetFactor = 0.20;

def signalOffset = AvgTrueRange(high,close,low,9)*signalOffsetFactor;

 

input price = close;

def triggerSell =

(close[1] > open[1]) and

((absvalue(close[1]-open[1])) >= 1)

and

( close < ( (close[1]) - ((absvalue (close[1]-open[1]))/2) ))

;

#--------------------------------

def triggerBuy = (close[1] < open[1]) and

((absvalue(close[1]-open[1])) >= 1)

and

( close > ( ((absvalue (close[1]-open[1]))/2)+ close[1]))

;

 

#-----------------------------------------

#plot SBS = if (triggerSell , high+signaloffset, if (triggerBuy, low-signaloffset, double.nan) );

plot uSBS = if (triggerSell, high+signaloffset, double.nan);

plot dBS = ( if (triggerBuy, low-signaloffset, double.nan) );

 

 

uSBS.SetStyle(curve.POINTS);

uSBS.SetPaintingStrategy(paintingStrategy.LINE_VS_SQUARES);

uSBS.SetLineWeight(2);

uSBS.SetDefaultColor(color.blue);

 

dBS.SetStyle(curve.POINTS);

dBS.SetPaintingStrategy(paintingStrategy.LINE_VS_SQUARES);

dBS.SetLineWeight(2);

dBS.SetDefaultColor(color.blue);

[elovemer 10]

demand

-------------------------------

 

declare lower;

input ATRLength = 14;

#plot ATR = AbsValue(close - open);

plot ATR = if ((close-open)<0) then ((volume)/ABSVALUE(close-open))

else 0;

 

ATR.SetDefaultColor(GetColor(8));

ATR.SetPaintingStrategy(PaintingStrategy.HISTOGRAM);

ATR.DefineColor("Positive", Color.green);

ATR.DefineColor("Negative", Color.red);

ATR.AssignValueColor(if

(close - open) > 0

then ATR.color("Positive") else ATR.color("Negative"));

[elovemer 10]

supply

----------------------

 

declare lower;

input ATRLength = 14;

#plot ATR = AbsValue(close - open);

plot ATR = if ((close-open)>0) then ((volume)/(close-open))

else 0;

 

ATR.SetDefaultColor(GetColor(8));

ATR.SetPaintingStrategy(PaintingStrategy.HISTOGRAM);

ATR.DefineColor("Positive", Color.green);

ATR.DefineColor("Negative", Color.red);

ATR.AssignValueColor(if

(close - open) > 0

then ATR.color("Positive") else ATR.color("Negative"));

[elovemer 10]

decrease in pivot range

--------------------------------------

 

declare lower;

input ATRLength = 14;

 

def HA = high[1];

def HB = high[2];

def HC = high[3];

def LA = low[1];

def LB = low[2];

def LC = low[3];

def C = close[1];

def H3 = Max(Max(HA, HB), HC);

def L3 = Min(Min(LA, LB), LC);

Def calc_PP = (H3 + L3 + C) / 3;

def calc_MP = (H3 + L3) / 2;

def calc_PR = AbsValue(calc_PP - calc_mp);

 

def calc_PH = Calc_PP + calc_PR;

def calc_PL = Calc_PP - calc_PR;

 

plot ATR = -

( (absvalue(calc_PH-calc_PL))- (absvalue(calc_PH[1]-calc_PL[1]))

);

#plot ATR =1/(AbsValue(calc_PH - calc_PL)) ;

#def hum = (AbsValue(calc_PH - calc_PL)) ;

 

ATR.SetDefaultColor(GetColor(8));

ATR.SetPaintingStrategy(PaintingStrategy.HISTOGRAM);

ATR.DefineColor("Positive", Color.gray);

ATR.DefineColor("Negative", Color.green);

ATR.AssignValueColor(if

#HUM

ATR < 0

then ATR.color("Positive") else ATR.color("Negative"));

[elovemer 10]

volume by body by range

--------------------------------

 

declare lower;

input ATRLength = 14;

#plot ATR = AbsValue(close - open);

#plot ATR = ((volume)/(absvalue(close-open)));

plot ATR = volume / ((absvalue(close-open))/(absvalue(high-low)));

 

ATR.SetDefaultColor(GetColor(8));

ATR.SetPaintingStrategy(PaintingStrategy.HISTOGRAM);

ATR.DefineColor("Positive", Color.green);

ATR.DefineColor("Negative", Color.red);

ATR.AssignValueColor(if

(close - open) > 0

then ATR.color("Positive") else ATR.color("Negative"));

[olie1018 10]

Hello,

 

I copied your 15 min scalp and pasted into thinkscript and i'm getting a message that the code is incorrect... Any advice?

[elovemer 10]

let me check it

..................

.....................

 

  olie1018 said:

Hello,

 

I copied your 15 min scalp and pasted into thinkscript and i'm getting a message that the code is incorrect... Any advice?

[elovemer 10]

it put some extra spaces in there when i pasted it

 

try this

 

i took out spaces in "histo gram" for example

 

  elovemer said:

some stuff i coded....

scalps for 15 min chart

----------------------------------------

 

 

declare lower;

declare zerobase;

input length = 50;

input size = 2.5;

 

plot body = if ((absvalue(close-open)) >= size) then absvalue(close-open) else 0;

#absvalue (close-open) ;

plot bodyAvg = Average((absvalue(close-open)), length);

 

 

plot after = if

((absvalue(close[1]-open[1])) >= size)

and

( (absvalue(close[1]-open[1])) / (absvalue(close-open)) ) >=2 then

( (absvalue(close-open)) ) else 0;

after.SetPaintingStrategy (PaintingStrategy.HISTOGRAM);

after.SetDefaultColor(Get Color(2));

 

 

plot dwnreverse = if

(close[1] < open[1]) and

((absvalue(close[1]-open[1])) >= size)

and

( close > ( ((absvalue (close[1]-open[1]))/2)+ close[1]))

then

(absvalue(close-open)) else 0;

dwnreverse.SetPaintingStr ategy(PaintingStrategy.HISTOGRAM);

dwnreverse.SetDefaultColo r(GetColor(6));

 

 

plot upreverse = if

(close[1] > open[1]) and

((absvalue(close[1]-open[1])) >= 2)

and

( close < ( (close[1]) - ((absvalue (close[1]-open[1]))/2) ))

then

(absvalue(close-open)) else 0;

upreverse.SetPaintingStra tegy(PaintingStrategy.HISTOGRAM);

upreverse.SetDefaultColor (GetColor(5));

 

 

 

body.SetPaintingStrategy( PaintingStrategy.HISTOGRAM);

body.DefineColor("Up", Color.yellow);

body.DefineColor("Down", Color.blue);

 

body.AssignValueColor(if close > close[1] then body.color("Up") else if close < close[1] then body.color("Down") else GetColor(1));

bodyAvg.SetDefaultColor(G etColor(8));