|
PureBytes Links
Trading Reference Links
|
Hello Jim,
{data= sp}
Input: Near(1);
var:pp(0),r1(0),r2(0),s1(0),s2(0),idmid(0),yh(0),yl(0),yc(0);
idmid=(idhigh+idlow)/2; r2=ResistanceLevel2;
r1=ResistanceLevel1; pp=PivotPoint;
s1=SupportLevel1; s2=SupportLevel2;
yh=HighYesterday; yl=LowYesterday;
yc=CloseYesterday;
if t>Sess1StartTime then begin
IF (h >= pp-near and l <= pp+near) then print(t," SP PP --->",pp);
IF (h >= r1-near and l <= r1+near) then print(t," SP R1 --->",r1);
IF (h >= s1-near and l <= s1+near) then print(t," SP S1 --->",s1);
IF (h >= r2-near and l <= r2+near) then print(t," SP R2 --->",r2);
IF (h >= s2-near and l <= s2+near) then print(t," SP S2 --->",s2);
IF (h >= idhigh-near and l <= idhigh+near) then print(t," SP High --->",idhigh);
IF (h >= idlow-near and l <= idlow+near) then print(t," SP Low --->",idlow);
IF (h >= idmid-near and l <= idmid+near) then print(t," SP Mid --->",idmid);
IF (idhigh > idhigh[1]) then print(t," SP New High --->",idhigh," ",idhigh-idhigh[1]);
IF (idlow < idlow[1]) then print(t," SP New Low --->",idlow," ",idlow-idlow[1]);
IF (h >= yh-near and l <= yh+near) then print(t," SP YHigh --->",yh);
IF (h >= yl-near and l <= yl+near) then print(t," SP YLow --->",yl);
IF (h >= yc-near and l <= yc+near) then print(t," SP YClose --->",yc);
IF (t=1355) then print(t," Bond Close --->1:55pm");
IF (t=1455) then print(t," Nyse Close ---> 2:55pm");
IF (t=1100) then print(t," Lunch Time --->11:00am");
IF (t=1130) then print(t," Lunch Time --->11:30am");
IF (t=1200) then print(t," Lunch Time --->12:00am");
IF (t=1230) then print(t," Lunch Time --->12:30am");
end;
IF CheckAlert Then
IF (h >= pp-near and l <= pp+near) then
IF (h >= r1-near and l <= r1+near) then
IF (h >= s1-near and l <= s1+near) then
IF (h >= r2-near and l <= r2+near) then
IF (h >= s2-near and l <= s2+near) then
IF (h >= idhigh-near and l <= idhigh+near) then
IF (h >= idlow-near and l <= idlow+near) then
IF (h >= idmid-near and l <= idmid+near) then
IF (idhigh > idhigh[1]) then
IF (idlow < idlow[1]) then
IF (h >= yh-near and l <= yh+near) then
IF (h >= yl-near and l <= yl+near) then
IF (h >= yc-near and l <= yc+near) then
IF (t=1355) then
IF (t=1455) then
IF (t=1100) then
IF (t=1130) then
IF (t=1200) then
IF (t=1230) then
Alert = TRUE;
IF (h >= pp-near and l <= pp+near) then plot1(c,"at pp");
IF (h >= r1-near and l <= r1+near) then plot1(c,"at pp");
IF (h >= s1-near and l <= s1+near) then plot1(c,"at pp");
IF (h >= r2-near and l <= r2+near) then plot1(c,"at pp");
IF (h >= s2-near and l <= s2+near) then plot1(c,"at pp");
IF (h >= idhigh-near and l <= idhigh+near) then plot2(c,"id h-l");
IF (h >= idlow-near and l <= idlow+near) then plot2(c,"id h-l");
IF (h >= idmid-near and l <= idmid+near) then plot3(c,"id mid");
input:nr(.10);
Vars: String1(""), TextLoc(0), String2(""), String3("");
String1=""; String2=""; Condition2=false;
IF (h >= pp-nr and l <= pp+nr) then begin
String1="pp";
Condition2=True;End;
IF (h >= r1-nr and l <= r1+nr) then begin
String1="r1";
Condition2=True;End;
IF (h >= s1-nr and l <= s1+nr) then begin
String1="s1";
Condition2=True;End;
IF (h >= r2-nr and l <= r2+nr) then begin
String1="r2";
Condition2=True;End;
IF (h >= s2-nr and l <= s2+nr) then begin
String1="s2";
Condition2=True;End;
IF (h >= yh-near and l <= yh+near) then begin
String1="yh";
Condition2=True;End;
IF (h >= yl-near and l <= yl+near) then begin
String1="yl";
Condition2=True;End;
IF (h >= yc-near and l <= yc+near) then begin
String1="yc";
Condition2=True;End;
IF (h >= idhigh-near and l <= idhigh+near) then begin
String1="ih";
Condition2=True;End;
IF (h >= idlow-near and l <= idlow+near) then begin
String1="il";
Condition2=True;End;
IF (h >= idmid-near and l <= idmid+near) then begin
String1="im";
Condition2=True;End;
If Condition2 then begin
Value1=Text_New(Date,Time,(h+l)/2,String1);
TextLoc=Text_SetStyle(Value1, 2, 1);
If GetBackGroundColor=Tool_White then Value2=Text_SetColor(Value1, Tool_Red)
Else
Value2=Text_SetColor(Value1, Tool_White);End;
Wednesday, December 29, 2004, 11:53:23 AM, you wrote:
> A few years ago I read of a Condition indicator that I think either Bob
> Fulks or Mark Brown had developed. It is not complicated but involves using
> features that I don't normally use. It displays the status of Conditions on
> the data1 chart. It answers the question as to which condition is not met
> and eliminates the need to run a separate calculation of them. Anyone know
> of this?
> thanks,
> Jim
--
Best regards,
Mark mailto:qpwoeirutyalskdjfhgmznxbcv_markbrown_omegalist@xxxxxxxxxxxxx
|