相關標簽:

?

千萬要當心這種指標使用未來函數檢測軟件檢查不到有未來函數，但是信號會漂移

?

?

原理解析：
TJ賦值:星期-1日前的星期不等于DATEDIFF(1日前的日期,日期) OR BARPOS=1 賦值:TJ[I+1] END 賦值:1 FC賦值:收盤價 FH賦值:最高價 FL賦值:最低價 FO賦值:開盤價 POS賦值:0*收盤價 BEGINHH賦值:FH[I] LL賦值:FL[I] OO賦值:FO[I] P賦值:I END 賦值:OO HH賦值:HH和FH[I]的較大值 LL賦值:LL和FL[I]的較小值 END 賦值:1 賦值:FC[I] 賦值:HH 賦值:LL 條件判斷 TJ[J] THENBREAK END END END END HP賦值:FH LP賦值:FL CP賦值:FC LC賦值:1日前的CP RSI1賦值:(CP-LC和0的較大值的6日[1日權重]移動平均)/(CP-LC的絕對值的6日[1日權重]移動平均)*100 RSI2賦值:(CP-LC和0的較大值的12日[1日權重]移動平均)/(CP-LC的絕對值的12日[1日權重]移動平均)*100 輸出A:如果RSI1上穿RSI2,返回最低價,否則返回上次RSI1上穿RSI2距今天數日前的最低價,線寬為2,COLORFFFF 輸出B:如果RSI2上穿RSI1,返回最高價,否則返回上次RSI2上穿RSI1距今天數日前的最高價,線寬為2,COLORFF00FF 輸出買選股:如果RSI1上穿RSI2ORCROSS(收盤價,A),返回88,否則返回0,線寬為0,COLORFF00FF 輸出賣選股:如果1日前的RSI2上穿RSI1,返回99,否則返回0,線寬為0,COLORFFFF 當滿足條件買選股=88時,在最低價*0.998位置畫1號圖標 當滿足條件賣選股=99時,在最高價*1.01位置畫2號圖標

?

?來源:程序化99（ m.kzuj.com.cn ）

源碼：

?

?

TJ:=WEEKDAY-REF(WEEKDAY,1)<>DATEDIFF(REF(DATE,1),DATE) OR BARPOS=1;
IF DATACOUNT>1 THEN
FOR I=1 TO DATACOUNT-1 DO BEGIN
TJ1[I]:=TJ[I+1];
END;
TJ1[DATACOUNT]:=1;
FC:=CLOSE;
FH:=HIGH;
FL:=LOW;
FO:=OPEN;
POS:=0*CLOSE;
FOR I=1 TO DATACOUNT DO BEGIN
IF TJ[I] THEN BEGIN
HH:=FH[I];
LL:=FL[I];
OO:=FO[I];
P:=I;
END;ELSE BEGIN
FO[I]:=OO;
HH:=MAX(HH,FH[I]);
LL:=MIN(LL,FL[I]);
END;
IF TJ1[I] THEN BEGIN
POS[(I+P)/2]:=1;
IF I>1 THEN BEGIN
FOR J=I DOWNTO 1 DO BEGIN
FC[J]:=FC[I];
FH[J]:=HH;
FL[J]:=LL;
IF TJ[J] THEN
BREAK;
END;
END;
END;
END;
HP:=FH;
LP:=FL;
CP:=FC;
LC:=REF(CP,1);
RSI1:=(SMA(MAX(CP-LC,0),6,1))/(SMA(ABS(CP-LC),6,1))*100;
RSI2:=(SMA(MAX(CP-LC,0),12,1))/(SMA(ABS(CP-LC),12,1))*100;
A:IF(CROSS(RSI1,RSI2),LOW,REF(LOW,BARSLAST(CROSS(RSI1,RSI2)))),LINETHICK2,colorFFFF;
B:IF(CROSS(RSI2,RSI1),HIGH,REF(HIGH,BARSLAST(CROSS(RSI2,RSI1)))),LINETHICK2,colorFF00FF;
買選股:IF(CROSS(RSI1,RSI2) OR CROSS(CLOSE,A),88,0),LINETHICK0,colorFF00FF;
賣選股:IF(REF(CROSS(RSI2,RSI1),1),99,0),LINETHICK0,colorFFFF;
DRAWICON(買選股=88,LOW*0.998,1);
DRAWICON(賣選股=99,HIGH*1.01,2);

?

公式導入教程: 【通達信公式源碼導入方法教程】 【同花順公式源碼導入方法教程】 【大智慧新一代公式源碼導入方法教程】

?