注意：本指标源码用于通达信、通达信金融终端和通达信期货通。
|
JN1:=CONST(LLVBARS(LOW,10)); JN2:=CONST(REF(HIGH,JN1)); JN3:=CONST(CURRBARSCOUNT); JN4:=CONST(BARSLAST(CURRBARSCOUNT>JN3+JN1 AND H>JN2)); JN5:=CONST(REF(HIGH,JN4)); JN6:=CONST(BARSLAST(CURRBARSCOUNT>JN3+JN4 AND HIGH>JN5)); JN7:=CONST(REF(HIGH,JN6)); DRAWLINE(CURRBARSCOUNT=JN6+1, JN7, ISLASTBAR, JN7,1),LINETHICK1,COLOR80FF80; T:=180; JN9:=5; JN10:=REF(HHV(H,T),JN9); JN11:=REF(LLV(L,T),JN9); JN12:=JN10-(JN10-JN11)*0.191; JN13:=JN10-(JN10-JN11)*0.382; JN14:=JN10-(JN10-JN11)*0.5; JN15:=JN10-(JN10-JN11)*0.618; JN16:=JN10-(JN10-JN11)*0.764; JN17:=JN10-(JN10-JN11)*0.809; JN18:=JN10-(JN10-JN11)*0.236; JN19:=JN10+(JN10-JN11)*0.191; JN20:=JN10+(JN10-JN11)*0.382; JN21:=JN10+(JN10-JN11)*0.618; JN22:=IF((JN10-JN11)<JN11,JN11-(JN10-JN11)*0.191,JN11-JN11*0.191); JN23:=IF((JN10-JN11)<JN11,JN11-(JN10-JN11)*0.382,JN11-JN11*0.382); JN24:=IF((JN10-JN11)<JN11,JN11-(JN10-JN11)*0.618,JN11-JN11*0.618); 高:=IF(CURRBARSCOUNT<=T+JN9 AND CURRBARSCOUNT>JN9,REFDATE(JN10,DATE),DRAWNULL); 一:=IF(CURRBARSCOUNT<=T+JN9,REFDATE(JN12,DATE),DRAWNULL); 二:=IF(CURRBARSCOUNT<=T+JN9,REFDATE(JN13,DATE),DRAWNULL); 三:=IF(CURRBARSCOUNT<=T+JN9,REFDATE(JN14,DATE),DRAWNULL); 四:=IF(CURRBARSCOUNT<=T+JN9,REFDATE(JN15,DATE),DRAWNULL); 五:=IF(CURRBARSCOUNT<=T+JN9,REFDATE(JN16,DATE),DRAWNULL); 六:=IF(CURRBARSCOUNT<=T+JN9,REFDATE(JN17,DATE),DRAWNULL); 七:=IF(CURRBARSCOUNT<=T+JN9,REFDATE(JN18,DATE),DRAWNULL); 低:=IF(CURRBARSCOUNT<=T+JN9 AND CURRBARSCOUNT>JN9,REFDATE(JN11,DATE),DRAWNULL); JN34:高,COLOR007799; JN35:REFDATE(一,DATE),DOTLINE,COLOR555555; JN36:REFDATE(二,DATE),DOTLINE,COLOR005858; JN37:REFDATE(三,DATE),DOTLINE,COLOR777777; JN38:REFDATE(四,DATE),DOTLINE,COLOR005858; JN39:REFDATE(五,DATE),DOTLINE,COLOR555555; JN40:REFDATE(六,DATE),DOTLINE,COLOR555555; JN41:REFDATE(七,DATE),DOTLINE,COLOR555555; JN42:低,COLOR668800; JN43:=INTPART(T*0.5)+JN9; JN44:=(CURRBARSCOUNT=JN43); JN45:=(CURRBARSCOUNT=JN43-32); JN46:=(CURRBARSCOUNT=JN43-40); DRAWTEXT(JN44 AND 高,高-(高-低)*0.025,STRCAT(‘ 【JN57】:’,CON2STR(JN10,2))),COLOR007799; DRAWTEXT(JN44 AND 一,一+(高-低)*0.020,STRCAT(‘191 (809):’,CON2STR(JN12,2))),COLOR888888; DRAWTEXT(JN44 AND 二,二+(高-低)*0.020,STRCAT(‘382 (618):’,CON2STR(JN13,2))),COLOR008888; DRAWTEXT(JN44 AND 三,三+(高-低)*0.020,STRCAT(‘ 【中点】:’,CON2STR(JN14,2))),COLOR000088; DRAWTEXT(JN44 AND 四,四+(高-低)*0.020,STRCAT(‘618 (382):’,CON2STR(JN15,2))),COLOR008888; DRAWTEXT(JN44 AND 五,五+(高-低)*0.020,STRCAT(‘764 (236):’,CON2STR(JN16,2))),COLOR888888; DRAWTEXT(JN44 AND 六,六+(高-低)*0.020,STRCAT(‘809 (191):’,CON2STR(JN17,2))),COLOR888888; DRAWTEXT(JN44 AND 七,七+(高-低)*0.020,STRCAT(‘236 (764):’,CON2STR(JN18,2))),COLOR888888; DRAWTEXT(JN44 AND 低,低+(高-低)*0.020,STRCAT(‘ 【JN56】:’,CON2STR(JN11,2))),COLOR668800; DRAWTEXT(JN46 AND 高,高+(高-低)*0.040,”),COLOR007799; ; JN56:=800; JN57:=800; JN58:=1; JN59:=1; JN60:=1; JN61:=CONST(FINDHIGH(H,0,JN57*10,1)); JN62:=CONST(BARSLAST(JN61=H))+1; JN63:=CONST(IF(JN62=1,H,REF(H,JN62-1))); JN64:=CONST(FINDLOW(L,0,JN56*10,1)); JN65:=CONST(BARSLAST(JN64=L))+1; JN66:=CONST(IF(JN65=1,L,REF(L,JN65-1))); JN67:=JN58=2 OR JN58=2; JN68:=JN58=1 OR JN58=1; JN69:=JN58=1 OR JN58=1 OR JN58=1; JN70:=IF(JN67,ROUND(IF(JN62>JN65,JN62,JN65)-ABS(JN62-JN65)*0.809),DRAWNULL); JN71:=IF(JN69,ROUND(IF(JN62>JN65,JN62,JN65)-ABS(JN62-JN65)*0.5),DRAWNULL); JN72:=IF(JN67,ROUND(IF(JN62>JN65,JN62,JN65)-ABS(JN62-JN65)*0.618),DRAWNULL); JN73:=IF(JN67,ROUND(IF(JN62>JN65,JN62,JN65)-ABS(JN62-JN65)*0.382),DRAWNULL); JN74:=IF(JN67,ROUND(IF(JN62>JN65,JN62,JN65)-ABS(JN62-JN65)*0.236),DRAWNULL); JN75:=IF(JN69,ROUND(IF(JN62>JN65,JN62,JN65)-ABS(JN62-JN65)*1),DRAWNULL); JN76:=IF(JN67,ROUND(IF(JN62>JN65,JN62,JN65)-ABS(JN62-JN65)*1.809),DRAWNULL); JN77:=IF(JN69,ROUND(IF(JN62>JN65,JN62,JN65)-ABS(JN62-JN65)*1.5),DRAWNULL); JN78:=IF(JN67,ROUND(IF(JN62>JN65,JN62,JN65)-ABS(JN62-JN65)*1.618),DRAWNULL); JN79:=IF(JN67,ROUND(IF(JN62>JN65,JN62,JN65)-ABS(JN62-JN65)*1.382),DRAWNULL); JN80:=IF(JN67,ROUND(IF(JN62>JN65,JN62,JN65)-ABS(JN62-JN65)*1.236),DRAWNULL); JN81:=IF(JN69,ROUND(IF(JN62>JN65,JN62,JN65)-ABS(JN62-JN65)*2),DRAWNULL); JN82:=IF(JN67,ROUND(IF(JN62>JN65,JN62,JN65)-ABS(JN62-JN65)*2.236),DRAWNULL); JN83:=IF(JN67,ROUND(IF(JN62>JN65,JN62,JN65)-ABS(JN62-JN65)*2.382),DRAWNULL); JN84:=IF(JN69,ROUND(IF(JN62>JN65,JN62,JN65)-ABS(JN62-JN65)*2.5),DRAWNULL); JN85:=IF(JN67,ROUND(IF(JN62>JN65,JN62,JN65)-ABS(JN62-JN65)*2.618),DRAWNULL); JN86:=IF(JN67,ROUND(IF(JN62>JN65,JN62,JN65)-ABS(JN62-JN65)*2.809),DRAWNULL); JN87:=IF(JN69,ROUND(IF(JN62>JN65,JN62,JN65)-ABS(JN62-JN65)*3),DRAWNULL); JN88:=IF(JN69,ROUND(IF(JN62>JN65,JN62,JN65)),DRAWNULL); JN89:=CURRBARSCOUNT=JN70 OR CURRBARSCOUNT=JN71 OR CURRBARSCOUNT=JN72 OR CURRBARSCOUNT=JN73 OR CURRBARSCOUNT=JN74 OR CURRBARSCOUNT=JN75 OR CURRBARSCOUNT=JN76 OR CURRBARSCOUNT=JN77 OR CURRBARSCOUNT=JN78 OR CURRBARSCOUNT=JN79 OR CURRBARSCOUNT=JN80 OR CURRBARSCOUNT=JN81 OR CURRBARSCOUNT=JN82 OR CURRBARSCOUNT=JN83 OR CURRBARSCOUNT=JN84 OR CURRBARSCOUNT=JN85 OR CURRBARSCOUNT=JN86 OR CURRBARSCOUNT=JN87 OR CURRBARSCOUNT=JN88; JN90:=IF(JN68,ROUND(IF(JN62>JN65,JN62,JN65)-ABS(JN62-JN65)*1/8),DRAWNULL); JN91:=IF(JN68,ROUND(IF(JN62>JN65,JN62,JN65)-ABS(JN62-JN65)*2/8),DRAWNULL); JN92:=IF(JN68,ROUND(IF(JN62>JN65,JN62,JN65)-ABS(JN62-JN65)*3/8),DRAWNULL); JN93:=IF(JN68,ROUND(IF(JN62>JN65,JN62,JN65)-ABS(JN62-JN65)*4/3),DRAWNULL); JN94:=IF(JN68,ROUND(IF(JN62>JN65,JN62,JN65)-ABS(JN62-JN65)*5/8),DRAWNULL); JN95:=IF(JN68,ROUND(IF(JN62>JN65,JN62,JN65)-ABS(JN62-JN65)*6/8),DRAWNULL); JN96:=IF(JN68,ROUND(IF(JN62>JN65,JN62,JN65)-ABS(JN62-JN65)*7/8),DRAWNULL); JN97:=IF(JN68,ROUND(IF(JN62>JN65,JN62,JN65)-ABS(JN62-JN65)*9/8),DRAWNULL); JN98:=IF(JN68,ROUND(IF(JN62>JN65,JN62,JN65)-ABS(JN62-JN65)*1/3),DRAWNULL); JN99:=IF(JN68,ROUND(IF(JN62>JN65,JN62,JN65)-ABS(JN62-JN65)*2/3),DRAWNULL); JN100:=IF(JN68,ROUND(IF(JN62>JN65,JN62,JN65)-ABS(JN62-JN65)*10/8),DRAWNULL); JN101:=IF(JN68,ROUND(IF(JN62>JN65,JN62,JN65)-ABS(JN62-JN65)*11/8),DRAWNULL); JN102:=IF(JN68,ROUND(IF(JN62>JN65,JN62,JN65)-ABS(JN62-JN65)*5/3),DRAWNULL); JN103:=IF(JN68,ROUND(IF(JN62>JN65,JN62,JN65)-ABS(JN62-JN65)*13/8),DRAWNULL); JN104:=IF(JN68,ROUND(IF(JN62>JN65,JN62,JN65)-ABS(JN62-JN65)*14/8),DRAWNULL); JN105:=IF(JN68,ROUND(IF(JN62>JN65,JN62,JN65)-ABS(JN62-JN65)*15/8),DRAWNULL); JN106:=IF(JN68,ROUND(IF(JN62>JN65,JN62,JN65)-ABS(JN62-JN65)*17/8),DRAWNULL); JN107:=IF(JN68,ROUND(IF(JN62>JN65,JN62,JN65)-ABS(JN62-JN65)*18/8),DRAWNULL); JN108:=IF(JN68,ROUND(IF(JN62>JN65,JN62,JN65)-ABS(JN62-JN65)*19/8),DRAWNULL); JN109:=IF(JN68,ROUND(IF(JN62>JN65,JN62,JN65)-ABS(JN62-JN65)*21/8),DRAWNULL); JN110:=IF(JN68,ROUND(IF(JN62>JN65,JN62,JN65)-ABS(JN62-JN65)*22/8),DRAWNULL); JN111:=IF(JN68,ROUND(IF(JN62>JN65,JN62,JN65)-ABS(JN62-JN65)*23/8),DRAWNULL); JN112:=IF(JN68,ROUND(IF(JN62>JN65,JN62,JN65)-ABS(JN62-JN65)*7/3),DRAWNULL); JN113:=IF(JN68,ROUND(IF(JN62>JN65,JN62,JN65)-ABS(JN62-JN65)*8/3),DRAWNULL); JN114:=CURRBARSCOUNT=JN90 OR CURRBARSCOUNT=JN91 OR CURRBARSCOUNT=JN92 OR CURRBARSCOUNT=JN93 OR CURRBARSCOUNT=JN94 OR CURRBARSCOUNT=JN95 OR CURRBARSCOUNT=JN96 OR CURRBARSCOUNT=JN97 OR CURRBARSCOUNT=JN98 OR CURRBARSCOUNT=JN99 OR CURRBARSCOUNT=JN100 OR CURRBARSCOUNT=JN101 OR CURRBARSCOUNT=JN102 OR CURRBARSCOUNT=JN103 OR CURRBARSCOUNT=JN104 OR CURRBARSCOUNT=JN105 OR CURRBARSCOUNT=JN106 OR CURRBARSCOUNT=JN107 OR CURRBARSCOUNT=JN108 OR CURRBARSCOUNT=JN109 OR CURRBARSCOUNT=JN110 OR CURRBARSCOUNT=JN111 OR CURRBARSCOUNT=JN112 OR CURRBARSCOUNT=JN113 ; STICKLINE(JN89 OR JN114 ,JN63,JN66,0,0),COLORMAGENTA; DRAWKLINE(H,O,L,C); JN115:=IF(JN59=5 AND JN58=5,DRAWNULL,JN63),COLORMAGENTA; JN116:=IF(JN59=5 AND JN58=5,DRAWNULL,JN66),COLORMAGENTA; JN117:JN115,COLORMAGENTA; JN118:JN116,COLORMAGENTA; DRAWTEXT(CURRBARSCOUNT=JN90 OR CURRBARSCOUNT=JN97 OR CURRBARSCOUNT=JN106,JN63*0.98,’1/8′)COLORMAGENTA; DRAWTEXT(CURRBARSCOUNT=JN91 OR CURRBARSCOUNT=JN100 OR CURRBARSCOUNT=JN107,JN63*0.98,’2/8′)COLORMAGENTA; DRAWTEXT(CURRBARSCOUNT=JN92 OR CURRBARSCOUNT=JN101 OR CURRBARSCOUNT=JN108,JN63*0.98,’3/8′)COLORMAGENTA; DRAWTEXT(CURRBARSCOUNT=JN94 OR CURRBARSCOUNT=JN103 OR CURRBARSCOUNT=JN109,JN63*0.98,’5/8′)COLORMAGENTA; DRAWTEXT(CURRBARSCOUNT=JN95 OR CURRBARSCOUNT=JN104 OR CURRBARSCOUNT=JN110,JN63*0.98,’6/8′)COLORMAGENTA; DRAWTEXT(CURRBARSCOUNT=JN96 OR CURRBARSCOUNT=JN105 OR CURRBARSCOUNT=JN111,JN63*0.98,’7/8′)COLORMAGENTA; DRAWTEXT(CURRBARSCOUNT=JN98 OR CURRBARSCOUNT=JN93 OR CURRBARSCOUNT=JN112,JN63*0.98,’1/3′)COLORMAGENTA; DRAWTEXT(CURRBARSCOUNT=JN99 OR CURRBARSCOUNT=JN102 OR CURRBARSCOUNT=JN113,JN63*0.98,’2/3′)COLORMAGENTA; JN119:=70; JN120:=70; JN121:=600; JN122:=600; JN123:=3; JN124:=100; JN125:=CURRBARSCOUNT; JN126:=CONST(FINDHIGH(H,0,JN121*10,1)); JN127:=CONST(BARSLAST(JN126=H))+1; JN128:=CONST(IF(JN127=1,H,REF(H,JN127-1))); JN129:=CONST(FINDLOW(L,0,JN122*10,1)); JN130:=CONST(BARSLAST(JN129=L))+1; JN131:=CONST(IF(JN130=1,L,REF(L,JN130-1))); JN132:=BARSSINCE(BACKSET(ISLASTBAR,BARSLAST(L=JN131)+1)); JN133:=BARSSINCE(BACKSET(ISLASTBAR,BARSLAST(H=JN128)+1)); JN134:=IF(JN123=1,JN133,IF(JN123=2,JN132,IF(JN123=3,JN132,JN133))); JN135:=JN120/IF(C<300,1000,10); JN136:=IF(JN123=1,JN133,IF(JN123=2,JN132,IF(JN123=3,JN133,JN132))); JN137:=JN119/IF(C<300,1000,10); JN138:=JN128; JN139:=JN131; K:=(JN138-JN139)/(IF(JN133>=JN132,JN133,JN132)-IF(JN133>=JN132,JN132,JN133)); JN141:=IF(JN139+CONST(JN135*4.00)*JN134>=JN139,JN139+CONST(JN135*4.00)*JN134,DRAWNULL); JN142:=IF(JN139+CONST(JN135*2.00)*JN134>=JN139,JN139+CONST(JN135*2.00)*JN134,DRAWNULL); JN143:=IF(JN139+CONST(JN135*1.5)*JN134>=JN139,JN139+CONST(JN135*1.5)*JN134,DRAWNULL); JN144:=IF(JN139+CONST(JN135*1.00)*JN134>=JN139,JN139+CONST(JN135*1.000)*JN134,DRAWNULL); JN145:=IF(JN139+CONST(JN135*0.70)*JN134>=JN139,JN139+CONST(JN135*0.70)*JN134,DRAWNULL); JN146:=IF(JN139+CONST(JN135*0.50)*JN134>=JN139,JN139+CONST(JN135*0.50)*JN134,DRAWNULL); JN147:=IF(JN139+CONST(JN135*0.365)*JN134>=JN139,JN139+CONST(JN135*0.365)*JN134,DRAWNULL); JN148:=IF(JN139+CONST(JN135*0.250)*JN134>=JN139,JN139+CONST(JN135*0.250)*JN134,DRAWNULL); JN149:=IF(JN139+CONST(JN135*0.165)*JN134>=JN139,JN139+CONST(JN135*0.165)*JN134,DRAWNULL); JN150:=IF(JN139+CONST(JN135*0.123)*JN134>=JN139,JN139+CONST(JN135*0.123)*JN134,DRAWNULL); JN151:=IF(JN139+CONST(JN135*0.06)*JN134>=JN139,JN139+CONST(JN135*0.06)*JN134,DRAWNULL); JN152:IF(JN151<=JN138*1.05,JN151,DRAWNULL),COLORAA00AA,COLORRED; JN153:IF(JN150<=JN138*1.05,JN150,DRAWNULL),COLORAA00AA,COLORRED; JN154:IF(JN149<=JN138*1.05,JN149,DRAWNULL),COLORAA00AA,COLORRED; JN155:IF(JN148<=JN138*1.05,JN148,DRAWNULL),COLORAA00AA,COLORRED; JN156:IF(JN147<=JN138*1.05,JN147,DRAWNULL),COLORAA00AA,COLORRED; JN157:IF(JN146<=JN138*1.05,JN146,DRAWNULL),COLOR0000FF,COLORYELLOW; JN158:IF(JN145<=JN138*1.05,JN145,DRAWNULL),COLORAA00AA,COLORRED; JN159:IF(JN144<=JN138*1.05,JN144,DRAWNULL),COLORAA00AA,COLORRED; JN160:IF(JN143<=JN138*1.05,JN143,DRAWNULL),COLORAA00AA,COLORRED; JN161:IF(JN142<=JN138*1.05,JN142,DRAWNULL),COLORAA00AA,COLORRED; 上:IF(JN141<=JN138*1.05,JN141,DRAWNULL),COLORAA00AA,COLORRED; JN163:=IF(JN138-CONST(JN137*4.00)*JN136<=JN138,JN138-CONST(JN137*4.00)*JN136,DRAWNULL); JN164:=IF(JN138-CONST(JN137*2.00)*JN136<=JN138,JN138-CONST(JN137*2.00)*JN136,DRAWNULL); JN165:=IF(JN138-CONST(JN137*1.500)*JN136<=JN138,JN138-CONST(JN137*1.500)*JN136,DRAWNULL); JN166:=IF(JN138-CONST(JN137*1.000)*JN136<=JN138,JN138-CONST(JN137*1.000)*JN136,DRAWNULL); JN167:=IF(JN138-CONST(JN137*0.70)*JN136<=JN138,JN138-CONST(JN137*0.70)*JN136,DRAWNULL); JN168:=IF(JN138-CONST(JN137*0.50)*JN136<=JN138,JN138-CONST(JN137*0.50)*JN136,DRAWNULL); JN169:=IF(JN138-CONST(JN137*0.365)*JN136<=JN138,JN138-CONST(JN137*0.365)*JN136,DRAWNULL); JN170:=IF(JN138-CONST(JN137*0.250)*JN136<=JN138,JN138-CONST(JN137*0.250)*JN136,DRAWNULL); JN171:=IF(JN138-CONST(JN137*0.165)*JN136<=JN138,JN138-CONST(JN137*0.165)*JN136,DRAWNULL); JN172:=IF(JN138-CONST(JN137*0.123)*JN136<=JN138,JN138-CONST(JN137*0.123)*JN136,DRAWNULL); JN173:=IF(JN138-CONST(JN137*0.06)*JN136<=JN138,JN138-CONST(JN137*0.06)*JN136,DRAWNULL); JN174:IF(JN173>=JN139*0.95,JN173,DRAWNULL),COLORAAAAAA,COLORGREEN; JN175:IF(JN172>=JN139*0.95,JN172,DRAWNULL),COLORAAAAAA,COLORGREEN; JN176:IF(JN171>=JN139*0.95,JN171,DRAWNULL),COLORAAAAAA,COLORGREEN; JN177:IF(JN170>=JN139*0.95,JN170,DRAWNULL),COLORAAAAAA,COLORGREEN; JN178:IF(JN169>=JN139*0.95,JN169,DRAWNULL),COLORAAAAAA,COLORGREEN; JN179:IF(JN168>=JN139*0.95,JN168,DRAWNULL),COLOR0000FF,COLORYELLOW; JN180:IF(JN167>=JN139*0.95,JN167,DRAWNULL),COLORAAAAAA,COLORGREEN; JN181:IF(JN166>=JN139*0.95,JN166,DRAWNULL),COLORAAAAAA,COLORGREEN; JN182:IF(JN165>=JN139*0.95,JN165,DRAWNULL),COLORAAAAAA,COLORGREEN; JN183:IF(JN164>=JN139*0.95,JN164,DRAWNULL),COLORAAAAAA,COLORGREEN; 下:IF(JN163>=JN139*0.95,JN163,DRAWNULL),COLORAAAAAA,COLORGREEN; |
发布者：股市刺客，转载请注明出处：https://www.95sca.cn/archives/111168
站内所有文章皆来自网络转载或读者投稿，请勿用于商业用途。如有侵权、不妥之处，请联系站长并出示版权证明以便删除。敬请谅解！
