R語言A股股票小參數計算的方法-創新互聯

這篇“R語言A股股票小參數計算的方法”文章的知識點大部分人都不太理解，所以小編給大家總結了以下內容，內容詳細，步驟清晰，具有一定的借鑒價值，希望大家閱讀完這篇文章能有所收獲，下面我們一起來看看這篇“R語言A股股票小參數計算的方法”文章吧。

成都創新互聯公司是一家專業提供襄城企業網站建設,專注與網站設計制作、成都網站制作、成都h5網站建設、小程序制作等業務。10年已為襄城眾多企業、政府機構等服務。創新互聯專業網站制作公司優惠進行中。

libname yu "E:\yugao\時間跨度相關\TXT";
*sh700000數據測試;
data test;
  set yu.tar(rename=(var1=date 
                  var2=open 
                  var3=high 
                  var4=low
				  var5=close
				  var6=volume
				  var7=amount));
   drop amount;
run;
*計算R參數，R(21)=C(t)/C(t-21),當i<21時,R=C(t)/C(t-i);
proc expand data=test out=test_r1 method=none;
   by id;
   convert close = lag21_close / transformout = (lag 21);
run;
data test_r2;
     set test_r1;
	 by id;
	 r=close/lag21_close;
	 if first.id then close1=close;
     retain close1;
     if r=. then r=close/close1;
     drop close1;
run;


*計算參數S(N*4.236,n,m),N窗口期，n移動平均天數，m再次移動平均天數，例如S(55，13，3)
公式：S1=(C(t)-L(T))/(H(T)-L(T)),其中t當天，T：窗口期內
     S2=MA13(S1)13天的移動平均
	 S3=MA3(S2) 3天地移動平均（最終參數）;
proc expand data=test out=test_s1 method=none;
      by id;
      convert close = h_close / transformin=(movmax 55 );
      convert close = l_close / transformin=(movmin 55 );
      run; 
data test_s2;
   set test_s1;
   s1=(close - l_close)/(h_close - l_close);
   run;
  
proc expand data=test_s2 out=test_s3 method=none;
   by id;
   convert s1=s2  / transformout=(movave 13);
   run;
proc expand data=test_s3 out=test_s4 method=none;
   by id;
   convert s2=s / transformout=(movave 3);
run;


*計算參數B(13,55,3);
*HP(t)=max(high(t),close(t-1))取較大值	；
*LP(t)=min(Low(t),close(t-1))取最小值 ；
*BULL1=((Close-open)+(open-LP)-(HP-Close))/(HP-LP)；
*BULL2=SUM13(BULL1) 13天地求和；
*BULL3=MA55(BULL2)  55天移動平均；
*BULL=MA3(BULL3)   3天移動平均(最終參數);
proc expand data=test out=test_b1 method=none;
      by id;
      convert close=lag_close / transformout=(lag 1 );
	  run;

data test_b2;
   set test_b1;
   by id;
   hp=max(of high lag_close);
   lp=min(of low lag_close);
   bull1=((close-open)+(open-lp)-(hp-close))/(hp-lp);
run;
proc expand data=test_b2 out=test_b3 method=none;
   convert bull1=bull2 / transformout=( movsum 13 );
run;
proc expand data=test_b3 out=test_b4 method=none;
   convert bull2=bull3 / transformout=( movave 55 );
run;
proc expand data=test_b4 out=test_b5 method=none;
   convert bull3=bull / transformout=( movave 3 );
run;

*計算V1,V2參數
*v(t)當天的成交量
*計算v(t)的55天移動平均:MA55(v)
*dif(t)= ABS(v(t)-MA55(v))
*m(t)=v(t)/1.618*dif(t-1);
proc expand data=test out=test_v11 method=none;
   by id;
   convert volume=v_ma55 / transformout=(movave 55);
run;
data test_v12;
   set test_v11;
   v_dif=abs(volume-v_ma55); 
   v_m=volume/(1.618*v_dif);
run;
*V2參數計算;
*計算參數V2(N*4.236,n,m),N窗口期，n移動平均天數，m再次移動平均天數，例如v2(55，13，3)
公式：v21=(C(t)-L(T))/(H(T)-L(T)),其中t當天，T：窗口期內
     v22=MA13(S1)13天的移動平均
	 v23=MA3(S2) 3天地移動平均（最終參數）;
proc expand data=test out=test_v21 method=none;
      by id;
      convert volume = h_volume / transformin=(movmax 55 );
      convert volume = l_volume / transformin=(movmin 55 );
      run; 
data test_v22;
   set test_v21;
   v21=(volume - l_volume)/(h_volume - l_volume);
   
   run;
  
proc expand data=test_v22 out=test_v23 method=none;
   by id;
   convert v21=v22  / transformout=(movave 13);
   run;
proc expand data=test_v23 out=test_v24 method=none;
   by id;
   convert v22=v2 / transformout=(movave 3);
run;

以上就是關于“R語言A股股票小參數計算的方法”這篇文章的內容，相信大家都有了一定的了解，希望小編分享的內容對大家有幫助，若想了解更多相關的知識內容，請關注創新互聯行業資訊頻道。

分享標題：R語言A股股票小參數計算的方法-創新互聯
標題網址：http://m.kartarina.com/article2/cciioc.html

成都網站建設公司_創新互聯，為您提供定制網站、網站導航、做網站、企業建站、外貿建站、微信公眾號

聲明：本網站發布的內容（圖片、視頻和文字）以用戶投稿、用戶轉載內容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網站立場，如需處理請聯系客服。電話：028-86922220；郵箱：631063699@qq.com。內容未經允許不得轉載，或轉載時需注明來源：創新互聯

猜你還喜歡下面的內容