ミカエリス-メンテンとアロステリック

• アロステリック効果をパラメタ化して、その意味を拡張してみる

# リガンド濃度を等間隔刻み
L <- seq(from=0,to=20,length=100)
# Kaは適当に
Ka <- 2
# nをパラメタ化する
ns <- seq(from=-2,to=2,length=5)
# 目的変数thetaの値をnの値ごと・Lの値ごとに格納する
thetas <- matrix(0,length(ns),length(L))
for(i in 1:length(ns)){
	n <- ns[i]
	thetas[i,] <- L^n/(Ka^n+L^n)

}
# プロットする
matplot(L,t(thetas),type="l")