fit3d使用SVD将平面拟合到图像（矩阵），R语言imagefx包，时序图像特征识别

fit3d使用SVD将平面拟合到图像（矩阵），R语言imagefx包，时序图像特征识别

# Tue Oct 12 14:33:33 2021 edit
# 字符编码：UTF-8
# R 版本：R 4.1.1 x64 for window 11
# [email protected]
# 个人笔记不负责任，拎了个梨
#.rs.restartR()
require(imagefx)
rm(list = ls());gc()

?   fit3d   #       使用SVD将平面拟合到图像（矩阵）

## break the RGB image into 3 matrices
img.r <- erebus[,,1]
img.g <- erebus[,,2]
img.b <- erebus[,,3]

## find the planar trend in the red channel
trend.r <- fit3d(img.r)
trend.g <- fit3d(img.g)
trend.b <- fit3d(img.b)

## subtract the red channel trend from the original red channel image
img.r.detrend <- img.r-trend.r
img.g.detrend <- img.g-trend.g
img.b.detrend <- img.b-trend.b

## combine the RGB detrended matrices into an array
img.detrend = array(dim=dim(erebus))
img.detrend[,,1] <- img.r.detrend
img.detrend[,,2] <- img.g.detrend
img.detrend[,,3] <- img.b.detrend

close.screen(all.screens=TRUE)
split.screen(c(1,3))
screen(1)
image2(erebus,asp=1,main='Original Image',ylab='image rows',xlab='image cols')
screen(2)
image2(trend.r,asp=1,main='Fitted Trend',ylab='image rows',xlab='image cols')
screen(3)
image2(img.detrend,asp=1,main='Detrended Image',ylab='image rows',xlab='image cols')

## close screens
close.screen(all.screens=TRUE)
dev.copy(png, "fit3d使用SVD将平面拟合到图像（矩阵）.png");dev.off()

fit3d使用SVD将平面拟合到图像（矩阵）.png