股市旋进周期公式 [复制链接]

{d1,n,g,三参数需设定。D1：焦点日期。如1010416。
N：“递进扩展”和“倍数扩展”的序列数。 2，3，4，5....
G：因股票价格全部以最小单位“分”来计算频率，１２．２５元即为：１２２５分。所以大盘设定1，个股设定100。}

r1:=sum(if(c>0 and date>=d1,1,0),0);
j1:=if(date>=d1,ref(h*g,r1-1),0);
r:=(DATEDIFF(101+mod(d1/10000,1000)*10000,d1)+1)/360;
t:=ROUND((ROUND(j1)/360-INTPART(ROUND(j1)/360))*6*100)/100;
d2:mod(d1,10000000);
c1:=if(mod(GANZHI(d2,0,2),12)+1=1or mod(GANZHI(d2,0,2),12)+1=7 ,0.9,
if(mod(GANZHI(d2,0,2),12)+1=2or mod(GANZHI(d2,0,2),12)+1=8,0.8,
if(mod(GANZHI(d2,0,2),12)+1=3or mod(GANZHI(d2,0,2),12)+1=9,0.7,
if(mod(GANZHI(d2,0,2),12)+1=4or mod(GANZHI(d2,0,2),12)+1=10,0.6,
if(mod(GANZHI(d2,0,2),12)+1=5or mod(GANZHI(d2,0,2),12)+1=11,0.5,
if(mod(GANZHI(d2,0,2),12)+1=6or mod(GANZHI(d2,0,2),12)+1=12,0.4,0))))));

j2:=if(t<0.25,t+1+c1,if(t>6,(t+c1)/2,t+c1));
基频焦点
{年}:if((r+j2*0.1642746)*12>12,
(1900+mod(d1/10000,1000)+1),1900+mod(d1/10000,1000));
{焦点月:}if(mod((r+j2*0.1642746)*12+1,12)=0,12,mod((r+j2*0.1642746)*12+1,12));
{焦点日:}if(INTPART(mod((r+j2*0.1642746)*1200,100)*0.3)=0,1,
INTPART(mod((r+j2*0.1642746)*1200,100)*0.3));

{“递进扩展”和“倍数扩展”。

递进扩展是在原来的基频数值小数点前加１～∝，比如基频为１．４２，
递进扩展在此基础上递增，为２．４２～３．４２～４．４２～５．４２．．．

倍数扩展是在原来的基频数值上成倍数扩展，比如基频为１．４２，
倍数扩展在此基础上翻倍，为１．４２×２～×３～×４～×５．．． }


{ 1. <<定向插值旋进>> }


{【倍数扩展切入点】}

c2:=n*c1;
j3:=if(t<0.25,t+1+c2,if(t>6,(t+c2)/2,t+c2));
k:=r+j3*0.1642746;
倍数焦点
{年}:if(k*12>12,
(1900+mod(d1/10000,1000)+1),1900+mod(d1/10000,1000));
{倍数焦点月:}if(mod(k*12+1,12)=0,12,mod(k*12+1,12));
{倍数焦点日:}if(INTPART(mod(k*1200,100)*0.3)=0,1,
INTPART(mod(k*1200,100)*0.3));


{【递进扩展切入点】}
c3:=n+c1;
j4:=if(t<0.25,t+1+c3,if(t>6,(t+c3)/2,t+c3));
k1:=r+j4*0.1642746;
递进焦点
{年}:if(k1*12>12,
(1900+mod(d1/10000,1000)+1),1900+mod(d1/10000,1000));
{递进焦点月:}if(mod(k1*12+1,12)=0,12,mod(k1*12+1,12));
{递进焦点日:}if(INTPART(mod(k1*1200,100)*0.3)=0,1,
INTPART(mod(k1*1200,100)*0.3));

焦点:if(({基频焦点}YEAR=if((r+j2*0.1642746)*12>12,
(1900+mod(d1/10000,1000)+1),1900+mod(d1/10000,1000))and month=
if(mod((r+j2*0.1642746)*12+1,12)=0,12,mod((r+j2*0.1642746)*12+1,12))and
day=if(INTPART(mod((r+j2*0.1642746)*1200,100)*0.3)=0,1,
INTPART(mod((r+j2*0.1642746)*1200,100)*0.3)))or

{倍数焦点}
(YEAR=if(k*12>12,
(1900+mod(d1/10000,1000)+1),1900+mod(d1/10000,1000))and
month=if(mod(k*12+1,12)=0,12,mod(k*12+1,12))and
day=if(INTPART(mod(k*1200,100)*0.3)=0,1,
INTPART(mod(k*1200,100)*0.3)))or

{递进焦点}
(YEAR=if(k1*12>12,
(1900+mod(d1/10000,1000)+1),1900+mod(d1/10000,1000))and
month=if(mod(k1*12+1,12)=0,12,mod(k1*12+1,12))and
day=if(INTPART(mod(k1*1200,100)*0.3)=0,1,
INTPART(mod(k1*1200,100)*0.3))),1000000,0);


DRAWICON(焦点=1000000,焦点,1);

{以上有几个方面需要特别注意，一个方面：当焦点基频小于０．２５时，
小数点前自动加１，也就是说０．１２的频率取为１．１２来使用。
另一个方面：当某个焦点基频大于６时，其切入点显得太远，
我们可以把基频以倍数形式降频使用，比如基频为６．５，
插值为０．６则降频为（６．５＋０．６）÷２＝３．５５来使用。
股票价格全部以最小单位“分”来计算频率，１２．２５元即为：１２２５分。}



{ << 旋进周期的焦点定位和判定 >>}

{运用历史焦点演绎未来周期切入点，旋进周期可以依据倍数扩展演绎未来的周期切入点，
但在真正实战过程中我们无需了解太久远的周期切入点，所以在此注重历史焦点对应于一年
或二年内的切入点，在计算上我们可以从以下几个旋进方法进行切入点的捕捉：

焦点定位：

１．短期演绎——选择年内连续的三个高位焦点和连续的三个低位焦点演绎未来切入点，
取六个参数，当程序选取第七个焦点参数时自动将第一个焦点参数剔除。

２．长期演绎——纪录历史上大底大顶的焦点以倍数形式切入未来焦点，演绎到未来所
需要了解的时期，连续选用六个焦点参数，当程序选取第七个焦点参数时自动将第一个
焦点参数剔除。

焦点的选用是依据高低高低的连续波段次序进行，最好不要跳作选波段焦点。

选择年内焦点一定要围绕年内最高和年内最低的峰谷焦点，演绎未来周期切入点。测算
短期波段转向和震荡区间可以选择近期的小波段转向焦点进行演绎。

焦点判定：

１．当短期演绎焦点和长期演绎焦点在三个自然日内相交，则可留意可能确立的转向焦
点。

２．当连续的短期焦点切入同一个旬期内，则可留意该区域密集成交并可能造成转向。

３．当多个历史焦点切入同一个旬期内，则可留意可能确立的转向区域。

４．当多个历史焦点和短期焦点切入同一个旬期内，则可留意可能确立的转向区域。

５．当短期切入点的趋势处在均线压制或支撑的局面时，则可以留意原来态势会呈加速
态势。

６．使用太极成本流来纠正周期误差并确认焦点转向的确立。 }

旋进周期公式下载
2003122323162989974.rar

okok

顶

哈哈

好

好