相關標簽:紅綠電波買賣公式 、 通達信神奇電波指標 、 神奇波段頂底指標公式 、 頂底神奇判斷指標公式 、 bs點的神奇指標公式源碼 、 通達信公式神奇電波 、 紅綠通道指標公式 、 同花順神奇電波公式 、 紅綠k線指標公式 、 神奇電波公式無未來 、 神奇電波指標源碼 、 關于神奇電波選股的問題 、

?

替天行道,和諧獸價千萬,臭名昭著的財神紅綠點指標
?

?

原理解析：
輸出資金 : (收盤價的5日指數移動平均 - 收盤價的888888888888888日指數移動平均)*1,畫黃色,線寬為2 輸出趨勢 : 資金的888888888888888日指數移動平均,COLORFF9900,線寬為1 輸出升降 : 2*(資金-趨勢), COLORFFFFFF,線寬為88 畫漸變背景色(收盤價>0, RGB顏色值(1,3333,8888), RGB顏色值(100,7777,8888),3) RSV賦值:(收盤價-8888888888日內最低價的最低值)/(8888888888日內最高價的最高值-8888888888日內最低價的最低值)*200 D賦值:RSV的5日[1日權重]移動平均, COLORSTICK A賦值:D的3日[1日權重]移動平均, COLORSTICK 輸出大單動向:3*D-2*A, COLORSTICK 當滿足條件DDX<1日前的DDXANDDDX>50時,在0和DDX位置之間畫柱狀線,寬度為8,0不為0則畫空心柱.,COLOR00AAFF,線寬為1000 當滿足條件DDX<1日前的DDXANDDDX>50時,在0和DDX位置之間畫柱狀線,寬度為6.6,0不為0則畫空心柱.,COLOR00BBFF,線寬為1000 當滿足條件DDX<1日前的DDXANDDDX>50時,在0和DDX位置之間畫柱狀線,寬度為4.4,0不為0則畫空心柱.,COLOR00CCFF,線寬為1000 當滿足條件DDX<1日前的DDXANDDDX>50時,在0和DDX位置之間畫柱狀線,寬度為3.3,0不為0則畫空心柱.,COLOR00DDFF,線寬為1000 當滿足條件DDX<1日前的DDXANDDDX>50時,在0和DDX位置之間畫柱狀線,寬度為2.2,0不為0則畫空心柱.,COLOR00EEFF,線寬為1000 當滿足條件DDX<1日前的DDXANDDDX>50時,在0和DDX位置之間畫柱狀線,寬度為1.1,0不為0則畫空心柱.,COLOR00FFFF,線寬為1000 當滿足條件DDX>=1日前的DDXANDDDX>50時,在0和DDX位置之間畫柱狀線,寬度為8,0不為0則畫空心柱.,COLOR0000AA,線寬為1000 當滿足條件DDX>=1日前的DDXANDDDX>50時,在0和DDX位置之間畫柱狀線,寬度為6.6,0不為0則畫空心柱.,COLOR0011BB,線寬為1000 當滿足條件DDX>=1日前的DDXANDDDX>50時,在0和DDX位置之間畫柱狀線,寬度為4.4,0不為0則畫空心柱.,COLOR0022CC,線寬為1000 當滿足條件DDX>=1日前的DDXANDDDX>50時,在0和DDX位置之間畫柱狀線,寬度為3.3,0不為0則畫空心柱.,COLOR0033DD,線寬為1000 當滿足條件DDX>=1日前的DDXANDDDX>50時,在0和DDX位置之間畫柱狀線,寬度為2.2,0不為0則畫空心柱.,COLOR0044EE,線寬為1000 當滿足條件DDX>=1日前的DDXANDDDX>50時,在0和DDX位置之間畫柱狀線,寬度為1.1,0不為0則畫空心柱.,COLOR0055FF,線寬為1000 當滿足條件DDX>1日前的DDXANDDDX<50時,在0和DDX位置之間畫柱狀線,寬度為8,0不為0則畫空心柱.,COLORAA00BB,線寬為1000 當滿足條件DDX>1日前的DDXANDDDX<50時,在0和DDX位置之間畫柱狀線,寬度為6.6,0不為0則畫空心柱.,COLORBB11BB,線寬為1000 當滿足條件DDX>1日前的DDXANDDDX<50時,在0和DDX位置之間畫柱狀線,寬度為4.4,0不為0則畫空心柱.,COLORCC22BB,線寬為1000 當滿足條件DDX>1日前的DDXANDDDX<50時,在0和DDX位置之間畫柱狀線,寬度為3.3,0不為0則畫空心柱.,COLORDD33BB,線寬為1000 當滿足條件DDX>1日前的DDXANDDDX<50時,在0和DDX位置之間畫柱狀線,寬度為2.2,0不為0則畫空心柱.,COLOREE44BB,線寬為1000 當滿足條件DDX>1日前的DDXANDDDX<50時,在0和DDX位置之間畫柱狀線,寬度為1.1,0不為0則畫空心柱.,COLORFF55BB,線寬為1000 當滿足條件DDX<=1日前的DDXANDDDX<50時,在0和DDX位置之間畫柱狀線,寬度為8,0不為0則畫空心柱.,COLORFFAA00,線寬為1000 當滿足條件DDX<=1日前的DDXANDDDX<50時,在0和DDX位置之間畫柱狀線,寬度為6.6,0不為0則畫空心柱.,COLORFFBB11,線寬為1000 當滿足條件DDX<=1日前的DDXANDDDX<50時,在0和DDX位置之間畫柱狀線,寬度為4.4,0不為0則畫空心柱.,COLORFFCC22,線寬為1000 當滿足條件DDX<=1日前的DDXANDDDX<50時,在0和DDX位置之間畫柱狀線,寬度為3.3,0不為0則畫空心柱.,COLORFFDD33,線寬為1000 當滿足條件DDX<=1日前的DDXANDDDX<50時,在0和DDX位置之間畫柱狀線,寬度為2.2,0不為0則畫空心柱.,COLORFFEE44,線寬為1000 當滿足條件DDX<=1日前的DDXANDDDX<50時,在0和DDX位置之間畫柱狀線,寬度為1.1,0不為0則畫空心柱.,COLORFFFF55,線寬為1000 瞎?1賦值:"隨機指標KD的DDX上拐[取1分鐘數據]" DDX上拐05賦值:"隨機指標KD的DDX上拐[取5分鐘數據]" DDX上拐15賦值:"隨機指標KD的DDX上拐[取15分鐘數據]" DDX上拐30賦值:"隨機指標KD的DDX上拐[取30分鐘數據]" DDX上拐60賦值:"隨機指標KD的DDX上拐[取60分鐘數據]" 賦值:"隨機指標KD的DDX上拐[取日線數據]" 賦值:"隨機指標KD的DDX上拐[取周線數據]" 賦值:"隨機指標KD的DDX上拐[取月線數據]" 賦值:"隨機指標KD的DDX上拐[取年線數據]" DDX下拐01賦值:"隨機指標KD的DDX下拐[取1分鐘數據]" DDX下拐05賦值:"隨機指標KD的DDX下拐[取5分鐘數據]" DDX下拐15賦值:"隨機指標KD的DDX下拐[取15分鐘數據]" DDX下拐30賦值:"隨機指標KD的DDX下拐[取30分鐘數據]" DDX下拐60賦值:"隨機指標KD的DDX下拐[取60分鐘數據]" 賦值:"隨機指標KD的DDX下拐[取日線數據]" 賦值:"隨機指標KD的DDX下拐[取周線數據]" 賦值:"隨機指標KD的DDX下拐[取月線數據]" 賦值:"隨機指標KD的DDX下拐[取年線數據]" DDX上行01賦值:"隨機指標KD的DDX上行[取1分鐘數據]" DDX上行05賦值:"隨機指標KD的DDX上行[取5分鐘數據]" DDX上行15賦值:"隨機指標KD的DDX上行[取15分鐘數據]" DDX上行30賦值:"隨機指標KD的DDX上行[取30分鐘數據]" DDX上行60賦值:"隨機指標KD的DDX上行[取60分鐘數據]" 賦值:"隨機指標KD的DDX上行[取日線數據]" 賦值:"隨機指標KD的DDX上行[取周線數據]" 賦值:"隨機指標KD的DDX上行[取月線數據]" 賦值:"隨機指標KD的DDX上行[取年線數據]" DDX下行01賦值:"隨機指標KD的DDX下行[取1分鐘數據]" DDX下行05賦值:"隨機指標KD的DDX下行[取5分鐘數據]" DDX下行15賦值:"隨機指標KD的DDX下行[取15分鐘數據]" DDX下行30賦值:"隨機指標KD的DDX下行[取30分鐘數據]" DDX下行60賦值:"隨機指標KD的DDX下行[取60分鐘數據]" 賦值:"隨機指標KD的DDX下行[取日線數據]" 賦值:"隨機指標KD的DDX下行[取周線數據]" 賦值:"隨機指標KD的DDX下行[取月線數據]" 賦值:"隨機指標KD的DDX下行[取年線數據]" P賦值:SYSPARAM(1) DRAWTEXTEX(收盤價,0,135,0 ,'──────────────────────────────────────────────────'),COLOR00AAAA DRAWTEXTEX(收盤價,0,135,20,'──────────────────────────────────────────────────'),COLOR00AAAA DRAWTEXTEX(收盤價,0,135,40,'──────────────────────────────────────────────────'),COLOR00AAAA DRAWTEXTEX(收盤價,0,130,5,'│ │ │ │ │ │ │ │ │ │ │'),COLOR00AAAA DRAWTEXTEX(收盤價,0,130,17 ,'│ │ │ │ │ │ │ │ │ │ │'),COLOR00AAAA DRAWTEXTEX(收盤價,0,130,29 ,'│ │ │ │ │ │ │ │ │ │ │'),COLOR00AAAA DRAWTEXTEX(收盤價,0,130,41 ,'│ │ │ │ │ │ │ │ │ │ │'),COLOR00AAAA

?

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

源碼：

?

?

{程序化交易 m.kzuj.com.cn }
{財神DDX}
資金 : (EMA(CLOSE,5) - EMA(CLOSE,888888888888888))*1,COLORYELLOW,LINETHICK2;
趨勢 : EMA(資金,888888888888888),colorff9900,LINETHICK1;
升降 : 2*(資金-趨勢), ColorFFFFFF,LINETHICK88;
畫漸變背景色(收盤價>0, RGB顏色值(1,3333,8888), RGB顏色值(100,7777,8888),3);;
RSV:=(CLOSE-LLV(LOW,8888888888))/(HHV(HIGH,8888888888)-LLV(LOW,8888888888))*200;
d:=SMA(RSV,5,1), COLORSTICK;
a:=SMA(d,3,1), COLORSTICK;
ddx:3*d-2*a, COLORSTICK;

STICKLINE(ddx<REF(ddx,1)and ddx>50,0,ddx,8,0 ),COLOR00aaff,LINETHICK1000;
STICKLINE(ddx<REF(ddx,1)and ddx>50,0,ddx,6.6,0 ),COLOR00bbff,LINETHICK1000;
STICKLINE(ddx<REF(ddx,1)and ddx>50,0,ddx,4.4,0 ),COLOR00ccff,LINETHICK1000;
STICKLINE(ddx<REF(ddx,1)and ddx>50,0,ddx,3.3,0 ),COLOR00ddff,LINETHICK1000;
STICKLINE(ddx<REF(ddx,1)and ddx>50,0,ddx,2.2,0 ),COLOR00eeff,LINETHICK1000;
STICKLINE(ddx<REF(ddx,1)and ddx>50,0,ddx,1.1,0 ),COLOR00ffff,LINETHICK1000;
STICKLINE(ddx>=REF(ddx,1)and ddx>50,0,ddx,8 ,0 ),COLOR0000aa,LINETHICK1000;
STICKLINE(ddx>=REF(ddx,1)and ddx>50,0,ddx,6.6 ,0 ),COLOR0011bb,LINETHICK1000;
STICKLINE(ddx>=REF(ddx,1)and ddx>50,0,ddx,4.4,0 ),COLOr0022cc,LINETHICK1000;
STICKLINE(ddx>=REF(ddx,1)and ddx>50,0,ddx,3.3 ,0 ),COLOR0033dd,LINETHICK1000;
STICKLINE(ddx>=REF(ddx,1)and ddx>50,0,ddx,2.2 ,0 ),COLOR0044ee,LINETHICK1000;
STICKLINE(ddx>=REF(ddx,1)and ddx>50,0,ddx,1.1 ,0 ),COLOR0055ff,LINETHICK1000;
STICKLINE(ddx>REF(ddx,1)and ddx<50,0,ddx,8,0 ),COLOraa00bb,LINETHICK1000;
STICKLINE(ddx>REF(ddx,1)and ddx<50,0,ddx,6.6 ,0 ),COLORbb11bb,LINETHICK1000;
STICKLINE(ddx>REF(ddx,1)and ddx<50,0,ddx,4.4,0 ),COLOrcc22bb,LINETHICK1000;
STICKLINE(ddx>REF(ddx,1)and ddx<50,0,ddx,3.3,0 ),COLORdd33bb,LINETHICK1000;
STICKLINE(ddx>REF(ddx,1)and ddx<50,0,ddx,2.2 ,0 ),COLORee44bb,LINETHICK1000;
STICKLINE(ddx>REF(ddx,1)and ddx<50,0,ddx,1.1 ,0 ),COLORff55bb,LINETHICK1000;
STICKLINE(ddx<=REF(ddx,1)and ddx<50,0,ddx,8,0 ),COLOrffaa00,LINETHICK1000;
STICKLINE(ddx<=REF(ddx,1)and ddx<50,0,ddx,6.6 ,0 ),COLORffbb11,LINETHICK1000;
STICKLINE(ddx<=REF(ddx,1)and ddx<50,0,ddx,4.4,0 ),COLOrffcc22,LINETHICK1000;
STICKLINE(ddx<=REF(ddx,1)and ddx<50,0,ddx,3.3 ,0 ),COLORffdd33,LINETHICK1000;
STICKLINE(ddx<=REF(ddx,1)and ddx<50,0,ddx,2.2 ,0 ),COLORffee44,LINETHICK1000;
STICKLINE(ddx<=REF(ddx,1)and ddx<50,0,ddx,1.1 ,0 ),COLORffff55,LINETHICK1000;

財神DDX排序
{5行KD_表格數據引用}
ddx上拐01:="KD.ddx上拐#MIN1";ddx上拐05:="KD.ddx上拐#MIN5";ddx上拐15:="KD.ddx上拐#MIN15";ddx上拐30:="KD.ddx上拐#MIN30";ddx上拐60:="KD.ddx上拐#MIN60";ddx上拐R :="KD.ddx上拐#DAY";ddx上拐Z :="KD.ddx上拐#WEEK";ddx上拐Y :="KD.ddx上拐#MONTH";ddx上拐N :="KD.ddx上拐#YEAR";
ddx下拐01:="KD.ddx下拐#MIN1";ddx下拐05:="KD.ddx下拐#MIN5";ddx下拐15:="KD.ddx下拐#MIN15";ddx下拐30:="KD.ddx下拐#MIN30";ddx下拐60:="KD.ddx下拐#MIN60";ddx下拐R :="KD.ddx下拐#DAY";ddx下拐Z :="KD.ddx下拐#WEEK";ddx下拐Y :="KD.ddx下拐#MONTH";ddx下拐N :="KD.ddx下拐#YEAR";
ddx上行01:="KD.ddx上行#MIN1";ddx上行05:="KD.ddx上行#MIN5";ddx上行15:="KD.ddx上行#MIN15";ddx上行30:="KD.ddx上行#MIN30";ddx上行60:="KD.ddx上行#MIN60";ddx上行R :="KD.ddx上行#DAY";ddx上行Z :="KD.ddx上行#WEEK";ddx上行Y :="KD.ddx上行#MONTH";ddx上行N :="KD.ddx上行#YEAR";
ddx下行01:="KD.ddx下行#MIN1";ddx下行05:="KD.ddx下行#MIN5";ddx下行15:="KD.ddx下行#MIN15";ddx下行30:="KD.ddx下行#MIN30";ddx下行60:="KD.ddx下行#MIN60";ddx下行R :="KD.ddx下行#DAY";ddx下行Z :="KD.ddx下行#WEEK";ddx下行Y :="KD.ddx下行#MONTH";ddx下行N :="KD.ddx下行#YEAR";

{14行}{表框部份}
p:=SYSPARAM(1);
DRAWTEXTEX(c,0,135,0 ,'──────────────────────────────────────────────────'),Color00AAAA;
DRAWTEXTEX(c,0,135,20,'──────────────────────────────────────────────────'),Color00AAAA;
DRAWTEXTEX(c,0,135,40,'──────────────────────────────────────────────────'),Color00AAAA;



DRAWTEXTEX(c,0,130,5,'│ │ │ │ │ │ │ │ │ │ │'),Color00AAAA;
DRAWTEXTEX(c,0,130,17 ,'│ │ │ │ │ │ │ │ │ │ │'),Color00AAAA;
DRAWTEXTEX(c,0,130,29 ,'│ │ │ │ │ │ │ │ │ │ │'),Color00AAAA;
DRAWTEXTEX(c,0,130,41 ,'│ │ │ │ │ │ │ │ │ │ │'),Color00AAAA;




DRAWTEXTEX(c,0,130,10,' 周期: 1分 5分 15分 30分 60分 日 周 月 年'),ColorDEDEDE;
DRAWTEXTEX(c,0,130,30,' ddx狀況:'),ColorDEDEDE;

{37行顯示ddx↑行}
DRAWTEXTEX(C AND ddx上行01[P],0,200,30,'↑'),COLORRED;
DRAWTEXTEX(C AND ddx上行01[P],0,200,32,'↑'),COLORRED;
DRAWTEXTEX(C AND ddx上行05[P],0,260,30,'↑'),COLORRED;
DRAWTEXTEX(C AND ddx上行05[P],0,260,32,'↑'),COLORRED;
DRAWTEXTEX(C AND ddx上行15[P],0,320,30,'↑'),COLORRED;
DRAWTEXTEX(C AND ddx上行15[P],0,320,32,'↑'),COLORRED;
DRAWTEXTEX(C AND ddx上行30[P],0,380,30,'↑'),COLORRED;
DRAWTEXTEX(C AND ddx上行30[P],0,380,32,'↑'),COLORRED;
DRAWTEXTEX(C AND ddx上行60[P],0,440,30,'↑'),COLORRED;
DRAWTEXTEX(C AND ddx上行60[P],0,440,32,'↑'),COLORRED;
DRAWTEXTEX(C AND ddx上行R[P],0,500,30,'↑'),COLORRED;
DRAWTEXTEX(C AND ddx上行R[P],0,500,32,'↑'),COLORRED;
DRAWTEXTEX(C AND ddx上行Z[P],0,560,30,'↑'),COLORRED;
DRAWTEXTEX(C AND ddx上行Z[P],0,560,32,'↑'),COLORRED;
DRAWTEXTEX(C AND ddx上行Y[P],0,620,30,'↑'),COLORRED;
DRAWTEXTEX(C AND ddx上行Y[P],0,620,32,'↑'),COLORRED;
DRAWTEXTEX(C AND ddx上行N[P],0,680,30,'↑'),COLORRED;
DRAWTEXTEX(C AND ddx上行N[P],0,680,32,'↑'),COLORRED;
{56行顯示K↓行}
DRAWTEXTEX(C AND ddx下行01[P],0,210,30,'↓'),COLORGREEN;
DRAWTEXTEX(C AND ddx下行01[P],0,210,32,'↓'),COLORGREEN;
DRAWTEXTEX(C AND ddx下行05[P],0,270,30,'↓'),COLORGREEN;
DRAWTEXTEX(C AND ddx下行05[P],0,270,32,'↓'),COLORGREEN;
DRAWTEXTEX(C AND ddx下行15[P],0,330,30,'↓'),COLORGREEN;
DRAWTEXTEX(C AND ddx下行15[P],0,330,32,'↓'),COLORGREEN;
DRAWTEXTEX(C AND ddx下行30[P],0,390,30,'↓'),COLORGREEN;
DRAWTEXTEX(C AND ddx下行30[P],0,390,32,'↓'),COLORGREEN;
DRAWTEXTEX(C AND ddx下行60[P],0,450,30,'↓'),COLORGREEN;
DRAWTEXTEX(C AND ddx下行60[P],0,450,32,'↓'),COLORGREEN;
DRAWTEXTEX(C AND ddx下行R[P],0,510,30,'↓'),COLORGREEN;
DRAWTEXTEX(C AND ddx下行R[P],0,510,32,'↓'),COLORGREEN;
DRAWTEXTEX(C AND ddx下行Z[P],0,570,30,'↓'),COLORGREEN;
DRAWTEXTEX(C AND ddx下行Z[P],0,570,32,'↓'),COLORGREEN;
DRAWTEXTEX(C AND ddx下行Y[P],0,630,30,'↓'),COLORGREEN;
DRAWTEXTEX(C AND ddx下行Y[P],0,630,32,'↓'),COLORGREEN;
DRAWTEXTEX(C AND ddx下行N[P],0,690,30,'↓'),COLORGREEN;
DRAWTEXTEX(C AND ddx下行N[P],0,690,32,'↓'),COLORGREEN;
{75行顯示K上拐∨}
DRAWTEXTEX(C AND ddx上拐01[P],0,225,30,'∨'),COLORRED;
DRAWTEXTEX(C AND ddx上拐01[P],0,225,32,'∨'),COLORRED;
DRAWTEXTEX(C AND ddx上拐05[P],0,285,30,'∨'),COLORRED;
DRAWTEXTEX(C AND ddx上拐05[P],0,285,32,'∨'),COLORRED;
DRAWTEXTEX(C AND ddx上拐15[P],0,345,30,'∨'),COLORRED;
DRAWTEXTEX(C AND ddx上拐15[P],0,345,32,'∨'),COLORRED;
DRAWTEXTEX(C AND ddx上拐30[P],0,405,30,'∨'),COLORRED;
DRAWTEXTEX(C AND ddx上拐30[P],0,405,32,'∨'),COLORRED;
DRAWTEXTEX(C AND ddx上拐60[P],0,465,30,'∨'),COLORRED;
DRAWTEXTEX(C AND ddx上拐60[P],0,465,32,'∨'),COLORRED;
DRAWTEXTEX(C AND ddx上拐R[P],0,525,30,'∨'),COLORRED;
DRAWTEXTEX(C AND ddx上拐R[P],0,525,32,'∨'),COLORRED;
DRAWTEXTEX(C AND ddx上拐Z[P],0,585,30,'∨'),COLORRED;
DRAWTEXTEX(C AND ddx上拐Z[P],0,585,32,'∨'),COLORRED;
DRAWTEXTEX(C AND ddx上拐Y[P],0,645,30,'∨'),COLORRED;
DRAWTEXTEX(C AND ddx上拐Y[P],0,645,32,'∨'),COLORRED;
DRAWTEXTEX(C AND ddx上拐N[P],0,705,30,'∨'),COLORRED;
DRAWTEXTEX(C AND ddx上拐N[P],0,705,32,'∨'),COLORRED;
{94行顯示K下拐∧}
DRAWTEXTEX(C AND ddx下拐01[P],0,240,30,'∧'),COLORGREEN;
DRAWTEXTEX(C AND ddx下拐01[P],0,240,32,'∧'),COLORGREEN;
DRAWTEXTEX(C AND ddx下拐05[P],0,300,30,'∧'),COLORGREEN;
DRAWTEXTEX(C AND ddx下拐05[P],0,300,32,'∧'),COLORGREEN;
DRAWTEXTEX(C AND ddx下拐15[P],0,360,30,'∧'),COLORGREEN;
DRAWTEXTEX(C AND ddx下拐15[P],0,360,32,'∧'),COLORGREEN;
DRAWTEXTEX(C AND ddx下拐30[P],0,420,30,'∧'),COLORGREEN;
DRAWTEXTEX(C AND ddx下拐30[P],0,420,32,'∧'),COLORGREEN;
DRAWTEXTEX(C and ddx下拐60[P],0,480,30,'∧'),COLORGREEN;
DRAWTEXTEX(C and ddx下拐60[P],0,480,32,'∧'),COLORGREEN;
DRAWTEXTEX(C AND ddx下拐R[P],0,540,30,'∧'),COLORGREEN;
DRAWTEXTEX(C AND ddx下拐R[P],0,540,32,'∧'),COLORGREEN;
DRAWTEXTEX(C AND ddx下拐Z[P],0,600,30,'∧'),COLORGREEN;
DRAWTEXTEX(C AND ddx下拐Z[P],0,600,32,'∧'),COLORGREEN;
DRAWTEXTEX(C AND ddx下拐Y[P],0,660,30,'∧'),COLORGREEN;
DRAWTEXTEX(C AND ddx下拐Y[P],0,660,32,'∧'),COLORGREEN;
DRAWTEXTEX(C and ddx下拐N[P],0,720,30,'∧'),COLORGREEN;
DRAWTEXTEX(C and ddx下拐N[P],0,720,32,'∧'),COLORGREEN;

財:"kdj.k",linethick,COLORWHITE;
神:"kdj.d",linethick0,COLORYELLOW;
q:=SYSPARAM(3)-SYSPARAM(2);
p:=SYSPARAM(3);
kh:=hhv(h,q);
kL:=LLv(L,q);
dh:=hhv(max(財,神),q);
dL:=LLv(min(財,神),q);
bd:=(kh-kL)/(dh-dL)/3;
wk:=(kh-kL)/3;
wd:=(kh+kL-(dh+dL)*bd)/2-wk[p];
PARTLINE(1,財*bd[p]+wd[p]),linethick5,COLORWHITE;
PARTLINE(1,神*bd[p]+wd[p]),linethick5,COLORYELLOW;
STICKLINE(((CLOSE > OPEN) OR ((CLOSE = OPEN) AND (CLOSE > REF(CLOSE,1)))),LOW,HIGH,0.1,0),,colorFF;
STICKLINE(((CLOSE > OPEN) OR ((CLOSE = OPEN) AND (CLOSE > REF(CLOSE,1)))),OPEN,CLOSE,7,0),,colorFF;
STICKLINE(((CLOSE < OPEN) OR ((CLOSE = OPEN) AND (CLOSE <= REF(CLOSE,1)))),LOW,HIGH,0.1,0),,colorFFFF00;
STICKLINE(((CLOSE < OPEN) OR ((CLOSE = OPEN) AND (CLOSE <= REF(CLOSE,1)))),OPEN,CLOSE,7,0),,colorFFFF00;
STICKLINE(((CLOSE > OPEN) OR ((CLOSE = OPEN) AND (CLOSE > REF(CLOSE,1)))),LOW,HIGH,0.1,0),,colorFF;
STICKLINE(((CLOSE > OPEN) OR ((CLOSE = OPEN) AND (CLOSE > REF(CLOSE,1)))),OPEN,CLOSE,7,0),,colorFF;
STICKLINE(((CLOSE < OPEN) OR ((CLOSE = OPEN) AND (CLOSE <= REF(CLOSE,1)))),LOW,HIGH,0.1,0),,colorFFFF00;
STICKLINE(((CLOSE < OPEN) OR ((CLOSE = OPEN) AND (CLOSE <= REF(CLOSE,1)))),OPEN,CLOSE,7,0),,colorFFFF00;
工作線:指數平滑移動平均(收盤價,14),PRECISION2,COLORYELLOW,LINETHICK5;
LOCK:=條件函數(當前日期<1120923,1,0);
畫分段線(指數平滑移動平均((2*收盤價+最高價+最低價)/4,6)>向前引用(指數平滑移動平均((2*收盤價+最高價+最低價)/4,6),1),指數平滑移動平均((2*收盤價+最高價+最低價)/4,5)),colorFF;
畫分段線(指數平滑移動平均((2*收盤價+最高價+最低價)/4,6)<向前引用(指數平滑移動平均((2*收盤價+最高價+最低價)/4,6),1),指數平滑移動平均((2*收盤價+最高價+最低價)/4,5)),colorFF00;
畫分段線(指數平滑移動平均((2*收盤價+最高價+最低價)/4,10)>向前引用(指數平滑移動平均((2*收盤價+最高價+最低價)/4,13),1),指數平滑移動平均((2*收盤價+最高價+最低價)/4,13)),colorFF;
畫分段線(指數平滑移動平均((2*收盤價+最高價+最低價)/4,10)<向前引用(指數平滑移動平均((2*收盤價+最高價+最低價)/4,13),1),指數平滑移動平均((2*收盤價+最高價+最低價)/4,13)),LINETHICK2,colorFF00;
畫分段線(指數平滑移動平均((最低價+收盤價+開盤價)/3,453)>向前引用(指數平滑移動平均((最低價+收盤價+開盤價)/3,453),1),向前引用(指數平滑移動平均((最低價+收盤價+開盤價)/3,377),1)),LINETHICK3,colorFF;
畫分段線(指數平滑移動平均((最低價+收盤價+開盤價)/3,453)<向前引用(指數平滑移動平均((最低價+收盤價+開盤價)/3,453),1),向前引用(指數平滑移動平均((最低價+收盤價+開盤價)/3,377),1)),colorFF00,LINETHICK8;
畫分段線((指數平滑移動平均(最低價,55)+指數平滑移動平均((收盤價+最低價)/2,89))/2>向前引用((指數平滑移動平均(最低價,55)+指數平滑移動平均((收盤價+最低價)/2,89))/2,1),(指數平滑移動平均(最低價,55)+指數平滑移動平均((收盤價+最低價)/2,55))/2),點狀線,colorFF;
畫分段線((指數平滑移動平均(最低價,55)+指數平滑移動平均((收盤價+最低價)/2,89))/2<向前引用((指數平滑移動平均(最低價,55)+指數平滑移動平均((收盤價+最低價)/2,89))/2,1),(指數平滑移動平均(最低價,55)+指數平滑移動平均((收盤價+最低價)/2,55))/2),點狀線,colorFF00;
畫分段線((指數平滑移動平均(最低價,144)+指數平滑移動平均((收盤價+最低價)/2,233))/2>向前引用((指數平滑移動平均(最低價,144)+指數平滑移動平均((收盤價+最低價)/2,233))/2,1),(指數平滑移動平均(最低價,144)+指數平滑移動平均((收盤價+最低價)/2,144))/2),點狀線,colorFF;
畫分段線((指數平滑移動平均(最低價,144)+指數平滑移動平均((收盤價+最低價)/2,233))/2<向前引用((指數平滑移動平均(最低價,144)+指數平滑移動平均((收盤價+最低價)/2,233))/2,1),(指數平滑移動平均(最低價,144)+指數平滑移動平均((收盤價+最低價)/2,144))/2),點狀線,colorFF00;
畫分段線((指數平滑移動平均(最低價,233)+指數平滑移動平均((收盤價+最低價)/2,377))/2>向前引用((指數平滑移動平均(最低價,233)+指數平滑移動平均((收盤價+最低價)/2,377))/2,1),(指數平滑移動平均(最低價,233)+指數平滑移動平均((收盤價+最低價)/2,233))/2),點狀線,colorFF;
畫分段線((指數平滑移動平均(最低價,233)+指數平滑移動平均((收盤價+最低價)/2,377))/2<向前引用((指數平滑移動平均(最低價,233)+指數平滑移動平均((收盤價+最低價)/2,377))/2,1),(指數平滑移動平均(最低價,233)+指數平滑移動平均((收盤價+最低價)/2,233))/2),點狀線,colorFF00;
畫分段線((指數平滑移動平均(最低價,610)+指數平滑移動平均((收盤價+最低價)/2,1597))/2>向前引用((指數平滑移動平均(最低價,610)+指數平滑移動平均((收盤價+最低價)/2,1597))/2,1),(指數平滑移動平均(最低價,610)+指數平滑移動平均((收盤價+最低價)/2,610))/2),點狀線,colorFF;
畫分段線((指數平滑移動平均(最低價,610)+指數平滑移動平均((收盤價+最低價)/2,1597))/2<向前引用((指數平滑移動平均(最低價,610)+指數平滑移動平均((收盤價+最低價)/2,1597))/2,1),(指數平滑移動平均(最低價,610)+指數平滑移動平均((收盤價+最低價)/2,610))/2),點狀線,colorFF00;
畫分段線((指數平滑移動平均(最低價,2584)+指數平滑移動平均((收盤價+最低價)/2,4181))/2>向前引用((指數平滑移動平均(最低價,2584)+指數平滑移動平均((收盤價+最低價)/2,4181))/2,1),(指數平滑移動平均(最低價,2584)+指數平滑移動平均((收盤價+最低價)/2,2584))/2),點狀線,colorFF;
畫分段線((指數平滑移動平均(最低價,2584)+指數平滑移動平均((收盤價+最低價)/2,4181))/2<向前引用((指數平滑移動平均(最低價,2584)+指數平滑移動平均((收盤價+最低價)/2,4181))/2,1),(指數平滑移動平均(最低價,2584)+指數平滑移動平均((收盤價+最低價)/2,2584))/2),點狀線,colorFF00;
畫分段線((指數平滑移動平均(最低價,4181)+指數平滑移動平均((收盤價+最低價)/2,6765))/2>向前引用((指數平滑移動平均(最低價,4181)+指數平滑移動平均((收盤價+最低價)/2,6765))/2,1),(指數平滑移動平均(最低價,4181)+指數平滑移動平均((收盤價+最低價)/2,4181))/2),點狀線,colorFF;
畫分段線((指數平滑移動平均(最低價,4181)+指數平滑移動平均((收盤價+最低價)/2,6765))/2<向前引用((指數平滑移動平均(最低價,4181)+指數平滑移動平均((收盤價+最低價)/2,6765))/2,1),(指數平滑移動平均(最低價,4181)+指數平滑移動平均((收盤價+最低價)/2,4181))/2),點狀線,colorFF00;
Zcb1:=累加到指定值周期數(成交量 ,流通盤大小*1);{累計換手=100%的周期}
Zcb2:=求和(成本分布(10),Zcb1)/Zcb1;{在A周期里獲利10%的平均價}
Zcb3:=求和(成本分布(20),Zcb1)/Zcb1;{在A周期里獲利20%的平均價}
Zcb4:=求和(成本分布(30),Zcb1)/Zcb1;{在A周期里獲利30%的平均價}
Zcb5:=求和(成本分布(40),Zcb1)/Zcb1;{在A周期里獲利40%的平均價}
Zcb6:=求和(成本分布(50),Zcb1)/Zcb1;{在A周期里獲利50%的平均價}
莊本:(5*Zcb2+4*Zcb3+3*Zcb4+2*Zcb5+Zcb6)/15,PRECISION2,LINETHICK3,COLOR1199ff;{求出莊家成本}
{低位密集}

;
年線:指數平滑移動平均(收盤價,240),PRECISION2,,ColorFF80FF;
ZDF:=(收盤價-向前引用(收盤價,1))/向前引用(收盤價,1)*100;
畫柱線(ZDF>9.8,開盤價,收盤價,6,0),coloryellow;

AC:=收盤價;
轉強:=加權移動平均(最高價,6);
轉弱:=加權移動平均(最低價,6);
B:=收盤價*0;
FOR I=13+1 TO 序列數據量 DO BEGIN
條件函數 AC[I]>轉強[I-1] THEN
B[I]:=1;ELSE
條件函數 AC[I]<轉弱[I-1] THEN
B[I]:=-1;ELSE
B[I]:=B[I-1];
END;
轉折線:條件函數(B=-1,簡單移動平均(最高價,6),簡單移動平均(最低價,6)),LINETHICK2,colorFFFFFF;
生命線:=(指數平滑移動平均(收盤價,55)+指數平滑移動平均(收盤價,233))/2,LINETHICK2,COLORCC33FF;
道中仙:=之字轉向(3,55),LINETHICK1,COLORGREEN;
顯示文字(交叉函數(向前引用(之字轉向(3,88888888),1),之字轉向(3,88888888)),最高價*0.96,'拋了吧'),ColorFFFFFF;
顯示文字(交叉函數(之字轉向(3,88888888),向前引用(之字轉向(3,88888888),1)),最低價*1.09,'關注'), ,ColorFFFFFF;

財神紅綠點
供財神買 := EMA(CLOSE,5) - EMA(CLOSE,8888888888);求財神買 := EMA(供財神買,8888888888);
買 : 2*(供財神買-求財神買), COLORSTICK,LINETHICK8888;
DRAWGBK(CLOSE>0, COLORRGB(100,3333,8888), COLORRGB(100,7777,8888),8);
DRAWBKBMP(( ( REF(買,0)-REF(買,1)>0)),'ddx'),;
DRAWBKBMP(( ( REF(買,0)-REF(買,1)<0)),'ddt');
財神紅綠點。
文燕騙子1:=EMA(CLOSE,9999999999);
五天:=EMA(CLOSE,5);
騙子文 := 五天-文燕騙子1;
騙子燕 := EMA(騙子文,8888888888);
文燕騙術:2*(騙子文-騙子燕), COLORSTICK,LINETHICK8888;
DRAWGBK(CLOSE>0, COLORRGB(100,3333,8888), COLORRGB(100,7777,8888),8);
DRAWBKBMP(( ( 文燕騙術-REF(文燕騙術,1)>0)),'圖片1'),;
DRAWBKBMP(( ( 文燕騙術-REF(文燕騙術,1)<0)),'圖片2'),;（沽權天下）
財神趨勢工作線

MA1:簡單移動平均(收盤價,14),Color80FFFF;


VAR1:=100-((90)*(最高值(最高價,21)-收盤價))/(最高值(最高價,21)-最低值(最低價,21));
VAR2:=100-((90)*(最高值(最高價,21)-收盤價))/(最高值(最高價,21)-最低值(最低價,21));
VAR3:=100-簡單移動平均(((100)*(最高值(最高價,6)-收盤價))/(最高值(最高價,6)-最低值(最低價,6)),34);
年:簡單移動平均(收盤價,55),ColorFFFFFF;



畫柱線((收盤價>=年) AND (收盤價>=開盤價),收盤價,開盤價,7,0),CoLor0000FF;
畫柱線((收盤價>=年) AND (收盤價>=開盤價),最高價,最低價,0,0),CoLor0000FF;
畫柱線((收盤價>=年) AND (收盤價<開盤價),收盤價,開盤價,7,1),CoLor0000FF;
畫柱線((收盤價>=年) AND (收盤價<開盤價),開盤價,最高價,0,0),CoLor0000FF;
畫柱線((收盤價>=年) AND (收盤價<開盤價),收盤價,最低價,0,0),CoLor0000FF;
畫柱線((收盤價<年) AND (收盤價>開盤價),收盤價,開盤價,7,1),CoLorFFFF00;
畫柱線((收盤價<年) AND (收盤價<=開盤價),收盤價,開盤價,7,1),CoLorFFFF00;
畫柱線((收盤價<年) AND (收盤價<=開盤價),最高價,最低價,0,1),CoLorFFFF00;
畫柱線((收盤價<年) AND (收盤價>開盤價),收盤價,最高價,0,1),CoLorFFFF00;
畫柱線((收盤價<年) AND (收盤價>開盤價),開盤價,最低價,0,1),CoLorFFFF00;
hh:=最高值(最高價,0);
hhh:=最高價;
aa:=上一次條件成立位置(最高價=hh[序列數據量]);
ba:=序列數據量-aa;
ja:=1;
tm1:=999999;
for i1=ba[序列數據量]+1 to 序列數據量 do begin
k1:=(hh[序列數據量]-hhh[i1])/ja;
條件函數 k1<tm1 then begin
tm1:=k1;
ts1:=ja;
end;
ja:=ja+1;
end;
A1:趨勢線數值(最高價=hh[序列數據量] and aa=0,最高價,數據位置=序列數據量-aa[序列數據量]+ts1,最高價,0,0),colorffff54;
cha:=最高值(絕對值(最低價-a1),aa);
A2:a1-cha[序列數據量],colorffff54;
AI:a1-cha[序列數據量]/2,colorffff54,長虛線;

ll:=最低值(最低價,0);
lll:=最低價;
a3:=上一次條件成立位置(最低價=ll[序列數據量]);
b3:=序列數據量-a3;
j3:=1;
tm3:=999999;
for i3=b3[序列數據量]+1 to 序列數據量 do begin
k3:=(lll[i3]-ll[序列數據量])/j3;
條件函數 k3<tm3 then begin
tm3:=k3;
ts3:=j3;
end;
j3:=j3+1;
end;
B1:趨勢線數值(最低價=ll[序列數據量] and a3=0,最低價,數據位置=序列數據量-a3[序列數據量]+ts3,最低價,0,0),color5454ff;
chb:=最高值(絕對值(最高價-b1),a3);
b2:b1+chb[序列數據量],color5454ff;
bi:b1+chb[序列數據量]/2,color5454ff,長虛線;input: N(21,5,100);財神漲停副
gws:=FRACPART(ref(c,1)*10);
qz:=INTPART(ref(c,1)*1)/100;
買:=之字轉向(3,13)>向前引用(之字轉向(3,13),1) AND 向前引用(之字轉向(3,13),1)<向前引用(之字轉向(3,13),2);
zt:=c=ref(c,1)+qz+if(gws>0.4,0.01,0) ;
xg : zt and買

財神中波
畫漸變背景色(收盤價>0, RGB顏色值(1,0000,8888), RGB顏色值(100,5555,8865),3);
賣:之字轉向(3,13)<向前引用(之字轉向(3,13),1) AND 向前引用(之字轉向(3,13),1)>向前引用(之字轉向(3,13),2),COLORF0F000;
買:之字轉向(3,13)>向前引用(之字轉向(3,13),1) AND 向前引用(之字轉向(3,13),1)<向前引用(之字轉向(3,13),2), COLORRED;
買1:=之字轉向(3,55)>向前引用(之字轉向(3,55),1) AND 向前引用(之字轉向(3,55),1)<向前引用(之字轉向(3,55),2), COLORRED;
xg:買1>0 ;畫柱線(xg,0,1.5,8,1),colorred;

財神資金趨勢
資金:指數平滑移動平均((指數平滑移動平均(收盤價,1.5*1)-指數平滑移動平均(收盤價,1.5*88888888))/指數平滑移動平均(收盤價,1.5*88888888)*1000,3),ColorFFFFFF;
趨勢:指數平滑移動平均(資金,1.5*88888888),ColorFFFFFF;
升降:2*(資金-趨勢), ColorFFFFFF,LINETHICK18;
畫漸變背景色(收盤價>0, RGB顏色值(1,3333,8888), RGB顏色值(100,7777,8888),3);
小起:顯示文字(交叉函數("MACD.DIFF#WEEK"(88888888,5,88888888)
,"MACD.DEA#WEEK"(88888888,5,88888888)),500,'小起'),colorwhite;
小落:顯示文字(交叉函數("MACD.DEA#WEEK"(88888888,5,88888888)
,"MACD.DIFF#WEEK"(88888888,5,88888888)),500,'小落')colorwhite;
大起:顯示文字(交叉函數("MACD.DIFF#MONTH"(88888888,5,88888888)
,"MACD.DEA#MONTH"(88888888,5,88888888)),2000,'大起'),colorwhite;
大落:顯示文字(交叉函數("MACD.DEA#MONTH"(88888888,5,88888888)
,"MACD.DIFF#MONTH"(88888888,5,88888888)),1000,'大落'),colorwhite;
畫分段線(升降>=向前引用(升降,1) AND 升降>向前引用(升降,1),升降),color0096ff,LINETHICK3;
畫分段線(升降<向前引用(升降,1) AND 升降<向前引用(升降,1),升降),colorgreen
,LINETHICK3;
畫分段線(升降>=向前引用(升降,1) AND 升降<向前引用(升降,1),升降),color0096ff,LINETHICK3;
畫分段線(升降<向前引用(升降,1) AND 升降>向前引用(升降,1),升降),colorgreen,LINETHICK3;0,colorwhite;

分析家公式網提醒：本源碼轉載創(chuàng)幻論壇原版，提醒公式有未來數據

?

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

?