相關標簽:

?

狂賺主圖的K線復原版本
本人早些時候的拙作《狂賺主圖》自在理想發布源碼以來，受到眾多朋友們的喜愛和肯定，很多新老朋友也在使用，非常欣慰！也有很多朋友因為種種原因問了很多問題，但因本人水平有限，時間有限無法一一作答，見諒！原本將每一根K線賦予色彩上的變化是因為可以表現當天的走勢，但有些朋友喜歡原色原味的K線卻要用背景美化桌面（真是蘿卜白菜各有所愛，呵呵），我就代勞了吧！郊游剛回來很累了，就做飛狐的吧，大智慧的照葫蘆畫瓢應該也沒問題。。。。。。本指標并非新東西，只是應會友要求幫助更改而已，操作思路想法不同，想要的也不一樣，原狂賺主圖參見原帖..........{狂賺主圖--K線復原}

?

原理解析：
DRAWBKBMP(收盤價>=開盤價,'圖片名稱' ) DRAWBKBMP(收陰線,'圖片名稱' ) 賦值:(最高價+最低價+開盤價+2*收盤價)/5 ZL賦值:2*E-最低價 ZC賦值:2*E-最高價 FZ賦值:E-(最高價-最低價) E賦值:(最高價+最低價+開盤價+2*收盤價)/5 ZL賦值:2*E-最低價 ZC賦值:2*E-最高價 FZ賦值:E-(最高價-最低價) 輸出MA5:收盤價的5日簡單移動平均,COLORF4E202 輸出MA13:收盤價的13日簡單移動平均,畫紅色 MA30賦值:收盤價的30日簡單移動平均 BALANCE賦值:收盤價的30日指數移動平均 UP賦值:BALANCE + 2*收盤價的30日估算標準差 DOWN賦值:BALANCE- 2*收盤價的30日估算標準差 VAR9Q賦值:收盤價= 4日內收盤價的最高值AND (1日前的收盤價>=2日前的收盤價 OR 1日前的收盤價>=3日前的收盤價) OR 1日前的收盤價=4日內收盤價的最高值 AND 收盤價>=2日前的收盤價 OR 2日前的收盤價=4日內收盤價的最高值 AND 3日前的收盤價=4日內收盤價的最低值 AND 收盤價>=1日前的收盤價 OR 3日前的收盤價=4日內收盤價的最高值 AND 收盤價>=1日前的收盤價 AND 收盤價>=2日前的收盤價 VARAQ賦值:收盤價=4日內收盤價的最高值 AND 1日前的收盤價=4日內收盤價的最低值 VARBQ賦值:收盤價=4日內收盤價的最低值 AND (1日前的收盤價<2日前的收盤價 OR 1日前的收盤價<3日前的收盤價) OR 1日前的收盤價=4日內收盤價的最低值 AND 收盤價<2日前的收盤價 OR 2日前的收盤價=4日內收盤價的最低值 AND 1日前的收盤價不等于4日內收盤價的最高值 AND 收盤價<1日前的收盤價 OR 3日前的收盤價=4日內收盤價的最低值 AND 收盤價<1日前的收盤價 AND 收盤價<2日前的收盤價 VARCQ賦值:1日前的收盤價=4日內收盤價的最低值 AND 收盤價>=2日前的收盤價 OR 2日前的收盤價=4日內收盤價的最低值 AND 1日前的收盤價<=3日前的收盤價 AND 2日前的收盤價<4日前的收盤價 AND 收盤價>=1日前的收盤價 VARDQ賦值:1日前的收盤價=4日內收盤價的最高值 AND 收盤價<2日前的收盤價 OR (2日前的收盤價=4日內收盤價的最高值 AND 1日前的收盤價>3日前的收盤價 OR 3日前的收盤價=4日內收盤價的最高值 AND 1日前的收盤價>2日前的收盤價) AND 2日前的收盤價>=4日前的收盤價 AND 收盤價<1日前的收盤價 Y1賦值:1日前的以0.9為權重(((最高價+最低價)+(收盤價*2))/4.15)的動態移動平均的3日指數移動平均 VAR1W賦值:(100 - ((90 * (21日內最高價的最高值 - 收盤價)) / (21日內最高價的最高值 - 21日內最低價的最低值))) VAR2W賦值:(100 - ((90 * (21日內最高價的最高值 - 收盤價)) / (21日內最高價的最高值 - 21日內最低價的最低值))) VAR3W賦值:(100 - ((100*(6日內最高價的最高值-收盤價))/(6日內最高價的最高值-6日內最低價的最低值))的34日簡單移動平均) VAR3P賦值:如果收盤價/1日前的收盤價>1.050ANDHIGH/收盤價<1.010ANDIF(收盤價>1日前的收盤價,88,0)>0,返回91,否則返回0 SS賦值:(最低價+最高價+收盤價)/3的5日簡單移動平均>1日前的(最低價+最高價+收盤價)/3的5日簡單移動平均 AND 1日前的(最低價+最高價+收盤價)/3的5日簡單移動平均<2日前的(最低價+最高價+收盤價)/3的5日簡單移動平均 SC賦值:最低價<13日內(最低價+最高價+收盤價)/3的5日簡單移動平均的最高值 AND 最高價>13日內(最低價+最高價+收盤價)/3的5日簡單移動平均的最高值 AND 收盤價>1日前的收盤價 AND 收陽線 MR賦值:SC AND 統計2日中滿足SS的天數 買賦值:MR AND 取反 多方賦值:7*(收盤價-27日內最低價的最低值)/(27日內最高價的最高值-27日內最低價的最低值)*30的4日[1日權重]移動平均-3*(收盤價-27日內最低價的最低值)/(27日內最高價的最高值-27日內最低價的最低值)*30的4日[1日權重]移動平均的3日[1日權重]移動平均-(收盤價-27日內最低價的最低值)/(27日內最高價的最高值-27日內最低價的最低值)*30的4日[1日權重]移動平均的3日[1日權重]移動平均的2日[1日權重]移動平均 VAR1賦值:(收盤價-24日內最低價的最低值)/(24日內最高價的最高值-24日內最低價的最低值)*1 VAR2賦值:VAR1的3日[1日權重]移動平均*100 趨勢線賦值:(VAR2的3日[1日權重]移動平均*VAR1)的3日[1日權重]移動平均*1 VAR9賦值:趨勢線上穿(VAR2的3日[1日權重]移動平均*VAR1) AND (VAR2的3日[1日權重]移動平均*VAR1)>8 AAX賦值:成交額(元)/成交量(手) BBX賦值:最低價<AAX*0.9 CCX賦值:(收盤價-1日前的收盤價)/1日前的收盤價*100>1.2 DDX賦值:最低價<收盤價的5日簡單移動平均*0.921 EEX賦值:成交量(手)<成交量(手)的5日簡單移動平均*1.5 FFX賦值:BBX AND CCX AND DDX AND EEX A賦值:(3*收盤價+最低價+開盤價+最高價)/6 X賦值:(20*A+19*1日前的A+18*2日前的A+17*3日前的A+16*4日前的A+15*5日前的A+14*6日前的A+13*7日前的A+12*8日前的A+11*9日前的A+10*10日前的A+9*11日前的A+8*12日前的A+7*13日前的A+6*14日前的A+5*15日前的A+4*16日前的A+3*17日前的A+2*18日前的A+20日前的A)/210 MTM賦值:收盤價-1日前的收盤價 DX賦值:100*MTM的6日指數移動平均的6日指數移動平均/MTM的絕對值的6日指數移動平均的6日指數移動平均 CB賦值:X的13日指數移動平均 當滿足條件(收盤價>BALANCE)時,在BALANCE和BALANCE位置之間畫柱狀線,寬度為1,0不為0則畫空心柱.,線寬為2,COLOR0000FF 當滿足條件(BALANCE>收盤價)時,在BALANCE和BALANCE位置之間畫柱狀線,寬度為1,0不為0則畫空心柱.,線寬為2,COLORFF6600 當滿足條件收陽線時,在開盤價和最低價位置之間畫柱狀線,寬度為0.5,0不為0則畫空心柱.,COLOR5050FF 當滿足條件收陽線時,在收盤價和最高價位置之間畫柱狀線,寬度為0.5,0不為0則畫空心柱.,COLOR5050FF 當滿足條件收陽線時,在收盤價和開盤價位置之間畫柱狀線,寬度為6,1不為0則畫空心柱. ,COLOR5050FF 當滿足條件開盤價>=收盤價時,在收盤價和最低價位置之間畫柱狀線,寬度為0.5,0不為0則畫空心柱.,COLORFFFF50 當滿足條件開盤價>=收盤價時,在開盤價和最高價位置之間畫柱狀線,寬度為0.5,0不為0則畫空心柱.,COLORFFFF50 當滿足條件開盤價>=收盤價時,在收盤價和開盤價位置之間畫柱狀線,寬度為6,0不為0則畫空心柱.,COLORFFFF50 賣賦值:如果2日內DX的最高值=7日內DX的最高值ANDCOUNT(DX>50,2)ANDCROSS(DX的2日簡單移動平均,DX),返回1,否則返回0 當滿足條件賣=1的1日過濾時,在最高價*1.02位置書寫文字,畫藍色 買賦值:如果2日內DX的最低值=7日內DX的最低值ANDCOUNT(DX<0,2)ANDCROSS(DX,DX的2日簡單移動平均),返回1,否則返回0 當滿足條件買=1的5日過濾時,在最低價-0.03位置書寫文字,畫紅色 RSV賦值:(收盤價-9日內最低價的最低值)/(9日內最高價的最高值-9日內最低價的最低值)*100 K賦值:RSV的3日[1日權重]移動平均 D賦值:K的3日[1日權重]移動平均 J賦值:3*K-2*D BDGD賦值:2日內J的最高值=8日內J的最高值 AND J>80 注意賦值:如果1日前的J-0.01上穿JANDREF(BDGD,1),返回1,否則返回0 當滿足條件注意AND賣不等于1時,在最高價*1.02位置書寫文字,COLOR00FF00 加倉A賦值:(收盤價-1日前的收盤價)/1日前的收盤價的5日指數移動平均*100的3日[1日權重]移動平均*10 當滿足條件(加倉A上穿0ORCROSS(收盤價,CB))AND買不等于1的3日過濾時,在最低價-0.03位置書寫文字,COLOR0080FF 跟賦值:如果MA13>=3日前的MA13ANDCROSS(收盤價,MA13),返回1,否則返回0 當滿足條件MA13>=3日前的MA13ANDCROSS(收盤價,MA13)時,在最低價*0.96位置書寫文字,COLOR7F52AF 輸出DRAWTEXTEX(收盤價,0,10,15,'上升阻力:' +NUMTOSTR(ZL,2)),畫紅色 輸出DRAWTEXTEX(收盤價,0,10,35,'下跌支撐:' +NUMTOSTR(ZC,2)),畫綠色 輸出DRAWTEXTEX(收盤價,0,10,55,'下跌反轉:' +NUMTOSTR(FZ,2)),畫白色

?

?來源:程序化99（ m.weiqiv.net.cn ）

源碼：

?

?

DRAWBKBMP(close>=open,'圖片名稱' );
DRAWBKBMP(close<open,'圖片名稱' );//圖片放在FmlDLL目錄下，BMP格式
E:=(H+L+O+2*C)/5;
zl:=2*E-L;
zc:=2*E-H;
fz:=E-(H-L);
E:=(H+L+O+2*C)/5;
zl:=2*E-L;
zc:=2*E-H;
fz:=E-(H-L);
MA5:MA(C,5),COLORF4E202;
MA13:MA(CLOSE,13),colorRED;
MA30:=MA(CLOSE,30);
BALANCE:=EMA(C,30);
UP:=BALANCE + 2*STD(C,30);
DOWN:=BALANCE- 2*STD(C,30);
var9Q:=c= hhv(c,4)and (ref(c,1)>=ref(c,2) or ref(c,1)>=ref(c,3)) or ref(c,1)=hhv(c,4) and close>=ref(c,2) or ref(c,2)=hhv(c,4) and ref(c,3)=llv(c,4) and c>=ref(c,1) or ref(c,3)=hhv(c,4) and c>=ref(c,1) and c>=ref(c,2);
varaQ:=c=hhv(c,4) and ref(c,1)=llv(c,4);
varbQ:=c=llv(c,4) and (ref(c,1)<ref(c,2) or ref(c,1)<ref(c,3)) or ref(c,1)=llv(c,4) and c<ref(c,2) or ref(c,2)=llv(c,4) and ref(c,1)<>hhv(c,4) and c<ref(c,1) or ref(c,3)=llv(c,4) and c<ref(c,1) and c<ref(c,2);
varcQ:=ref(c,1)=llv(c,4) and c>=ref(c,2) or ref(c,2)=llv(c,4) and ref(c,1)<=ref(c,3) and ref(c,2)<ref(c,4) and c>=ref(c,1);
vardQ:=ref(c,1)=hhv(c,4) and c<ref(c,2) or (ref(c,2)=hhv(c,4) and ref(c,1)>ref(c,3) or ref(c,3)=hhv(c,4) and ref(c,1)>ref(c,2)) and ref(c,2)>=ref(c,4) and c<ref(c,1);
Y1:=REF(EMA(DMA((((HIGH + LOW) + (CLOSE * 2)) / 4.15),0.9),3),1);
VAR1w:=(100 - ((90 * (HHV(HIGH,21) - CLOSE)) / (HHV(HIGH,21) - LLV(LOW,21))));
VAR2w:=(100 - ((90 * (HHV(HIGH,21) - CLOSE)) / (HHV(HIGH,21) - LLV(LOW,21))));
VAR3w:=(100 - MA(((100 * (HHV(HIGH,6) - CLOSE)) / (HHV(HIGH,6) - LLV(LOW,6))),34));
Var3p:=IF(CLOSE/REF(CLOSE,1)>1.050 AND HIGH/CLOSE<1.010 AND IF(CLOSE>REF(CLOSE,1),88,0)>0, 91, 0);
Ss:=MA((LOW+HIGH+CLOSE)/3,5)>REF(MA((LOW+HIGH+CLOSE)/3,5),1) AND REF(MA((LOW+HIGH+CLOSE)/3,5),1)<REF(MA((LOW+HIGH+CLOSE)/3,5),2);
SC:=L<HHV(MA((LOW+HIGH+CLOSE)/3,5),13) AND H>HHV(MA((LOW+HIGH+CLOSE)/3,5),13) AND C>REF(C,1) AND C>O;
MR:=SC AND COUNT(Ss,2);
買:=MR AND NOT(REF(MR,1));
多方:=7*SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*30,4,1)
-3*SMA(SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*30,4,1),3,1)
-SMA(SMA(SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*30,4,1),3,1),2,1);
Var1:=(CLOSE-LLV(LOW,24))/(HHV(HIGH,24)-LLV(LOW,24))*1;
Var2:=SMA(Var1,3,1)*100;
趨勢線:=SMA((SMA(Var2,3,1)*var1),3,1)*1;
Var9:=CROSS(趨勢線,(SMA(Var2,3,1)*var1)) AND (SMA(Var2,3,1)*var1)>8;
AAx:=AMOUNT/VOL;
BBx:=L<AAx*0.9;
CCx:=(C-REF(C,1))/REF(C,1)*100>1.2;
DDx:=L<MA(C,5)*0.921;
EEx:=VOL<MA(V,5)*1.5;
FFx:=BBx AND CCx AND DDx AND EEx;
a:=(3*c+l+o+h)/6;
X:=(20*a+19*ref(a,1)+18*ref(a,2)+17*ref(a,3)+16*ref(a,4)+15*ref(a,5)+
14*ref(a,6)+13*ref(a,7)+12*ref(a,8)+11*ref(a,9)+10*ref(a,10)+9*ref(a,11)+8*ref(a,12)
+7*ref(a,13)+6*ref(a,14)+5*ref(a,15)+4*ref(a,16)+3*ref(a,17)+2*ref(a,18)+
ref(a,20))/210;
MTM:=C-REF(C,1);
DX:=100*EMA(EMA(MTM,6),6)/EMA(EMA(ABS(MTM),6),6);
CB:=eMA(X,13);
STICKLINE((CLOSE >BALANCE),BALANCE,BALANCE,1,0),LINETHICK2,color0000ff;
STICKLINE((BALANCE > CLOSE),BALANCE,BALANCE,1,0),LINETHICK2,colorff6600;
STICKLINE(CLOSE>OPEN,OPEN,LOW,0.5,0 ),COLOR5050FF;
STICKLINE(CLOSE>OPEN,CLOSE,HIGH,0.5 ,0 ),COLOR5050FF;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,6,1) ,COLOR5050FF;
STICKLINE(OPEN>=CLOSE,CLOSE,LOW,0.5 ,0 ),COLORFFFF50;
STICKLINE(OPEN>=CLOSE,OPEN,HIGH,0.5 ,0 ),COLORFFFF50;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,6,0 ),COLORFFFF50;賣:=IF(HHV(DX,2)=HHV(DX,7) AND COUNT(DX>50,2) AND CROSS(MA(DX,2),DX),1,0);
DRAWTEXT(filter(賣=1,1),HIGH*1.02,'賣'),COLORBLUE;
買:=IF(LLV(DX,2)=LLV(DX,7) AND COUNT(DX<0,2) AND CROSS(DX,MA(DX,2)),1,0);
DRAWTEXT(filter(買=1,5),LOW-0.03,'買'),COLORRED;
RSV:=(C-LLV(L,9))/(HHV(H,9)-LLV(L,9))*100;
K:=SMA(RSV,3,1);
D:=SMA(K,3,1);
J:=3*K-2*D;
BDGD:=HHV(J,2)=HHV(J,8) AND J>80;
注意:=IF(CROSS(REF(J-0.01,1),J) AND REF(BDGD,1),1,0);
DRAWTEXT(注意 AND 賣<>1,HIGH*1.02,'減'),COLOR00FF00;
加倉A:=SMA(EMA((C-REF(C,1))/REF(C,1),5)*100,3,1)*10;
DRAWTEXT(FILTER((CROSS(加倉A,0) OR CROSS(CLOSE,CB)) AND 買<>1,3),LOW-0.03,'加'),COLOR0080FF;
跟:=IF(MA13>=REF(MA13,3) AND CROSS(CLOSE,MA13),1,0);
DRAWTEXT(MA13>=REF(MA13,3) AND CROSS(CLOSE,MA13),LOW*0.96,'跟'),COLOR7F52AF;DRAWTEXTEX(C,0,10,15,'上升阻力:' +NUMTOSTR(zl,2)),colorred;
DRAWTEXTEX(C,0,10,35,'下跌支撐:' +NUMTOSTR(zc,2)),COLORGREEN;
DRAWTEXTEX(C,0,10,55,'下跌反轉:' +NUMTOSTR(fz,2)),colorwhite;

?

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

?