アロステリック効果をパラメタ化して、その意味を拡張してみる # リガンド濃度を等間隔刻み L <- seq(from=0,to=20,length=100) # Kaは適当に Ka <- 2 # nをパラメタ化する ns <- seq(from=-2,to=2,length=5) # 目的変数thetaの値をnの値ごと・Lの値ごとに格…