替天行道,和諧獸價千萬,臭名昭著的財神紅綠點指標[其他軟件公式]
相關(guān)標簽:紅綠電波買賣公式 、 通達信神奇電波指標 、 神奇波段頂?shù)字笜斯?、 頂?shù)咨衿媾袛嘀笜斯?、 bs點的神奇指標公式源碼 、 通達信公式神奇電波 、 紅綠通道指標公式 、 同花順神奇電波公式 、 紅綠k線指標公式 、 神奇電波公式無未來 、 神奇電波指標源碼 、 關(guān)于神奇電波選股的問題 、
?
替天行道,和諧獸價千萬,臭名昭著的財神紅綠點指標
?
?
原理解析:
?
?來源:程序化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_表格數(shù)據(jù)引用}
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;
工作線:指數(shù)平滑移動平均(收盤價,14),PRECISION2,COLORYELLOW,LINETHICK5;
LOCK:=條件函數(shù)(當前日期<1120923,1,0);
畫分段線(指數(shù)平滑移動平均((2*收盤價+最高價+最低價)/4,6)>向前引用(指數(shù)平滑移動平均((2*收盤價+最高價+最低價)/4,6),1),指數(shù)平滑移動平均((2*收盤價+最高價+最低價)/4,5)),colorFF;
畫分段線(指數(shù)平滑移動平均((2*收盤價+最高價+最低價)/4,6)<向前引用(指數(shù)平滑移動平均((2*收盤價+最高價+最低價)/4,6),1),指數(shù)平滑移動平均((2*收盤價+最高價+最低價)/4,5)),colorFF00;
畫分段線(指數(shù)平滑移動平均((2*收盤價+最高價+最低價)/4,10)>向前引用(指數(shù)平滑移動平均((2*收盤價+最高價+最低價)/4,13),1),指數(shù)平滑移動平均((2*收盤價+最高價+最低價)/4,13)),colorFF;
畫分段線(指數(shù)平滑移動平均((2*收盤價+最高價+最低價)/4,10)<向前引用(指數(shù)平滑移動平均((2*收盤價+最高價+最低價)/4,13),1),指數(shù)平滑移動平均((2*收盤價+最高價+最低價)/4,13)),LINETHICK2,colorFF00;
畫分段線(指數(shù)平滑移動平均((最低價+收盤價+開盤價)/3,453)>向前引用(指數(shù)平滑移動平均((最低價+收盤價+開盤價)/3,453),1),向前引用(指數(shù)平滑移動平均((最低價+收盤價+開盤價)/3,377),1)),LINETHICK3,colorFF;
畫分段線(指數(shù)平滑移動平均((最低價+收盤價+開盤價)/3,453)<向前引用(指數(shù)平滑移動平均((最低價+收盤價+開盤價)/3,453),1),向前引用(指數(shù)平滑移動平均((最低價+收盤價+開盤價)/3,377),1)),colorFF00,LINETHICK8;
畫分段線((指數(shù)平滑移動平均(最低價,55)+指數(shù)平滑移動平均((收盤價+最低價)/2,89))/2>向前引用((指數(shù)平滑移動平均(最低價,55)+指數(shù)平滑移動平均((收盤價+最低價)/2,89))/2,1),(指數(shù)平滑移動平均(最低價,55)+指數(shù)平滑移動平均((收盤價+最低價)/2,55))/2),點狀線,colorFF;
畫分段線((指數(shù)平滑移動平均(最低價,55)+指數(shù)平滑移動平均((收盤價+最低價)/2,89))/2<向前引用((指數(shù)平滑移動平均(最低價,55)+指數(shù)平滑移動平均((收盤價+最低價)/2,89))/2,1),(指數(shù)平滑移動平均(最低價,55)+指數(shù)平滑移動平均((收盤價+最低價)/2,55))/2),點狀線,colorFF00;
畫分段線((指數(shù)平滑移動平均(最低價,144)+指數(shù)平滑移動平均((收盤價+最低價)/2,233))/2>向前引用((指數(shù)平滑移動平均(最低價,144)+指數(shù)平滑移動平均((收盤價+最低價)/2,233))/2,1),(指數(shù)平滑移動平均(最低價,144)+指數(shù)平滑移動平均((收盤價+最低價)/2,144))/2),點狀線,colorFF;
畫分段線((指數(shù)平滑移動平均(最低價,144)+指數(shù)平滑移動平均((收盤價+最低價)/2,233))/2<向前引用((指數(shù)平滑移動平均(最低價,144)+指數(shù)平滑移動平均((收盤價+最低價)/2,233))/2,1),(指數(shù)平滑移動平均(最低價,144)+指數(shù)平滑移動平均((收盤價+最低價)/2,144))/2),點狀線,colorFF00;
畫分段線((指數(shù)平滑移動平均(最低價,233)+指數(shù)平滑移動平均((收盤價+最低價)/2,377))/2>向前引用((指數(shù)平滑移動平均(最低價,233)+指數(shù)平滑移動平均((收盤價+最低價)/2,377))/2,1),(指數(shù)平滑移動平均(最低價,233)+指數(shù)平滑移動平均((收盤價+最低價)/2,233))/2),點狀線,colorFF;
畫分段線((指數(shù)平滑移動平均(最低價,233)+指數(shù)平滑移動平均((收盤價+最低價)/2,377))/2<向前引用((指數(shù)平滑移動平均(最低價,233)+指數(shù)平滑移動平均((收盤價+最低價)/2,377))/2,1),(指數(shù)平滑移動平均(最低價,233)+指數(shù)平滑移動平均((收盤價+最低價)/2,233))/2),點狀線,colorFF00;
畫分段線((指數(shù)平滑移動平均(最低價,610)+指數(shù)平滑移動平均((收盤價+最低價)/2,1597))/2>向前引用((指數(shù)平滑移動平均(最低價,610)+指數(shù)平滑移動平均((收盤價+最低價)/2,1597))/2,1),(指數(shù)平滑移動平均(最低價,610)+指數(shù)平滑移動平均((收盤價+最低價)/2,610))/2),點狀線,colorFF;
畫分段線((指數(shù)平滑移動平均(最低價,610)+指數(shù)平滑移動平均((收盤價+最低價)/2,1597))/2<向前引用((指數(shù)平滑移動平均(最低價,610)+指數(shù)平滑移動平均((收盤價+最低價)/2,1597))/2,1),(指數(shù)平滑移動平均(最低價,610)+指數(shù)平滑移動平均((收盤價+最低價)/2,610))/2),點狀線,colorFF00;
畫分段線((指數(shù)平滑移動平均(最低價,2584)+指數(shù)平滑移動平均((收盤價+最低價)/2,4181))/2>向前引用((指數(shù)平滑移動平均(最低價,2584)+指數(shù)平滑移動平均((收盤價+最低價)/2,4181))/2,1),(指數(shù)平滑移動平均(最低價,2584)+指數(shù)平滑移動平均((收盤價+最低價)/2,2584))/2),點狀線,colorFF;
畫分段線((指數(shù)平滑移動平均(最低價,2584)+指數(shù)平滑移動平均((收盤價+最低價)/2,4181))/2<向前引用((指數(shù)平滑移動平均(最低價,2584)+指數(shù)平滑移動平均((收盤價+最低價)/2,4181))/2,1),(指數(shù)平滑移動平均(最低價,2584)+指數(shù)平滑移動平均((收盤價+最低價)/2,2584))/2),點狀線,colorFF00;
畫分段線((指數(shù)平滑移動平均(最低價,4181)+指數(shù)平滑移動平均((收盤價+最低價)/2,6765))/2>向前引用((指數(shù)平滑移動平均(最低價,4181)+指數(shù)平滑移動平均((收盤價+最低價)/2,6765))/2,1),(指數(shù)平滑移動平均(最低價,4181)+指數(shù)平滑移動平均((收盤價+最低價)/2,4181))/2),點狀線,colorFF;
畫分段線((指數(shù)平滑移動平均(最低價,4181)+指數(shù)平滑移動平均((收盤價+最低價)/2,6765))/2<向前引用((指數(shù)平滑移動平均(最低價,4181)+指數(shù)平滑移動平均((收盤價+最低價)/2,6765))/2,1),(指數(shù)平滑移動平均(最低價,4181)+指數(shù)平滑移動平均((收盤價+最低價)/2,4181))/2),點狀線,colorFF00;
Zcb1:=累加到指定值周期數(shù)(成交量 ,流通盤大小*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;{求出莊家成本}
{低位密集}
;
年線:指數(shù)平滑移動平均(收盤價,240),PRECISION2,,ColorFF80FF;
ZDF:=(收盤價-向前引用(收盤價,1))/向前引用(收盤價,1)*100;
畫柱線(ZDF>9.8,開盤價,收盤價,6,0),coloryellow;
AC:=收盤價;
轉(zhuǎn)強:=加權(quán)移動平均(最高價,6);
轉(zhuǎn)弱:=加權(quán)移動平均(最低價,6);
B:=收盤價*0;
FOR I=13+1 TO 序列數(shù)據(jù)量 DO BEGIN
條件函數(shù) AC[I]>轉(zhuǎn)強[I-1] THEN
B[I]:=1;ELSE
條件函數(shù) AC[I]<轉(zhuǎn)弱[I-1] THEN
B[I]:=-1;ELSE
B[I]:=B[I-1];
END;
轉(zhuǎn)折線:條件函數(shù)(B=-1,簡單移動平均(最高價,6),簡單移動平均(最低價,6)),LINETHICK2,colorFFFFFF;
生命線:=(指數(shù)平滑移動平均(收盤價,55)+指數(shù)平滑移動平均(收盤價,233))/2,LINETHICK2,COLORCC33FF;
道中仙:=之字轉(zhuǎn)向(3,55),LINETHICK1,COLORGREEN;
顯示文字(交叉函數(shù)(向前引用(之字轉(zhuǎn)向(3,88888888),1),之字轉(zhuǎn)向(3,88888888)),最高價*0.96,'拋了吧'),ColorFFFFFF;
顯示文字(交叉函數(shù)(之字轉(zhuǎn)向(3,88888888),向前引用(之字轉(zhuǎn)向(3,88888888),1)),最低價*1.09,'關(guān)注'), ,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);
文燕騙術(shù):2*(騙子文-騙子燕), COLORSTICK,LINETHICK8888;
DRAWGBK(CLOSE>0, COLORRGB(100,3333,8888), COLORRGB(100,7777,8888),8);
DRAWBKBMP(( ( 文燕騙術(shù)-REF(文燕騙術(shù),1)>0)),'圖片1'),;
DRAWBKBMP(( ( 文燕騙術(shù)-REF(文燕騙術(shù),1)<0)),'圖片2'),;(沽權(quán)天下)
財神趨勢工作線
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[序列數(shù)據(jù)量]);
ba:=序列數(shù)據(jù)量-aa;
ja:=1;
tm1:=999999;
for i1=ba[序列數(shù)據(jù)量]+1 to 序列數(shù)據(jù)量 do begin
k1:=(hh[序列數(shù)據(jù)量]-hhh[i1])/ja;
條件函數(shù) k1<tm1 then begin
tm1:=k1;
ts1:=ja;
end;
ja:=ja+1;
end;
A1:趨勢線數(shù)值(最高價=hh[序列數(shù)據(jù)量] and aa=0,最高價,數(shù)據(jù)位置=序列數(shù)據(jù)量-aa[序列數(shù)據(jù)量]+ts1,最高價,0,0),colorffff54;
cha:=最高值(絕對值(最低價-a1),aa);
A2:a1-cha[序列數(shù)據(jù)量],colorffff54;
AI:a1-cha[序列數(shù)據(jù)量]/2,colorffff54,長虛線;
ll:=最低值(最低價,0);
lll:=最低價;
a3:=上一次條件成立位置(最低價=ll[序列數(shù)據(jù)量]);
b3:=序列數(shù)據(jù)量-a3;
j3:=1;
tm3:=999999;
for i3=b3[序列數(shù)據(jù)量]+1 to 序列數(shù)據(jù)量 do begin
k3:=(lll[i3]-ll[序列數(shù)據(jù)量])/j3;
條件函數(shù) k3<tm3 then begin
tm3:=k3;
ts3:=j3;
end;
j3:=j3+1;
end;
B1:趨勢線數(shù)值(最低價=ll[序列數(shù)據(jù)量] and a3=0,最低價,數(shù)據(jù)位置=序列數(shù)據(jù)量-a3[序列數(shù)據(jù)量]+ts3,最低價,0,0),color5454ff;
chb:=最高值(絕對值(最高價-b1),a3);
b2:b1+chb[序列數(shù)據(jù)量],color5454ff;
bi:b1+chb[序列數(shù)據(jù)量]/2,color5454ff,長虛線;input: N(21,5,100);財神漲停副
gws:=FRACPART(ref(c,1)*10);
qz:=INTPART(ref(c,1)*1)/100;
買:=之字轉(zhuǎn)向(3,13)>向前引用(之字轉(zhuǎn)向(3,13),1) AND 向前引用(之字轉(zhuǎn)向(3,13),1)<向前引用(之字轉(zhuǎn)向(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);
賣:之字轉(zhuǎn)向(3,13)<向前引用(之字轉(zhuǎn)向(3,13),1) AND 向前引用(之字轉(zhuǎn)向(3,13),1)>向前引用(之字轉(zhuǎn)向(3,13),2),COLORF0F000;
買:之字轉(zhuǎn)向(3,13)>向前引用(之字轉(zhuǎn)向(3,13),1) AND 向前引用(之字轉(zhuǎn)向(3,13),1)<向前引用(之字轉(zhuǎn)向(3,13),2), COLORRED;
買1:=之字轉(zhuǎn)向(3,55)>向前引用(之字轉(zhuǎn)向(3,55),1) AND 向前引用(之字轉(zhuǎn)向(3,55),1)<向前引用(之字轉(zhuǎn)向(3,55),2), COLORRED;
xg:買1>0 ;畫柱線(xg,0,1.5,8,1),colorred;
財神資金趨勢
資金:指數(shù)平滑移動平均((指數(shù)平滑移動平均(收盤價,1.5*1)-指數(shù)平滑移動平均(收盤價,1.5*88888888))/指數(shù)平滑移動平均(收盤價,1.5*88888888)*1000,3),ColorFFFFFF;
趨勢:指數(shù)平滑移動平均(資金,1.5*88888888),ColorFFFFFF;
升降:2*(資金-趨勢), ColorFFFFFF,LINETHICK18;
畫漸變背景色(收盤價>0, RGB顏色值(1,3333,8888), RGB顏色值(100,7777,8888),3);
小起:顯示文字(交叉函數(shù)("MACD.DIFF#WEEK"(88888888,5,88888888)
,"MACD.DEA#WEEK"(88888888,5,88888888)),500,'小起'),colorwhite;
小落:顯示文字(交叉函數(shù)("MACD.DEA#WEEK"(88888888,5,88888888)
,"MACD.DIFF#WEEK"(88888888,5,88888888)),500,'小落')colorwhite;
大起:顯示文字(交叉函數(shù)("MACD.DIFF#MONTH"(88888888,5,88888888)
,"MACD.DEA#MONTH"(88888888,5,88888888)),2000,'大起'),colorwhite;
大落:顯示文字(交叉函數(shù)("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;
分析家公式網(wǎng)提醒:本源碼轉(zhuǎn)載創(chuàng)幻論壇原版,提醒公式有未來數(shù)據(jù)
?
公式導(dǎo)入教程: 【通達信公式源碼導(dǎo)入方法教程】 【同花順公式源碼導(dǎo)入方法教程】 【大智慧新一代公式源碼導(dǎo)入方法教程】
?
有思路,想編寫各種指標公式,程序化交易模型,選股公式,預(yù)警公式的朋友
可聯(lián)系技術(shù)人員 QQ: 511411198 進行 有償 編寫!(不貴!點擊查看價格!)
相關(guān)文章
-
沒有相關(guān)內(nèi)容