去你的七夕！敲代碼比追女孩什么的有意思多了！
a <- seq(-5, 5, by=0.01)
b <- seq(-5, 5, by=0.01)
df <- transform(setNames(expand.grid(a, b), c("x", "y")),
ueq = (17*x^2 + 17*y^2 - 16*y*abs(x) + 150/(abs(10*x + sin(10*y)))^4 < 225) )
color <- ifelse(df$ueq == TRUE, 1 , 0)
data <- cbind(df,color)
library(ggplot2)
ggplot(data,aes(x, y, fill = color)) +
geom_raster() +
scale_fill_gradient(low = "white", high = "firebrick3") +
theme_classic() +
theme(legend.position = "none") +
annotate("text", x = 0, y = -4,
label = "17*x^2 + 17*y^2 - 16*abs(x)*y + frac(150, (5*x+sin5*y)^4) <225",
parse = TRUE)
最后編輯于 ：
?著作權(quán)歸作者所有,轉(zhuǎn)載或內(nèi)容合作請聯(lián)系作者
【社區(qū)內(nèi)容提示】社區(qū)部分內(nèi)容疑似由AI輔助生成，瀏覽時請結(jié)合常識與多方信息審慎甄別。
平臺聲明：文章內(nèi)容（如有圖片或視頻亦包括在內(nèi)）由作者上傳并發(fā)布，文章內(nèi)容僅代表作者本人觀點(diǎn)，簡書系信息發(fā)布平臺，僅提供信息存儲服務(wù)。
