[微積] [線代] 103交大統研基礎數學參考詳解
103交大統研基礎數學參考解答
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 1.173.163.198
→
02/18 02:00, , 1F
02/18 02:00, 1F
→
02/18 13:23, , 2F
02/18 13:23, 2F
→
02/18 17:58, , 3F
02/18 17:58, 3F
Orz...感謝提醒!!
→
02/18 18:00, , 4F
02/18 18:00, 4F
突然發現不太妙...好像我弄錯題意了= ="
→
02/18 18:01, , 5F
02/18 18:01, 5F
→
02/18 18:01, , 6F
02/18 18:01, 6F
→
02/19 10:34, , 7F
02/19 10:34, 7F
抱歉打錯字>< 我的詳解寫的是e-1沒錯。
#Question 1 numeric solution
f<-function(x,y){
if (x == y){
return(0)
}
else{
return(exp(max(x^2,y^2)))
}
}
SUM=0
epsilon=0.1
S=array(0,dim=c(10))
for (k in 2:10){
d=10^(-(k-1))
for (i in seq(from=0,to=1,by=d)){
for (j in seq(from=i, to=1, by=d)){
S[k]=S[k]+f(i,j)*d*d
}
}
if (abs(S[k]-S[k-1])< epsilon){
SUM=S[k];break;
}
}
round(2*SUM,2) #the area for x>y is symmetric to x<y
round(exp(1)-1,2)
#Question 3 illustrative example
u<-c(1,0,0,0,0)
I<-diag(c(1,1,1,1,1))
H<-I-2*(u%*%t(u))
ev<-eigen(H)
ev
第四題的矩陣表示法寫錯了!! = =
剛才重檢查一遍才發現...
http://ppt.cc/rlW1
用Wolfram驗算。
※ 編輯: anovachen 來自: 111.255.238.16 (02/21 01:11)