BUY B19
B19s occur after a sharp decline when the DJI suddenly rallies and shows a ratio
of advances
to declines more than 3:1 and up volume to down volume of more than 4:1, whereas
on the
day before the reverse ratio of breadth was true. There are several
variations on Buy B19s,
but this is the central feature.
B19s are reliable and moderately profitable. Their average gain is 5x
their average paper loss.
Considering all B19s, they are more than twice as likely to occur since 2000
than before. The advent of Computerized program trading probably is responsible.
The last nine B19s, from mid-2007 to present, have averaged only 4.6% gain.
Paper loss occurred only 25% of the time in June B19s. The average gain
was 8.4%. It was only 6.1% is an on-going Bull Market.
June Buy B19s:
Gain Paper Loss
19650630
B19 868.04 .135
None Correction
19670601
B19 864.98 .075
.02
Bull Market
19741007
B19 607.56 .078
None Bear Market
20130625
B19 14760.31 .048
None Bull Market
-----------------------------------------------------------------------
.084 .025
11 of the 19 Bull Market B19s showed a paper loss of 1% to 4.9%.
Election Year Bull Market B19s showed only modest 4% additional gains in DJI
at time of next Peerless Sell.
800930
B19 932.42
.058
.016
Late in Election year. DJI got back above 65-dma in a week but only made
nominal new high.
040312
B19 10240.08
.031 .019
DJI got back above 65-dma in three days but only made a nominal new high.
120411
B19 12805.39
.037 none
DJI got back above 65-dma in a week and went to new high at upper band.
--------------------------------------------------------------------------------------------------
No. = 3 Avg.Gain = .042
.012
Bull Market Buy B19s:
No. Date
Signal DJI
Pct Gain Paper Loss
---------------------------------------------------------------------
1 290327
B19 303.2
.029 0
Hesitates for 3 weeks below 65-dma
2 330724
B19 94.3
.054
.037
Only slightly broke 65-dma and rose nicely.
3 380915
B19 136.2
.156 .046
Could not get back above 65-dma, fell below neckline...
4 380928
B19 133.7
.178 None
Got back above 65-dma on third day of rally.
5 390127
B19 138.9
.076 None
Got back above 65-dma in 5 weeks.
6 460221
B19 195.6
.086 .049
Quick rally to 65-dma failed and retreated to new low before rallying.
7 550315
B19 399.3
.173 None
Got back above 65-dma in a week and roared ahead.
8 590210
B19 582.7
.116 None
Did not break 65-dma and roared higher.
9 670411
B19 847.66
.047 .004
Got back above 65-dma in a week and quickly rose to new highs.
10 670601
B19 864.98
.075 .02
Because of sudden attack on Israel - 6days' war, DJI wobbled around 65-dma
before rallying.
11 800930
B19 932.42
.058
.016
Late in Election year. DJI got back above 65-dma in a week but only made
nominal new high.
12 870415
B19 2282.95
.026 .02
DJI could not stay above 65-dma until second try. Only reached upper band.
13 040312
B19 10240.08
.031 .019
DJI got back above 65-dma in three days but only made a nominal new high.
14 050421
B19 10218.6
.133 .019
This also showed a Buy B3.
DJI could not get back above 65-dma for a month. Then
flip-flpped around it for months.
15 070306
B19 12207.59
.143
.011
DJI could not get back above 65-dma for a month. Then moved much higher.
16 110317
B19 11774.59
.088
.01
DJI got back above 65-dma in four days and went to new high at upper band.
17 120411
B19 12805.39
.037 none
DJI got back above 65-dma in a week and went to new high at upper band.
18 130625
B19 14760.31
.048 none
DJI got back above 65-dma in a week and went to new high at upper band.
19 130822
B19 14963.74
.015 .013
DJI was above 65 dma. Rallied on slightly before getting correct Sell.
----------------------------------------------------------------
N = 19
Avg = .083 .016
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
=============================================================================
=============================================================================
Correction Buy B19s:
1 410220
B19 119.9
.067 .038
2 560529
B19 477.7
.091 .005
3 650630
B19 868.04
.135 None
4 800328
B19 777.65
.268 .024
5 940405
B19 3675.41
.016 .021
6 971028
B19 7498.32
.224 .016
7 071123
B19 12799.04
.064 .011
8 150902
B19 16351.38
.084 .023
----------------------------------------------------------------
N = 8 Avg = .118 .008
==================================================================
limits
If la(i) / ma(i) < .93549 Or aroc(i) < -1.6 Then 341
If (la(i) - lo(i - 2)) / la(i - 2) > .08 Then 341
chan3 = (la(i) - la(i - 3)) / la(i - 3)
If mo(i) = 6 And chan3 <= -.043 Then 341
If chan65 < -.04 And mo(i) = 9 Then 341
If chan65 < -.04 And mo(i) = 10 And da(i) < 5 Then 341
If upv(i) / downv(i) > 4 And downv(i - 1) / upv(i - 1) > 4 And la(i) / ma(i) <
.99
B19peerarrows (pi):
'1929 ' 2nd 1938 1941 1946 1947 1955 1956 1959 1966 1967 2x
1974 1980 2x ,1980 1989 2002 2004 2005
12-2008 `2009 2011 2012 6-2013 8-2013 2015 - 1-2016 (27
cases)
More specialized cases:
1930 1938 1994 1997 J-2008
For j = i - 50 To i
If la(j) > maxhh Then maxhh = la(j)
If la(j) < maxll Then maxll = la(j)
Next j
dif = (maxhh - maxll) / maxhh
xyxy = (maxhh - la(i)) / maxhh
If xyxy < .067 Then 2341
If dif > .135 Then 2341
' If mo(i) = 6 And da(i) = 3 Then Stop
If (la(i) - la(i - 1)) / la(i) < .022 Then 2341
If newipxxx(i) < -.095 Then 2341
If la(i) / ma(i) > .986 Then 2341
chan3 = (la(i) - la(i - 3)) / la(i - 3)
chan65 = (la(i) - la(i - 65)) / la(i - 65)
'If mo(i) = 6 And da(i) = 28 Then Stop
If mo(i) = 6 And chan65 < -.07 Then 2341
If mo(i) = 6 And chan3 <= -.043 Then 2341
--------------------------------------------------------------------------------
2007 June 2013
If la(i) / ma(i) > .978 Then 44781
If la(i) / ma(i) < .965 Then 44781
chan65 = (la(i) - la(i - 65)) / la(i - 65)
If chan65 < 0 Then 44781
If la(i - 1) > lo(i) Then 44781
If upv(i) / downv(i) > 6 And downv(i - 1) / upv(i - 1) > 6 And la(i) / ma(i) <
.99 Then : s9(i) = 119: pi = i: mb(i) = 19: : B19peerarrows (pi): : i = i +
10 ' 2007 June 2013
1933 1939
If (lo(i) - la(i - 1)) / la(i - 1) < .0029 Then 44780
If (la(i - 2) - la(i - 1)) / la(i - 2) < .03 Then 44780
If (la(i) - la(i - 1)) / la(i - 1) < .018 Then 44780
-------------------------
Only in June 1965
if adv(i) / dec(i) < 10 Then 8881
If dec(i - 2) / adv(i - 2) < 10 Then 8881
If la(i) / ma(i) > .991
----------------------------------------------------
For j = i - 15 To i
If mo(j) < 2 And s9(j) = 9 Then 341
If mo(j) > 4 And s9(j) = 9 Then GoTo 341
Next j
N= 36 Avg Gain = .083 Median Gain = .067
Avg. Paper Loss = .013. Since 1950, there have been
no paper losses bigger than 2.4%
B19s are more than twice as often to occur since 2000.
Advent of Computerized program trading probably is responsible.
Last nine B19s, from mid-2007 to present, have averaged only 4.6% gain.
LA/MA ranged between .9385 and .990
When LA/MA was between .96 and .98, the median gain was
8.6%
with 7 of 21 cases showing a gain of less than 3.7% and
6 cases
with gain greater than 14.2%.
IP21's highest value with a B19 was +.160 and its lowest value
was -.308. IP21 levels above 0 averaged slightly bigger.
When the IP21 was positive, the average gain was +.086. (9 cases).
Having an IP21 below -10, brought an average gain was +.083 (11 cases),
which is also the average gain for all cases.
Important:
Avg Gain was 13.5% for those cases where ANNROC was less than -1.
Bull Market Buy B19s:
No. Date
Signal DJI
Pct Gain Paper Loss
---------------------------------------------------------------------
1 290327
B19 303.2
.029 0
2 330724
B19 94.3
.054 .037
3 380915
B19 136.2
.156 .046
4 380928
B19 133.7
.178 None
5 390127
B19 138.9
.076 None
6 460221
B19 195.6
.086 .049
7 550315
B19 399.3
.173 None
8 590210
B19 582.7
.116 None
9 670411
B19 847.66
.047 .004
10 670601
B19 864.98
.075 .02
11 800930
B19 932.42
.058 .016
12 870415
B19 2282.95
.026 .02
13 040312
B19 10240.08
.031 .019
14 050421
B19 10218.6
.133 .019
15 070306
B19 12207.59
.143 .011
16 110317
B19 11774.59
.088 .01
17 120411
B19 12805.39
.037 none
18 130625
B19 14760.31
.048 none
19 130822
B19 14963.74
.015 .013
----------------------------------------------------------------
N = 19
Avg = .083 .016
Correction Buy B19s:
1 410220
B19 119.9
.067 .038
2 560529
B19 477.7
.091 .005
3 650630
B19 868.04
.135 None
4 800328
B19 777.65
.268 .024
5 940405
B19 3675.41
.016 .021
6 971028
B19 7498.32
.224 .016
7 071123
B19 12799.04
.064 .011
8 150902
B19 16351.38
.084 .023
----------------------------------------------------------------
N = 8 Avg = .118 .008
Bear Market Buy B19s:
No. Date
Signal DJI
Pct Gain Paper Loss
---------------------------------------------------------------------
1 290327
B19 303.2
.029 0
2 470421
B19 169.5
.09 .035
3 660830
B19 775.72
.039 .001
4 741007
B19 607.56
.078 0
5 020724
B19 8191.29
.064 .018
6 021010
B19 7533.95
.165 none
7 080123
B19 12270.17
.023 .019
8 081202
B19 8419.09
.063 .01
9 090121
B19 8228.1 -
.01 .01
----------------------------------------------------------------
N = 9 Avg = .060
.013
No. Date Signal DJI Pct Gain Paper Loss La/ma Annroc PI PI-ch IP21 VI OBVPct 65d PctCh. 1 290327 B19 303.2 .029 2.8/300.4 .9744 -.309 -71.5 23.6 -.052 -804 -.097 .075 Single Buy Signal. Bull Market ----------------------------------------------------------------------------------------------------
A 2 300506 B19 268.8 .023 +.018
.945 -.818 -125 14 .006
-1136 .007 .006
Bear Market
----------------------------------------------------------------------------------------------------
3 330724 B19 94.3 .054 .037
.932 .165 12 49.1 -.145
-528 .082 .304
Multiple Buys. Bull Market
----------------------------------------------------------------------------------------------------
4 380915 B19 136.2 .156 .046
.973 -.187 -45.6 5.6 -.077
-156 -.082 .207
Multiple Buys. Bull Market (not down 10%).
----------------------------------------------------------------------------------------------------
5 380928 B19 133.7 .178 None
.975 -.295 -53.7 53.6 .004
-147 -.046 .025
Bull Market
----------------------------------------------------------------------------------------------------
6 390127 B19 138.9 .076 None
.9385 -1.009 -58.7 6.6 -.105
-172 -.097 -.087
Bull Market
----------------------------------------------------------------------------------------------------
7 410220 B19 119.9 .067 .038
.9694 -.796 -112.1 27.9 -.308 (lowest)
-129 -.361 -.116
Single Signal. 13.5% Correction from high.
----------------------------------------------------------------------------------------------------
8 460221 B19 195.6 .086 .049
.9689 -.106 -26.2 17 -102.3 .083
-135 -.024 .024
Multiple Buys. Bull Market (not down 10%).
This reversed a Sell S6. Note excellent breadth.
----------------------------------------------------------------------------------------------------
9 470421 B19 169.5 .09 .035 .976 -.404 -102.1 33.5 -.177 -177 -.115 -.015 Single Signal. Bear Market
---------------------------------------------------------------------------------------------------- 10 550315 B19 399.3 .173 None .974 -.426 -57 29.2 -.094 -398 .022 .024 Single Signal. Bull Market
---------------------------------------------------------------------------------------------------- 11 560529 B19 477.7 .091 .005 .963 -.918 -160.9 35.5 -.229 -501 -.613 -.015 Single Signal. 13.5% Correction from high. ---------------------------------------------------------------------------------------------------- 12 590210 B19 582.7 .116 None .986 -.199 -21.3 24.1 -.05 -300 .064 .058 Single Signal. Bull Market ---------------------------------------------------------------------------------------------------- 13 650630 B19 868.04 .135 None .990 -.548 -263.8 71.9 -.095 -1197 -.058 -.022 Single Signal. 10.5% Correction from high. ----------------------------------------------------------------------------------------------------
14 660830 B19 775.72 .039 .001 .9482 -.862 -298.2 53.7 -.211 -14 -.416 -.135 B16 Bear Market
---------------------------------------------------------------------------------------------------- 15 670411 B19 847.66 .047 ????? .9831 -.012 -16.1 3.6 -.027 -2 -.024 .048 Two B9s Bull Market
---------------------------------------------------------------------------------------------------- 16 670601 B19 864.98 .075 .02 .9807 -.359 -121.3 15.7 -.034 -4 -.19 .031 B9 Bull Market
---------------------------------------------------------------------------------------------------- 17 741007 B19 607.56 .078 0 .9556 -1.31 -148.6 27.3 -.152 -3 -.459 -.233 Multiple Buys Bear Market
---------------------------------------------------------------------------------------------------- 18 800328 B19 777.65 .268 .024 .9633 -1.127 -453.7 63 -.091 -13 -.323 -.072 Single Buy 16% Intermediate-Term Decline
---------------------------------------------------------------------------------------------------- 19 800930 B19 932.42 .058 .016 .985 -.002 -5.9 30.4 -.01 -1 .129 .057 Single Buy Bull Market
---------------------------------------------------------------------------------------------------- 20 870415 B19 2282.95 .026 .024 .979 -.009 -197.2 5.1 .08 -15 .219 .134 Buy B5 Bull Market
---------------------------------------------------------------------------------------------------- Should we create a Buy B19 on 9/28/1981? .983 -.645 -302 43 -.078 -11 -.246 -.155 (low)
---------------------------------------------------------------------------------------------------- 21 940405 B19 3675.41 .016 .021 .9677 -.491 -300.2 66 .011 -41 -.111 -.021 Sole Buy 9% Intermediate-Term Decline
---------------------------------------------------------------------------------------------------- 22 971028 B19 7498.32 .224 .016 .9443 -.737 -174.9 2.8 .037 -48 -.06 -.077 Sole Buy 13.5% Intermediate-Term Decline
---------------------------------------------------------------------------------------------------- 23 020724 B19 8191.29 .064 .018 .9362 -1.475 -672.4 59.4 -.119 619 -.531 -.192 Sole Buy Bear Market
---------------------------------------------------------------------------------------------------- 24 021010 B19 7533.95 .165 none .960 -1.579 -536 18 -.111 -465 -.297 -.146 Multiple Buys Bear Market
---------------------------------------------------------------------------------------------------- 25 040312 B19 10240.08 .031 .019 .97 -.56 17 11 .166 -229 -.351 .027 Sole Buy Bull Market
---------------------------------------------------------------------------------------------------- 26 050421 B19 10218.6 .133 .019 .985 -.289 -96.5 142.6 -.159 -228 -.175 -.039 Also Buy B3 Bull Market
---------------------------------------------------------------------------------------------------- 27 070306 B19 12207.59 .143 .011 .974 -.423 -21 80.8 -.023 -254 -.104 .006 Also Buy B2 Bull Market
----------------------------------------------------------------------------------------------------
28 071123 B19 12799.04 .064 .011
.958 -.779 -413.4 140.8 -.089
-315 -.217 -.033
Intermediate-Term Correction
----------------------------------------------------------------------------------------------------
29 080123 B19 12270.17 .023 .019 .9568 -.902 -152.2 51.7 -.057 -313 -.112 -.117 Sole Signal Bear Market - DJI down %.
----------------------------------------------------------------------------------------------------
30 081202 B19 8419.09 .063 .015
.9809 -1.25 -375.2 11.1 -.03
-230 .003 -.271
Bear Market
---------------------------------------------------------------------------------------------------- 31 090121 B19 8228.1 -.01 .01 .9635 -.524 151 111.7 -.035 -126 -.195 -.084 Sole Signal Bear Market
---------------------------------------------------------------------------------------------------- 32 110317 B19 11774.59 .088 .01 .9732 -.444 -67.6 100.8 .009 -218 -.076 .03 Sole Signal Bull Market
---------------------------------------------------------------------------------------------------- 33 120411 B19 12805.39 .037 none .9761 -.14 -155.7 97 .02 -100 -.072 .036 ? Bull Market
---------------------------------------------------------------------------------------------------- 34 130625 B19 14760.31 .048 none .9777 -.427 -419.9 103.4 -.126 -153 -.004 .017 Sole Buy Bull Market ---------------------------------------------------------------------------------------------------- 35 130822 B19 14963.74 .015 .013 .9736 -.447 -309.7 174.9 -.046 -98 -.335 -.028 Buy B2 also Bull Market ---------------------------------------------------------------------------------------------------- 36 150902 B19 16351.38 .084 .023 .966 -0.84 -240 83 .043 -198 -373 -.093 Multiple Buys Intermediate Decline - Down 12% from 3 mo high.
-----------------------------------------------------------------------------------------------------
37 160126 B19 16167.27 open .972 -1.024 -485 -10 -.056 298 -.114 -.059 Also B17 Intermediate-Term Decline - Down 12% from 3 mo high.
-----------------------------------------------------------------------------------------------------
--------------------------------------------------------------------------------------------------- Number of Trades= 36 completed B19s
Avg.Gain= 5.99166666666667E-02 Avg.Paper Loss= 6.83333333333333E-03 Avg.LAST/21DMA= .9688 Avg.Ann.Roc. = -.03725 Avg.PI = -209.591666666667 AVG.PI Change = 90.4333333333333 AVG.Adj.PI = -205.4 AVG.IP21 = -.04075 AVG.V-I = -137.083333333333 AVG.OBV-Pct = -.18075 AVG.65-dPctCh.= -.054
Code Sub B19calc () DOpeerlessCALCULATIONS Static aroc(272) Erase aroc For i = 50 To rn aroc(i) = ((ma(i) - ma(i - 1)) / ma(i - 1)) * 250 Next i For i = 70 To rn ' If s9(i - 1) = 6 Then 8881 If mo(i) <> 6 Then 8881 If dec(i - 2) / adv(i - 2) < 10 Then 8881 If adv(i) / dec(i) < 10 Then 8881 If la(i) / ma(i) > .991 Then 8881 s9(i) = 119: pi = i: mb(i) = 19: : B19peerarrows (pi): Stop: i = i + 10 '1965 8881 Next i For i = 70 To rn '1/27/1938 'If mo(i) = 1 And da(i) = 27 Then Stop ' If s9(i - 1) = 6 Then 44780 If (lo(i) - la(i - 1)) / la(i - 1) < .0029 Then 44780 If (la(i - 2) - la(i - 1)) / la(i - 2) < .03 Then 44780 If (la(i) - la(i - 1)) / la(i - 1) < .018 Then 44780 If opma(i) < -.12 Then 44780 If la(i) / ma(i) > .97 Then 44780 If la(i) / ma(i) < .925 Then 44780 chan65 = (la(i) - la(i - 65)) / la(i - 65) If chan65 < -.089 Then 44780 rocko = 250 * (ma(i) - ma(i - 1)) / ma(i - 1) If rocko < -1.1 Then 44780 'If mo(i) = 6 And da(i) = 28 Then Stop ' If chan65 < 0 Then 44780 ' If (la(i) - la(i - 1)) / la(i - 1) > -.009 Then 44781 ' If mo(i) = 6 And da(i) = 25 Then Stop 'If (lo(i) - hi(i - 1)) / hi(i - 1) >- .009 Then 44781 ' If la(i - 1) > lo(i) Then 44780 : s9(i) = 119: pi = i: mb(i) = 19: : B19peerarrows (pi): Stop: i = i + 10 ' 1933 1939 44780 Next i For i = 70 To rn ' If s9(i - 1) = 6 Then 44781 'If mo(i) = 6 And da(i) = 25 Then Stop 'If mo(i) <> 6 Then 44781 If la(i) / ma(i) > .978 Then 44781 If la(i) / ma(i) < .965 Then 44781 chan65 = (la(i) - la(i - 65)) / la(i - 65) 'If mo(i) = 6 And da(i) = 28 Then Stop If chan65 < 0 Then 44781 ' If (la(i) - la(i - 1)) / la(i - 1) > -.009 Then 44781 ' If mo(i) = 6 And da(i) = 25 Then Stop 'If (lo(i) - hi(i - 1)) / hi(i - 1) >- .009 Then 44781 If la(i - 1) > lo(i) Then 44781 If upv(i) / downv(i) > 6 And downv(i - 1) / upv(i - 1) > 6 And la(i) / ma(i) < .99 Then : s9(i) = 119: pi = i: mb(i) = 19: : B19peerarrows (pi): Stop: i = i + 10 ' 2007 June 2013 44781 Next i ' June bottom when less than 10% down For i = 70 To rn ' If s9(i - 1) = 6 Then 2341 'If MO(I) = 9 And DA(I) = 20 Then Stop 'If mo(i) = 6 And da(i) = 6 Then Stop 'If Int(yr(i) - 1) / 4 <> (yr(i) - 1) / 4 Or mo(i) <> 6 Then 2341 If (yr(i) + 1) / 4 = Int((yr(i) + 1) / 4) And mo(i) = 10 And da(i) > 3 And da(i) < 10 Then 2341 maxhh = -9999 maxll = 999999 For j = i - 50 To i If la(j) > maxhh Then maxhh = la(j) If la(j) < maxll Then maxll = la(j) Next j dif = (maxhh - maxll) / maxhh xyxy = (maxhh - la(i)) / maxhh If xyxy < .067 Then 2341 If dif > .135 Then 2341 ' If mo(i) = 6 And da(i) = 3 Then Stop If (la(i) - la(i - 1)) / la(i) < .022 Then 2341 If newipxxx(i) < -.095 Then 2341 If la(i) / ma(i) > .986 Then 2341 chan3 = (la(i) - la(i - 3)) / la(i - 3) chan65 = (la(i) - la(i - 65)) / la(i - 65) 'If mo(i) = 6 And da(i) = 28 Then Stop If mo(i) = 6 And chan65 < -.07 Then 2341 If mo(i) = 6 And chan3 <= -.043 Then 2341 For j = i - 15 To i If mo(j) < 3 And s9(j) = 9 Then 2341 If mo(j) > 4 And s9(j) = 9 Then 2341 Next j If chan65 < -.04 And mo(i) = 9 Then 2341 If chan65 < -.04 And mo(i) = 10 And da(i) < 5 Then 2341 s9(i) = 119: pi = i: mb(i) = 19: : B19peerarrows (pi): Stop: i = i + 10 '1930 1938 1994 1997 J-2008 '6/3/1929 very good signal ' July 1933 18% decline before rebound. ' July 1937 15% decline before rebound. ' May 1941 14% decline before rebound. ' 1949 11% decline 2341 Next i 4000 For i = 40 To rn ' If s9(i - 1) = 6 Then 341 If la(i) / ma(i) > .986 Then 341 'If mo(i) = 4 And da(i) = 16 And yr(i) = 2013 Then Stop If (yr(i) + 1) / 4 = Int((yr(i) + 1) / 4) And mo(i) = 10 And da(i) > 3 And da(i) < 10 Then 341 'If Int(yr(i) - 1) / 4 = (yr(i) - 1) / 4 And mo(i) = 6 Then 341 roc = (ma(i) - ma(i - 1)) / ma(i - 1): roc = roc * 250 ' If MO(I) = 9 And DA(I) = 4 Then Stop If roc < -1.7 Then 341 If mo(i) = 30 And da(i) = 20 And yr(i) = 1960 Then upv(i) = 3100: da(i) = 2000 If la(i) / ma(i) < .962 And mo(i) = 5 Then 341 If upv(i) = z Or downv(i) = z Then 347 For j = i - 1 To i - 17 Step -1 'If s9(i) = 9 Then i = i + 18: GoTo 341 If i > rn Then i = rn: GoTo 341 347 Next j For j = i - 15 To i If mo(j) < 2 And s9(j) = 9 Then 341 If mo(j) > 4 And s9(j) = 9 Then GoTo 341 Next j If la(i) / ma(i) < .93549 Or aroc(i) < -1.6 Then 341 If adv(i) / dec(i) > 3 And dec(i - 1) / adv(i) > 3 And la(i) / ma(i) < .99 Then s9(i) = 119: : pi = i: : : B19peerarrows (pi): i = i + 10 'If mo(I) = 3 And DA(I) = 30 Then Stop If i > rn Then 341 If (la(i) - lo(i - 2)) / la(i - 2) > .08 Then 341 If upv(i) = z Or downv(i) = z Then upv(i) = 1: downv(i) = 1 chan3 = (la(i) - la(i - 3)) / la(i - 3) If mo(i) = 6 And chan3 <= -.043 Then 341 If chan65 < -.04 And mo(i) = 9 Then 341 If chan65 < -.04 And mo(i) = 10 And da(i) < 5 Then 341 If upv(i) / downv(i) > 4 And downv(i - 1) / upv(i - 1) > 4 And la(i) / ma(i) < .99 Then : s9(i) = 119: pi = i: mb(i) = 19: : B19peerarrows (pi): Stop: i = i + 10 '1929 ' 2nd 1938 1941 1946 1947 1955 1956 1959 1966 1967 2x 1974 1980 2x ,1980 1989 2002 2004 2005 12-2008 `2009 2011 2012 6-2013 8-2013 2015 - 1-2016 341 Next i 343 End Sub ------------------------------------------------------------------------------------------ Sub b19signals () '-------------------------------------------- 'Feb 13, 2008 'Not sure this us used. DOpeerlessCALCULATIONS v12 = 104 / 1167 v13 = 1168 / 112 For i = 23 To rn If adv(i - 2) / dec(i - 2) <= v12 + .01 And adv(i) / dec(i) >= v13 - .01 And la(i) / ma(i) < .991 Then S9(i) = 119: pi = i: : B19arrows (pi): GoTo 341 ' If adv(i) / dec(i) > 3 And dec(i - 1) / adv(i) And la(i) / ma(i) < .991 Then 340 ' If upv(i) / downv(i) > 3 And downv(i - 1) / upv(i) And la(i) / ma(i) < .99 Then 340 GoTo 341 340 's9(i) = 119: pi = i: B19arrows (pi): Stop '---- 341 Next i: '-------------------------------------------- v4 = 750 / 158 li$ = "" '------------------------------- For i = 22 To rn For j = i - 20 To i If S9(j) = 9 Then 500 Next j If la(i) / ma(i) < 1 And adv(i) / dec(i) > v4 And dec(i - 1) / adv(i - 1) > v4 Then pi = i: mb(i) = 19: : S9(i) = 119: B19arrows (pi): GoTo 500 If la(i) / ma(i) < .961 Then 500 If la(i) / ma(i) >= .99 Then 500'Feb 12, 2008 If la(i) >= ma(i) Then 500 ' If And lastsignal$ = "S" Then pi = i: : mb(i) = 40: lastsignal$ = "B": If goodsignal$ = "Y" Then stb40arrows (pi) If upv(i) = 0 Then : upv(i) = 1 If upv(i - 1) = 0 Then : upv(i - 1) = 1 If downv(i) = 0 Then : downv(i) = 1 If downv(i - 1) = 0 Then : downv(i - 1) = 1 If upv(i) / downv(i) > 4 And downv(i - 1) / upv(i - 1) > 4 Then pi = i: mb(i) = 19: : B19arrows (pi): S9(i) = 119: GoTo 500 If adv(i) / dec(i) > 3 And dec(i - 1) / adv(i - 1) > 3 Then pi = i: mb(i) = 19: S9(i) = 119: : B19arrows (pi): 500 Next i: Probably not used. For i = 22 To rn For j = i - 20 To i If S9(j) = 9 Then 500 Next j If la(i) / ma(i) < 1 And adv(i) / dec(i) > v4 And dec(i - 1) / adv(i - 1) > v4 Then pi = i: mb(i) = 19: : S9(i) = 119: B19arrows (pi): Stop: GoTo 500 If la(i) / ma(i) < .961 Then 500 If la(i) / ma(i) >= .99 Then 500'Feb 12, 2008 If la(i) >= ma(i) Then 500 ' If And lastsignal$ = "S" Then pi = i: : mb(i) = 40: lastsignal$ = "B": If goodsignal$ = "Y" Then stb40arrows (pi) If upv(i) = 0 Then : upv(i) = 1 If upv(i - 1) = 0 Then : upv(i - 1) = 1 If downv(i) = 0 Then : downv(i) = 1 If downv(i - 1) = 0 Then : downv(i - 1) = 1 If upv(i) / downv(i) > 4 And downv(i - 1) / upv(i - 1) > 4 Then pi = i: mb(i) = 19: : B19arrows (pi): S9(i) = 119: Stop: GoTo 500 If adv(i) / dec(i) > 3 And dec(i - 1) / adv(i - 1) > 3 Then pi = i: mb(i) = 19: S9(i) = 119: : B19arrows (pi): Stop 500 Next i: