点石成金公式源码代码[其他软件公式]

相关标签:

 

原理解析：

源码：

 

{【点石成金 -- 自动版】}
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;

//

 

公式导入教程: 【通达信公式源码导入方法教程】 【同花顺公式源码导入方法教程】 【大智慧新一代公式源码导入方法教程】

 

 

有思路，想编写各种指标公式，交易模型，选股公式，还原公式的朋友

可联系技术人员 QQ: 262069696  或微信：cxhjy888 进行 有偿收费 编写！(注：由于人数限制，QQ或微信请选择方便的一个联系我们就行，加好友时请简单备注下您的需求，否则无法通过。谢谢您！)

（怎么收费，代编流程等详情请点击查阅！）

(注：由于人数限制，QQ或微信请选择方便的一个联系我们就行，加好友时请简单备注下您的需求，否则无法通过。谢谢您！)