...
|
...
|
@@ -60,7 +60,7 @@ best_b_lin = b_vec[which(lin_arr == minimum_lin,arr.ind=TRUE)[1]]
|
60
|
60
|
points(x_vec, linrel(x_vec,best_m_lin,best_b_lin), type="l", col="blue", xlab='x',ylab='f(x)=y')
|
61
|
61
|
minimum_con=min(con_arr)
|
62
|
62
|
best_b_con = b_vec[which(con_arr == minimum_con,arr.ind=TRUE)[1]]
|
63
|
|
-points(x_vec, rep(conrel(best_b_lin),41), type="l", col="yellow", xlab='x',ylab='f(x)=y')
|
|
63
|
+points(x_vec, rep(conrel(best_b_con),41), type="l", col="yellow", xlab='x',ylab='f(x)=y')
|
64
|
64
|
|
65
|
65
|
#Probelm3
|
66
|
66
|
norm = function(a) 1/sum(a) * a
|