黄金太极图PJ源码：
三一:H-(H-L)*0.333,NODRAW;
二一:H-(H-L)*0.5,NODRAW;
三二:H-(H-L)*0.666,NODRAW;
实体三一:IF(C O,(C-(C-O)/3),(O-(O-C)/3)),COLORWHITE,NODRAW;
实体腰线:O+(C-O)*0.5,NODRAW;
实体三二:IF(C O,(O+(C-O)/3),(C+(O-C)/3)),COLORWHITE,NODRAW;
三日均价:=MA(C,3),NODRAW;
三日后收:=REFX(三日均价,3),NODRAW;
高于实顶:C 三日后收,NODRAW;
开高三日收:= O REFX(C,1) AND O REFX(C,2) AND O REFX(C,3),NODRAW;
涨幅:=(C-REF(C,1))/REF(C,1)*100 2,NODRAW;
一字板:=(C=O AND C=H AND C=L);
黄金柱:=高于实顶 AND 开高三日收 AND 涨幅 AND 一字板=0,NODRAW;
FF:=INTPART(DATE),NODRAW;
时间左:=(FF-1000000)-太极左日期=0,NODRAW;
时间右:=(FF-1000000)-太极右日期=0,NODRAW;
校正左:= 太极左点=C OR 太极左点=O OR 太极左点=H OR 太极左点=L ;
校正右:=(太极右点=C OR 太极右点=O OR 太极右点=H OR 太极右点=L);
斜衡线:DRAWLINE(时间左 AND 校正左 ,太极左点,
时间右 AND 校正右,太极右点,1)COLORLIBLUE;
时间左至今天:=BARSSINCE(时间左)-1,NODRAW;
斜衡角度: ATAN(((REF(斜衡线,时间左至今天)/太极左点)-1)*100)*180/3.1416,COLORWHITE,NODRAW;
倍数:=1.9;
倍量:= VOL =REF(V,1)*倍数 AND (IF(C O,C REF(C,1),1)),NODRAW;
DRAWICON(倍量,L*0.98,39),NODRAW;
{多彩K线-主图公式, 显示大阳大阴涨停跌停假阴假阳跳空大K线中点,适用于通达信 }
DRAWTEXT_FIX(ISLASTBAR,0,0,0,HYBLOCK);{在屏幕左上角显示所属行业板块}
DRAWTEXT_FIX(ISLASTBAR,0.05,0,0,DYBLOCK);{在屏幕左上角显示所属地域板块}
DRAWTEXT_FIX(ISLASTBAR,0.1,0,0,GNBLOCK);{在屏幕左上角显示所属概念板块}
{跳空}
STICKLINE(REF(L,1) H,H,REF(L,1),5,0),COLORGRAY;
STICKLINE(REF(H,1) L,L,REF(H,1),5,0),COLORGRAY;
DRAWKLINE(H,O,L,C);{重绘K线}
RC1:=REF(C,1);
CS:=IF(C =1,10000,100000);
C涨停10:=1.10*RC1-49/CS;{考虑到4舍5入}
C涨停5 :=1.05*RC1-49/CS;
C跌停10:=0.90*RC1+51/CS;
C跌停5 :=0.95*RC1+51/CS;
ST:=NAMELIKE('S') OR NAMELIKE('*S');
涨停:= IF(ST, C =C涨停5, C =C涨停10);
跌停:= IF(ST, C =C跌停5, C =C跌停10);
盘中涨停:=IF(ST, H =C涨停5, H =C涨停10);
盘中跌停:=IF(ST, L =C跌停5, L =C跌停10);
STICKLINE(盘中涨停,H,MAX(C,O),0,0),COLORMAGENTA;{涨停后回落}
STICKLINE(盘中跌停,L,MIN(C,O),0,0),COLORLICYAN;{跌停后回升}
大阳线:=C O AND (C =C涨停5 OR C (1.05*O-51/CS) ) OR (C 1000 AND C RC1*1.024);
STICKLINE(大阳线,O,C,1,0),COLOR0000BB;
大阴线:=C O AND (C =C跌停5 OR C (0.95*O+49/CS) ) OR (C 1000 AND C RC1*0.976);
STICKLINE(大阴线,O,C,1,0),COLORLIGREEN;
STICKLINE(涨停,O,C,1,0),COLORMAGENTA;
STICKLINE(跌停,O,C,1,0),COLORLICYAN;
STICKLINE(黄金柱,O*1.01,C*0.99,0,0),COLORWHITE;{画黄金柱};
假阴:=C O AND C REF(C,1);
STICKLINE(假阴,O,C,0,0),COLORRED;{假阴柱};
假阳:=C O AND C REF(C,1);
STICKLINE(假阳,O,C,0,0),COLORGREEN;{假阳柱};
大盘TJ:=PERIOD=5 AND NAMELIKE('上证指数')
AND (ABS((C-REF(C,1)))/REF(C,1) =0.025 OR ABS(C-O) =60);
STICKLINE(大盘TJ,(H+L)/2,(H+L)/2,2,0),COLORYELLOW;{显示大盘日线的60点大K线中值};
STICKLINE((大阳线 OR 大阴线 OR 涨停 OR 跌停)
AND BETWEEN(C,1,500),L+(H-L)/2,L+(H-L)/2,1,0),COLORYELLOW;{大K线画中点线};
STICKLINE((大阳线 OR 大阴线 OR 涨停 OR 跌停)
AND BETWEEN(C,1,500),实体腰线,实体腰线,1,0),COLORBLUE;{大K线画腰线};
