my_rolling_statistics

function rolling_Mat = my_rolling_statistics(target_Mat, Split_length)
  #target_Mat : spliting target_Mat
  # Split_length : spliting length
  # EX) my_rolling_statistics(End_Price, 30)
  data_len = length(target_Mat)
  
  #final : last split point
  final = ceil((data_len -Split_length));
  split_Mat = zeros(final, Split_length);

  for i = 1 : final
##    temp_split = End_Price(i:i+Split_length);
##    split_Mat = [split_Mat; temp_split'];
    split_Mat(i,:)=target_Mat(i:i+Split_length-1);
  endfor

##  rolling_Mat = [];
  rolling_Mat = zeros(final,4);
  for i = 1 : final
    rolling_mean = my_mean(split_Mat(i,:));  
    rolling_var = my_var(split_Mat(i,:));    
    rolling_std = my_std(split_Mat(i,:));   
    rolling_rms = my_rms(split_Mat(i,:));   
    #rolling_Mat = [rolling_Mat ; rolling_mean rolling_var rolling_std rolling_rms];
    rolling_Mat(i,:) = [rolling_mean rolling_var rolling_std rolling_rms];
  endfor

endfunction