M:=BARPOS; H:=HIGH; L:=LOW; H1:=IF(H>=REF(H,1)&&H>=REF(H,2)&&H>=REF(H,3)&&H>=REF(H,4)&&H>=REF(H,5)&& H>REFX(H,1)&&H>REFX(H,2)&&H>REFX(H,3)&&H>REFX(H,4)&&H>REFX(H,5),HIGH,0); L1:=IF(L<=REF(L,1)&&L<=REF(L,2)&&L<=REF(L,3)&&L<=REF(L,4)&&L<=REF(L,5)&& L<REFX(L,1)&&L<REFX(L,2)&&L<REFX(L,3)&&L<REFX(L,4)&&L<REFX(L,5),LOW,0); H2:=VALUEWHEN(H1>0,H1); L2:=VALUEWHEN(L1>0,L1); H3:=IF(H2<>REF(H2,1),H2-L2,0); L3:=IF(L2<>REF(L2,1),H2-L2,0); HH:=IF(H3>0,REFX(M,H3),0); LL:=IF(L3>0,REFX(M,L3),0); P1:=M=REF(HH,1); P2:=M=REF(HH,2); P3:=M=REF(HH,3); P4:=M=REF(HH,4); P5:=M=REF(HH,5); P6:=M=REF(HH,6); P7:=M=REF(HH,7); P8:=M=REF(HH,8); P9:=M=REF(HH,9); P10:=M=REF(HH,10); P11:=M=REF(HH,11); P12:=M=REF(HH,12); P13:=M=REF(HH,13); P14:=M=REF(HH,14); P15:=M=REF(HH,15); P16:=M=REF(HH,16); P17:=M=REF(HH,17); P18:=M=REF(HH,18); P19:=M=REF(HH,19); P20:=M=REF(HH,20); P21:=M=REF(HH,21); P22:=M=REF(HH,22); P23:=M=REF(HH,23); P24:=M=REF(HH,24); P25:=M=REF(HH,25); P26:=M=REF(HH,26); P27:=M=REF(HH,27); P28:=M=REF(HH,28); P29:=M=REF(HH,29); P30:=M=REF(HH,30); P31:=M=REF(HH,31); P32:=M=REF(HH,32); P33:=M=REF(HH,33); P34:=M=REF(HH,34); P35:=M=REF(HH,35); P36:=M=REF(HH,36); P37:=M=REF(HH,37); P38:=M=REF(HH,38); P39:=M=REF(HH,39); P40:=M=REF(HH,40); P41:=M=REF(HH,41); P42:=M=REF(HH,42); P43:=M=REF(HH,43); P44:=M=REF(HH,44); P45:=M=REF(HH,45); P46:=M=REF(HH,46); P47:=M=REF(HH,47); P48:=M=REF(HH,48); P49:=M=REF(HH,49); P50:=M=REF(HH,50); P51:=M=REF(HH,51); D1:=M=REF(LL,1); D2:=M=REF(LL,2); D3:=M=REF(LL,3); D4:=M=REF(LL,4); D5:=M=REF(LL,5); D6:=M=REF(LL,6); D7:=M=REF(LL,7); D8:=M=REF(LL,8); D9:=M=REF(LL,9); D10:=M=REF(LL,10); D11:=M=REF(LL,11); D12:=M=REF(LL,12); D13:=M=REF(LL,13); D14:=M=REF(LL,14); D15:=M=REF(LL,15); D16:=M=REF(LL,16); D17:=M=REF(LL,17); D18:=M=REF(LL,18); D19:=M=REF(LL,19); D20:=M=REF(LL,20); D21:=M=REF(LL,21); D22:=M=REF(LL,22); D23:=M=REF(LL,23); D24:=M=REF(LL,24); D25:=M=REF(LL,25); D26:=M=REF(LL,26); D27:=M=REF(LL,27); D28:=M=REF(LL,28); D29:=M=REF(LL,29); D30:=M=REF(LL,30); D31:=M=REF(LL,31); D32:=M=REF(LL,32); D33:=M=REF(LL,33); D34:=M=REF(LL,34); D35:=M=REF(LL,35); D36:=M=REF(LL,36); D37:=M=REF(LL,37); D38:=M=REF(LL,38); D39:=M=REF(LL,39); D40:=M=REF(LL,40); D41:=M=REF(LL,41); D42:=M=REF(LL,42); D43:=M=REF(LL,43); D44:=M=REF(LL,44); D45:=M=REF(LL,45); D46:=M=REF(LL,46); D47:=M=REF(LL,47); D48:=M=REF(LL,48); D49:=M=REF(LL,49); D50:=M=REF(LL,50); D51:=M=REF(LL,51); PP:=P1+P2+P3+P4+P5+P6+P7+P8+P9+P10+P11+P12+P13+P14+P15+P16+P17+P18+P19+P20+P21+P22+P23+P24+P25+P26+P27+P28+P29+P30+P31+P32+P33+P34+P35+P36+P37+P38+P39+P40+P41+P42+P43+P44+P45+P46+P47+P48+P49+P50+P51; DD:=D1+D2+D3+D4+D5+D6+D7+D8+D9+D10+D11+D12+D13+D14+D15+D16+D17+D18+D19+D20+D21+D22+D23+D24+D25+D26+D27+D28+D29+D30+D31+D32+D33+D34+D35+D36+D37+D38+D39+D40+D41+D42+D43+D44+D45+D46+D47+D48+D49+D50+D51; N:=BARSLAST(H1); N1:=BARSLAST(L1); F:=IF(H1>0,(H1-REF(H1,N))/N,0); F1:=IF(L1>0,(L1-REF(L1,N1))/N1,0); DRAWSL(H1>0&&H2<REF(H2,1),H2,F,1,2,COLORMAGENTA); DRAWSL(L1>0&&L2>REF(L2,1),L2,F1,1,2,COLORGREEN); POLYLINE(H1>0,H2,COLORMAGENTA); POLYLINE(L1>0,L2,COLORGREEN); 上一篇: 文華軟件2007下載 下一篇:日內(nèi)均價交易模型 |
|
來自: zhoufan879 > 《程序》