私は関数と点集合を持っています。機能は次のとおりです。m
とk
は、問題のパラメータですRまたはPythonを使用して非線形モデルにパラメータ値をどのように適合させるか
s(t) = m*g*t/k-(m*m/(k*k))*(exp(-k*t/m)-1)
。 は、私は私のデータにこの式を合わせてm
最高とk
を見つける必要がある、と私は少しプログラミングの経験を持っている(t, s(t))
のデータを持っています。
R
に簡単に見えた:最高の試みだったこと
df<-read.table("freefall2.txt", header = FALSE, sep = '\t',
strip.white = TRUE, na.strings = "empty")
time<-c(df[1])
position<-c(df[3])
fallData<-data.frame(t=time, position=c(df[3]))
plot(fallData)
m<-60
k<-1
secs=c(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20)
ft=c(16,62,138, 242, 366, 504, 652, 808, 971,
1138, 1309, 1483, 1657, 1831, 2005, 2179, 2353, 2527, 2701, 2875)
jitter(secs)
jitter(ft)
fit<-nls(ft~(m*g*secs/k)+(m^2/k^2)*(exp(-k*secs/m)-1),start = list(k=k,m=m))
、それはスロー:
Error in nlsModel(formula, mf, start, wts) :
singular gradient matrix at initial parameter estimates
ザ・Pythonコード:
def func(t,m,k):
g=32.174
return m*g*t/k-(m*m/(k*k))*(np.exp(-k*t/m)-1)
def plotone():
plt.plot(D[0], D[2], 'b-', label='data')
popt, pcov = curve_fit(func, D[0], D[2])
plt.plot(D[0], func(D[0], *popt), 'r-', label='fit')
popt, pcov = curve_fit(func, D[0], D[2], bounds=(0, [120, 120]))
plt.plot(D[0], func(D[0], *popt), 'g--', label='fit-with-bounds')
plt.xlabel('x')
plt.ylabel('y')
plt.legend()
plt.show()
をそれは線形モデルを生成必要なパラメーター値を戻しませんでした。豊富なレシピサンプリングとPythonで
再起動の試み:
x = D[0]
y = D[2]
ycount = 0
fitfunc = lambda t, m, k: m*32.174*t/k-(m*m/(k*k))*(np.exp(-k*t/m)-1) # Target function
errfunc = lambda t, m, k: fitfunc(t, m, k) - y[ycount]; ycount+=1# Distance to the target function
p0 = [-15., 0.8, 0., -1.] # Initial guess for the parameters
p1, success = optimize.leastsq(errfunc, D[2], args=(x, y))
print(type(p1))
print(type(success))
print(p1, success)
はこの1つは、より有望に見えるが、私は多分それの1/2
を理解しています。私が理解していない部分は、それをプロットするときに私が見ているもの、それに私のモデル関数を与える方法、成功したこと、そして他の多くの問題です。
誰かがx
、y
、およびz
をすれば、これは動作しますと言えば、私はそれを行うだろうが、それはより複雑だと、私は少し時間があるので、それ以外の場合は私はこの1つの明確な舵取りしたいと思います。
私のモデルの機能にこれらのパラメータを適合させるのを助けてください。私はとても混乱しています。
https://docs.scipy.org/doc/scipy-0.19.1/reference/generated/scipy.optimize.curve_fit.html – Mookayama