相關標簽:

同花順完美買賣主圖指標源碼

原理解析：
P1賦值:28 P2賦值:32 P3賦值:35 N賦值:3 M賦值:20 輸出輸出//說明:見底信號與笑臉同時出現,成功機率比較大.MA5:收盤價的5日簡單移動平均 輸出MA10:收盤價的10日簡單移動平均 輸出MA20:收盤價的20日簡單移動平均,畫白色 輸出//成本:以成交量(手)/當前流通股本(手)為權重成交額(元)/成交量(手)/100的動態移動平均,畫紅色 VAR2賦值:10日內最低價的最低值 VAR3賦值:25日內最高價的最高值 K1賦值:(P1/10)*100 K2賦值:(P2/10)*100 K3賦值:(P3/10)*100 RSV賦值:(收盤價-9日內最低價的最低值)/(9日內最高價的最高值-9日內最低價的最低值)*100 K賦值:RSV的3日[1日權重]移動平均,COLORFFFFFF D賦值:K的3日[1日權重]移動平均,COLOR00FFFF J賦值:3*K-2*D,COLORFF00FF X賦值:2日內J的最低值=8日內J的最低值 Y賦值:如果J上穿1日前的J+0.01ANDXANDJ<20,返回30,否則返回0,COLOR00FF00 主力賦值:(收盤價-收盤價的N日簡單移動平均)/收盤價的N日簡單移動平均*4800的2日指數移動平均 散戶賦值:(收盤價-收盤價的M日簡單移動平均)/收盤價的M日簡單移動平均*4800的7日指數移動平均 動能趨勢線賦值:100*(收盤價-VAR2)/(VAR3-VAR2)*4的4日指數移動平均,COLORA0A0FF 當滿足條件動能趨勢線上穿K1時,在最高價*1.02位置書寫文字,畫綠色 當滿足條件動能趨勢線上穿K2時,在最高價*1.02位置書寫文字,COLOR00FF00 當滿足條件動能趨勢線上穿K3時,在最高價*1.02位置書寫文字,畫白色 當滿足條件J上穿1日前的J+0.01ANDXANDJ<20時,在最低價位置書寫文字,COLORFF00FF 當滿足條件主力上穿散戶AND主力<0AND散戶<0時,在最低價位置書寫文字,畫紅色 當滿足條件主力上穿散戶AND主力<0AND散戶<0時,在最低價位置畫1號圖標 TY賦值:收盤價 HD賦值:若10日前的TY=2*10+1日內TY的最高值的10日過濾則將最近10+1周期置為1的10日過濾 LD賦值:若10日前的TY=2*10+1日內TY的最低值的10日過濾則將最近10+1周期置為1的10日過濾 A賦值:上次HD距今天數日前的收盤價 B賦值:上次LD距今天數日前的收盤價 T1賦值:上次HD距今天數<上次LD距今天數 AND 取反 T2賦值:上次HD距今天數>上次LD距今天數 AND 取反 LC賦值:1日前的收盤價 U2L賦值:如果(收盤價>=收盤價的20日簡單移動平均),返回80,否則返回50 L2L賦值:如果(收盤價>=收盤價的20日簡單移動平均),返回50,否則返回20 RSI賦值:(((收盤價-LC)和0的較大值的6日[1日權重]移動平均 / (收盤價-LC)的絕對值的6日[1日權重]移動平均) * 100) RSI12賦值:(((收盤價-LC)和0的較大值的12日[1日權重]移動平均 / (收盤價-LC)的絕對值的12日[1日權重]移動平均) * 100) RSI24賦值:(((收盤價-LC)和0的較大值的24日[1日權重]移動平均 / (收盤價-LC)的絕對值的24日[1日權重]移動平均) * 100) RH1賦值:如果((RSI<U2L)AND(1日前的RSI>=U2L)),返回(上次((RSI>=U2L)AND(1日前的RSI<U2L))距今天數-1)日內1日前的最高價的最高值,否則返回上次((RSI<U2L)ANDREF(RSI,1))距今天數日前的(上次((RSI>=U2L)AND(1日前的RSI<U2L))距今天數-1)日內1日前的最高價的最高值 RH4賦值:如果(最高價>RH1),返回最低價,否則返回上次(最高價>RH1)距今天數日前的最低價 RH42賦值:如果(最高價>RH1),返回RSI,否則返回上次(最高價>RH1)距今天數日前的RSI RH5賦值:如果(((最高價>RH4)AND(RSI<RH42))AND(RSI<RSI24)),返回最高價,否則返回上次(((最高價>RH4)AND(RSI<RH42))AND(RSI<RSI24))距今天數日前的最高價 RL1賦值:如果((RSI>L2L)AND(1日前的RSI<=L2L)),返回(上次((RSI<=L2L)AND(1日前的RSI>L2L))距今天數-1)日內1日前的最低價的最低值,否則返回上次((RSI>L2L)ANDREF(RSI,1))距今天數日前的(上次((RSI<=L2L)AND(1日前的RSI>L2L))距今天數-1)日內1日前的最低價的最低值 RL4賦值:如果(最低價<RL1),返回最高價,否則返回上次(最低價<RL1)距今天數日前的最高價 RL42賦值:如果(最低價<RL1),返回RSI,否則返回上次(最低價<RL1)距今天數日前的RSI RL5賦值:如果(((最低價<RL4)AND(RSI>RL42))AND(RSI>RSI24)),返回最低價,否則返回上次(((最低價<RL4)AND(RSI>RL42))AND(RSI>RSI24))距今天數日前的最低價 輸出頂:如果T1,返回A,否則返回A,POINTDOT,COLORFF00FF,線寬為2 輸出頂1:RH5,POINTDOT,線寬為2,COLORFF00FF 輸出底:如果T2,返回B,否則返回B,POINTDOT,線寬為2,COLOR80FF00 輸出底1:RL5,POINTDOT,線寬為2,COLOR80FF00 輸出////見底:如果主力上穿散戶AND主力<0AND散戶<0,返回1,否則返回0,畫紅色 輸出//短進:如果J上穿1日前的J+0.01ANDXANDJ<20,返回1,否則返回0,COLORFF00FF A3賦值:上次1日前的"RSI.RSI$1"(6,12,24)上穿"RSI.RSI$2"(6,12,24)距今天數 B3賦值:A3+1日前的收盤價>收盤價 AND A3+1日前的"RSI.RSI$1"(6,12,24)<"RSI.RSI$1"(6,12,24) AND "RSI.RSI$1"(6,12,24)上穿"RSI.RSI$2"(6,12,24) 當滿足條件B3>0的5日過濾時,在最低價-0.99位置書寫文字,COLORFFFF00 當滿足條件(收陽線)時,在收盤價和開盤價位置之間畫柱狀線,寬度為5.2,0不為0則畫空心柱.,COLOR070084 當滿足條件(收陽線)時,在收盤價和開盤價位置之間畫柱狀線,寬度為4,0不為0則畫空心柱.,COLOR0000A3 當滿足條件(收陽線)時,在收盤價和開盤價位置之間畫柱狀線,寬度為3.5,0不為0則畫空心柱.,COLOR0000B7 當滿足條件(收陽線)時,在收盤價和開盤價位置之間畫柱狀線,寬度為3,0不為0則畫空心柱.,COLOR0000CD 當滿足條件(收陽線)時,在收盤價和開盤價位置之間畫柱狀線,寬度為2.5,0不為0則畫空心柱.,COLOR0000E9 當滿足條件(收陽線)時,在收盤價和開盤價位置之間畫柱狀線,寬度為2,0不為0則畫空心柱.,COLOR0754E9 當滿足條件(收陽線)時,在收盤價和開盤價位置之間畫柱狀線,寬度為1.5,0不為0則畫空心柱.,COLOR076EF3 當滿足條件(收陽線)時,在收盤價和開盤價位置之間畫柱狀線,寬度為1,0不為0則畫空心柱.,COLOR077BF3 當滿足條件(收陽線)時,在開盤價和最低價位置之間畫柱狀線,寬度為1,0不為0則畫空心柱.,COLOR077BF3 當滿足條件(收陽線)時,在收盤價和最高價位置之間畫柱狀線,寬度為1,0不為0則畫空心柱.,COLOR077BF3 當滿足條件(收盤價=OPENANDC>1日前的收盤價)時,在收盤價和開盤價位置之間畫柱狀線,寬度為5.2,0不為0則畫空心柱.,COLOR070084 當滿足條件(收盤價=OPENANDC>1日前的收盤價)時,在收盤價和開盤價位置之間畫柱狀線,寬度為4,0不為0則畫空心柱.,COLOR0000A3 當滿足條件(收盤價=OPENANDC>1日前的收盤價)時,在收盤價和開盤價位置之間畫柱狀線,寬度為3.5,0不為0則畫空心柱.,COLOR0000B7 當滿足條件(收盤價=OPENANDC>1日前的收盤價)時,在收盤價和開盤價位置之間畫柱狀線,寬度為3,0不為0則畫空心柱.,COLOR0000CD 當滿足條件(收盤價=OPENANDC>1日前的收盤價)時,在收盤價和開盤價位置之間畫柱狀線,寬度為2.5,0不為0則畫空心柱.,COLOR0000E9 當滿足條件(收盤價=OPENANDC>1日前的收盤價)時,在收盤價和開盤價位置之間畫柱狀線,寬度為2,0不為0則畫空心柱.,COLOR0754E9 當滿足條件(收盤價=OPENANDC>1日前的收盤價)時,在收盤價和開盤價位置之間畫柱狀線,寬度為1.5,0不為0則畫空心柱.,COLOR076EF3 當滿足條件(收盤價=OPENANDC>1日前的收盤價)時,在收盤價和開盤價位置之間畫柱狀線,寬度為1,0不為0則畫空心柱.,COLOR077BF3 當滿足條件(收盤價=OPENANDC>1日前的收盤價)時,在開盤價和最低價位置之間畫柱狀線,寬度為1,0不為0則畫空心柱.,COLOR077BF3 當滿足條件(收盤價=OPENANDC>1日前的收盤價)時,在收盤價和最高價位置之間畫柱狀線,寬度為1,0不為0則畫空心柱.,COLOR077BF3 當滿足條件(收陰線)時,在收盤價和開盤價位置之間畫柱狀線,寬度為5.2,0不為0則畫空心柱.,COLORFF5B00 當滿足條件(收陰線)時,在收盤價和開盤價位置之間畫柱狀線,寬度為4,0不為0則畫空心柱.,COLORFF6C00 當滿足條件(收陰線)時,在收盤價和開盤價位置之間畫柱狀線,寬度為3.5,0不為0則畫空心柱.,COLORFF7B00 當滿足條件(收陰線)時,在收盤價和開盤價位置之間畫柱狀線,寬度為3,0不為0則畫空心柱.,COLORFF9C00 當滿足條件(收陰線)時,在收盤價和開盤價位置之間畫柱狀線,寬度為2.5,0不為0則畫空心柱.,COLORFFBE00 當滿足條件(收陰線)時,在收盤價和開盤價位置之間畫柱狀線,寬度為2,0不為0則畫空心柱.,COLORFFCC00 當滿足條件(收陰線)時,在收盤價和開盤價位置之間畫柱狀線,寬度為1,0不為0則畫空心柱.,COLORFFFF00 當滿足條件(收陰線)時,在收盤價和最低價位置之間畫柱狀線,寬度為1,0不為0則畫空心柱.,COLORFFFF00 當滿足條件(收陰線)時,在開盤價和最高價位置之間畫柱狀線,寬度為1,0不為0則畫空心柱.,COLORFFFF00 當滿足條件(開盤價=CLOSEANDC<1日前的收盤價)時,在收盤價和開盤價位置之間畫柱狀線,寬度為5.2,0不為0則畫空心柱.,COLORFF5B00 當滿足條件(開盤價=CLOSEANDC<1日前的收盤價)時,在收盤價和開盤價位置之間畫柱狀線,寬度為4,0不為0則畫空心柱.,COLORFF6C00 當滿足條件(開盤價=CLOSEANDC<1日前的收盤價)時,在收盤價和開盤價位置之間畫柱狀線,寬度為3.5,0不為0則畫空心柱.,COLORFF7B00 當滿足條件(開盤價=CLOSEANDC<1日前的收盤價)時,在收盤價和開盤價位置之間畫柱狀線,寬度為3,0不為0則畫空心柱.,COLORFF9C00 當滿足條件(開盤價=CLOSEANDC<1日前的收盤價)時,在收盤價和開盤價位置之間畫柱狀線,寬度為2.5,0不為0則畫空心柱.,COLORFFBE00 當滿足條件(開盤價=CLOSEANDC<1日前的收盤價)時,在收盤價和開盤價位置之間畫柱狀線,寬度為2,0不為0則畫空心柱.,COLORFFCC00 當滿足條件(開盤價=CLOSEANDC<1日前的收盤價)時,在收盤價和開盤價位置之間畫柱狀線,寬度為1,0不為0則畫空心柱.,COLORFFFF00 當滿足條件(開盤價=CLOSEANDC<1日前的收盤價)時,在收盤價和最低價位置之間畫柱狀線,寬度為1,0不為0則畫空心柱.,COLORFFFF00 當滿足條件(開盤價=CLOSEANDC<1日前的收盤價)時,在開盤價和最高價位置之間畫柱狀線,寬度為1,0不為0則畫空心柱.,COLORFFFF00 TIPTEXT(ISNULL(1日后的&收盤價),0,' www.kzuj.com.cn '),畫紅色 TIPTEXT(ISNULL(1日前的收盤價),0,'同花順程序化交易')

源碼：

P1:=28;P2:=32;P3:=35;n:=3;m:=20;
//說明:見底信號與笑臉同時出現,成功機率比較大.
ma5:MA(CLOSE,5);
ma10:MA(CLOSE,10);
ma20:MA(CLOSE,20),colorwhite;
//成本:DMA(AMOUNT/V/100,V/CAPITAL),colorred;
VAR2:=LLV(LOW,10);
VAR3:=HHV(HIGH,25);
K1:=(P1/10)*100;
K2:=(P2/10)*100;
K3:=(P3/10)*100;
RSV:=(C-LLV(L,9))/(HHV(H,9)-LLV(L,9))*100;
K:=SMA(RSV,3,1),COLORFFFFFF;
D:=SMA(K,3,1),COLOR00FFFF;
J:=3*K-2*D,COLORFF00FF;
X:=LLV(J,2)=LLV(J,8);
Y:=IF(CROSS(J,REF(J+0.01,1)) AND X AND J<20,30,0),COLOR00FF00;
主力:=EMA( (CLOSE-MA(CLOSE,n))/MA(CLOSE,n)*4800,2);
散戶:=EMA( (CLOSE-MA(CLOSE,m))/MA(CLOSE,m)*4800,7);
動能趨勢線:=100*EMA((CLOSE-VAR2)/(VAR3-VAR2)*4,4),COLORA0A0FF;
DRAWTEXT(CROSS(動能趨勢線,K1),HIGH*1.02,'風險'),colorgreen;
DRAWTEXT(CROSS(動能趨勢線,K2),HIGH*1.02,'減倉'),COLOR00FF00;
DRAWTEXT(CROSS(動能趨勢線,K3),HIGH*1.02,'出局'),colorwhite;
DRAWTEXT(CROSS(J,REF(J+0.01,1)) AND X AND J<20,LOW,'短進'),COLORFF00FF;
DRAWTEXT(CROSS(主力,散戶) AND 主力<0 AND 散戶<0,LOW,'見 底'),colorred;
DRAWICON(CROSS(主力,散戶) AND 主力<0 AND 散戶<0,LOW,1);
TY:=C;
HD:=FILTER(BACKSET(FILTER(REF(TY,10)=HHV(TY,2*10+1),10),10+1),10);
LD:=FILTER(BACKSET(FILTER(REF(TY,10)=LLV(TY,2*10+1),10),10+1),10);
A:=REF(C,BARSLAST(HD));
B:=REF(C,BARSLAST(LD));
T1:=BARSLAST(HD)<BARSLAST(LD) AND NOT(HD) ;
T2:=BARSLAST(HD)>BARSLAST(LD) AND NOT(LD);
LC:=REF(CLOSE,1);
U2L:=IF((CLOSE >= MA(CLOSE,20)),80,50);
L2L:=IF((CLOSE >= MA(CLOSE,20)),50,20);
RSI:=((SMA(MAX((CLOSE - LC),0),6,1) / SMA(ABS((CLOSE - LC)),6,1)) * 100);
RSI12:=((SMA(MAX((CLOSE - LC),0),12,1) / SMA(ABS((CLOSE - LC)),12,1)) * 100);
RSI24:=((SMA(MAX((CLOSE - LC),0),24,1) / SMA(ABS((CLOSE - LC)),24,1)) * 100);
RH1:=IF(((RSI < U2L) AND (REF(RSI,1) >= U2L)),HHV(REF(HIGH,1),(BARSLAST(((RSI >= U2L) AND (REF(RSI,1) < U2L))) - 1)),REF(HHV(REF(HIGH,1),(BARSLAST(((RSI >= U2L) AND (REF(RSI,1) < U2L))) - 1)),BARSLAST(((RSI < U2L) AND REF(RSI,1)))));
RH4:=IF((HIGH > RH1),LOW,REF(LOW,BARSLAST((HIGH > RH1))));
RH42:=IF((HIGH > RH1),RSI,REF(RSI,BARSLAST((HIGH > RH1))));
RH5:=IF((((HIGH > RH4) AND (RSI < RH42)) AND (RSI < RSI24)),HIGH,REF(HIGH,BARSLAST((((HIGH > RH4) AND (RSI < RH42)) AND (RSI < RSI24)))));
RL1:=IF(((RSI > L2L) AND (REF(RSI,1) <= L2L)),LLV(REF(LOW,1),(BARSLAST(((RSI <= L2L) AND (REF(RSI,1) > L2L))) - 1)),REF(LLV(REF(LOW,1),(BARSLAST(((RSI <= L2L) AND (REF(RSI,1) > L2L))) - 1)),BARSLAST(((RSI > L2L) AND REF(RSI,1)))));
RL4:=IF((LOW < RL1),HIGH,REF(HIGH,BARSLAST((LOW < RL1))));
RL42:=IF((LOW < RL1),RSI,REF(RSI,BARSLAST((LOW < RL1))));
RL5:=IF((((LOW < RL4) AND (RSI > RL42)) AND (RSI > RSI24)),LOW,REF(LOW,BARSLAST((((LOW < RL4) AND (RSI > RL42)) AND (RSI > RSI24)))));
頂:IF(T1,A,A),POINTDOT,COLORFF00FF,LINETHICK2;
頂1:RH5,POINTDOT,LINETHICK2,COLORFF00FF;
底:IF(T2,B,B),POINTDOT,LINETHICK2,COLOR80FF00;
底1:RL5,POINTDOT,LINETHICK2,COLOR80FF00;
//{選股}
//見底:IF(CROSS(主力,散戶) AND 主力<0 AND 散戶<0,1,0),colorred;
//短進:IF(CROSS(J,REF(J+0.01,1)) AND X AND J<20,1,0),COLORFF00FF;
A3:=BARSLAST(REF(CROSS("RSI.RSI$1"(6,12,24),"RSI.RSI$2"(6,12,24)),1));
B3:=REF(C,A3+1)>C AND REF("RSI.RSI$1"(6,12,24),A3+1)<"RSI.RSI$1"(6,12,24) AND CROSS("RSI.RSI$1"(6,12,24),"RSI.RSI$2"(6,12,24));
DRAWTEXT(FILTER(B3>0,5),L-0.99,'底背'),COLORFFFF00;
STICKLINE((CLOSE > OPEN),CLOSE,OPEN,5.2,0),color070084;
STICKLINE((CLOSE > OPEN),CLOSE,OPEN,4,0),color0000A3;
STICKLINE((CLOSE > OPEN),CLOSE,OPEN,3.5,0),color0000B7;
STICKLINE((CLOSE > OPEN),CLOSE,OPEN,3,0),color0000CD;
STICKLINE((CLOSE > OPEN),CLOSE,OPEN,2.5,0),color0000E9;
STICKLINE((CLOSE > OPEN),CLOSE,OPEN,2,0),color0754E9;
STICKLINE((CLOSE > OPEN),CLOSE,OPEN,1.5,0),color076EF3;
STICKLINE((CLOSE > OPEN),CLOSE,OPEN,1,0),color077BF3;
STICKLINE((CLOSE > OPEN),OPEN,LOW,1,0),color077BF3;
STICKLINE((CLOSE > OPEN),CLOSE,HIGH,1,0),color077BF3;
STICKLINE((CLOSE = OPEN AND C>REF(C,1)),CLOSE,OPEN,5.2,0),color070084;
STICKLINE((CLOSE = OPEN AND C>REF(C,1)),CLOSE,OPEN,4,0),color0000A3;
STICKLINE((CLOSE = OPEN AND C>REF(C,1)),CLOSE,OPEN,3.5,0),color0000B7;
STICKLINE((CLOSE = OPEN AND C>REF(C,1)),CLOSE,OPEN,3,0),color0000CD;
STICKLINE((CLOSE = OPEN AND C>REF(C,1)),CLOSE,OPEN,2.5,0),color0000E9;
STICKLINE((CLOSE = OPEN AND C>REF(C,1)),CLOSE,OPEN,2,0),color0754E9;
STICKLINE((CLOSE = OPEN AND C>REF(C,1)),CLOSE,OPEN,1.5,0),color076EF3;
STICKLINE((CLOSE = OPEN AND C>REF(C,1)),CLOSE,OPEN,1,0),color077BF3;
STICKLINE((CLOSE = OPEN AND C>REF(C,1)),OPEN,LOW,1,0),color077BF3;
STICKLINE((CLOSE = OPEN AND C>REF(C,1)),CLOSE,HIGH,1,0),color077BF3;
STICKLINE((OPEN > CLOSE),CLOSE,OPEN,5.2,0),colorFF5B00;
STICKLINE((OPEN > CLOSE),CLOSE,OPEN,4,0),colorFF6C00;
STICKLINE((OPEN > CLOSE),CLOSE,OPEN,3.5,0),colorFF7B00;
STICKLINE((OPEN > CLOSE),CLOSE,OPEN,3,0),colorFF9C00;
STICKLINE((OPEN > CLOSE),CLOSE,OPEN,2.5,0),colorFFBE00;
STICKLINE((OPEN > CLOSE),CLOSE,OPEN,2,0),colorFFCC00;
STICKLINE((OPEN > CLOSE),CLOSE,OPEN,1,0),colorFFFF00;
STICKLINE((OPEN > CLOSE),CLOSE,LOW,1,0),colorFFFF00;
STICKLINE((OPEN > CLOSE),OPEN,HIGH,1,0),colorFFFF00;
STICKLINE((OPEN = CLOSE AND C<REF(C,1)),CLOSE,OPEN,5.2,0),colorFF5B00;
STICKLINE((OPEN = CLOSE AND C<REF(C,1)),CLOSE,OPEN,4,0),colorFF6C00;
STICKLINE((OPEN = CLOSE AND C<REF(C,1)),CLOSE,OPEN,3.5,0),colorFF7B00;
STICKLINE((OPEN = CLOSE AND C<REF(C,1)),CLOSE,OPEN,3,0),colorFF9C00;
STICKLINE((OPEN = CLOSE AND C<REF(C,1)),CLOSE,OPEN,2.5,0),colorFFBE00;
STICKLINE((OPEN = CLOSE AND C<REF(C,1)),CLOSE,OPEN,2,0),colorFFCC00;
STICKLINE((OPEN = CLOSE AND C<REF(C,1)),CLOSE,OPEN,1,0),colorFFFF00;
STICKLINE((OPEN = CLOSE AND C<REF(C,1)),CLOSE,LOW,1,0),colorFFFF00;
STICKLINE((OPEN = CLOSE AND C<REF(C,1)),OPEN,HIGH,1,0),colorFFFF00;TIPTEXT(ISNULL(REFX(&CLOSE,1)),0,' www.kzuj.com.cn '),colorred;
TIPTEXT(ISNULL(REF(CLOSE,1)),0,'同花順程序化交易');

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