论坛里有很多老师的财务主图，但是很少有老师写季度业绩的。我习惯了做中线，最近大盘不好，空仓应对，闲来无事下了个大智慧玩，没有财务主图每次都要看F10确实不习惯。
于是就有了这个主图。所用指标都来源于网络，谢谢帝式主图的老师。感谢王老师的主题投资，这个帖子里几乎每天都有更新，用工具转换成大智慧的就行，或者手动转。
用法见该帖内提示。
主图里的财务指标公式可以单独提取出来做个分时主图用。效果如下{INPUT:N(2013,1993,2034);input:K(1,1,3);}{财务主图}年报:= PFFININ(1001,N-1,1231 );去年增长率:= PFFININ(1604,N-1,1231 );去年收益率:=PFFININ(1002 ,N-1 ,1231 );三季收益率:= PFFININ(1002,N,0930 );二季收益率:= PFFININ(1002,N,0630 );一季收益率:= PFFININ(1002,N,0331 );三季增长率:= PFFININ(1604,N,0930 );二季增长率:= PFFININ(1604,N,0630 );一季增长率:= PFFININ(1604,N,0331 );DRAWTEXTREL(5,20,'去年增长率:'+去年增长率),LINETHICK1,Coloryellow;DRAWTEXTREL(5,80,'一季增长率:'+一季增长率),LINETHICK1,Coloryellow;DRAWTEXTREL(180,20,'去年收益率:'+去年收益率),LINETHICK1,Coloryellow;DRAWTEXTREL(180,80,'一季收益率:'+一季收益率),LINETHICK1,Coloryellow;DRAWTEXTREL(5,140,'二季增长率:'+二季增长率),LINETHICK1,Coloryellow;DRAWTEXTREL(180,140,'二季收益率:'+二季收益率),LINETHICK1,Coloryellow;DRAWTEXTREL(5,200,'三季增长率:'+三季增长率),LINETHICK1,Coloryellow;DRAWTEXTREL(180,200,'三季收益率:'+三季收益率),LINETHICK1,Coloryellow;DRAWTEXTREL(5,260,'主题投资：'+SELFSTRING('主题投资')),COLORred;{帝式主图} T := BARSLAST(DISPSTATUS=1)+1;A := DISPSTATUS=2;HH := HHV(H, T);LL := LLV(L, T);HL := HH-LL;wH := HHVBARS(H, T);wL := LLVBARS(L, T);KK := wH-wL;mHL := HH-HL*0.5;if K=1 then begin HL191 := (HH-LL)*0.191; HL382 := (HH-LL)*0.382; HL618 := (HH-LL)*0.618; HL809 := (HH-LL)*0.809; if KK<0 then begin a1 := HH-HL191; a2 := HH-HL382; a3 := HH-HL618; a4 := HH-HL809; end else begin a1 := LL+HL191; a2 := LL+HL382; a3 := LL+HL618; a4 := LL+HL809; endendif k=1 then begin HL125 := (HH-LL)*0.125; HL250 := (HH-LL)*0.25; HL375 := (HH-LL)*0.375; HL625 := (HH-LL)*0.625; HL750 := (HH-LL)*0.75; HL875 := (HH-LL)*0.875; if kk<0 then begin b1 := HH-HL125; b2 := HH-HL250; b3 := HH-HL375; b4 := HH-HL625; b5 := HH-HL750; b6 := HH-HL875; end else begin b1 := LL+HL125; b2 := LL+HL250; b3 := LL+HL375; b4 := LL+HL625; b5 := LL+HL750; b6 := LL+HL875; endend DRAWTEXT(A and K<>3,HH, ' 最高价：'+HH),ALIGN2,colorgreen;DRAWTEXT(A and K<>3,LL, ' 最低价：'+ll),ALIGN2,VALIGN2,colorgreen;DRAWTEXT(A and K<>3,mHL,' 50%：'+mHL),ALIGN2,color00ffff;DRAWTEXT(A and K=1, a1, ' 0.191：'+NUMTOSTRN(a1,2)),ALIGN2,color00ffff;DRAWTEXT(A and K=1, a2, ' 0.382：'+NUMTOSTRN(a2,2)),ALIGN2,color00ffff;DRAWTEXT(A and K=1, a3, ' 0.618：'+NUMTOSTRN(a3,2)),ALIGN2,color00ffff;DRAWTEXT(A and K=1, a4, ' 0.809：'+NUMTOSTRN(a4,2)),ALIGN2,color00ffff;DRAWTEXT(A and K=1, b1, ' 1/8：'+NUMTOSTRN(b1,2)),ALIGN2,colorgreen;DRAWTEXT(A and K=1, b2, ' 1/4：'+NUMTOSTRN(b2,2)),ALIGN2,colorgreen;DRAWTEXT(A and K=1, b3, ' 3/8：'+NUMTOSTRN(b3,2)),ALIGN0,colorgreen;DRAWTEXT(A and K=1, b4, ' 5/8：'+NUMTOSTRN(b4,2)),ALIGN0,colorgreen;DRAWTEXT(A and K=1, b5, ' 3/4：'+NUMTOSTRN(b5,2)),ALIGN2,colorgreen;DRAWTEXT(A and K=1, b6, ' 7/8：'+NUMTOSTRN(b6,2)),ALIGN2,colorgreen;DRAWTEXT(A and K<>3,HH, '￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣'),ALIGN2,colorred,linethick7;DRAWTEXT(A and K<>3,LL, '￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣'),ALIGN2,colorred,linethick7;DRAWTEXT(A and K<>3,mHL,'￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣'),ALIGN2,colorff0000,linethick7;DRAWTEXT(A and K=1, a1, '﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ '),ALIGN2,color208FFF,linethick0;DRAWTEXT(A and K=1, a2, '﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ '),ALIGN2,color208FFF,linethick0;DRAWTEXT(A and K=1, a3, '﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ '),ALIGN2,color208FFF,linethick0;DRAWTEXT(A and K=1, a4, '﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ '),ALIGN2,color208FFF,linethick0;DRAWTEXT(A and K=1, b1, '﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉'),ALIGN2,color00FF00;DRAWTEXT(A and K=1, b2, '﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉'),ALIGN2,color00ff00;DRAWTEXT(A and K=1, b3, '﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉'),ALIGN2,color00ff00;DRAWTEXT(A and K=1, b4, '﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉'),ALIGN2,color00ff00;DRAWTEXT(A and K=1, b5, '﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉'),ALIGN2,color00ff00;DRAWTEXT(A and K=1, b6, '﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉'),ALIGN2,color00FF00;G:=ZIG(3,5)>REF(ZIG(3,5),1) AND REF(ZIG(3,5),1)<=REF(ZIG(3,5),2) AND REF(ZIG(3,5),2)<=REF(ZIG(3,5),3);X:=ZIG(3,5)<REF(ZIG(3,5),1) AND REF(ZIG(3,5),1)>=REF(ZIG(3,5),2) AND REF(ZIG(3,5),2)>=REF(ZIG(3,5),3);ED:=barslast(G);EF:=barslast(X);买入到卖出天数:ED,LINETHICK0,ColorFFFFFF;卖出到买入天数:EF,LINETHICK0,ColorFFFFFF;换手: VOL/CAPITAL*100,LINETHICK0,colorwhite; DRAWTEXTREL(0,910,' 买入到到当前周期:'+NUMTOSTR(ED) +'天'+' 卖出到当前周期:'+NUMTOSTR(EF) +'天'+' 换手率:'+NUMTOSTRN(换手,2) +'%' ),colorFfff00;  |
