12:08 MS: SB Code W/ 50 line below:       # # Study: FW_SnapBack # # Adapted from ToS CCI and RSI_EMA studies, # and configured as used by David Elliott as of 1/7/09. # # Mostly copywrite thinkorswim, inc. (2007) # # Modifications by ToS User: davidinc (david135@pc3i.com) # If you find any problems please let me know and refer # to the version number and date. Thanks. # # Revision history: # Vers Date        Change Descripton # ---- ---------   ----------------- #  0.0 2009-01-06  Original #  0.1 2009-01-12  Updated RSI section with code provided by kmktroy. #  0.2 2009-01-12  Updated RSI section with code provided by Sidewinder747 # declare lower; declare all_for_one;  input smoothingType = 1;  def   over_bought   = 80; def   over_sold     = 20; def   priceH        = high; def   priceL        = low; def   priceC        = close;  def KPeriod_0211 =  2; def DPeriod_0211 = 1; def slowing_period_0211 = 1; def KPeriod_0232 =  2; def DPeriod_0232 = 3; def slowing_period_0232 = 2; def KPeriod_0533 =  5; def DPeriod_0533 = 3; def slowing_period_0533 = 3; def KPeriod_0835 =  8; def DPeriod_0835 = 3; def slowing_period_0835 = 5; def KPeriod_1735 = 17; def DPeriod_1735 = 3; def slowing_period_1735 = 5; def KPeriod_4832 = 48; def DPeriod_4832 = 3; def slowing_period_4832 = 2;  def c1_0211  = priceC - Lowest(priceL, KPeriod_0211); def c1_0232  = priceC - Lowest(priceL, KPeriod_0232); def c1_0533  = priceC - Lowest(priceL, KPeriod_0533); def c1_0835  = priceC - Lowest(priceL, KPeriod_0835); def c1_1735  = priceC - Lowest(priceL, KPeriod_1735); def c1_4832  = priceC - Lowest(priceL, KPeriod_4832);  def c2_0211 = Highest(priceH, KPeriod_0211) - Lowest(priceL, KPeriod_0211); def c2_0232 = Highest(priceH, KPeriod_0232) - Lowest(priceL, KPeriod_0232); def c2_0533 = Highest(priceH, KPeriod_0533) - Lowest(priceL, KPeriod_0533); def c2_0835 = Highest(priceH, KPeriod_0835) - Lowest(priceL, KPeriod_0835); def c2_1735 = Highest(priceH, KPeriod_1735) - Lowest(priceL, KPeriod_1735); def c2_4832 = Highest(priceH, KPeriod_4832) - Lowest(priceL, KPeriod_4832);  def FastK_0211 = c1_0211 /c2_0211 * 100; def FastK_0232 = c1_0232 /c2_0232 * 100; def FastK_0533 = c1_0533 /c2_0533 * 100; def FastK_0835 = c1_0835 /c2_0835 * 100; def FastK_1735 = c1_1735 /c2_1735 * 100; def FastK_4832 = c1_4832 /c2_4832 * 100;  plot FullK_4832; plot FullK_1735; plot FullK_0835; plot FullK_0533; plot FullK_0232; plot FullK_0211;  if smoothingType == 1 then { FullK_0211 = Average(FastK_0211, slowing_period_0211);   FullK_0232 = Average(FastK_0232, slowing_period_0232);   FullK_0533 = Average(FastK_0533, slowing_period_0533);   FullK_0835 = Average(FastK_0835, slowing_period_0835);   FullK_1735 = Average(FastK_1735, slowing_period_1735);   FullK_4832 = Average(FastK_4832, slowing_period_4832); } else {   FullK_0211 = ExpAverage(FastK_0211, slowing_period_0211);   FullK_0232 = ExpAverage(FastK_0232, slowing_period_0232);   FullK_0533 = ExpAverage(FastK_0533, slowing_period_0533);   FullK_0835 = ExpAverage(FastK_0835, slowing_period_0835);   FullK_1735 = ExpAverage(FastK_1735, slowing_period_1735);   FullK_4832 = ExpAverage(FastK_4832, slowing_period_4832); }  FullK_0211.SetDefaultColor(Color.White); FullK_0211.SetStyle(Curve.Short_Dash); FullK_0232.SetDefaultColor(Color.White); FullK_0533.SetDefaultColor(Color.Yellow); FullK_0835.SetDefaultColor(Color.Green); FullK_1735.SetDefaultColor(Color.Red); FullK_4832.setDefaultColor(Color.Cyan);  FullK_0211.SetLineWeight(1); FullK_0232.SetLineWeight(1); FullK_0533.SetLineWeight(1); FullK_0835.SetLineWeight(1); FullK_1735.SetLineWeight(1); FullK_4832.SetLineWeight(1);   # RSI snapback studies - this piece is courtesy of Sidewinder747. Thanks. # updated 1/12/09.  input RSI_length = 2;  def diff = if close > close[1] then close - close[1] else 0; def diff2 = if close < close[1] then close[1] - close else 0;  rec avg = compoundValue(1, 2 / (RSI_length + 1) * diff + (RSI_length - 1) / (RSI_length + 1) * avg[1], diff * 2 / (RSI_length + 1)); rec avg2 = compoundValue(1, 2 / (RSI_length + 1) * diff2 + (RSI_length - 1) / (RSI_length + 1) * avg2[1], diff2 * 2 / (RSI_length + 1));  rec avgSMA = compoundValue(1, (avgSMA[1] + diff) / 2, diff); rec avgSMA2 = compoundValue(1, (avgSMA2[1] + diff2) / 2, diff2);  def value = if avg2 != 0 then 100 - 100 / (1 + avg / avg2) else 0; def valueSMA = if avg2 != 0 then 100 - 100 / (1 + avgSMA / avgSMA2) else 0;  plot RSI_EMA = ExpAverage(value, 2); plot RSI_SMA = Average(valueSMA, 2);  RSI_EMA.SetDefaultColor(Color.DARK_ORANGE); RSI_EMA.SetLineWeight(1); RSI_SMA.SetDefaultColor(Color.MAGENTA); RSI_SMA.SetLineWeight(1);  plot Zeroline = 50;Zeroline.setdefaultColor (color.GREEN);zeroline.setStyle (curve.SHORT_DASH);

declare lower;
declare all_for_one;

input smoothingType = 1;
input length = 2;

def priceH = high;
def priceL = low;
def priceC = close;

def KPeriod48 = 48;
def DPeriod48 = 3;
def slowing48 = 2;

def KPeriod17 = 17;
def DPeriod17 = 3;
def slowing17 = 5;

def KPeriod8 = 8;
def DPeriod8 = 3;
def slowing8 = 5;

def KPeriod5 = 5;
def DPeriod5 = 3;
def slowing5 = 3;

def KPeriod22 = 2;
def DPeriod22 = 3;
def slowing22 = 2;

def KPeriod211 = 2;
def DPeriod211 = 1;
def slowing211 = 1;
#### Stoc48 ####
def c148 = priceC – Lowest(priceL, KPeriod48);
def c248 = Highest(priceH, KPeriod48) – Lowest(priceL, KPeriod48);
def FastK48 = c148/c248*100;
plot FullK48;
if smoothingType == 1
then {
    FullK48 = Average(FastK48, slowing48);
} else {
    FullK48 = ExpAverage(FastK48, slowing48);
}
FullK48.setDefaultColor(Color.CYAN);
FullK48.SetLineWeight(2);

#### Stoc17 ####
def c117 = priceC – Lowest(priceL, KPeriod17);
def c217 = Highest(priceH, KPeriod17) – Lowest(priceL, KPeriod17);
def FastK17 = c117/c217*100;
plot FullK17;
if smoothingType == 1
then {
    FullK17 = Average(FastK17, slowing17);
} else {
    FullK17 = ExpAverage(FastK17, slowing17);
}
FullK17.setDefaultColor(Color.RED);
FullK17.SetLineWeight(2);

#### Stoc8 ####
def c18 = priceC – Lowest(priceL, KPeriod8);
def c28 = Highest(priceH, KPeriod8) – Lowest(priceL, KPeriod8);
def FastK8 = c18/c28*100;
plot FullK8;
if smoothingType == 1
then {
    FullK8 = Average(FastK8, slowing8);
} else {
    FullK8 = ExpAverage(FastK8, slowing8);
}
FullK8.setDefaultColor(Color.GREEN);
FullK8.SetLineWeight(2);

#### Stoc5 ####
def c15 = priceC – Lowest(priceL, KPeriod5);
def c25 = Highest(priceH, KPeriod5) – Lowest(priceL, KPeriod5);
def FastK5 = c15/c25*100;
plot FullK5;
if smoothingType == 1
then {
    FullK5 = Average(FastK5, slowing5);
} else {
    FullK5 = ExpAverage(FastK5, slowing5);
}
FullK5.setDefaultColor(Color.YELLOW);
FullK5.SetLineWeight(2);

#### Stoc223 ####
def c122 = priceC – Lowest(priceL, KPeriod22);
def c222 = Highest(priceH, KPeriod22) – Lowest(priceL, KPeriod22);
def FastK22 = c122/c222*100;
plot FullK22;
if smoothingType == 1
then {
    FullK22 = Average(FastK22, slowing22);
} else {
    FullK22 = ExpAverage(FastK22, slowing22);
}
FullK22.setDefaultColor(Color.WHITE);
FullK22.SetLineWeight(2);

#### Stoc211 ####
def c1211 = priceC – Lowest(priceL, KPeriod211);
def c2211 = Highest(priceH, KPeriod211) – Lowest(priceL, KPeriod211);
def FastK211 = c1211/c2211*100;
plot FullK211;
if smoothingType == 1
then {
    FullK211 = Average(FastK211, slowing211);
} else {
    FullK211 = ExpAverage(FastK211, slowing211);
}
FullK211.setDefaultColor(Color.WHITE);
FullK211.SetStyle(Curve.SHORT_DASH);
FullK211.SetLineWeight(1);

def diff = if close > close[1] then close – close[1] else 0;
def diff2 = if close < close[1] then close[1] - close else 0;

rec avg = compoundValue(1, 2 / (length + 1) * diff + (length - 1) / (length + 1) * avg[1], diff * 2 / (length + 1));
rec avg2 = compoundValue(1, 2 / (length + 1) * diff2 + (length - 1) / (length + 1) * avg2[1], diff2 * 2 / (length + 1));

rec avgSMA = compoundValue(1, (avgSMA[1] + diff) / 2, diff);
rec avgSMA2 = compoundValue(1, (avgSMA2[1] + diff2) / 2, diff2);

def value = if avg2 != 0 then 100 - 100 / (1 + avg / avg2) else 0;
def valueSMA = if avg2 != 0 then 100 - 100 / (1 + avgSMA / avgSMA2) else 0;

plot RSI_EMA = ExpAverage(value, 2);
plot RSI_SMA = Average(valueSMA, 2);

RSI_EMA.SetDefaultColor(Color.DARK_ORANGE);
RSI_EMA.SetLineWeight(2);
RSI_SMA.SetDefaultColor(Color.MAGENTA);
RSI_SMA.SetLineWeight(2);

CCI STUDIES

declare lower;

input length05 = 5;
input length20 = 20;
input length50 = 50;
input over_sold   = -100;
input over_bought =  100;

def price = (high + low + close);
def linDev05 = lindev(price, length05);
def linDev20 = lindev(price, length20);
def linDev50 = lindev(price, length50);

plot CCI05 = if linDev05 == 0 then 0 else (price – Average(price, length05)) / linDev05 / 0.015;
plot CCI20 = if linDev20 == 0 then 0 else (price – Average(price, length20)) / linDev20 / 0.015;
plot CCI50 = if linDev50 == 0 then 0 else (price – Average(price, length50)) / linDev50 / 0.015;

plot OverBought = over_bought;
plot ZeroLine = 0;
plot OverSold = over_sold;

CCI05.SetDefaultColor(Color.MAGENTA);
CCI20.SetDefaultColor(Color.YELLOW);
CCI50.SetDefaultColor(Color.CYAN);

Overbought.SetDefaultColor(GetColor(5));
ZeroLine.SetDefaultColor(GetColor(5));
Oversold.SetDefaultColor(GetColor(5));

TODAY’S MARKET CALL: Again we had a good up day with the Q’s and SP- 500 finally kicking into high gear along with the DJ-30. Transports also showed up for this move. Momentum is to the upside but we will see correction days along the way and that is my job to point out those corrections to the trend. Today we are getting signals from the `VIX’ that it is going to rally today which means the markets should see some selling as some volatility starts to show itself today. We also have some “Up volume” issues for todayindicating it too may want to correct. DJ-30 shows resistance at the 11,885 levels and supports coming in at 11,805. The DJ -30 has support on intra dips at 11,704 and resistance at 11,811 Most supports will come of the moving intra day moving 50 simple moving averages. QQQQ will see resistance at 41.50 and supports starting at 41.00 and 40.70

The QQQQ made a new high and is how back negative on the day leaving us
with a new high Doji candlestick… a warning if we do not blow the
doors off the recent highs.

ALL THREE TIME PERIODS = BULL
Long term, – Bull, DJ-30, (weekly above 50sma and above
200sma)
Medium Term: BULL ,( Above the 50 daily, And above 200 sma daily,
11,171 IS DAILY CUT OFF )
Short Term: BEAR (hourly BELOW 50sma and 200 sma).
*********************************************************************
********************
EUROPE, London, Ireland, EARLY FALL SEMINARS, EMAIL TO GET ON
LIST.

*********************************************************************
**************
@@@@@@@@@@@@@
@@@@@@@@@
**********
FRIDAY’S MARKET CALL: We got a correction of over -100 points intra-
day and a bounce in the last hour from 2 day sell flats. Again we
did not find any selling for the daily charts, just a case of over
bought for some internals.
The DJ is below the hourly 50 so we would expect an automatic rally
back to test it this morning,
11,551. At the 50 sma we will se if there is strength for a rally
back to yesterday’s highs.

*******************************************************************
**
********************************************************

TODAY’S MARKET CALL: The Friday sell-off went thru Thursday lows and
found support at the 30 min 200 SMA..
Our bounce Friday failed to reach the 30 min. or hourly 50 sma a
target today for resistance on any up move.
DJ resistance is 11,545, 11,550
DJ downside targets for support come in at 11.455, 11,353. and
11,262.
QQQQ Upside resistance 40.10 and 40.20 with down side support
targets at 39.57, 39.35 and 38.46.
SP-500 Upside targets start at 1319.22 , 1320.24 with downside
targets at 1311.47, 1309.55.

*********************************************************************
********************************************************
Big Picture:
The DJ-30 daily is now above the 50 sma, and above the 200 sma.
We have TAKEN OUT the August highs and made new September high
without making new highs for the year yet.
We are now faced with a double top from the earlier highs of the
year.

*********************************************************************
***

METALS MARKETS:

GOLD, Suggesting a down day today, Low Target low $582.00, $577.80

SILVER, Bounce day for silver yesterday and more today, Low Target
$10.32

US DOLLAR, 85.48 upside target today Any bounce tests the 50 from
below.

GOVERNMENT REPORTS

Earnings
Company Name Symbol EPS Estimate Call
WALGREEN CO WAG
0.41
N/A
WOLSELEY PLC WOS
N/A
N/A
JLG INDUSTRIES JLG
0.42
Call

more…

Economic
Statistic For/Time Actual Prior
Existing Home Sales
Aug/10:00 AM – 6.33M
more…

SOME PRE MARKET UP MOVERS
ACOR
WARR
SPPI
GPCB
PHRM
CHRS
UAUA
BIDU
LRCX

SOME P[RE MARKET DOWN MOVERS
TALK
UHCP
MCSS
HEPH
FNET
OXGN
SNDK
SYMC

BULL KICKERS;
WTSLA
AV
GTCB
PVX
AHO
VVR
HMY
SWIR
NTO

BULL ENGULFING
SYNA
PDU
KR
NXXI
AIM
BXC
BRP

OPTIONABLE STOCKS WITH HIGH VOLUME
TALK
COGN
GCO
TRB
PIR
HYGS
NYX
PCLN
BJ
BELM
TWTC
LFC
HOV
STSI
PALM
BMHC
GSS
BKS

MOBO BREAKOUTS WITH A GAP OVER THE 50 SMA
OSCI
CMED
AZK
AH
PAL
BA
PCG

SNAP BACK UP STOCKS
MDC
JDSA
SPG
CAL
AT
HEW
TTC
PFGC
DJUS
WRS
S
PMET
AEL
RIGL
NFP

UTILITY STOCKS
FPU
EGR
PCG
UTL

DOWNWARD SIGNALLING STOCKS
STOCKS WITH MULTIIPLE DAY SELL FLATS
CMCSA
CHKP
XRAY
PCAR
SYMC
QCOM

UPWARD SIGNALING STOCKS WITH BUY FLATS.
NHD
GENZ
CMVT

BEAR KICKERS
KOOL
SUNW
BDY
KNDL
OSI
IRIS
ISE
SIGM
ORCL
EAC
SYMN
XCO
AVII
SWW
JNPR
LNG
FRO

BEAR ENGULFING
SYNM
CTCI
PTN
HOS
PLLL
CRZO
ACI
SWN
HAWK
THE
BJS
SLAB
GIGM

WANT WALLSTREETTEACHERS CLASS IN YOU TOWN ?? , CALL …
407-719-2592

WallStreetTeachers.com is not a registered Investment Advisor or a
Broker/Dealer and does not provide investment advice or
recommendations.
Subscribers to the Hotcomm.com site, the Yahoo site, and the
TCNET “firstwave” club are advised that the information, opinions,
and analysis included there are based in good faith on sources
believed to be reliable, but no representation or warranty,
expressed or implied, is made as to their accuracy, completeness, or
correctness. Past performance is not necessarily indicative of the
future performance of stocks posted in the “firstwave” club or
`Hotcomm.com’ site, or Yahoo site.
Neither these postings nor the “Firstwave”
chat, “Wallstreetteachers” `Hotcomm.com’ site, or yahoo emails, nor
any other information provided on our web sites or through any other
communication constitutes a recommendation to buy or sell stocks, or
any other investment. Investing involves the risk of loss and
readers are urged to consult with their own independent financial
advisors with respect to any investment.

Daily calculations

Pivot Point Daily
((H + L + C) / 3)

S1D
((((H + L + C) / 3) * 2) – H)

S2D
((((H + L + C) / 3) – H) + L)

R1D
((((H + L + C) / 3) * 2) – L)

R2D
((((H + L + C) / 3) + H) – L)

Weekly Calculations (Rolling calculations, so review on Friday after close for calendar week)

Pivot Point weekly
((MAXH5 + MINL5 + C) / 3)

S1W
((((MAXH5 + MINL5 + C) / 3) * 2) – MAXH5)

S2W
((((MAXH5 + MINL5 + C) / 3) – MAXH5) + MINL5)

R1W
((((MAXH5 + MINL5 + C) / 3) * 2) – MINL5)

R2W
((((MAXH5 + MINL5 + C) / 3) + MAXH5) – MINL5)

Note:
Only copy/paste the formulas. The PCF names are arbitrary and can be changed to your liking.