[Fwd: Bull and Bear Fear]

[Dennis Holverstott <dennis@xxxxxxxxxx>]

Thanks to Sentinal and Walt.

-- 
   DennisReturn-Path: <rjbiiilis@xxxxxxxxxxxxx>
Delivered-To: dennis@xxxxxxxxxx
Received: (qmail 18317 invoked from network); 17 Jul 1998 02:22:21 -0000
Received: from ns.bluegrass.net (root@xxxxxxxxxxxx)
  by coinet.com with SMTP; 17 Jul 1998 02:22:21 -0000
Received: from default (dial13.pm3.bluegrass.net [205.198.147.13])
	by ns.bluegrass.net (8.8.5/8.8.8) with SMTP id WAA14406
	for <dennis@xxxxxxxxxx>; Thu, 16 Jul 1998 22:18:05 -0400 (EDT)
Date: Thu, 16 Jul 1998 22:22:12 -0400
To: "dennis@xxxxxxxxxx" <dennis@xxxxxxxxxx>
From: "Sentinel Trading" <rjbiiilis@xxxxxxxxxxxxx>
Importance: medium
Priority: normal
X-Mailer: IBM Internet Messaging Framework
Message-Id: <900642132-0-rjbiiilis@xxxxxxxxxxxxx>
X-MIME-Engine: v0.58
Subject: Re[2]: Bull and Bear Fear
MIME-Version: 1.0
Content-Type: text/plain; charset=ISO-8859-1
Content-Id: <900642132-1-rjbiiilis@xxxxxxxxxxxxx>
Content-Transfer-Encoding: 8bit


Hope this helps.


{Fear Function}

Fear = (((Highest(Price, Length) - (Lowest(Price, Length)) / 2 ) + (
Lowest(Price, Length))))

========================================================================

{FearPobcOsc Function from tasc Aug 1998}


Inputs: Price(Numeric), Length(Numeric), Level(numeric);
Vars: AvgAvgs(0), HiPrice(0), LoPrice(0), AvgVal(0);
Array:MPAvg[10](0);

AvgAvgs = 0;
MPAvg[1] = MidPoint(Price,Length);
MPAvg[2] = MidPoint(MPAvg[1],Length);
MPAvg[3] = MidPoint(MPAvg[2],Length);
MPAvg[4] = MidPoint(MPAvg[3],Length);
MPAvg[5] = MidPoint(MPAvg[4],Length);
MPAvg[6] = MidPoint(MPAvg[5],Length);
MPAvg[7] = MidPoint(MPAvg[6],Length);
MPAvg[8] = MidPoint(MPAvg[7],Length);
MPAvg[9] = MidPoint(MPAvg[8],Length);
MPAvg[10] = MidPoint(MPAvg[9],Length);

HiPrice = Highest(Price,Level);
LoPrice = Lowest(Price,Level);

For value1 = 1 to level begin
    AvgAvgs = AvgAvgs + MPAvg[value1];
end;

AvgVal = AvgAvgs/Level;

If HiPrice - LoPrice <> 0 Then
    FearPobcOsc = 100* ((Close - AvgVal) / (HiPrice - LoPrice));

==========================================================================

{Fear Bands}{Set to scale to screen and plot in same subgraph as prices}

Input: Length(12);
 
 Plot1(Fear(High, LENGTH),"BullFear");
 Plot2(Fear(Low, Length),"BearFear");
 Plot3(Fear(Close, Length),"AvgFear");

========================================================================

{Point Of Balance Close}

{Indicator Name: Point of  Balance Close TASC Aug 1998 Walt Downs}

Inputs: Price(Close),Len(12),Level(10);
Vars: PosNeg(0);

If CurrentBar > Len * Level Then Begin


PosNeg = FearPobcOsc(Price,Len,Level);
If PosNeg > 0 Then
 Plot1(PosNeg,"FearOsc")
else

 Plot2(PosNeg,"FearOsc");
end;

===========================================================================

{Point Of Balance Close Paint Bars}

{Indicator Name: Fear Bear Paint Bar}
Inputs: Price(Close),Len(12),Level(10);
Vars: PosNeg(0);

If CurrentBar > Len * Level Then Begin


PosNeg = FearPobcOsc(Price,Len,Level);
If PosNeg < 0 Then
 
 Plot3(High,"Fear");
 Plot4(Low,"Fear");
end;


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

Inputs: Price(Close),Len(12),Level(10);
Vars: PosNeg(0);

If CurrentBar > Len * Level Then Begin


PosNeg = FearPobcOsc(Price,Len,Level);
If PosNeg > 0 Then
 Plot1(High,"Fear");
 Plot2(Low,"Fear");
end;