飞狐主图_hy.alg
名称: 飞狐主图 类别:技术指标
说明: 十年一剑588
公式组: O常用
A1:=TROUGHBARS(4,0.1,1);
A2:=PEAKBARS(4,0.1,1);
CL:=A1[SYSPARAM(1)];
CH:=A2[SYSPARAM(1)];
TCL:=SYSPARAM(1)-CL;
TCH:=SYSPARAM(1)-CH;
K1:=IF(TCL>TCH,TCL,TCH);
PH:=HIGH;
PL:=LOW;
P1:=IF(TCL>TCH,PL[TCL+0],PH[TCH+0]);
VERTLINE(BARPOS=K1),LINEDOT,colorFFFF;
IF TCL>TCH THEN BEGIN
PARTLINE(BARPOS>K1,P1),LINEDOT,colorFFFF;
DRAWTEXT(BARPOS=K1,P1,' '+NUMTOSTR(P1,3)),colorFFFF;
PARTLINE(BARPOS>K1,P1*1.24),colorFFFF;
DRAWTEXT(BARPOS=K1,P1*1.24,'(3) '+NUMTOSTR(P1*1.24,3)),colorFFFF;
PARTLINE(BARPOS>K1,P1*1.2),LINEDOT,colorFFFF;
DRAWTEXT(BARPOS=K1,P1*1.2,' '+NUMTOSTR(P1*1.2,3)),colorFFFF;
PARTLINE(BARPOS>K1,P1*1.16),colorFFFF;
DRAWTEXT(BARPOS=K1,P1*1.16,'(2) '+NUMTOSTR(P1*1.16,3)),colorFFFF;
PARTLINE(BARPOS>K1,P1*1.12),LINEDOT,colorFFFF;
DRAWTEXT(BARPOS=K1,P1*1.12,' '+NUMTOSTR(P1*1.12,3)),colorFFFF;
PARTLINE(BARPOS>K1,P1*1.08),colorFFFF;
DRAWTEXT(BARPOS=K1,P1*1.08,'(1) '+NUMTOSTR(P1*1.08,3)),colorFFFF;
PARTLINE(BARPOS>K1,P1*1.04),LINEDOT,colorFFFF;
DRAWTEXT(BARPOS=K1,P1*1.04,' '+NUMTOSTR(P1*1.04,3)),colorFFFF;
END;
IF TCL<TCH THEN BEGIN
PARTLINE(BARPOS>K1,P1),LINEDOT,colorFFFF;
DRAWTEXT(BARPOS=K1,P1,' '+NUMTOSTR(P1,3)),colorFFFF;
PARTLINE(BARPOS>K1,P1-P1*0.24),colorFFFF;
DRAWTEXT(BARPOS=K1,P1-P1*0.24,'(3) '+NUMTOSTR(P1-P1*0.24,3)),colorFFFF;
PARTLINE(BARPOS>K1,P1-P1*0.2),LINEDOT,colorFFFF;
DRAWTEXT(BARPOS=K1,P1-P1*0.2,' '+NUMTOSTR(P1-P1*0.2,3)),colorFFFF;
PARTLINE(BARPOS>K1,P1-P1*0.16),colorFFFF;
DRAWTEXT(BARPOS=K1,P1-P1*0.16,'(2) '+NUMTOSTR(P1-P1*0.16,3)),colorFFFF;
PARTLINE(BARPOS>K1,P1-P1*0.12),LINEDOT,colorFFFF;
DRAWTEXT(BARPOS=K1,P1-P1*0.12,' '+NUMTOSTR(P1-P1*0.12,3)),colorFFFF;
PARTLINE(BARPOS>K1,P1-P1*0.08),colorFFFF;
DRAWTEXT(BARPOS=K1,P1-P1*0.08,'(1) '+NUMTOSTR(P1-P1*0.08,3)),colorFFFF;
PARTLINE(BARPOS>K1,P1-P1*0.04),LINEDOT,colorFFFF;
DRAWTEXT(BARPOS=K1,P1-P1*0.04,' '+NUMTOSTR(P1-P1*0.04,3)),colorFFFF;
END;
当前月:=FRACPART(ROUND(CURRENTDATE/100)/100)*100;
月:=MONTH;
日:=DAY;
DRAWTEXT(SYSPARAM(2)=BARPOS AND NUMTOSTR(当前月,0)='1',CLOSE,NUMTOSTR(当前月,0)+'月时间之窗:5(小寒)、6、15、20(大寒)、21、*25\n \n \n \n '),ALIGN5,colorFFFF;
DRAWTEXT(SYSPARAM(2)=BARPOS AND NUMTOSTR(当前月,0)='2',CLOSE,NUMTOSTR(当前月,0)+'月时间之窗:4(立春)、6、15、18(雨水)21\n \n \n \n \n \n '),ALIGN5,colorFFFF;
DRAWTEXT(SYSPARAM(2)=BARPOS AND NUMTOSTR(当前月,0)='3',CLOSE,NUMTOSTR(当前月,0)+'月时间之窗:5(惊蛰)、6、15、*20(春分)、21\n \n \n \n \n '),ALIGN5,colorFFFF;
DRAWTEXT(SYSPARAM(2)=BARPOS AND NUMTOSTR(当前月,0)='4',CLOSE,NUMTOSTR(当前月,0)+'月时间之窗:4(清明)、6、15、20(谷雨)21\n \n \n \n \n \n '),ALIGN5,colorFFFF;
DRAWTEXT(SYSPARAM(2)=BARPOS AND NUMTOSTR(当前月,0)='5',CLOSE,NUMTOSTR(当前月,0)+'月时间之窗:5(立夏)、6、*12、15、21(小满)\n \n \n \n \n'),ALIGN5,colorFFFF;
DRAWTEXT(SYSPARAM(2)=BARPOS AND NUMTOSTR(当前月,0)='6',CLOSE,NUMTOSTR(当前月,0)+'月时间之窗:5(芒种)、6、*14、21(夏至)\n \n \n \n \n '),ALIGN5,colorFFFF;
DRAWTEXT(SYSPARAM(2)=BARPOS AND NUMTOSTR(当前月,0)='7',CLOSE,NUMTOSTR(当前月,0)+'月时间之窗:7(小暑)、8、15、*19、23(大暑)\n \n \n \n \n '),ALIGN5,colorFFFF;
DRAWTEXT(SYSPARAM(2)=BARPOS AND NUMTOSTR(当前月,0)='8',CLOSE,NUMTOSTR(当前月,0)+'月时间之窗:*6、7(立秋)、8、18、23(处暑)\n \n \n \n \n \n '),ALIGN5,colorFFFF;
DRAWTEXT(SYSPARAM(2)=BARPOS AND NUMTOSTR(当前月,0)='9',CLOSE,NUMTOSTR(当前月,0)+'月时间之窗:7(白露)、8、15、*18、23(秋分)\n \n \n \n \n '),ALIGN5,colorFFFF;
DRAWTEXT(SYSPARAM(2)=BARPOS AND NUMTOSTR(当前月,0)='10',CLOSE,NUMTOSTR(当前月,0)+'月时间之窗:8(寒露)、15、23(霜降)、*31\n \n \n \n \n '),ALIGN5,colorFFFF;
DRAWTEXT(SYSPARAM(2)=BARPOS AND NUMTOSTR(当前月,0)='11',CLOSE,NUMTOSTR(当前月,0)+'月时间之窗:7(立冬)、8、15、22(小雪)23、*28\n \n \n \n \n \n '),ALIGN5,colorFFFF;
DRAWTEXT(SYSPARAM(2)=BARPOS AND NUMTOSTR(当前月,0)='12',CLOSE,NUMTOSTR(当前月,0)+'月时间之窗:7(大雪)、8、15、22(冬至)23、*31\n \n \n \n \n \n '),ALIGN5,colorFFFF;
DRAWTEXTEX(CLOSE,1,1,10,'板块:'+BLKNAME),colorFFFF;
DRAWTEXTEX(CLOSE,1,1,60,'总股本:'+NUMTOSTR(FINANCE(1)/10000,2)+'亿'+' 流通A股:'+NUMTOSTR(FINANCE(7)/10000,2)+'亿'),colorFFFF;
DRAWTEXTEX(CLOSE,1,1,110,'每股收益:'+NUMTOSTR(FINANCE(33),2)+' 市盈率:'+NUMTOSTR(DYNAINFO(39),2)+' 净资产收益率:'+NUMTOSTR(FINANCE(37),2)+' 净资产:'+NUMTOSTR(FINANCE(34),2)),colorFFFF;
DRAWTEXTEX(CLOSE,1,1,160,'上涨家数:'+NUMTOSTR(INDEXADV,0)+' 下跌家数:'+NUMTOSTR(INDEXDEC,0)),colorFFFF;
DRAWTEXTEX(CLOSE,1,1,210,'五日换手:'+NUMTOSTR(SUM(VOL/CAPITAL*100,5),2)+' 五日涨跌:'+NUMTOSTR((CLOSE-REF(CLOSE,5))/REF(CLOSE,5)*100,2)+'%'),colorFFFF;
DRAWTEXTEX(CLOSE,1,1,260,'获利比率:'+NUMTOSTR(WINNER(CLOSE)*100,2)+'%'+' 20天相对强度:'+NUMTOSTR(CLOSE/REF(CLOSE,20)/(INDEXC/REF(INDEXC,20)),2)),colorFFFF;
DRAWTEXTEX(CLOSE,1,1,360,'上涨突破价位:'+NUMTOSTR((REF(HIGH,1)+REF(LOW,1)+REF(OPEN,1)+2*REF(CLOSE,1))/5+REF(HIGH,1)-REF(LOW,1),2)),colorFFFF;
DRAWTEXTEX(CLOSE,1,1,410,'阻力价位:'+NUMTOSTR((REF(HIGH,1)+REF(LOW,1)+REF(OPEN,1)+2*REF(CLOSE,1))/5*2-REF(LOW,1),2)+' 昨日最高价:'+NUMTOSTR(REF(HIGH,1),2)),colorFFFF;
DRAWTEXTEX(CLOSE,1,1,460,'支撑价位:'+NUMTOSTR((REF(HIGH,1)+REF(LOW,1)+REF(OPEN,1)+2*REF(CLOSE,1))/5*2-REF(HIGH,1),2)+' 昨日最低价:'+NUMTOSTR(REF(LOW,1),2)),colorFFFF;
DRAWTEXTEX(CLOSE,1,1,510,'下跌破位价位:'+NUMTOSTR((REF(HIGH,1)+REF(LOW,1)+REF(OPEN,1)+2*REF(CLOSE,1))/5-(REF(HIGH,1)-REF(LOW,1)),2)),colorFFFF;
DK:=MA(CLOSE,7);
STICKLINE(DK<=CLOSE AND CLOSE>=OPEN,HIGH,LOW,0.1,1),colorFF;
STICKLINE(DK<=CLOSE AND CLOSE>=OPEN,CLOSE,OPEN,8,1),colorFF;
STICKLINE(DK<=CLOSE AND CLOSE<OPEN,HIGH,LOW,0.1,0),colorFF;
STICKLINE(DK<=CLOSE AND CLOSE<OPEN,CLOSE,OPEN,8,0),colorFF;
STICKLINE(DK>CLOSE AND CLOSE>=OPEN,HIGH,LOW,0.1,1),colorFF00;
STICKLINE(DK>CLOSE AND CLOSE>=OPEN,CLOSE,OPEN,8,1),colorFF00;
STICKLINE(DK>CLOSE AND CLOSE<OPEN,HIGH,LOW,0.1,0),colorFF00;
STICKLINE(DK>CLOSE AND CLOSE<OPEN,CLOSE,OPEN,8,0),colorFF00;
M5:MA(CLOSE,5);
M10:MA(CLOSE,10);
M20:MA(CLOSE,20);
M30:MA(CLOSE,30);
M60:MA(CLOSE,60),colorFF;
SAR(4,2,20),CIRCLEDO T;
|