易得专用--斜趋势线源码（升级版：含斜压和斜撑二根线

wqm

{MM:=480;选股时用}
MM:=BARSLAST(DISPSTATUS=1);{可视区域内K线数，看盘时用}
AN:=CONST(HHVBARS(H,MM));
BN:=IF(AN>0 AND AN<60,1,IF(AN>=60 AND AN<120,2,IF(AN>=120 AND AN<180,3,
IF(AN>=180 AND AN<240,4,IF(AN>=240 AND AN<300,5,IF(AN>=300 AND AN<360,6,
IF(AN>=360 AND AN<420,7,IF(AN>=420 AND AN<480,8,0))))))));
HBN:=HHVBARS(H,MM);
HCC:=BACKSET(BARSTATUS=2,HBN+1);
HCDN:=BARSLAST(HCC>REF(HCC,1));
HCD:=REF(H,HCDN);
JA:=HOD(HHV(H,BN),HCDN);
JB:=SUM(LAST(JA>REF(JA,1))=1,HCDN);
NN:=10;
TT:=NullData;
J2:=IF(HBN-(BARSLAST(JB=2)+BN)<NN,TT,(REF(H,(BARSLAST(JB=2)+BN))-hcd)/(HCDN-(BARSLAST(JB=2)+BN)));
J3:=IF(HBN-(BARSLAST(JB=3)+BN)<NN,TT,(REF(H,(BARSLAST(JB=3)+BN))-hcd)/(HCDN-(BARSLAST(JB=3)+BN)));
J4:=IF(HBN-(BARSLAST(JB=4)+BN)<NN,TT,(REF(H,(BARSLAST(JB=4)+BN))-hcd)/(HCDN-(BARSLAST(JB=4)+BN)));
J5:=IF(HBN-(BARSLAST(JB=5)+BN)<NN,TT,(REF(H,(BARSLAST(JB=5)+BN))-hcd)/(HCDN-(BARSLAST(JB=5)+BN)));
J6:=IF(HBN-(BARSLAST(JB=6)+BN)<NN,TT,(REF(H,(BARSLAST(JB=6)+BN))-hcd)/(HCDN-(BARSLAST(JB=6)+BN)));
J7:=IF(HBN-(BARSLAST(JB=7)+BN)<NN,TT,(REF(H,(BARSLAST(JB=7)+BN))-hcd)/(HCDN-(BARSLAST(JB=7)+BN)));
J8:=IF(HBN-(BARSLAST(JB=8)+BN)<NN,TT,(REF(H,(BARSLAST(JB=8)+BN))-hcd)/(HCDN-(BARSLAST(JB=8)+BN)));
J9:=IF(HBN-(BARSLAST(JB=9)+BN)<NN,TT,(REF(H,(BARSLAST(JB=9)+BN))-hcd)/(HCDN-(BARSLAST(JB=9)+BN)));
J10:=IF(HBN-(BARSLAST(JB=10)+BN)<NN,TT,(REF(H,(BARSLAST(JB=10)+BN))-hcd)/(HCDN-(BARSLAST(JB=10)+BN)));  
J11:=IF(HBN-(BARSLAST(JB=11)+BN)<NN,TT,(REF(H,(BARSLAST(JB=11)+BN))-hcd)/(HCDN-(BARSLAST(JB=11)+BN)));   
J12:=IF(HBN-(BARSLAST(JB=12)+BN)<NN,TT,(REF(H,(BARSLAST(JB=12)+BN))-hcd)/(HCDN-(BARSLAST(JB=12)+BN)));
J13:=IF(HBN-(BARSLAST(JB=13)+BN)<NN,TT,(REF(H,(BARSLAST(JB=13)+BN))-hcd)/(HCDN-(BARSLAST(JB=13)+BN)));
J14:=IF(HBN-(BARSLAST(JB=14)+BN)<NN,TT,(REF(H,(BARSLAST(JB=14)+BN))-hcd)/(HCDN-(BARSLAST(JB=14)+BN)));
J15:=IF(HBN-(BARSLAST(JB=15)+BN)<NN,TT,(REF(H,(BARSLAST(JB=15)+BN))-hcd)/(HCDN-(BARSLAST(JB=15)+BN)));
J16:=IF(HBN-(BARSLAST(JB=16)+BN)<NN,TT,(REF(H,(BARSLAST(JB=16)+BN))-hcd)/(HCDN-(BARSLAST(JB=16)+BN)));
J17:=IF(HBN-(BARSLAST(JB=17)+BN)<NN,TT,(REF(H,(BARSLAST(JB=17)+BN))-hcd)/(HCDN-(BARSLAST(JB=17)+BN)));
J18:=IF(HBN-(BARSLAST(JB=18)+BN)<NN,TT,(REF(H,(BARSLAST(JB=18)+BN))-hcd)/(HCDN-(BARSLAST(JB=18)+BN)));
J19:=IF(HBN-(BARSLAST(JB=19)+BN)<NN,TT,(REF(H,(BARSLAST(JB=19)+BN))-hcd)/(HCDN-(BARSLAST(JB=19)+BN)));
J20:=IF(HBN-(BARSLAST(JB=20)+BN)<NN,TT,(REF(H,(BARSLAST(JB=20)+BN))-hcd)/(HCDN-(BARSLAST(JB=20)+BN)));  
J21:=IF(HBN-(BARSLAST(JB=21)+BN)<NN,TT,(REF(H,(BARSLAST(JB=21)+BN))-hcd)/(HCDN-(BARSLAST(JB=21)+BN)));
J22:=IF(HBN-(BARSLAST(JB=22)+BN)<NN,TT,(REF(H,(BARSLAST(JB=22)+BN))-hcd)/(HCDN-(BARSLAST(JB=22)+BN)));
J23:=IF(HBN-(BARSLAST(JB=23)+BN)<NN,TT,(REF(H,(BARSLAST(JB=23)+BN))-hcd)/(HCDN-(BARSLAST(JB=23)+BN)));
J24:=IF(HBN-(BARSLAST(JB=24)+BN)<NN,TT,(REF(H,(BARSLAST(JB=24)+BN))-hcd)/(HCDN-(BARSLAST(JB=24)+BN)));
J25:=IF(HBN-(BARSLAST(JB=25)+BN)<NN,TT,(REF(H,(BARSLAST(JB=25)+BN))-hcd)/(HCDN-(BARSLAST(JB=25)+BN)));
J26:=IF(HBN-(BARSLAST(JB=26)+BN)<NN,TT,(REF(H,(BARSLAST(JB=26)+BN))-hcd)/(HCDN-(BARSLAST(JB=26)+BN)));
J27:=IF(HBN-(BARSLAST(JB=27)+BN)<NN,TT,(REF(H,(BARSLAST(JB=27)+BN))-hcd)/(HCDN-(BARSLAST(JB=27)+BN)));
J28:=IF(HBN-(BARSLAST(JB=28)+BN)<NN,TT,(REF(H,(BARSLAST(JB=28)+BN))-hcd)/(HCDN-(BARSLAST(JB=28)+BN)));
J29:=IF(HBN-(BARSLAST(JB=29)+BN)<NN,TT,(REF(H,(BARSLAST(JB=29)+BN))-hcd)/(HCDN-(BARSLAST(JB=29)+BN)));
J30:=IF(HBN-(BARSLAST(JB=30)+BN)<NN,TT,(REF(H,(BARSLAST(JB=30)+BN))-hcd)/(HCDN-(BARSLAST(JB=30)+BN)));  
J31:=IF(HBN-(BARSLAST(JB=31)+BN)<NN,TT,(REF(H,(BARSLAST(JB=31)+BN))-hcd)/(HCDN-(BARSLAST(JB=31)+BN)));   
JC:=MAX(J2,J3,J4,J5,J6,J7,J8,J9,J10,J11,J12,J13,J14,J15,J16,J17,J18,J19,J20,J21,J22,J23,J24,J25,J26,J27,J28,J29,J30,J31);
JD:=HHVBARS(JC,HCDN)+BN;
JE:=MAX(BACKSET(BARSTATUS=2,JD+1),0);
JN:=BARSLAST(JE>REF(JE,1));
JH:=HCD-(HCD-REF(H,JN))/(HCDN-JN)*HCDN;
斜压线:JH,ColorWhite;
DrawLine(HCC>REF(HCC,1),H,JE>REF(JE,1),H,0),ColorYelLow;

CN:=CONST(LLVBARS(L,MM));
DN:=IF(CN>0 AND CN<60,1,IF(CN>=60 AND CN<120,2,IF(CN>=120 AND CN<180,3,
IF(CN>=180 AND CN<240,4,IF(CN>=240 AND CN<300,5,IF(CN>=300 AND CN<360,6,
IF(CN>=360 AND CN<420,7,IF(CN>=420 AND CN<480,8,0))))))));
LBN:=LLVBARS(L,MM);
LCC:=BACKSET(BARSTATUS=2,LBN+1);
LCDN:=BARSLAST(LCC>REF(LCC,1));
LCD:=REF(L,LCDN);
KA:=LOD(LLV(L,DN),LCDN);
KB:=SUM(LAST(KA>REF(KA,1))=1,LCDN);
K2:=IF(LBN-(BARSLAST(KB=2)+DN)<NN,TT,(REF(L,(BARSLAST(KB=2)+DN))-Lcd)/(LCDN-(BARSLAST(KB=2)+DN)));
K3:=IF(LBN-(BARSLAST(KB=3)+DN)<NN,TT,(REF(L,(BARSLAST(KB=3)+DN))-Lcd)/(LCDN-(BARSLAST(KB=3)+DN)));
K4:=IF(LBN-(BARSLAST(KB=4)+DN)<NN,TT,(REF(L,(BARSLAST(KB=4)+DN))-Lcd)/(LCDN-(BARSLAST(KB=4)+DN)));
K5:=IF(LBN-(BARSLAST(KB=5)+DN)<NN,TT,(REF(L,(BARSLAST(KB=5)+DN))-Lcd)/(LCDN-(BARSLAST(KB=5)+DN)));
K6:=IF(LBN-(BARSLAST(KB=6)+DN)<NN,TT,(REF(L,(BARSLAST(KB=6)+DN))-Lcd)/(LCDN-(BARSLAST(KB=6)+DN)));
K7:=IF(LBN-(BARSLAST(KB=7)+DN)<NN,TT,(REF(L,(BARSLAST(KB=7)+DN))-Lcd)/(LCDN-(BARSLAST(KB=7)+DN)));
K8:=IF(LBN-(BARSLAST(KB=8)+DN)<NN,TT,(REF(L,(BARSLAST(KB=8)+DN))-Lcd)/(LCDN-(BARSLAST(KB=8)+DN)));
K9:=IF(LBN-(BARSLAST(KB=9)+DN)<NN,TT,(REF(L,(BARSLAST(KB=9)+DN))-Lcd)/(LCDN-(BARSLAST(KB=9)+DN)));
K10:=IF(LBN-(BARSLAST(KB=10)+DN)<NN,TT,(REF(L,(BARSLAST(KB=10)+DN))-Lcd)/(LCDN-(BARSLAST(KB=10)+DN)));  
K11:=IF(LBN-(BARSLAST(KB=11)+DN)<NN,TT,(REF(L,(BARSLAST(KB=11)+DN))-Lcd)/(LCDN-(BARSLAST(KB=11)+DN)));   
K12:=IF(LBN-(BARSLAST(KB=12)+DN)<NN,TT,(REF(L,(BARSLAST(KB=12)+DN))-Lcd)/(LCDN-(BARSLAST(KB=12)+DN)));
K13:=IF(LBN-(BARSLAST(KB=13)+DN)<NN,TT,(REF(L,(BARSLAST(KB=13)+DN))-Lcd)/(LCDN-(BARSLAST(KB=13)+DN)));
K14:=IF(LBN-(BARSLAST(KB=14)+DN)<NN,TT,(REF(L,(BARSLAST(KB=14)+DN))-Lcd)/(LCDN-(BARSLAST(KB=14)+DN)));
K15:=IF(LBN-(BARSLAST(KB=15)+DN)<NN,TT,(REF(L,(BARSLAST(KB=15)+DN))-Lcd)/(LCDN-(BARSLAST(KB=15)+DN)));
K16:=IF(LBN-(BARSLAST(KB=16)+DN)<NN,TT,(REF(L,(BARSLAST(KB=16)+DN))-Lcd)/(LCDN-(BARSLAST(KB=16)+DN)));
K17:=IF(LBN-(BARSLAST(KB=17)+DN)<NN,TT,(REF(L,(BARSLAST(KB=17)+DN))-Lcd)/(LCDN-(BARSLAST(KB=17)+DN)));
K18:=IF(LBN-(BARSLAST(KB=18)+DN)<NN,TT,(REF(L,(BARSLAST(KB=18)+DN))-Lcd)/(LCDN-(BARSLAST(KB=18)+DN)));
K19:=IF(LBN-(BARSLAST(KB=19)+DN)<NN,TT,(REF(L,(BARSLAST(KB=19)+DN))-Lcd)/(LCDN-(BARSLAST(KB=19)+DN)));
K20:=IF(LBN-(BARSLAST(KB=20)+DN)<NN,TT,(REF(L,(BARSLAST(KB=20)+DN))-Lcd)/(LCDN-(BARSLAST(KB=20)+DN)));  
K21:=IF(LBN-(BARSLAST(KB=21)+DN)<NN,TT,(REF(L,(BARSLAST(KB=21)+DN))-Lcd)/(LCDN-(BARSLAST(KB=21)+DN)));
K22:=IF(LBN-(BARSLAST(KB=22)+DN)<NN,TT,(REF(L,(BARSLAST(KB=22)+DN))-Lcd)/(LCDN-(BARSLAST(KB=22)+DN)));
K23:=IF(LBN-(BARSLAST(KB=23)+DN)<NN,TT,(REF(L,(BARSLAST(KB=23)+DN))-Lcd)/(LCDN-(BARSLAST(KB=23)+DN)));
K24:=IF(LBN-(BARSLAST(KB=24)+DN)<NN,TT,(REF(L,(BARSLAST(KB=24)+DN))-Lcd)/(LCDN-(BARSLAST(KB=24)+DN)));
K25:=IF(LBN-(BARSLAST(KB=25)+DN)<NN,TT,(REF(L,(BARSLAST(KB=25)+DN))-Lcd)/(LCDN-(BARSLAST(KB=25)+DN)));
K26:=IF(LBN-(BARSLAST(KB=26)+DN)<NN,TT,(REF(L,(BARSLAST(KB=26)+DN))-Lcd)/(LCDN-(BARSLAST(KB=26)+DN)));
K27:=IF(LBN-(BARSLAST(KB=27)+DN)<NN,TT,(REF(L,(BARSLAST(KB=27)+DN))-Lcd)/(LCDN-(BARSLAST(KB=27)+DN)));
K28:=IF(LBN-(BARSLAST(KB=28)+DN)<NN,TT,(REF(L,(BARSLAST(KB=28)+DN))-Lcd)/(LCDN-(BARSLAST(KB=28)+DN)));
K29:=IF(LBN-(BARSLAST(KB=29)+DN)<NN,TT,(REF(L,(BARSLAST(KB=29)+DN))-Lcd)/(LCDN-(BARSLAST(KB=29)+DN)));
K30:=IF(LBN-(BARSLAST(KB=30)+DN)<NN,TT,(REF(L,(BARSLAST(KB=30)+DN))-Lcd)/(LCDN-(BARSLAST(KB=30)+DN)));  
K31:=IF(LBN-(BARSLAST(KB=31)+DN)<NN,TT,(REF(L,(BARSLAST(KB=31)+DN))-Lcd)/(LCDN-(BARSLAST(KB=31)+DN)));   
KC:=MIN(K2,K3,K4,K5,K6,K7,K8,K9,K10,K11,K12,K13,K14,K15,K16,K17,K18,
    K19,K20,K21,K22,K23,K24,K25,K26,K27,K28,K29,K30,K31);
KD:=LLVBARS(KC,LCDN)+DN;
KE:=MAX(BACKSET(BARSTATUS=2,KD+1),0);
KN:=BARSLAST(KE>REF(KE,1));
KL:=LCD-(LCD-REF(L,KN))/(LCDN-KN)*LCDN;
斜撑线:KL,ColorWhite;
DrawLine(LCC>REF(LCC,1),L,KE>REF(KE,1),L,0),ColorYelLow;
做多选股:C>=JH,NoDraw;
做空选股:C<=KL,NoDraw;

cheetor

请配图谢谢！无图无真相！！！

wqm