大智慧分时公式：分时K线 {感谢原作；请高手修改。涨跌幅在5--7之问显示粉红和淡绿。涨跌幅在7--9.9之问显示洋红和绿色} 引用公式的名称不可以改。 {引用日线}
JC:C;
JO:O;
JH:H;
JL:L;
JC1:REF(C,1);
JO1:REF(O,1);
JH1:REF(H,1);
JL1:REF(L,1);
JC2:REF(C,2);
JO2:REF(O,2);
JH2:REF(H,2);
JL2:REF(L,2);
JC3:REF(C,3);
JO3:REF(O,3);
JH3:REF(H,3);
JL3:REF(L,3);
JC4:REF(C,4);
JO4:REF(O,4);
JH4:REF(H,4);
JL4:REF(L,4);
JC5:REF(C,5);
JO5:REF(O,5);
JH5:REF(H,5);
JL5:REF(L,5);
JC6:REF(C,6);
JO6:REF(O,6);
JH6:REF(H,6);
JL6:REF(L,6);
JC7:REF(C,7);
JO7:REF(O,7);
JH7:REF(H,7);
JL7:REF(L,7);
JC8:REF(C,8);
JO8:REF(O,8);
JH8:REF(H,8);
JL8:REF(L,8);
JC9:REF(C,9);
JO9:REF(O,9);
JH9:REF(H,9);
JL9:REF(L,9);
JC10:REF(C,10);
JO10:REF(O,10);
JH10:REF(H,10);
JL10:REF(L,10);
{分时K线 主图公式}
INPUT: 上下调整(460,50,1000),左右调整(550,150,1000),打开关闭(3,0,3);
{日K线引用}均价:SUM(AMOUNT,0)/SUM(VOL*100,0),LINETHICK0;
POLYLINE(C,C),LINETHICK2,COLORBLACK;{要股价粗线删除这句}
C,PRECIS2,COLORWHITE,LAYER0;
if 打开关闭>0 then begin
JC:="引用日线.JC#day";JO:="引用日线.JO#day";JH:="引用日线.JH#day";JL:="引用日线.JL#day";
JC1:="引用日线.JC1#day";JO1:="引用日线.JO1#day";JH1:="引用日线.JH1#day";JL1:="引用日线.JL1#day";
JC2:="引用日线.JC2#day";JO2:="引用日线.JO2#day";JH2:="引用日线.JH2#day";JL2:="引用日线.JL2#day";
JC3:="引用日线.JC3#day";JO3:="引用日线.JO3#day";JH3:="引用日线.JH3#day";JL3:="引用日线.JL3#day";
JC4:="引用日线.JC4#day";JO4:="引用日线.JO4#day";JH4:="引用日线.JH4#day";JL4:="引用日线.JL4#day";
JC5:="引用日线.JC5#day";JO5:="引用日线.JO5#day";JH5:="引用日线.JH5#day";JL5:="引用日线.JL5#day";
JC6:="引用日线.JC6#day";JO6:="引用日线.JO6#day";JH6:="引用日线.JH6#day";JL6:="引用日线.JL6#day";
JC7:="引用日线.JC7#day";JO7:="引用日线.JO7#day";JH7:="引用日线.JH7#day";JL7:="引用日线.JL7#day";
JC8:="引用日线.JC8#day";JO8:="引用日线.JO8#day";JH8:="引用日线.JH8#day";JL8:="引用日线.JL8#day";
JC9:="引用日线.JC9#day";JO9:="引用日线.JO9#day";JH9:="引用日线.JH9#day";JL9:="引用日线.JL9#day";
JC10:="引用日线.JC10#day";
YT1:=JC>JC1 AND JC=JO;
YT2:=JC<=JC1 AND JC=JO;
YT3:=JC1>JC2 AND JC1=JO1;
YT4:=JC1<=JC2 AND JC1=JO1;
YT5:=JC2>JC3 AND JC2=JO2;
YT6:=JC2<=JC3 AND JC2=JO2;
YT7:=JC3>JC4 AND JC3=JO3;
YT8:=JC3<=JC4 AND JC3=JO3;
YT9:=JC4>JC5 AND JC4=JO4;
YT10:=JC4<=JC5 AND JC4=JO4;
YT11:=JC5>JC6 AND JC5=JO5;
YT12:=JC5<=JC6 AND JC5=JO5;
YT13:=JC6>JC7 AND JC6=JO6;
YT14:=JC6<=JC7 AND JC6=JO6;
YT15:=JC7>JC8 AND JC7=JO7;
YT16:=JC7<=JC8 AND JC7=JO7;
YT17:=JC8>JC9 AND JC8=JO8;
YT18:=JC8<=JC9 AND JC8=JO8;
YT19:=JC9>JC10 AND JC9=JO9;
YT20:=JC9<=JC10 AND JC9=JO9;
{www.fxjgsw.com}
{1今收阳}
JJCC1:=IF(ABS(JC-JO)>0.015,JC/JO*2000-2000,5);
JJHC1:=JH/JC*2000-2000;
JJLC1:=JO/JL*2000-2000;
JZKC1:=JO/JC1*2000-2000;
JJCA1:=IF(ABS(JC1-JO1)>0.015,JC1/JO1*2000-2000,5);
QSYC1:=上下调整-JJCA1-JZKC1;
JWC1:=(JC-JO>0 OR YT1>0);
if JWC1>0 then begin
DRAWRECTREL(左右调整+23,QSYC1-JJCC1,左右调整+40,QSYC1,0),COLOR4535FF;
DRAWRECTREL(左右调整+31,QSYC1-JJCC1-JJHC1,左右调整+32,QSYC1-JJCC1,0),COLOR5040FF;
DRAWRECTREL(左右调整+31,QSYC1,左右调整+32,QSYC1+JJLC1,0),COLOR5040FF;
end;
JZST4:=STRFIND(stkname,'S',1) AND JC/JC1>=1.048;
JZTB4:=JC/JC1>=1.098 OR JZST4;
if JZTB4>0 then begin
DRAWRECTREL(左右调整+25,QSYC1-JJCC1+2,左右调整+38,QSYC1-2,RGB(255,0,0)),COLORYELLOW;
end;
{今收阴}
JJHC2:=JH/JO*2000-2000;
JJLC2:=JC/JL*2000-2000;
JWC2:=(JO-JC>0 OR YT2>0);
if JWC2>0 then begin
DRAWRECTREL(左右调整+23,QSYC1,左右调整+40,QSYC1-JJCC1,RGB(0,255,255)),COLORFFFF00;
DRAWRECTREL(左右调整+31,QSYC1-JJHC2,左右调整+32,QSYC1,RGB(0,255,255)),COLORFFFF00;
DRAWRECTREL(左右调整+31,QSYC1-JJCC1,左右调整+32,QSYC1-JJCC1+JJLC2,RGB(0,255,255)),COLORFFFF00;
end;
JZST5:=STRFIND(stkname,'S',1) AND JC/JC1<=0.953;
JZTB5:=JC/JC1<=0.902 OR JZST5;
if JZTB5>0 then begin |
