點石成金公式源碼代碼

作者：飛狐來源：cxh99.com 發布時間：2022年09月14日

相關標簽:

原理解析：

輸出INPUT:定位年(2008,1990,3400),百分比(15,5,50)

V1賦值:4百分比%的之字轉向

SJ賦值:首次年份>=定位年距今天數

BB賦值:V1<1日前的V1 AND V1<1日后的V1

S賦值:BB的SJ日累和

SS賦值:S[DATACOUNT]-S+1

A賦值:首次SS=1距今天數

AA賦值:如果A>=A[LBOUND(A)+1],返回A,否則返回1

SJJ賦值:STKTYPE=1 OR STKTYPE=2 OR STKTYPE=3 OR STKTYPE=5 OR STKTYPE=11

輸出低1:如果取反,返回收盤價的AA日簡單移動平均,否則返回成交額(元)的AA日累和/成交量(手)的AA日累和/100,PRECISION2,COLOR00FF00

D2賦值:首次SS=1+1距今天數

DD2賦值:如果D2>=D2[LBOUND(D2)+1],返回D2,否則返回1

輸出低2:如果取反,返回收盤價的DD2日簡單移動平均,否則返回成交額(元)的DD2日累和/成交量(手)的DD2日累和/100,PRECISION2,COLOR00B700

D3賦值:首次SS=1+2距今天數

DD3賦值:如果D3>=D3[LBOUND(D3)+1],返回D3,否則返回1

輸出低3:如果取反,返回收盤價的DD3日簡單移動平均,否則返回成交額(元)的DD3日累和/成交量(手)的DD3日累和/100,PRECISION2,COLOR8BC800

BB1賦值:V1>1日前的V1 AND V1>1日后的V1

S1賦值:BB1的SJ日累和

SS1賦值:S1[DATACOUNT]-S1+1

A1賦值:首次SS1=1距今天數

AA1賦值:如果A1>=A1[LBOUND(A1)+1],返回A1,否則返回1

輸出高1:如果取反,返回收盤價的AA1日簡單移動平均,否則返回成交額(元)的AA1日累和/成交量(手)的AA1日累和/100,PRECISION2,COLOR00FFFF

D21賦值:首次SS1=1+1距今天數

DD21賦值:如果D21>=D21[LBOUND(D21)+1],返回D21,否則返回1

輸出高2:如果取反,返回收盤價的DD21日簡單移動平均,否則返回成交額(元)的DD21日累和/成交量(手)的DD21日累和/100,PRECISION2,COLOR00D4FF

D31賦值:首次SS1=1+2距今天數

DD31賦值:如果D31>=D31[LBOUND(D31)+1],返回D31,否則返回1

輸出高3:如果取反,返回收盤價的DD31日簡單移動平均,否則返回成交額(元)的DD31日累和/成交量(手)的DD31日累和/100,PRECISION2,COLOR0098FF

BC賦值:上次SYSPARAM(1)=BARPOS距今天數+1

FC賦值:成交量(手)的BC日累和/當前流通股本(手)*100

HSL賦值:BC[DATACOUNT]-1日后的FC

JJC賦值:成交額(元)的BC日累和/成交量(手)的BC日累和/100

均價賦值:BC[DATACOUNT]-1日后的JJC

光標后均價偏離賦值:(收盤價-均價)/均價*100

當滿足條件是否最后一個周期時,在均價位置書寫文字,PXUP20,SHIFT1,畫白色

PARTLINE(收盤價,均價),COLOR8B9091

//均價橫線DRAWTEXT(SYSPARAM(1)=BARPOS,均價,' \N 換手'+NUMTOSTR(HSL,2)+'%'),SHIFT1,PXUP10,COLORFF89FF

當滿足條件SYSPARAM(1)=BARPOS時,在均價位置書寫文字,PXUP8,ALIGN2,COLOR0098FF

源碼：

{【點石成金 -- 自動版】}
INPUT:定位年(2008,1990,3400),百分比(15,5,50);
v1:=ZIG(4,百分比);{調整需要的百分比轉向}
sj:=BARSSINCE(YEAR>=定位年);{時間定位年}
bb:=v1<ref(v1,1) and v1<refx(v1,1);
s:=sum(bb,sj);
ss:=s[datacount]-s+1;
a:=barssince(ss=1);
aa:=if(a>=a[LBOUND(a)+1],a,1);
sjj:=STKTYPE=1 or STKTYPE=2 or STKTYPE=3 or STKTYPE=5 or STKTYPE=11;
低1:IF(NOT(sjj),ma(c,aa),sum(AMOUNT,aa)/sum(v,aa)/100),PRECISION2,Color00FF00;
d2:=barssince(ss=1+1);
dd2:=if(d2>=d2[LBOUND(d2)+1],d2,1);
低2:IF(NOT(sjj),ma(c,dd2),sum(AMOUNT,dd2)/sum(v,dd2)/100),PRECISION2,Color00B700;
d3:=barssince(ss=1+2);
dd3:=if(d3>=d3[LBOUND(d3)+1],d3,1);
低3:IF(NOT(sjj),ma(c,dd3),sum(AMOUNT,dd3)/sum(v,dd3)/100),PRECISION2,Color8BC800;
{}
bb1:=v1>ref(v1,1) and v1>refx(v1,1);
s1:=sum(bb1,sj);
ss1:=s1[datacount]-s1+1;
a1:=barssince(ss1=1);
aa1:=if(a1>=a1[LBOUND(a1)+1],a1,1);
高1:IF(NOT(sjj),ma(c,aa1),sum(AMOUNT,aa1)/sum(v,aa1)/100),PRECISION2,Color00FFFF;
d21:=barssince(ss1=1+1);
dd21:=if(d21>=d21[LBOUND(d21)+1],d21,1);
高2:IF(NOT(sjj),ma(c,dd21),sum(AMOUNT,dd21)/sum(v,dd21)/100),PRECISION2,Color00D4FF;
d31:=barssince(ss1=1+2);
dd31:=if(d31>=d31[LBOUND(d31)+1],d31,1);
高3:IF(NOT(sjj),ma(c,dd31),sum(AMOUNT,dd31)/sum(v,dd31)/100),PRECISION2,Color0098FF;
{}
bc:=barslast(SYSPARAM(1)=barpos)+1;
fc:=sum(v,bc)/capital*100;
hsl:=refx(fc,bc[datacount]-1);
jjc:=sum(AMOUNT,bc)/sum(v,bc)/100;
均價:=refx(jjc,bc[datacount]-1);//光標后均價
偏離:=(C-均價)/均價*100;
{}
DRAWTEXT(ISLASTBAR,均價,'均價 \n偏離 \n'+NUMTOSTR(偏離[DATACOUNT],1)+'%'),PXUP20,SHIFT1,COLORWHITE;
PARTLINE(C,均價),Color8B9091;//均價橫線
DRAWTEXT(SYSPARAM(1)=barpos,均價,' \n 換手'+NUMTOSTR(hsl,2)+'%'),SHIFT1,PXUP10,ColorFF89FF;
DRAWTEXT(SYSPARAM(1)=barpos,均價,'均價:'+NUMTOSTR(均價,2)+'元 '),PXUP8,ALIGN2,Color0098FF;

//

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