?
?
主圖最高:=SYSPARAM(4);
主圖最低:=SYSPARAM(5);
阻撐:=1;
當前月:=FRACPART(ROUND(CURRENTDATE/100)/100)*100;
DRAWTEXT(SYSPARAM(2)=BARPOS AND NUMTOSTR(當前月,0)='1',C,NUMTOSTR(當前月,0)+'月轉折日:6、15、21、*25\n \n \n \n '),ALIGN5,colorFFFF;
DRAWTEXT(SYSPARAM(2)=BARPOS AND NUMTOSTR(當前月,0)='2',C,NUMTOSTR(當前月,0)+'月轉折日:6、15、21\n \n \n \n '),ALIGN5,colorFFFF;
DRAWTEXT(SYSPARAM(2)=BARPOS AND NUMTOSTR(當前月,0)='3',C,NUMTOSTR(當前月,0)+'月轉折日:6、15、*20、21\n \n \n \n '),ALIGN5,colorFFFF;
DRAWTEXT(SYSPARAM(2)=BARPOS AND NUMTOSTR(當前月,0)='4',C,NUMTOSTR(當前月,0)+'月轉折日:6、15、21\n \n \n \n '),ALIGN5,colorFFFF;
DRAWTEXT(SYSPARAM(2)=BARPOS AND NUMTOSTR(當前月,0)='5',C,NUMTOSTR(當前月,0)+'月轉折日:6、*1 2、15、21\n \n \n \n '),ALIGN5,colorFFFF;
DRAWTEXT(SYSPARAM(2)=BARPOS AND NUMTOSTR(當前月,0)='6',C,NUMTOSTR(當前月,0)+'月轉折日:6、*1 4、21\n \n \n \n '),ALIGN5,colorFFFF;
DRAWTEXT(SYSPARAM(2)=BARPOS AND NUMTOSTR(當前月,0)='7',C,NUMTOSTR(當前月,0)+'月轉折日:8、15、*1 9、23\n \n \n \n '),ALIGN5,colorFFFF;
DRAWTEXT(SYSPARAM(2)=BARPOS AND NUMTOSTR(當前月,0)='8',C,NUMTOSTR(當前月,0)+'月轉折日:*6、8、15、23\n \n \n \n '),ALIGN5,colorFFFF;
DRAWTEXT(SYSPARAM(2)=BARPOS AND NUMTOSTR(當前月,0)='9',C,NUMTOSTR(當前月,0)+'月轉折日:8、15、*1 8、23\n \n \n \n '),ALIGN5,colorFFFF;
DRAWTEXT(SYSPARAM(2)=BARPOS AND NUMTOSTR(當前月,0)='10',C,NUMTOSTR(當前月,0)+'月轉折日:8、15、23、*31\n \n \n \n '),ALIGN5,colorFFFF;
DRAWTEXT(SYSPARAM(2)=BARPOS AND NUMTOSTR(當前月,0)='11',C,NUMTOSTR(當前月,0)+'月轉折日:8、15、23、*28\n \n \n \n '),ALIGN5,colorFFFF;
DRAWTEXT(SYSPARAM(2)=BARPOS AND NUMTOSTR(當前月,0)='12',C,NUMTOSTR(當前月,0)+'月轉折日:8、15、23、*31\n \n \n \n '),ALIGN5,colorFFFF;
IF DATATYPE<6 THEN BEGIN
本周期日期:=DATE;
前日期:=REF(DATE,1);
HHDAY0:=SETVAL(BARPOS>2 AND 本周期日期>前日期,H,-SUMBARS(本周期日期>前日期,2)+1,REF(HHV(H,SUMBARS(本周期日期>前日期,1)),1));
LLDAY0:=SETVAL(BARPOS>2 AND 本周期日期>前日期,L,-SUMBARS(本周期日期>前日期,2)+1,REF(LLV(L,SUMBARS(本周期日期>前日期,1)),1));
HHDAY:=SETVAL(BARSTATUS=2,HHDAY0,-BARSLAST(本周期日期>前日期),HHV(H,(BARSLAST(本周期日期>前日期))+1));
LLDAY:=SETVAL(BARSTATUS=2,LLDAY0,-BARSLAST(本周期日期>前日期),LLV(L,(BARSLAST(本周期日期>前日期))+1));
HHDAY[DATACOUNT]:=HHDAY[DATACOUNT-1];
LLDAY[DATACOUNT]:=LLDAY[DATACOUNT-1];
END;
N:=IF(SYSPARAM(1)=DATACOUNT,最近天,DATACOUNT-SYSPARAM(1)+1);
K線測量范圍:N,LINETHICK0;
HH:=HHV(H,N);
LL:=LLV(L,N);
VN:=N;
IF VN>DATACOUNT THEN
VN=DATACOUNT+1;
TJ:=C;
FOR I=DATACOUNT DOWNTO DATACOUNT-VN+1 DO BEGIN
HH[I]:=HH[DATACOUNT];
LL[I]:=LL[DATACOUNT];
TJ[I]:=0;
END;
TMP:=SETLBOUND(37,DATACOUNT-VN+1);
TMP:=SETLBOUND(38,DATACOUNT-VN+1);
KKH:=BARSSINCE(H=HH);
KKL:=BARSSINCE(L=LL);
NLPOS:=STRTONUM(NUMTOSTR(REF(BARPOS,KKL),0));
NHPOS:=STRTONUM(NUMTOSTR(REF(BARPOS,KKH),0));
多空:=IF(NLPOS>NHPOS,0,1);
K1:=IF(多空>=1,TROUGHBARS(2,精度,1),PEAKBARS(1,精度,1));
F1:=IF(多空>=1,PEAKBARS(1,精度,1),TROUGHBARS(2,精度,1));
K2:=BARSLAST(K1=0);
F2:=BARSLAST(F1=0);
KK:=REF(BARPOS,K2);
FF:=REF(BARPOS,F2);
K4:=DATACOUNT-N+1;
F4:=DATACOUNT-N-第二點+1;
P1:=IF(KK>=K4,1,-1);
P2:=IF(FF>=(IF(F4<0,0,IF(F4>DATACOUNT,DATACOUNT,F4))),1,-1);
PK1:=CROSS(P1,0);
PK2:=CROSS(P2,0);
KTONOW1:=BARSLAST(PK1);
KTONOW2:=BARSLAST(PK2);
BBP:=REF(BARPOS,KTONOW1);
HH:=REF(H,KTONOW1);
HH2:=IF(多空>=1,REF(H,KTONOW2),REF(H,KTONOW1));
LL2:=IF(多空>=1,REF(L,KTONOW1),REF(L,KTONOW2));
LL:=REF(L,KTONOW1);
H1:=STRTONUM(NUMTOSTR(HH,2));
L1:=STRTONUM(NUMTOSTR(LL,2));
H2:=STRTONUM(NUMTOSTR(HH2,2));
L2:=STRTONUM(NUMTOSTR(LL2,2));
HE:=IF((全顯=-3 OR 全顯=3) AND DATATYPE<6,REF(HHDAY,KTONOW1),IF(測量=1,H1,H2));
LE:=IF((全顯=-3 OR 全顯=3) AND DATATYPE<6,REF(LLDAY,KTONOW1),IF(測量=1,L1,L2));
LL:=STRTONUM(NUMTOSTR(HE-LE,2));
K1LAST:=IF(多空>=1,IF(反向測量>=1,PEAKBARS(1,單線精度,1),TROUGHBARS(2,單線精度,1)),IF(反向測量>=1,TROUGHBARS(2,單線精度,1),PEAKBARS(1,單線精度,1)));
K2LAST:=IF(BARPOS=DATACOUNT,SUMBARS(K1LAST=0,近單線),0);
K3LAST:=BACKSET(BARPOS=DATACOUNT,K2LAST);
K4LAST:=IF(K3LAST>0,1,-1);
K5LAST:=CROSS(K4LAST,0);
HELAST:=REF(H,BARSLAST(K5LAST));
LELAST:=REF(L,BARSLAST(K5LAST));
LLLAST:=HELAST-LELAST;
IF TPOINT<>0 THEN BEGIN
KF4:=DATACOUNT-N-TPOINT+1;
KL1:=IF(阻撐>0 AND 多空<=0 OR 阻撐<=0 AND 多空>0,TROUGHBARS(2,精度,1),PEAKBARS(1,精度,1));
KL2:=IF(REF(BARPOS,BARSLAST(KL1=0))>(KF4),1,-1);
KL:=CROSS(KL2,0);
FH:=REF(H,BARSLAST(KL));
FL:=REF(L,BARSLAST(KL));
FLL:=IF(多空>0,IF(阻撐>0,FH-LE,FL-LE),IF(阻撐>0,HE-FL,HE-FH));
END;
LIND1:=LE+LL*1.7856;
LIND2:=LE+LL*2.9775;
LIND3:=HE+LL*2.9775;
LIND4:=LE+LL*4.764;
LIND5:=HE+LL*4.764;
LIND6:=LE+LL*6.5;
LIND7:=LE+LL*7.7415;
LIND8:=HE+LL*7.7415;
IF TPOINT<>0 THEN BEGIN
LINDT2:=FH+FLL*2.118;
LINDT3:=LE+FLL*3.427;
LINDT5:=LE+FLL*5.545;
LINDT6:=FH+FLL*5.545;
END;
LINK1:=HE-LL*1.7856;
LINK2:=HE-LL*2.9775;
LINK3:=LE-LL*2.9775;
LINK4:=HE-LL*4.764;
LINK5:=LE-LL*4.764;
LINK6:=HE-LL*6.5;
LINK7:=HE-LL*7.7415;
LINK8:=LE-LL*7.7415;
IF TPOINT<>0 THEN BEGIN
LINKT2:=FL-FLL*2.118;
LINKT3:=HE-FLL*3.427;
LINKT5:=HE-FLL*5.545;
LINKT6:=FL-FLL*5.545;
END;
LINE1:=IF(多空>=1,LIND1,LINK1);
LINE2:=IF(多空>=1,LIND2,LINK2);
LINE3:=IF(多空>=1,LIND3,LINK3);
LINE4:=IF(多空>=1,LIND4,LINK4);
LINE5:=IF(多空>=1,LIND5,LINK5);
LINE6:=IF(多空>=1,LIND6,LINK6);
LINE7:=IF(多空>=1,LIND7,LINK7);
LINE8:=IF(多空>=1,LIND8,LINK8);
IF TPOINT<>0 THEN BEGIN
LINET2:=IF(多空>=1,LINDT2,LINKT2);
LINET3:=IF(多空>=1,LINDT3,LINKT3);
LINET5:=IF(多空>=1,LINDT5,LINKT5);
LINET6:=IF(多空>=1,LINDT6,LINKT6);
LINEB1:=LINET2+(LINET6-LINET2)*0.382;
LINEB2:=LINET2+(LINET6-LINET2)*0.618;
END;
LASTDDX1:=LELAST+LLLAST*1.7856;
LASTDDX2:=LELAST+LLLAST*2.9775;
LASTDDX3:=HELAST+LLLAST*2.9775;
LASTDDX4:=LELAST+LLLAST*4.764;
LASTDDX5:=HELAST+LLLAST*4.764;
LASTDDX6:=LELAST+LLLAST*6.5;
LASTDDX7:=LELAST+LLLAST*7.7415;
LASTDDX8:=HELAST+LLLAST*7.7415;
LASTDDX9:=LELAST+LLLAST*10.5;
LASTKDX1:=HELAST-LLLAST*1.7856;
LASTKDX2:=HELAST-LLLAST*2.9775;
LASTKDX3:=LELAST-LLLAST*2.9775;
LASTKDX4:=HELAST-LLLAST*4.764;
LASTKDX5:=LELAST-LLLAST*4.764;
LASTKDX6:=HELAST-LLLAST*6.5;
LASTKDX7:=HELAST-LLLAST*7.7415;
LASTKDX8:=LELAST-LLLAST*7.7415;
LASTKDX9:=HELAST-LLLAST*10.5;
LASTDX1:=IF(多空>=1,IF(反向測量>=1,LASTKDX1,LASTDDX1),IF(反向測量>=1,LASTDDX1,LASTKDX1));
LASTDX2:=IF(多空>=1,IF(反向測量>=1,LASTKDX2,LASTDDX2),IF(反向測量>=1,LASTDDX2,LASTKDX2));
LASTDX3:=IF(多空>=1,IF(反向測量>=1,LASTKDX3,LASTDDX3),IF(反向測量>=1,LASTDDX3,LASTKDX3));
?
公式導入教程: 【通達信公式源碼導入方法教程】 【同花順公式源碼導入方法教程】 【大智慧新一代公式源碼導入方法教程】
?
打印本文
關閉窗口