h::Int->(Int->Double)->(Int->Double)->(Int->Double)->Double->Double
h n is os ms x = sum [os j*(alpha n is j x)+ms j*(beta n is j x)|j<-[0..n]]
h::Int->(Int->Double)->(Int->Double)->(Int->Double)->Double->Double
h n is os ms x = sum [os j*(alpha n is j x)+ms j*(beta n is j x)|j<-[0..n]]
h n is os ms x = sum [os j*(alpha n is j x)+ms j*(beta n is j x)|j<-[0..n]]