日:=500;
昨前:=60;
高:=REF(HHV(H,日),昨前);
低:=REF(LLV(L,日),昨前);
H1:=高-(高-低)*1;
H2:=高-(高-低)*0.91;
H3:=高-(高-低)*0.85;
H4:=高-(高-低)*0.809;
H5:=高-(高-低)*0.777;
H6:=高-(高-低)*0.707;
H7:=高-(高-低)*0.666;
H8:=高-(高-低)*0.618;
H9:=高-(高-低)*0.563;
H10:=高-(高-低)*0.5;
H11:=高-(高-低)*0.424;
H12:=高-(高-低)*0.382;
H13:=高-(高-低)*0.309;
H14:=高-(高-低)*0.25;
H15:=高-(高-低)*0.191;
H16:=高-(高-低)*0.1375;
H17:=高-(高-低)*0.0807;
一:REFX1(H2,10000),COLORLIGHTBLUE,DOT;
二:=REFX1(H3,10000),COLORYELLOW;
三:=REFX1(H4,10000),COLORLIGHTBLUE;
四:=REFX1(H5,10000),COLORLIGHTRED;
五:=REFX1(H6,10000),COLORYELLOW;
六:=REFX1(H7,10000),COLORLIGHTBLUE;
七:REFX1(H8,10000),DOT,COLORGRAY;
八:=REFX1(H9,10000),COLORYELLOW;
九:=REFX1(H10,10000),COLORLIGHTBLUE;
十:=REFX1(H11,10000),COLORLIGHTRED;
十一:=REFX1(H12,10000),COLORYELLOW;
十二:=REFX1(H13,10000),COLORLIGHTBLUE;
十三:=REFX1(H14,10000),COLORLIGHTRED;
十四:=REFX1(H15,10000),COLORYELLOW;
十五:=REFX1(H16,10000),COLORLIGHTBLUE;
十六:REFX1(H17,10000),COLORYELLOW,DOT;
底:REFX1(H1,10000),COLORLIGHTGREEN;
顶: REFX1(高,10000),COLORLIGHTRED;
DRAWKLINE1(HIGH,OPEN,LOW,CLOSE);
买:=CROSS(C,一);
卖:=CROSS(十六,C);
DRAWICON(买,底,1);
DRAWICON(卖,顶,2);
N:=3;
FF:=(C-REF(C,N))/REF(C,N);
AH1:=MAX(GETPRICE( YCLOSE ),GETPRICE( HIGH
AL1:=MIN(GETPRICE( YCLOSE ),GETPRICE( LOW
AP1:=AH1-AL1;
阻力:=AL1+AP1*7/8;
支撑:=AL1+AP1*0.5/8;
现价:=CLOSE;
DRAWTEXT(LONGCROSS(支撑,现价,2),C*0.999, 买 ),COLORCYAN;
DRAWTEXT(LONGCROSS(现价,阻力,2),C*1.004, 卖 ),COLORMAGENTA;
DRAWICON(LONGCROSS(现价,阻力,2),C*1.002,15);
TT:=BARSCOUNT(CLOSE);
CC:=CLOSE;
AMOUNT:= AVPRICE*V;
均线:=IF(BETWEEN(C/(SUM(AMOUNT,0)/SUM(VOL*100,0)),1.05,0.95)=0,MA(C,0),(SUM(AMOUNT,0)/SUM(VOL*100,0)));
上均:=(均线*1.007 );
下均:=(均线/1.005 );
时长:=IF(HOUR =10 AND HOUR 15,1,0);
涨幅:=(CLOSE GETPRICE( YCLOSE )) 1.02;
跌幅:=(CLOSE/GETPRICE( YCLOSE )) 0.98;
横盘:=((HHV(CLOSE,BARSCOUNT(CLOSE))-LLV(CLOSE,BARSCOUNT(CLOSE)))/CLOSE) 0.03;
YY:=SMA(VOL,30,1);
放量:=SUM(VOL,6) REF(MA(VOL,30),1)*0.03;
涨跌幅:=涨幅 OR 跌幅;
横涨:=横盘 AND 放量 AND (C
DRAWTEXT(FILTER(横涨,50),均线*0.995, 突破 ),COLORLIGHTRED;
DRAWICON(FILTER(横涨,50),均线*0.995,26);
MA30:=EMA(CLOSE,30);
A2:=GETPRICE( YCLOSE
A3:=IF(C=A2,C*1.005,IF(C A2,C*1.005,C*0.995));
分时最高价:=REF(HHV(HIGH,240),1);
分时最低价:=REF(LLV(LOW,240),1);
A7:=IF(GETPRICE( YCLOSE ) C,0.9973,1.0027);
CURRBARSCOUNT:=DATACOUNT-BARPOS+1;
DRAWTEXT(CURRBARSCOUNT=240,C*A7, 240
WA1:=V*C/100;
WA2:=SUM((IF(((WA1/8 20) AND (CLOSE (REF(CLOSE,1)))),WA1,0)),0);
WA3:=SUM((IF(((WA1/8 20) AND (CLOSE (REF(CLOSE,1)))),WA1,0)),0);
WA4:=SUM((IF(((WA1/8 20) AND (CLOSE (REF(CLOSE,1)))),WA1,0)),0);
WA5:=SUM((IF(((WA1/8 20) AND (CLOSE (REF(CLOSE,1)))),WA1,0)),0);
机构买盘:=(WA2);
机构卖盘:=(WA3);
散户买盘:=(WA4);
散户卖盘:=(WA5);
CAPITAL:=GETPRICE1( 流通股本
QA1:=SUM(IF(CLOSE REF(CLOSE,1),VOL/CAPITAL*100,IF(CLOSE REF(CLOSE,1),-VOL/CAPITAL*100,0)),0);
成交额:=V*C/100,NODRAW;
{万元}QA4:=SUM((IF(((成交额/8 20) AND (CLOSE (REF(CLOSE,1)))),成交额,0)),0);
QA2:=SUM((IF(((成交额/8 20) AND (CLOSE (REF(CLOSE,1)))),成交额,0)),0);
QA3:=SUM((IF(((成交额/8 20) AND (CLOSE (REF(CLOSE,1)))),成交额,0)),0);
QA5:=SUM((IF(((成交额/8 20) AND (CLOSE (REF(CLOSE,1)))),成交额,0)),0);
QA6:=((QA2+QA3)+QA4)+QA5;
QA7:=IF((ISLASTBAR),((100*QA2)/QA6),0);
QA8:=IF((ISLASTBAR),((100*QA3)/QA6),0);
QA9:=IF((ISLASTBAR),((100*QA4)/QA6),0);
QA10:=IF((ISLASTBAR),((100*QA5)/QA6),0);
