C/C++ www.gszb.com 股票公式指标网提供 Code复制内容到剪贴板
- a:="STSFunc@CALSTSL";
- R1:="STSFunc@STS_RISK1";
- R2:="STSFunc@STS_RISK2";
- S1:="STSFunc@STS_STS1";
- S2:="STSFunc@STS_STS2";
- TBS:="STSFunc@STS_STSBS";
- DN:="STSFunc@STS_STSDN";
- UP:="STSFunc@STS_STSUP";
- 压力位:UP,linethick0,color0000ff,PRECIS2;
- 支撑位:DN,linethick0,color00ff00,PRECIS2;
- 警示位:IF(R1<>0,ABS(R1),IF(R2<>0,ABS(R2),0)),linethick0,colorff00ff,PRECIS2;
- MA6:MA(CLOSE,6),colorFFFFff,PRECIS2;
- MA13:MA(CLOSE,13),color00FFff,PRECIS2;
- MA45:MA(CLOSE,45),colorFF00ff,PRECIS2;
- MA99:MA(CLOSE,99),color00FF00,PRECIS2;
- MA144:MA(CLOSE,144),colorFF9988,PRECIS2;
- MA453:MA(CLOSE,453),color0000FF
- ,PRECIS2;
- STICKLINE(IF(STRFIND(stkname,'S',1)=0,CLOSE>=REF(CLOSE,1)*1.0985 AND CLOSE=HIGH,CLOSE>=REF(CLOSE,1)*1.0490 AND CLOSE=HIGH),CLOSE,OPEN,8,0),COLOR00FFFF;
- STICKLINE(CLOSE>=REF(CLOSE,1)*1.07 AND (C<>H OR C<=REF(C,1)*1.098),CLOSE,OPEN,8,0),COLORFFFFFF;
- STICKLINE(STRFIND(stkname,'S',1)=0 AND CLOSE>REF(CLOSE,1)*1.05 AND CLOSE<REF(CLOSE,1)*1.07,CLOSE,OPEN,8,0),COLORFFD0FF;
- STICKLINE(IF(STRFIND(stkname,'S',1)=0,CLOSE<REF(CLOSE,1)*0.9015 AND CLOSE=LOW,CLOSE<REF(CLOSE,1)*0.9515 AND CLOSE=LOW),CLOSE,OPEN,8,0),COLORFF0000;
-
- 总股本:=FINANCE2(35) ;
- 流通股:=FINANCE2(37);
- 限售A股:=FINANCE2(41);
- 每股收益:=FINANCE2(3);
- 市盈率:=DYNAINFO(39);
- 每股公积金:=FINANCE2(7);
- 所属板块:=BKNAME;
- DRAWTEXTABS(12,8, '所属板块: '+所属板块),Color5E5E5E;
- DRAWTEXTABS(12,21,'每股收益: '+NUMTOSTRN(每股收益,2)+'元 '+' 市盈率:'+NUMTOSTRN(市盈率,1)+'倍 '+' 每股公积金:'+NUMTOSTRN(每股公积金,2)+'元'),Color5E5E5E;
- DRAWTEXTABS(12,34,'总 股 本: '+NUMTOSTRN(总股本,2)+' 万股'),Color5E5E5E;
- DRAWTEXTABS(12,47,'流通 A股: '+NUMTOSTRN(流通股,2)+' 万股'),Color5E5E5E;
- DRAWTEXTABS(12,60, '限售 A股: '+NUMTOSTRN(限售A股,2)+' 万股'),Color5E5E5E;
-
-
- DRAWLINE(UP>0,UP,UP<>REF(UP,1) OR C=DYNAINFO(7),REF(ABS(UP),1),0),dotline,color0000ff,LINETHICK1;
- DRAWLINE(DN>0,DN,DN<>REF(DN,1) OR C=DYNAINFO(7),REF(ABS(DN),1),0),dotline,color00ff00,LINETHICK1;
- DRAWLINE(UP<0,-UP,UP<>REF(UP,1) OR C=DYNAINFO(7),REF(ABS(UP),1),0),color0000ff;
- DRAWLINE(DN<0,-DN,DN<>REF(DN,1) OR C=DYNAINFO(7),REF(ABS(DN),1),0),color00ff00;
- DRAWLINE(R1>0,R1,R1<>REF(R1,1) OR C=DYNAINFO(7),REF(ABS(R1),1),0),dotline,colorEE88ff;
- DRAWLINE(R2>0,R2,R2<>REF(R2,1) OR C=DYNAINFO(7),REF(ABS(R2),1),0),dotline,colorEE88ff;
- DRAWLINE(R1<0,-R1,R1<>REF(R1,1) OR C=DYNAINFO(7),REF(ABS(R1),1),0),colorEE88ff;
- DRAWLINE(R2<0,-R2,R2<>REF(R2,1) OR C=DYNAINFO(7),REF(ABS(R2),1),0),colorEE88ff;
-
- drawbmp(TBS=1,l*0.96,'STSbuy1.bmp'),align1,valign0;
- drawbmp(TBS=-1,h*1.07,'STSsell1.bmp'),align1,valign0;
- drawbmp(S2=14,l*0.94,'STSbuy.bmp'),align1,valign0;
- drawbmp(S2=-14,h*1.09,'STSsell.bmp'),align1,valign0;
-
- drawtext(S1>0,L,STR(S1)),color00FF00,LINETHICK1,align1,valign0;
- drawtext(S1<0,H*1.03,STR(-S1)),color00FF00,LINETHICK1,align1,valign0;
- drawtext(S2>0 and S2<13,l*0.97,STR(S2)),color0000FF,LINETHICK1,align1,valign0;
- drawtext(S2<0 and S2>-13,H*1.06,STR(-S2)),color0000FF,LINETHICK1,align1,valign0;
- drawtext(S2=13,l*0.97,'+'),color0000FF,LINETHICK1,align1,valign0;
- drawtext(S2=14,l*0.97,'13'),color0000FF,LINETHICK1,align1,valign0;
- drawtext(S2=-13,h*1.06,'+'),color0000FF,LINETHICK1,align1,valign0;
- drawtext(S2=-14,h*1.06,'13'),color0000FF,LINETHICK1,align1,valign0;
-
- b:="LTFunc5@FORLT2";
- s1:="LTFunc5@LT_S1";
- p0:="LTFunc5@LT_P0";
- p1:="LTFunc5@LT_P1";
- hs:="LTFunc5@LT_HS";
- ls:="LTFunc5@LT_LS";
- upp:="LTFunc5@LT_UPP";
- udd:="LTFunc5@LT_UDD";
- {
- d2:="Lxddx.ddx"/ema(abs("Lxddx.ddx"),60)+8;
- d3:=min("Lxddx.ddx"/ema(abs("Lxddx.ddx"),60),10);
- fb:=if(s1=0,hs,ls);
- tr0:=ifs(p1=1,'明日<'+numtostrn(udd,2)+',出现S点','明日>'+numtostrn(upp,2)+',出现B点');
- tr1:=ifs(s1=1,'明日<'+numtostrn(ls,2)+',短线卖出','明日>'+numtostrn(hs,2)+',短线买入');
- tr2:=ifs(p1=1,ifs(cross(p1,0),'B点','持股待涨'),ifs(cross(1,p1),'S点','持币观望'));
- tr3:=ifs(s1=0,'向下 ','向上 ');
- tr4:=' 能量级别:'+numtostrn(d3,1)+'级';}
-
- {hs;ls;hhs;lls;us;ds;s1;p1;p0;upp;udd};
- d1:=ema(abs("ddx.ddx"),60); {ddx绝对值60日指数平滑移动平均}
- d2:=max("ddx.ddx"/d1+7.5,7.5);
- d3:=min("ddx.ddx"/d1,10); {能量级别:当日ddx与60日平均值的比值,最高10.0}
- fb:=if(s1=0,hs,ls);
- tr0:=ifs(p1=1,'明日收盘价<'+numtostrn(udd,2)+',出现S点\n','若明日收盘价>'+numtostrn(upp,2)+',出现B点\n');
- tr1:=ifs(s1=1,'明日收盘价<'+numtostrn(ls,2)+',短线卖出机会','若明日收盘价>'+numtostrn(hs,2)+'短线买入机会');
- tr2:=ifs(p1=1,ifs(cross(p1,0),'B点','持股'),ifs(cross(1,p1),'S点','持币'));
- tr3:=ifs(s1=0,'向下,','向上,');
- tr4:='3.能量级别:'+numtostrn(d3,1)+'级';
-
- bs:='<*t=0092F7*><*c=FFFFFF*><*p=95*>'+datestr(date)+'买卖点决策系统提示\n'+'<*t=E7FFFF*><*c=000000*><*p=95*>'+'1.BS点:'+tr2+','+tr0+'<*t=E7FFFF*><*c=000000*><*p=95*>'+'2.短线:'+tr3+tr1+'\n'+'<*t=E7FFFF*><*c=000000*><*p=95*>'+tr4;
- drawflagtext(1,fb,bs); {1120新版用代码}
-
- drawbmp(p1=1 and ref(p1,1)=0,l,'buy1.bmp'),align1,valign0;
- drawbmp(p1=0 and ref(p1,1)=1,h,'sell1.bmp'),align1,valign2;
- drawbmp(s1=1 and ref(s1,1)=0 and (p1+ref(p1,1))<>1,l,'bs.bmp'),align1,valign0;
- drawbmp(s1=0 and ref(s1,1)=1 and (p1+ref(p1,1))<>1,h,'ss.bmp'),align1,valign2;