【r<-娛樂】幾行邪惡的R代碼,拿走不謝

a1<-seq(0,2,0.01)
b1<-seq(0,1,0.01)
f<-function(a1,b1) ifelse(a1<=1, 11*a1*log10(a1)*b1*(b1-1)+exp(-((25*a1-25/exp(1))^2+(25*b1-25/2)^2)^3)/25, 11*(a1-1)*log10(a1-1)*b1*(b1-1)+exp(-((25*(a1-1)-25/exp(1))^2+(25*b1-25/2)^2)^3)/25)
c1<-outer(a1,b1,f)
plot(1)
persp(a1,b1,c1,theta=30,phi=30,expand=0.5,col="red")

效果自己運(yùn)行,女生別碰,你會罵我的~

最后編輯于
?著作權(quán)歸作者所有,轉(zhuǎn)載或內(nèi)容合作請聯(lián)系作者
  • 序言:七十年代末谴仙,一起剝皮案震驚了整個濱河市,隨后出現(xiàn)的幾起案子碾盐,更是在濱河造成了極大的恐慌狞甚,老刑警劉巖,帶你破解...
    沈念sama閱讀 222,729評論 6 517
  • 序言:濱河連續(xù)發(fā)生了三起死亡事件廓旬,死亡現(xiàn)場離奇詭異哼审,居然都是意外死亡谐腰,警方通過查閱死者的電腦和手機(jī),發(fā)現(xiàn)死者居然都...
    沈念sama閱讀 95,226評論 3 399
  • 文/潘曉璐 我一進(jìn)店門涩盾,熙熙樓的掌柜王于貴愁眉苦臉地迎上來十气,“玉大人,你說我怎么就攤上這事春霍≡椅鳎” “怎么了?”我有些...
    開封第一講書人閱讀 169,461評論 0 362
  • 文/不壞的土叔 我叫張陵址儒,是天一觀的道長芹枷。 經(jīng)常有香客問我,道長莲趣,這世上最難降的妖魔是什么鸳慈? 我笑而不...
    開封第一講書人閱讀 60,135評論 1 300
  • 正文 為了忘掉前任,我火速辦了婚禮喧伞,結(jié)果婚禮上走芋,老公的妹妹穿的比我還像新娘。我一直安慰自己潘鲫,他們只是感情好翁逞,可當(dāng)我...
    茶點(diǎn)故事閱讀 69,130評論 6 398
  • 文/花漫 我一把揭開白布。 她就那樣靜靜地躺著溉仑,像睡著了一般挖函。 火紅的嫁衣襯著肌膚如雪。 梳的紋絲不亂的頭發(fā)上浊竟,一...
    開封第一講書人閱讀 52,736評論 1 312
  • 那天怨喘,我揣著相機(jī)與錄音,去河邊找鬼逐沙。 笑死哲思,一個胖子當(dāng)著我的面吹牛洼畅,可吹牛的內(nèi)容都是我干的吩案。 我是一名探鬼主播,決...
    沈念sama閱讀 41,179評論 3 422
  • 文/蒼蘭香墨 我猛地睜開眼帝簇,長吁一口氣:“原來是場噩夢啊……” “哼徘郭!你這毒婦竟也來了?” 一聲冷哼從身側(cè)響起丧肴,我...
    開封第一講書人閱讀 40,124評論 0 277
  • 序言:老撾萬榮一對情侶失蹤残揉,失蹤者是張志新(化名)和其女友劉穎,沒想到半個月后芋浮,有當(dāng)?shù)厝嗽跇淞掷锇l(fā)現(xiàn)了一具尸體抱环,經(jīng)...
    沈念sama閱讀 46,657評論 1 320
  • 正文 獨(dú)居荒郊野嶺守林人離奇死亡,尸身上長有42處帶血的膿包…… 初始之章·張勛 以下內(nèi)容為張勛視角 年9月15日...
    茶點(diǎn)故事閱讀 38,723評論 3 342
  • 正文 我和宋清朗相戀三年,在試婚紗的時候發(fā)現(xiàn)自己被綠了镇草。 大學(xué)時的朋友給我發(fā)了我未婚夫和他白月光在一起吃飯的照片眶痰。...
    茶點(diǎn)故事閱讀 40,872評論 1 353
  • 序言:一個原本活蹦亂跳的男人離奇死亡,死狀恐怖梯啤,靈堂內(nèi)的尸體忽然破棺而出竖伯,到底是詐尸還是另有隱情,我是刑警寧澤因宇,帶...
    沈念sama閱讀 36,533評論 5 351
  • 正文 年R本政府宣布七婴,位于F島的核電站,受9級特大地震影響察滑,放射性物質(zhì)發(fā)生泄漏打厘。R本人自食惡果不足惜,卻給世界環(huán)境...
    茶點(diǎn)故事閱讀 42,213評論 3 336
  • 文/蒙蒙 一杭棵、第九天 我趴在偏房一處隱蔽的房頂上張望婚惫。 院中可真熱鬧,春花似錦魂爪、人聲如沸先舷。這莊子的主人今日做“春日...
    開封第一講書人閱讀 32,700評論 0 25
  • 文/蒼蘭香墨 我抬頭看了看天上的太陽蒋川。三九已至,卻和暖如春撩笆,著一層夾襖步出監(jiān)牢的瞬間捺球,已是汗流浹背。 一陣腳步聲響...
    開封第一講書人閱讀 33,819評論 1 274
  • 我被黑心中介騙來泰國打工夕冲, 沒想到剛下飛機(jī)就差點(diǎn)兒被人妖公主榨干…… 1. 我叫王不留氮兵,地道東北人。 一個月前我還...
    沈念sama閱讀 49,304評論 3 379
  • 正文 我出身青樓歹鱼,卻偏偏與公主長得像泣栈,于是被迫代替她去往敵國和親。 傳聞我的和親對象是個殘疾皇子弥姻,可洞房花燭夜當(dāng)晚...
    茶點(diǎn)故事閱讀 45,876評論 2 361

推薦閱讀更多精彩內(nèi)容

  • Android 自定義View的各種姿勢1 Activity的顯示之ViewRootImpl詳解 Activity...
    passiontim閱讀 172,331評論 25 707
  • 2014年南片,高中畢業(yè)就很想去廈門,沒去成庭敦。2017年疼进,遇到一些事情,下定決心出來散心秧廉。沒有去很多景點(diǎn)伞广,也沒有吃很多...
    fl0wery閱讀 1,296評論 14 42
  • 蔻媽閱讀 119評論 0 1
  • 方式一 在后臺開啟一個新的long-run的任務(wù),一般只有10分鐘,10分鐘以后自動調(diào)用Block里面的方法,結(jié)束...
    AryCode閱讀 1,016評論 0 0
  • 退一步海闊天空嚼锄,人要寬容诞外。這是常理,在瑣事上不應(yīng)斤斤計較灾票,做人寬容大方往往人緣更好峡谊。但是寬容也要有限度,寬容也...
    酷雪冰凌閱讀 487評論 9 5