飞狐螺旋周期法副图指标

飞狐螺旋周期法副图指标

源码

input:N(6,0,100),年(1999,1990,2050),月(5,1,12),日(19,1,31),M(1,0,50);
VAR1:=((BARSLAST((LOW = LLV(LOW,300))) * 3.142) / 180);
A2:SIN((VAR1 * N));
A3:COS((VAR1 * N));
(INTPART(VAR1) = 60);
(INTPART(VAR1) = 120);
BB:=1;
IF  (年 <= 1999)  THEN
BB:=(10000 * (年 - 1900));
IF  (年 >= 2000)  THEN
BB:=(1000000 + (10000 * (年 - 2000)));
BB:=((BB + (月 * 100)) + 日);
BB:=DATE;
CC:=DATEDIFF(BB,DATE);
螺旋线1:((((((((((CC = (0 * M)) OR (CC = (30 * M))) OR (CC = (42 * M))) OR (CC = (51 * M))) OR (CC = (66 * M))) OR (CC = (84 * M))) OR (CC = (106 * M))) OR (CC = (135 * M))) OR (CC = (172 * M))) OR (CC = (219 * M)));
螺旋线2:(((((((((CC = (279 * M)) OR (CC = (354 * M))) OR (CC = (451 * M))) OR (CC = (573 * M))) OR (CC = (729 * M))) OR (CC = (928 * M))) OR (CC = (1180 * M))) OR (CC = (1501 * M))) OR (CC = (1909 * M)));
螺旋线3:(((((((((CC = (2429 * M)) OR (CC = (3090 * M))) OR (CC = (3930 * M))) OR (CC = (4999 * M))) OR (CC = (6359 * M))) OR (CC = (8089 * M))) OR (CC = (10289 * M))) OR (CC = (16648 * M))) OR (CC = (13088 * M)));