beyond202104 发表于 2023-8-28 16:47:53

金玉满堂(通达信公式 主图 源码 测试图)


{金玉满堂}龙虎榜:GPJYVALUE(2,1,0)-GPJYVALUE(2,2,0),NODRAW,COLORMAGENTA;大宗:GPJYVALUE(4,1,0),NODRAW,COLORCYAN;增减持:GPJYVALUE(5,2,0)/10000,NODRAW,COLORGREEN;行业:HYSYL,NODRAW,COLORYELLOW;市盈率:C/(FINVALUE(308)*10000/FINVALUE(238)),NODRAW,COLORRED;扣非:C/(FINVALUE(309)*10000/FINVALUE(238)),NODRAW,COLORMAGENTA;VARA1:=EXPMA(C,30);VARB1:=EXPMA(C,40);VARC1:=EXPMA(C,50);VARD1:=EXPMA(C,60);VARE1:=(VARA1+VARB1+VARC1+VARD1)/4;NOTEXT1:EMA(VARE1,30),COLORBLUE;NOTEXT2:EMA(VARE1,30)*0.98,COLORMAGENTA;NOTEXT3:=NOTEXT1>REF(NOTEXT1,1);NOTEXT4:=NOTEXT1<REF(NOTEXT1,1);NOTEXT5:=NOTEXT2>REF(NOTEXT2,1);NOTEXT6:=NOTEXT2<REF(NOTEXT2,1);NOTEXT7:IF(NOTEXT3,NOTEXT1,DRAWNULL),COLORMAGENTA;NOTEXT8:IF(NOTEXT4,NOTEXT1,DRAWNULL),COLORBLUE;NOTEXT9:IF(NOTEXT5,NOTEXT2,DRAWNULL),COLORMAGENTA;NOTEXT10:IF(NOTEXT6,NOTEXT2,DRAWNULL),COLORBLUE;STICKLINE(NOTEXT3,NOTEXT1,NOTEXT2,0,0),COLORMAGENTA;STICKLINE(NOTEXT4,NOTEXT1,NOTEXT2,0,0),COLORBLUE;VARA2:=EXPMA(C,5);VARB2:=EXPMA(C,10);VARC2:=EXPMA(C,15);VARD2:=EXPMA(C,20);VARE2:=(VARA2+VARB2+VARC2+VARD2)/4;NOTEXT11:EMA(VARE2,5),COLORGREEN;NOTEXT12:EMA(VARE2,5)*0.98,COLORYELLOW;NOTEXT13:=NOTEXT11>REF(NOTEXT11,1);NOTEXT14:=NOTEXT11<REF(NOTEXT11,1);NOTEXT15:=NOTEXT12>REF(NOTEXT12,1);NOTEXT16:=NOTEXT12<REF(NOTEXT12,1);NOTEXT17:IF(NOTEXT13,NOTEXT11,DRAWNULL),COLORRED;NOTEXT18:IF(NOTEXT14,NOTEXT11,DRAWNULL),COLORGREEN;NOTEXT19:IF(NOTEXT15,NOTEXT12,DRAWNULL),COLORRED;NOTEXT20:IF(NOTEXT16,NOTEXT12,DRAWNULL),COLORGREEN;STICKLINE(NOTEXT13,NOTEXT11,NOTEXT12,0,0),COLORYELLOW;STICKLINE(NOTEXT14,NOTEXT11,NOTEXT12,0,0),COLORGREEN;NOTEXT21:HHV(L,30),COLORGRAY;NOTEXT22:LLV(H,30),COLORGRAY;BK:=IF(INBLOCK('科创板'),0.2,IF(INBLOCK('ST板块'),0.05,0.1));NOTEXT23:=C>=ZTPRICE(REF(C,1),BK) AND C>=H;NOTEXT24:=C<=DTPRICE(REF(C,1),BK) AND C<=L;STICKLINE(C=O,H,L,0,0),COLORF1F1F1;STICKLINE(C=O,O,C,-1,0),COLORF1F1F1;STICKLINE(C>O,H,L,0,0),COLOR0000DD;STICKLINE(C>O,C,O,-1,0),COLOR000055;STICKLINE(C>O,C,O,2.8,0),COLOR000066;STICKLINE(C>O,C,O,2.5,0),COLOR000077;STICKLINE(C>O,C,O,2.1,0),COLOR000088;STICKLINE(C>O,C,O,1.7,0),COLOR000099;STICKLINE(C>O,C,O,1.2,0),COLOR0000AA;STICKLINE(C>O,C,O,0.7,0),COLOR0000CC;STICKLINE(C>O,C,O,0.2,0),COLOR0000FF;STICKLINE(C<O,H,L,0,0),COLORFFDD00;STICKLINE(C<O,O,C,-1,0),COLORFF5500;STICKLINE(C<O,O,C,2.8,0),COLORFF6600;STICKLINE(C<O,O,C,2.5,0),COLORFF7700;STICKLINE(C<O,O,C,2.1,0),COLORFF8800;STICKLINE(C<O,O,C,1.7,0),COLORFF9900;STICKLINE(C<O,O,C,1.2,0),COLORFFAA00;STICKLINE(C<O,O,C,0.7,0),COLORFFCC00;STICKLINE(C<O,O,C,0.2,0),COLORFFFF00;STICKLINE(NOTEXT23,C,O,-1,0),COLOR0055AA;STICKLINE(NOTEXT23,C,O,2.8,0),COLOR0066BB;STICKLINE(NOTEXT23,C,O,2.5,0),COLOR0077CC;STICKLINE(NOTEXT23,C,O,2.1,0),COLOR0088DD;STICKLINE(NOTEXT23,C,O,1.7,0),COLOR0099EE;STICKLINE(NOTEXT23,C,O,1.2,0),COLOR00AAFF;STICKLINE(NOTEXT23,C,O,0.7,0),COLOR00CCFF;STICKLINE(NOTEXT23,C,O,0.2,0),COLOR00FFFF;STICKLINE(NOTEXT24,O,C,-1,0),COLOR005500;STICKLINE(NOTEXT24,O,C,2.8,0),COLOR006600;STICKLINE(NOTEXT24,O,C,2.5,0),COLOR007700;STICKLINE(NOTEXT24,O,C,2.1,0),COLOR008800;STICKLINE(NOTEXT24,O,C,1.7,0),COLOR009900;STICKLINE(NOTEXT24,O,C,1.2,0),COLOR00AA00;STICKLINE(NOTEXT24,O,C,0.7,0),COLOR00CC00;

STICKLINE(NOTEXT24,O,C,0.2,0),COLOR00FF00;




小爱君小h 发表于 2023-10-31 22:18:45

太棒了吧,真的很好

快乐星哥 发表于 2024-1-1 16:56:19

已收藏!

琥二甲 发表于 2024-3-13 17:14:36

支持一下:lol
页: [1]
查看完整版本: 金玉满堂(通达信公式 主图 源码 测试图)