旧博客:泛函分析作业250915
从旧 .com 全量搬运的历史内容,来源路径:/blogs/uuku/泛函分析作业250915/
迁移来源
- 旧站标题:泛函分析作业250915
- 新站标题:旧博客:泛函分析作业250915
- 旧站路径:/blogs/uuku/泛函分析作业250915/
- 旧页面 ID:
59
1.1.2 #
(Newton 法) 设 是定义在 上的二次连续可微的实值函数, 使得 . 求证: 存在 的邻域 , 使得 , 迭代序列
是收敛的, 并且
note
设映射
由 , 故存在 时, 有 .
那么考虑导数 , 于是可以取 , 则有 .
所以在该邻域中有 , 再结合 可以得到 , 即 在该邻域内是压缩映射.
又由实数的完备性, 根据 Banach 不动点定理可知存在唯一的不动点, 又 , 所以 是不动点, 即 .
下面是 Mworks 程序.
clear()
clc()
f(x)=exp.(x).-2 #求此函数的零点
df(x)=exp.(x) #此函数的导数
#绘制f的函数图像
t=0:0.1:1.1
plot(t,f(t),"k")
hold("on")
#绘制直线y=0
plot(t,zeros(size(t)),"r")
x0=0 #初始猜测
N=3 #总迭代次数
x=zeros(1,N+1)
x[1]=x0;
for ii=1:N
x[ii+1]=x[ii]-f(x[ii])/df(x[ii])
text(x[ii],f(x[ii]),string(ii-1),color="black",fontsize=14)
plot(x[ii:ii+1],f(x[ii:ii+1]),"b")
plot(x[ii+1],f(x[ii+1]),"r*")
end
text(x[N+1],f(x[N+1]),string(N),color="black",fontsize=14)
saveas(gcf(),"1d1d2.eps")
[x;
abs.(x.-log(2))] #零点为log(2)

1.1.4 #
设 是度量空间上的压缩映射, 求证: 是连续的.
note
记度量空间为 .
设 是该度量空间上的任意收敛列, 且收敛至 . 那么对于 , 由于 是压缩映射, 故存在 满足 , 于是 , 根据夹逼准则可知 , 所以 是连续的.
1.1.5 #
设 是压缩映射, 求证: 也是压缩映射, 并说明逆命题不一定成立.
note
记度量空间为 .
由 是压缩映射, 所以存在 , 满足 . 于是有
由于 , 故 . 又 将 映到自身, 因此 也将 映到自身. 综上可知 仍为压缩映射。
逆命题不一定成立, 下面给出一个反例:
在 上以普通绝对值作度量, 取映射 。
显然 将 映到 。
计算导数得 , 存在 使得 , 因此 不是压缩映射。
但是由链式法则,
因此 是压缩映射。
注: 上述构造的思路是考虑幂函数 , 通过对系数 和次幂 的选择可以令 在某些点大于 1 而 的导数处处小于 1,从而构成逆命题不成立的反例。
1.1.6 #
设 是 中的有界闭集, 映射 满足: , 求证: 在 中存在唯一的不动点.
note
由 和三角不等式可得
从而 是连续的。
由于 是 中的有界闭集, 因此存在使 取得最小值的点 . 若 则 为不动点。
若 , 则由假设有 , 即 的值更小,这与 为最小值点矛盾。因此必须有 ,即存在不动点。
唯一性则与压缩映像原理一致:若存在两个不动点 ,则
矛盾。因此不动点唯一。
注: 在度量空间中关于连续性的论证要以度量 为度量依据,即在选取 时是针对 的限制,注意区分欧式距离上的连续性与一般度量空间中的连续性的表述。
1.1.7 #
对于积分方程
其中 为给定函数, 为常数, , 求证: 存在唯一解 .
note
考虑度量 .
对积分方程做变换得到 .
不妨设 , 新的函数显然仍属于 , 那么方程变为
考虑映射 。
首先, 由 , 所以 , 映射到自身。
其次, 对于任意两个属于 的函数 有
由于 , 可知 是压缩映射, 因此由压缩映像原理可得方程有唯一解. 乘以 的变换是双射, 故原方程在 上也有唯一解。
下面是 Mworks 程序.
clear()
clc()
n=20; #离散节点总数
t=1/(2*n):1/n:1-1/(2*n) #居中节点
iter=5 #总迭代次数
x=zeros(n,iter+1)
plot(t,x[:,1],"b*",linewidth=4) #绘制初始猜测(蓝色点)
hold("on")
text(t[end],x[end,1],string(0),color="black",fontsize=14)
lambda=0.5
y=(1-lambda).*exp.(t)
for ii=1:iter
x[:,ii+1]=lambda/n*exp.(t .- transpose(t))*x[:,ii]+y
color_value=2*ii/iter-1 #取值范围调整为-1 到 1, 为使线段颜色可以rgb插值渐变
if color_value>0
plot(t,x[:,ii+1],color=[color_value,1-color_value,0]) #绘制此步结果
else
plot(t,x[:,ii+1],color=[0,1+color_value,-color_value]) #绘制此步结果
end
text(t[end],x[end,ii+1],string(ii),color="black",fontsize=14)
end
x_true=exp.(t)
plot(t,x_true,"r*",linewidth=4) #绘制精确结果(红色点)
saveas(gcf(),"1d1d7.eps")
[x x_true]

讨论
评论
正在加载评论...