一次元配列内の数値を補正する

用途・目的

折れ線グラフを表示して、山の頂点から下までの高さの数値が欲しい時があります。
しかしデータの取り方によってはそのグラフが傾いていて、そのままでは知りたい部分の数値が分からないことがあります。
グラフの両端の値が等しくなるように傾きを計算して補正するサンプルを作成しました。

イメージ

↑のように表示される数値を↓のように表示されるよう補正します。

ソース 傾き補正=function(arr1D){ // 1次元配列の傾きを補正する var X=arr1D[LEN]-1, rad=Math.atan2(整数化([arr1D[X],arr1D[0]],function(arr){return arr[0]-arr[1]}), X), min=Math.min.apply(null,arr1D), newArr=[] for0L(arr1D,function(i,num){ newArr[i] = 整数化({min:min, v:v}, function(obj){return obj.v - obj.min}) - X*Math.tan(rad) }) return newArr }

サンプル 傾き補正=function(arr1D){ // 1次元配列の傾きを補正する var X=arr1D[LEN]-1, rad=Math.atan2(整数化([arr1D[X],arr1D[0]],function(arr){return arr[0]-arr[1]}), X), min=Math.min.apply(null,arr1D), newArr=[] for0L(arr1D,function(i,num){ newArr[i] = 整数化({min:min, num:num}, function(obj){return obj.num - obj.min}) - i*Math.tan(rad) }) // 最小値が0になるようにする var min=Math.min.apply(null,newArr) for0L(newArr,function(i,num){newArr[i] = 整数化({num:num,min:min},function(obj){return obj.num-obj.min})}) return newArr } LEN='length' for0L = function(arr,fun){for(var i=0,L=arr[LEN],res;i<L;i++){if(res=fun(i,arr[i])){return res}}} forIn = function(obj,fun){var name,res; for(name in obj){if(res=fun(name, obj[name])){return res}}} 整数化=function(){ var regDot=/\.(\d+)/, regE=/\.(\d+)e-(\d+)/, arr, arrL, obj0 var getObj=function(num){ var str=num+'', 桁数=0 while(1){ if(str.match(regE )){ 桁数=RegExp.$2-(-3) ; str=str.replace(regE ,'$1'); break } if(str.match(regDot)){ 桁数=RegExp.$1.length; str=str.replace(regDot,'$1'); break } break } return {元:num, str:str, 桁数:arr[arrL++]=桁数} } return function(obj, func){ arr = [] arrL = 0 obj0 = {} forIn(obj,function(name, v){ obj0[name] = getObj(v) }) var max=Math.max.apply(null, arr), obj1={} forIn(obj0,function(name, v){ obj1[name] = (v.str + Array(max-v.桁数+1).join(0)) - 0 // 万が一整数化に失敗した場合はどのような値で失敗したのか通知する。 if(0<(''+obj1[name]).indexOf('.')){ alert('整数化失敗\n'+obj1[name]+'\nstr:'+v.str) } }) return func(obj1) / (1+Array(max+1).join(0)) } }() prompt('res',傾き補正([0.2401,0.2413,0.241,0.2397,0.2384,0.2352,0.2313]))