价值1万公式请改为大智慧L2
请高手改为大智慧2的公式
希望不要搞什么特效之类,
最重要是运行速度快
波神++点石成金
飞狐的
INPUT:最近天(20,1,360);
当前月:=FRACPART(ROUND(CURRENTDATE/100)/100)*100;
月:=MONTH;日:=DAY;
VERTLINE(月=1 AND (日=25)),COLORFFFFFF,LINEDASHDOT;
VERTLINE(月=3 AND (日=20)),COLORFFFFFF,LINEDASHDOT;
VERTLINE(月=5 AND (日=12)),COLORFFFFFF,LINEDASHDOT;
VERTLINE(月=6 AND (日=14 )),COLORFFFFFF,LINEDASHDOT;
VERTLINE(月=7 AND ( 日=19 )),COLORFFFFFF,LINEDASHDOT;
VERTLINE(月=8 AND ( 日=6 )),COLORFFFFFF,LINEDASHDOT;
VERTLINE(月=9 AND ( 日=18 )),COLORFFFFFF,LINEDASHDOT;
VERTLINE(月=10 AND ( 日=31)),COLORFFFFFF,LINEDASHDOT;
VERTLINE(月=11 AND ( 日=28)),COLORFFFFFF,LINEDASHDOT;
VERTLINE(月=12 AND ( 日=31)),COLORFFFFFF,LINEDASHDOT;
VERTLINE(月=1 AND ( 日=6 OR 日=15 OR 日=21 )),COLORAAAAAA,LINEDASHDOT;
VERTLINE(月=2 AND ( 日=6 OR 日=15 OR 日=21 )),COLORAAAAAA,LINEDASHDOT;
VERTLINE(月=3 AND ( 日=6 OR 日=15 OR 日=21 )),COLORAAAAAA,LINEDASHDOT;
VERTLINE(月=4 AND ( 日=6 OR 日=15 OR 日=21 )),COLORAAAAAA,LINEDASHDOT;
VERTLINE(月=5 AND ( 日=6 OR 日=15 OR 日=21 )),COLORAAAAAA,LINEDASHDOT;
VERTLINE(月=6 AND ( 日=6OR 日=21)),COLORAAAAAA,LINEDASHDOT;
VERTLINE(月=7 AND ( 日=8 OR 日=15OR 日=23)),COLORAAAAAA,LINEDASHDOT;
VERTLINE(月=8 AND ( 日=8OR 日=15 OR 日=23)),COLORAAAAAA,LINEDASHDOT;
VERTLINE(月=9 AND ( 日=8 OR 日=15OR 日=23)),COLORAAAAAA,LINEDASHDOT;
VERTLINE(月=10 AND ( 日=8 OR 日=15 OR 日=23 )),COLORAAAAAA,LINEDASHDOT;
VERTLINE(月=11 AND ( 日=8 OR 日=15 OR 日=23)),COLORAAAAAA,LINEDASHDOT;
VERTLINE(月=12 AND ( 日=8 OR 日=15 OR 日=23 )),COLORAAAAAA,LINEDASHDOT;
N:=IF(SYSPARAM(1)=DATACOUNT,最近天,DATACOUNT-SYSPARAM(1));
HH:=HHV(HIGH,N);
LL:=LLV(LOW,N);
VN:=N;
{LAST1:=DATACOUNT;}
IF VN>DATACOUNT THEN
VN:=DATACOUNT+1;
FOR I=DATACOUNT DOWNTO DATACOUNT-VN+1 DO BEGIN
HH[I]:=HH[DATACOUNT];
LL[I]:=LL[DATACOUNT];
END;
TMP:=SETLBOUND(hh,DATACOUNT-VN+1);
TMP:=SETLBOUND(ll,DATACOUNT-VN+1);
阶段高:HH,LINETHICK2,color0000FF;阶段低:LL,LINETHICK2,color00FF00;
中线:(HH+LL)/2,linethick0;
KKH:=BARSLAST(HIGH=HH);
KKL:=BARSLAST(LOW=LL);
N低日:=STRTONUM(NUMTOSTR(REF(DATE,KKL),0)),LINETHICK;
N高日:=STRTONUM(NUMTOSTR(REF(DATE,KKH),0)),LINETHICK;
多空:IF(N低日>N高日,2,1),LINETHICK0;
多空天:IF(N低日<N高日,kkl,kkh),LINETHICK0;
DATE1:=IF(多空=1,N低日,N高日);{}
hh0:=REF(HIGH,BARSLAST(DATE1=DATE));
ll0:=REF(LOW,BARSLAST(DATE1=DATE));
H1:=STRTONUM(NUMTOSTR(Hh0,3)),POINTDOT;
L1:=STRTONUM(NUMTOSTR(Ll0,3)),POINTDOT;
PARTLINE(1,H1),,POINTDOT,linethick0;
PARTLINE(1,L1),,POINTDOT,linethick0;
LL:=H1 - L1;
VERTLINE(DATE=DATE1),COLORFFAAAA,,LINETHICK2;
DRAWTEXT(DATE=DATE1,SYSPARAM(4)*0.95,'起\n \n始\n \n线'),COLORFFFFFF;
起始至今天:BARSLAST(DATE1=DATE),COLORFFFF00,LINETHICK0;
涨幅:(CLOSE-REF(CLOSE,起始至今天))/REF(CLOSE,起始至今天)*100,COLORFFDDDD,LINETHICK0;
IF 多空=1 THEN BEGIN
{看多}
开门线: PARTLINE(DATE>=N低日,LL*1.50801 + L1),LINETHICK1,COLOREE99FF;;
PARTLINE(DATE>=N低日,LL*2.00001 + L1),COLOR9999FF,LINEDOT;
多2线: PARTLINE(DATE>=N低日,LL*2.40001 + L1),COLORFFFF99,linethick1;
PARTLINE(DATE>=N低日,LL*3.05001 + L1),COLOR99FF99,LINEDOT;
PARTLINE(DATE>=N低日,LL*3.75001 + L1),COLORFF9999,LINEDOT;
多5线: PARTLINE(DATE>=N低日,LL*4.15001 + L1),COLORMAGENTA,linethick2,LINEDOT;
PARTLINE(DATE>=N低日,LL*4.80001 + L1),COLORRED,LINEDOT;
多7线: PARTLINE(DATE>=N低日,LL*5.50001 + L1),COLORCYAN,linethick2;
PARTLINE(DATE>=N低日,LL*6.10001 + L1),COLORGREEN,LINEDOT;
PARTLINE(DATE>=N低日,LL*6.90001 + L1),LINETHICK1,COLORRED;
DRAWTEXT(SYSPARAM(3)=BARPOS,L1+LL*1.50801+0.002,NUMTOSTR(L1+LL*1.50801,2)),COLORAAAAAA,ALIGN2;
DRAWTEXT(SYSPARAM(3)=BARPOS,L1+LL*2.00001+0.002,NUMTOSTR(L1+LL*2.00001,2)),COLORAAAAAA,ALIGN2;
DRAWTEXT(SYSPARAM(3)=BARPOS,L1+LL*2.40001+0.002,'NO.2 '+NUMTOSTR(L1+LL*2.40001,2)),COLORAAAAAA,ALIGN2;
DRAWTEXT(SYSPARAM(3)=BARPOS,L1+LL*3.05001+0.002,NUMTOSTR(L1+LL*3.05001,2)),COLORAAAAAA,ALIGN2;
DRAWTEXT(SYSPARAM(3)=BARPOS,L1+LL*3.75001+0.002,NUMTOSTR(L1+LL*3.75001,2)),COLORAAAAAA,ALIGN2;
DRAWTEXT(SYSPARAM(3)=BARPOS,L1+LL*4.15001+0.002,'NO.5 '+NUMTOSTR(L1+LL*4.15001,2)),COLORAAAAAA,ALIGN2;
DRAWTEXT(SYSPARAM(3)=BARPOS,L1+LL*4.80001+0.002,NUMTOSTR(L1+LL*4.80001,2)),COLORAAAAAA,ALIGN2;
DRAWTEXT(SYSPARAM(3)=BARPOS,L1+LL*5.50001+0.002,'NO.7 '+NUMTOSTR(L1+LL*5.50001,2)),COLORAAAAAA,ALIGN2;
DRAWTEXT(SYSPARAM(3)=BARPOS,L1+LL*6.10001+0.002,NUMTOSTR(L1+LL*6.10001,2)),COLORAAAAAA,ALIGN2;
DRAWTEXT(SYSPARAM(3)=BARPOS,L1+LL*6.90001+0.002,NUMTOSTR(L1+LL*6.90001,2)),COLORAAAAAA,ALIGN2;
DRAWTEXT(DATE=DATE1,LL*1.50801 + L1+0.002,'多开门'),colorred;
DRAWTEXT(DATE=DATE1,LL*6.90001 + L1+0.002,'多关门'),colorred;
END;
ELSE BEGIN
{看空}
空开门线: PARTLINE(DATE>=N高日,H1-LL*1.50801),LINETHICK1,COLOREE99FF;
PARTLINE(DATE>=N高日,H1-LL*2.00001),COLOR9999FF,LINEDOT;
空2线: PARTLINE(DATE>=N高日,H1-LL*2.40001),COLORFFFF99;
PARTLINE(DATE>=N高日,H1-LL*3.05001),COLOR99FF99,LINEDOT;
PARTLINE(DATE>=N高日,H1-LL*3.75001),COLORFF9999,LINEDOT;
空5线: PARTLINE(DATE>=N高日,H1-LL*4.15001),COLORMAGENTA;
PARTLINE(DATE>=N高日,H1-LL*4.80001),COLORRED,LINEDOT;
空7线: PARTLINE(DATE>=N高日,H1-LL*5.50001),COLORCYAN;
PARTLINE(DATE>=N高日,H1-LL*6.10001),COLORGREEN,LINEDOT;
空关门线: PARTLINE(DATE>=N高日,H1-LL*6.90001),LINETHICK1,COLORRED;
DRAWTEXT(DATE=DATE1,H1-LL*1.50801+0.002,'空开门'),color3333FF;
DRAWTEXT(DATE=DATE1,H1-LL*6.90001+0.002,'空关门'),color3333FF;
DRAWTEXT(SYSPARAM(3)=BARPOS,H1-LL*1.50801+0.002,NUMTOSTR(H1-LL*1.50801,2)),COLORAAAAAA,ALIGN2;
DRAWTEXT(SYSPARAM(3)=BARPOS,H1-LL*2.00001+0.002,NUMTOSTR(H1-LL*2.00001,2)),COLORAAAAAA,ALIGN2;
DRAWTEXT(SYSPARAM(3)=BARPOS,H1-LL*2.40001+0.002,'NO.2 '+NUMTOSTR(H1-LL*2.40001,2)),COLORAAAAAA,ALIGN2;
DRAWTEXT(SYSPARAM(3)=BARPOS,H1-LL*3.05001+0.002,NUMTOSTR(H1-LL*3.05001,2)),COLORAAAAAA,ALIGN2;
DRAWTEXT(SYSPARAM(3)=BARPOS,H1-LL*3.75001+0.002,NUMTOSTR(H1-LL*3.75001,2)),COLORAAAAAA,ALIGN2;
DRAWTEXT(SYSPARAM(3)=BARPOS,H1-LL*4.15001+0.002,'NO.5 '+NUMTOSTR(H1-LL*4.15001,2)),COLORAAAAAA,ALIGN2;
DRAWTEXT(SYSPARAM(3)=BARPOS,H1-LL*4.80001+0.002,NUMTOSTR(H1-LL*4.80001,2)),COLORAAAAAA,ALIGN2;
DRAWTEXT(SYSPARAM(3)=BARPOS,H1-LL*5.50001+0.002,'NO.7 '+NUMTOSTR(H1-LL*5.50001,2)),COLORAAAAAA,ALIGN2;
DRAWTEXT(SYSPARAM(3)=BARPOS,H1-LL*6.10001+0.002,NUMTOSTR(H1-LL*6.10001,2)),COLORAAAAAA,ALIGN2;
DRAWTEXT(SYSPARAM(3)=BARPOS,H1-LL*6.90001+0.002,NUMTOSTR(H1-LL*6.90001,2)),COLORAAAAAA,ALIGN2;
END;
高年:=REF(YEAR,BARSLAST(DATE=N高日));
高月:=REF(MONTH,BARSLAST(DATE=N高日));
高日:=REF(DAY,BARSLAST(DATE=N高日));
低年:=REF(YEAR,BARSLAST(DATE=N低日));
低月:=REF(MONTH,BARSLAST(DATE=N低日));
低日:=REF(DAY,BARSLAST(DATE=N低日));
DRAWTEXT(SYSPARAM(2)=BARPOS,H1,'最近'+NUMTOSTR(最近天,0)+'天最高价日期:'+NUMTOSTR(高年,0)+'年'+NUMTOSTR(高月,0)+'月'+NUMTOSTR(高日,0)+'日'+'\n \n'
+'最近'+NUMTOSTR(最近天,0)+'天最低价日期:'+NUMTOSTR(低年,0)+'年'+NUMTOSTR(低月,0)+'月'+NUMTOSTR(低日,0)+'日'),COLORFFAAAA,ALIGN4;
DRAWTEXT(SYSPARAM(2)=BARPOS and NUMTOSTR(当前月,0)='1',CLOSE,NUMTOSTR(当前月,0)+'月转折日:6、15、21、*25\n \n \n \n '),COLOR00FFFF,ALIGN5;
DRAWTEXT(SYSPARAM(2)=BARPOS and NUMTOSTR(当前月,0)='2',CLOSE,NUMTOSTR(当前月,0)+'月转折日:6、15、21\n \n \n \n '),COLOR00FFFF,ALIGN5;
DRAWTEXT(SYSPARAM(2)=BARPOS and NUMTOSTR(当前月,0)='3',CLOSE,NUMTOSTR(当前月,0)+'月转折日:6、15、*20、21\n \n \n \n '),COLOR00FFFF,ALIGN5;
DRAWTEXT(SYSPARAM(2)=BARPOS and NUMTOSTR(当前月,0)='4',CLOSE,NUMTOSTR(当前月,0)+'月转折日:6、15、21\n \n \n \n '),COLOR00FFFF,ALIGN5;
DRAWTEXT(SYSPARAM(2)=BARPOS and NUMTOSTR(当前月,0)='5',CLOSE,NUMTOSTR(当前月,0)+'月转折日:6、*1 2、15、21\n \n \n \n '),COLOR00FFFF,ALIGN5;
DRAWTEXT(SYSPARAM(2)=BARPOS and NUMTOSTR(当前月,0)='6',CLOSE,NUMTOSTR(当前月,0)+'月转折日:6、*1 4、21\n \n \n \n '),COLOR00FFFF,ALIGN5;
DRAWTEXT(SYSPARAM(2)=BARPOS and NUMTOSTR(当前月,0)='7',CLOSE,NUMTOSTR(当前月,0)+'月转折日:8、15、*1 9、23\n \n \n \n '),COLOR00FFFF,ALIGN5;
DRAWTEXT(SYSPARAM(2)=BARPOS and NUMTOSTR(当前月,0)='8',CLOSE,NUMTOSTR(当前月,0)+'月转折日:*6、8、15、23\n \n \n \n '),COLOR00FFFF,ALIGN5;
DRAWTEXT(SYSPARAM(2)=BARPOS and NUMTOSTR(当前月,0)='9',CLOSE,NUMTOSTR(当前月,0)+'月转折日:8、15、*1 8、23\n \n \n \n '),COLOR00FFFF,ALIGN5;
DRAWTEXT(SYSPARAM(2)=BARPOS and NUMTOSTR(当前月,0)='10',CLOSE,NUMTOSTR(当前月,0)+'月转折日:8、15、23、*31\n \n \n \n '),COLOR00FFFF,ALIGN5;
DRAWTEXT(SYSPARAM(2)=BARPOS and NUMTOSTR(当前月,0)='11',CLOSE,NUMTOSTR(当前月,0)+'月转折日:8、15、23、*28\n \n \n \n '),COLOR00FFFF,ALIGN5;
DRAWTEXT(SYSPARAM(2)=BARPOS and NUMTOSTR(当前月,0)='12',CLOSE,NUMTOSTR(当前月,0)+'月转折日:8、15、23、*31\n \n \n \n '),COLOR00FFFF,ALIGN5;
{-----------------------------立体K线--------------------------------------}
Ko:=CLOSE;
Kc:=REF(CLOSE,1);
STICKLINE(ko<=kc ,CLOSE ,OPEN,8,0 ),COLOR008800;
STICKLINE(ko<=kc ,CLOSE ,OPEN,7,0 ),COLOR009900;
STICKLINE(ko<=kc ,CLOSE ,OPEN,6,0 ),COLOR00aa00;
STICKLINE(ko<=kc ,CLOSE ,OPEN,5,0 ),COLOR00bb00;
STICKLINE(ko<=kc,CLOSE ,OPEN,4,0 ),COLOR00cc00;
STICKLINE(ko<=kc,CLOSE ,OPEN,3,0 ),COLOR33dd00;
STICKLINE(ko<=kc,CLOSE ,OPEN,2,0 ),COLOR00ee00;
STICKLINE(ko<=kc,CLOSE ,OPEN,1,0 ),COLOR66ff00;
STICKLINE(ko>kc,CLOSE,OPEN,8,0 ),COLOr000088;
STICKLINE(ko>kc,CLOSE,OPEN,7,0 ),COLOr000099;
STICKLINE(ko>kc,CLOSE,OPEN,6 ,0 ),COLOR0000aa;
STICKLINE(ko>kc,CLOSE,OPEN,5,0 ),COLOr0000bb;
STICKLINE(ko>kc,CLOSE,OPEN,4,0 ),COLOr0000cc;
STICKLINE(ko>kc,CLOSE,OPEN,3 ,0 ),COLOR0000dd;
STICKLINE(ko>kc,CLOSE,OPEN,2,0 ),COLOr0000ee;
STICKLINE(ko>kc,CLOSE,OPEN,1 ,0 ),COLOR0033ff;
STICKLINE(ko>kc,OPEN,LOW,0.5,0 ),COLORred;
STICKLINE(ko>kc,CLOSE,HIGH,0.5 ,0 ),COLORred;
STICKLINE(ko<=kc,CLOSE,LOW,0.5 ,0 ),COLOR66cc33;
STICKLINE(ko<=kc,OPEN,HIGH,0.5 ,0 ),COLOR66cc33;
bc:=BARSLAST(SYSPARAM(1)=BARPOS)+1;
点石成金H:=IF(CLOSE>100,SUM(HIGH*VOL,bc)/SUM(VOL,bc),SUM(AMOUNT,bc)/SUM(VOL,bc)/100*SUM(HIGH,bc)/SUM(CLOSE,BC)),colorred,LINETHICK2;
点石成金L:=IF(CLOSE>100,SUM(LOW*VOL,bc)/SUM(VOL,bc),SUM(AMOUNT,bc)/SUM(VOL,bc)/100*SUM(LOW,bc)/SUM(CLOSE,BC)),colorblue,LINETHICK2;
点石成金:IF(REF(HIGH,bc-1)>REF(HIGH,bc) and REF(HIGH,bc-1)>REF(HIGH,bc-2) ,点石成金h,点石成金l),colorred,LINETHICK2;
{开盘既知今天高低价}
高:=MA(REF(HIGH,1)/REF(CLOSE,2),27)*REF(CLOSE,1);
低:=MA(REF(LOW,1)/REF(CLOSE,2),27)*REF(CLOSE,1);
A5:=低[SYSPARAM(1)];
RA5:=低[SYSPARAM(1)-1];
A10:=高[SYSPARAM(1)];
RA10:=高[SYSPARAM(1)-1];
jt5:=IF(A5>RA5,'↑','↓');
jt10:=IF(A10>RA10,'↑','↓');
SZ1:='开盘预测最高价:'+NUMTOSTR(高[SYSPARAM(1)],2)+jt10;
DRAWTEXT(BARPOS=SYSPARAM(2),CLOSE,SZ1),align4,COLORMAGENTA;
SZ:='\n \n开盘预测最低价:'+NUMTOSTR(低[SYSPARAM(1)],2)+jt5;
DRAWTEXT(BARPOS=SYSPARAM(2),CLOSE,SZ),align4,COLORGREEN;{点击看本软件截图： 58股票 公式网 http://www. 58gu. com 整理} |
