編程思路破譯
N賦值:5
M賦值:3
AA賦值:(2*收盤價+最高價+最低價)/4的5日簡單移動平均
輸出通道1:AA*N/100,線寬為2
輸出通道2:AA*(200-N)/100,線寬為2
CC賦值:(2*收盤價+最高價+最低價)/4-收盤價的20日簡單移動平均的絕對值/收盤價的20日簡單移動平均
DD賦值:以CC為權(quán)重收盤價的動態(tài)移動平均
輸出通道3:(1+M/100)*DD,線寬為2
輸出通道4:(1-M/100)*DD,線寬為2
輸出二分位:(最高價+最低價)/2 ,線寬為2,畫綠色,POINTDOT
VAR1賦值:收盤價的3日簡單移動平均
FF賦值:VAR1>1日前的VAR1
PARTLINE(VAR1,FF,自定色,1,自定色),線寬為1
RSV賦值:(收盤價-10日內(nèi)最低價的最低值)/(10日內(nèi)最高價的最高值-10日內(nèi)最低價的最低值)*100
K賦值:RSV的5日[1日權(quán)重]移動平均
D賦值:K的5日[1日權(quán)重]移動平均
J賦值:3*K-2*D
X賦值:1日前的J<10 AND 最高價>1日前的最高價 AND 收盤價>1日前的收盤價 AND 收盤價>1日前的開盤價 AND 最低價>1日前的最低價
當(dāng)滿足條件X時,在最低價和最低價位置之間畫柱狀線,寬度為20,0不為0則畫空心柱.,COLOR008888
當(dāng)滿足條件X時,在最低價和最高價位置之間畫柱狀線,寬度為0,0不為0則畫空心柱.,COLORFF00FF
當(dāng)滿足條件X時,在收盤價和開盤價位置之間畫柱狀線,寬度為5,0不為0則畫空心柱.,COLORFF00FF
BIAS1賦值:(收盤價-收盤價的6日簡單移動平均)/收盤價的6日簡單移動平均*100
BIAS2賦值:(收盤價-收盤價的12日簡單移動平均)/收盤價的12日簡單移動平均*100
BIAS3賦值:(收盤價-收盤價的24日簡單移動平均)/收盤價的24日簡單移動平均*100
BIAS賦值:(BIAS1+2*BIAS2+3*BIAS3)/6
乖離賦值:BIAS的3日簡單移動平均
當(dāng)滿足條件BIAS上穿乖離AND乖離<-9時,在收盤價位置書寫文字,畫綠色
當(dāng)滿足條件BIAS上穿乖離AND乖離>3時,在收盤價位置書寫文字,畫藍(lán)色
AA賦值:收盤價 > 1日前的收盤價 AND 1日前的收盤價 > 2日前的收盤價 AND 1日前的收盤價 < 3日前的收盤價 AND 如果3日前的收盤價<4日前的收盤價,返回1,否則返回如果4日前的收盤價<5日前的收盤價,返回1日前的收盤價<4日前的收盤價OR(2日前的收盤價<4日前的收盤價ANDREF(收盤價,3)>=5日前的收盤價),否則返回如果5日前的收盤價<6日前的收盤價,返回1,否則返回6日前的收盤價<RE
BB賦值:收盤價 < 1日前的收盤價 AND 1日前的收盤價 < 2日前的收盤價 AND 1日前的收盤價 > 3日前的收盤價 AND 如果3日前的收盤價>4日前的收盤價,返回1,否則返回如果4日前的收盤價>5日前的收盤價,返回1日前的收盤價>4日前的收盤價OR(2日前的收盤價>4日前的收盤價ANDREF(收盤價,3)<=5日前的收盤價),否則返回如果5日前的收盤價>6日前的收盤價,返回1,否則返回6日前的收盤價>RE
當(dāng)滿足條件AAANDCLOSE>2日前的開盤價時,在最低價位置書寫文字,COLOR,COLORFF00FF
當(dāng)滿足條件BBANDCLOSE<2日前的收盤價時,在最高價位置書寫文字,COLOR00FF00
S下賦值:2日內(nèi)最高價的2日簡單移動平均的最高值,畫綠色,線寬為0
S上賦值:1日內(nèi)最高價的2日簡單移動平均的最低值,畫紅色,線寬為0
SPPP賦值:-(S上-S下)/1日前的收盤價*100
SPTEM1賦值:(開盤價和收盤價的較小值-最低價)/(最高價-最低價)*100
SPTEM2賦值:(最高價-開盤價和收盤價的較大值)/(最高價-最低價)*100
SPTEM3賦值:(收盤價-開盤價)/(最高價-最低價)*100
SKJ1賦值:(SPTEM3>49 AND SPTEM1>0.3*SPTEM2) OR SPTEM3>80
SKJ2賦值:(SPTEM3<=49 AND SPTEM3>20 AND SPTEM1>SPTEM2)
SKJ3賦值:(SPTEM3<=20 AND SPTEM3>-20 AND SPTEM1>1.2*SPTEM2)
SKJ4賦值:(SPTEM3<-20 AND SPTEM3>-40 AND SPTEM1>2*SPTEM2)
SKJ賦值:(SKJ1 OR SKJ2 OR SKJ3 OR SKJ4) AND (SPPP>2 OR 1日前的SPPP>2 )
短買賦值:如果SPPP>0的5日累和=5ANDSUM(SKJ>0,5)=0,返回5*(SKJ1ORSKJ2ORSKJ3ORSKJ4),否則返回5*SKJ,畫紅色
當(dāng)滿足條件短買時,在最低價位置書寫文字,畫白色
X1賦值:(收盤價+最低價+最高價)/3
BB13賦值:X1的13日指數(shù)移動平均-1日前的X1的13日指數(shù)移動平均的反正切*3.1416*10
EMA8賦值:收盤價的8日指數(shù)移動平均
當(dāng)滿足條件BB13>1ANDEMA(X1,13)>1日前的X1的8日指數(shù)移動平均的10日過濾時,在EMA8位置書寫文字,畫白色
當(dāng)滿足條件收盤價>=獲利盤為50%的成本分布ANDC<=獲利盤為58%的成本分布ANDC>開盤價時,在開盤價和收盤價位置之間畫柱狀線,寬度為5,0不為0則畫空心柱.,畫紅色
當(dāng)滿足條件收盤價>=獲利盤為97%的成本分布ANDC<=獲利盤為100%的成本分布ANDC>開盤價時,在開盤價和收盤價位置之間畫柱狀線,寬度為5,0不為0則畫空心柱.,畫白色
當(dāng)滿足條件收盤價>=獲利盤為97%的成本分布ANDC<=獲利盤為100%的成本分布ANDC>開盤價時,在收盤價位置書寫文字,畫紅色
當(dāng)滿足條件收盤價>=獲利盤為50%的成本分布ANDC<=獲利盤為58%的成本分布ANDC>開盤價時,在收盤價位置書寫文字,畫黃色
RSV賦值:(收盤價-9日內(nèi)最低價的最低值)/(9日內(nèi)最高價的最高值-9日內(nèi)最低價的最低值)*100
K賦值:RSV的3日[1日權(quán)重]移動平均
買入線賦值:如果K上穿15,返回100,否則返回0
當(dāng)滿足條件買入線時,在最低價位置書寫文字,COLORFF00FF
買出線賦值:如果K上穿80,返回100,否則返回0
當(dāng)滿足條件買出線時,在最高價位置書寫文字, 畫白色
賦值: 1日前的收盤價
RSI1賦值:收盤價-LC和0的較大值的8日[1日權(quán)重]移動平均/收盤價-LC的絕對值的8日[1日權(quán)重]移動平均*100
買入線賦值:如果RSI1上穿20,返回100,否則返回0
當(dāng)滿足條件買入線時,在最低價位置書寫文字, 畫紅色
買出線賦值:如果RSI1上穿80,返回100,否則返回0
當(dāng)滿足條件買出線時,在最高價位置書寫文字,畫青色
WR賦值:"W&R"(14)
當(dāng)滿足條件WR上穿(0-81)的10日過濾時,在最低價位置畫4號圖標(biāo)
//威廉買點DRAWICON((0-19)上穿WR的10日過濾,最高價,5)
//威廉賣點DRAWTEXT(WR上穿(0-81)的21日過濾,最低價,'威廉買'),ALIGN0,畫紅色
//威廉買點DRAWTEXT(0-19上穿WR的21日過濾,最高價,'威廉賣'),ALIGN2,畫綠色
賦值: (最高價 + 最低價 + 收盤價)/3
CCI賦值:(TYP-TYP的14日簡單移動平均)/(0.015*TYP的14日平均絕對偏差)
買入線賦值:如果CCI上穿-160,返回100,否則返回0
當(dāng)滿足條件買入線時,在最低價位置書寫文字,COLOR0099FF
買出線賦值:如果CCI上穿200,返回100,否則返回0
當(dāng)滿足條件買出線時,在最高價位置書寫文字,畫黃色
VAR3賦值:5日內(nèi)最低價的最低值=45日內(nèi)最低價的最低值 AND收盤價>=開盤價*1.04
VAR4賦值:收盤價>(1日前的最高價+1日前的最低價)/2
VAR5賦值:VAR3 AND VAR4
當(dāng)滿足條件VAR5時,在最低價位置書寫文字,畫黃色 ,
極品底賦值:如果(收盤價的5日簡單移動平均-收盤價)/收盤價>0.04AND(收盤價的10日簡單移動平均-收盤價的5日簡單移動平均)/收盤價的5日簡單移動平均>0.04,返回50,否則返回0,畫白色
當(dāng)滿足條件極品底=50時,在最低價位置書寫文字
當(dāng)滿足條件成交量(手)>=1日前的成交量(手)*1.88ANDC>OANDC>1日前的收盤價時,在開盤價位置書寫文字,畫黃色
當(dāng)滿足條件成交量(手)>=1日前的成交量(手)*1.88ANDC<OANDC<1日前的收盤價時,在開盤價位置書寫文字,畫藍(lán)色
當(dāng)滿足條件13日內(nèi)成交量(手)的最低值=VOLANDC>=1日前的收盤價時,在開盤價位置書寫文字,畫黃色
AA0賦值:成交量(手)累加至當(dāng)前流通股本(手)的天數(shù)
當(dāng)滿足條件如果當(dāng)前流通股本(手)=0,返回成交額(元)=34日內(nèi)成交額(元)的最低值,否則返回成交量(手)<成交量(手)的AA0日簡單移動平均/3時,在最低價位置書寫文字,畫洋紅色
程序源碼
N:=5;M:=3;
AA:=MA((2*CLOSE+HIGH+LOW)/4,5);
通道1:AA*N/100,LINETHICK2;
通道2:AA*(200-N)/100,LINETHICK2;
CC:=ABS((2*CLOSE+HIGH+LOW)/4-MA(CLOSE,20))/MA(CLOSE,20);
DD:=DMA(CLOSE,CC);
通道3:(1+M/100)*DD,LINETHICK2;
通道4:(1-M/100)*DD,LINETHICK2;
二分位:(H+L)/2 ,LINETHICK2,colorgreen,POINTDOT;
VAR1:=MA(CLOSE,3);
FF:=VAR1>REF(VAR1,1);
PARTLINE(Var1,FF,RGB(255,0,0),1,RGB(0,255,0)),LINETHICK1;
RSV:=(CLOSE-LLV(LOW,10))/(HHV(HIGH,10)-LLV(LOW,10))*100;
K:=SMA(RSV,5,1);
D:=SMA(K,5,1);
J:=3*K-2*D;
X:=REF(J,1)<10 AND H>REF(H,1) AND C>REF(C,1) AND C>REF(O,1) AND L>REF(L,1);
STICKLINE(X,L ,L,20,0),COLOR008888;
STICKLINE(X,L ,H,0,0),COLORFF00FF;
STICKLINE(X,C ,O,5,0),COLORFF00FF;
bias1:=(C-MA(C,6))/MA(C,6)*100;
BIAS2:=(C-MA(C,12))/MA(C,12)*100;
BIAS3:=(C-MA(C,24))/MA(C,24)*100;
BIAS:=(BIAS1+2*BIAS2+3*BIAS3)/6;
乖離:=MA(BIAS,3);
DRAWTEXT(CROSS(BIAS,乖離) AND 乖離<-9,C,'---------BIAS底買'),colorgreen;
DRAWTEXT(CROSS(BIAS,乖離) AND 乖離>3,C,'---------BIAS頂'),colorblue;
aa:=CLOSE > REF(CLOSE, 1) AND REF(CLOSE, 1) > REF(CLOSE, 2) AND REF(CLOSE, 1) < REF(CLOSE, 3) AND IF(REF(CLOSE, 3) < REF(CLOSE, 4), 1, IF(REF(CLOSE, 4) < REF(CLOSE, 5),REF(CLOSE, 1) < REF(CLOSE, 4) OR( REF(CLOSE, 2) < REF(CLOSE, 4) AND REF(CLOSE, 3) >= REF(CLOSE, 5) ),IF(REF(CLOSE, 5) < REF(CLOSE, 6), 1,REF(CLOSE, 6) < REF(CLOSE, 7))));
bb:=CLOSE < REF(CLOSE, 1) AND REF(CLOSE, 1) < REF(CLOSE, 2) AND REF(CLOSE, 1) > REF(CLOSE, 3) AND IF(REF(CLOSE, 3) > REF(CLOSE, 4), 1, IF(REF(CLOSE, 4) > REF(CLOSE, 5),REF(CLOSE, 1) > REF(CLOSE, 4) OR( REF(CLOSE, 2) > REF(CLOSE, 4) AND REF(CLOSE, 3) <= REF(CLOSE, 5) ),IF(REF(CLOSE, 5) > REF(CLOSE, 6), 1,REF(CLOSE, 6) > REF(CLOSE, 7))));
DRAWTEXT(aa AND CLOSE>REF(OPEN,2),LOW,'三平底'),color,COLORFF00FF;
DRAWTEXT(bb AND CLOSE<REF(CLOSE,2),HIGH,'三平頂'),color00ff00;
S下:=HHV(MA(HIGH,2),2),colorgreen,LINETHICK0;
S上:=LLV(MA(HIGH,2),1),colorred,LINETHICK0;
Sppp:=-(S上-S下)/REF(C,1)*100;
Sptem1:=(MIN(O,C)-L)/(H-L)*100;
Sptem2:=(H-MAX(O,C))/(H-L)*100;
SPTEM3:=(C-O)/(H-L)*100;
SKJ1:=(SPTEM3>49 AND SPTEM1>0.3*SPTEM2) OR SPTEM3>80;
SKJ2:=(SPTEM3<=49 AND SPTEM3>20 AND SPTEM1>SPTEM2);
SKJ3:=(SPTEM3<=20 AND sptem3>-20 AND sptem1>1.2*sptem2);
SKJ4:=(SPTEM3<-20 AND SPTEM3>-40 AND SPTEM1>2*SPTEM2);
SKJ:=(SKJ1 OR SKJ2 OR SKJ3 OR SKJ4) AND (Sppp>2 OR REF(Sppp,1)>2 );
短買:=IF(SUM(sppp>0,5)=5 AND SUM(skj>0,5)=0,5*(SKJ1 OR SKJ2 OR SKJ3 OR SKJ4),5*skj),colorred;
DRAWTEXT(短買,L,'短買'),colorwhite;
x1:=(C+L+H)/3;
bb13:=ATAN(EMA(x1,13)-REF(EMA(x1,13),1))*3.1416*10;
ema8:=EMA(C,8);
DRAWTEXT(FILTER(bb13>1 AND EMA(x1,13)>REF(EMA(x1,8),1),10),
ema8,'∠45'),colorwhite;
STICKLINE(C>=COST(50)AND C<=COST(58)AND C>O,O,C,5,0),colorred;
STICKLINE(C>=COST(97)AND C<=COST(100)AND C>O,O,C,5,0),colorwhite;
DRAWTEXT(C>=COST(97)AND C<=COST(100) AND C>O,C,'-->97%'),colorred;
DRAWTEXT(C>=COST(50)AND C<=COST(58) AND C>O,C,'--50%'),coloryellow;
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
K:=SMA(RSV,3,1);
買入線:=IF(CROSS(K,15),100,0);
DRAWTEXT(買入線,L,'←kd底'),colorff00ff;
買出線:=IF(CROSS(K,80),100,0);
DRAWTEXT(買出線,H,'←KD頂'), colorwhite ;
LC := REF(CLOSE,1);
rsi1:=SMA(MAX(CLOSE-LC,0),8,1)/SMA(ABS(CLOSE-LC),8,1)*100;
買入線:=IF(CROSS(RSI1,20),100,0);
DRAWTEXT(買入線,L,'←RSI底'), colorred ;
買出線:=IF(CROSS(RSI1,80),100,0);
DRAWTEXT(買出線,H,'←RSI頂'),colorcyan;
wr:="W&R"(14);
DRAWICON(FILTER(CROSS(WR,(0 - 81)),10),L,4);//威廉買點
DRAWICON(FILTER(CROSS((0 -19),WR),10),H,5);//威廉賣點
DRAWTEXT(FILTER(CROSS(WR,(0 - 81)),21),L,'威廉買'),ALIGN0,colorred;//威廉買點
DRAWTEXT(FILTER(CROSS(0 -19,WR),21),H,'威廉賣'),ALIGN2,colorgreen;//威廉賣點
TYP := (HIGH + LOW + CLOSE)/3;
CCI:=(TYP-MA(TYP,14))/(0.015*AVEDEV(TYP,14));
買入線:=IF(CROSS(CCI,-160),100,0);
DRAWTEXT(買入線,L,'←CCI底'),COLOR0099FF ;
買出線:=IF(CROSS(CCI,200),100,0);
DRAWTEXT(買出線,H,'←CCI頂'),coloryellow ;
Var3:=LLV(LOW,5)=LLV(LOW,45) AND CLOSE>=OPEN*1.04;
Var4:=CLOSE>(REF(HIGH,1)+REF(LOW,1))/2;
Var5:=Var3 AND Var4;
DRAWTEXT(Var5,LOW,'★ '),coloryellow , ;
極品底:=IF((MA(C,5)-C)/C>0.04 AND (MA(C,10)-MA(C,5))/MA(C,5)>0.04,50,0),colorwhite;
DRAWTEXT(極品底=50,LOW,'★ ');
DRAWTEXT(V>=REF(V*1.88,1) AND C>O AND C>REF(C,1),O,'←---突量-------------------------------------------------------------------------------------'),coloryellow;
DRAWTEXT(V>=REF(V*1.88,1) AND C<O AND C<REF(C,1),O,'←---跌量-------------------------------------------------------------------------------------'),colorblue;
DRAWTEXT(LLV(VOL,13)=VOL AND C>=REF(C,1),O,'縮量'),coloryellow;
AA0:=SUMBARS(VOL,CAPITAL);
DRAWTEXT(IF(CAPITAL=0,AMOUNT=LLV(AMOUNT,34),VOL<MA(VOL,AA0)/3),L,'地量'),colormagenta;
注：
館內(nèi)各種公式為學(xué)習(xí)編程而保存，實戰(zhàn)使用前一定要看其中是否有未來函數(shù)并自己親自測試成功率，決不能依據(jù)公式名稱的描述和形容去投資，據(jù)此入市造成投資損失由投資者自己承擔(dān)。
發(fā)文不易，如獲益，歡迎贊賞，贊賞必復(fù)！
