xzcyr
xzcyr
关注数: 3
粉丝数: 743
发帖数: 13,770
关注贴吧数: 18
“mma 画这种等值线好像还不能渲染加选项去等值线的颜色” 这种时候我还是有点斗志的: ContourPlot[Cos[x] + Cos[y], {x, 0, 4 Pi}, {y, 0, 4 Pi}, PlotLegends -> Automatic, Contours -> 10, ContourShading -> False, ContourStyle -> ColorData["AvocadoColors"] /@ Rescale@Array[# &, 10], PlotPoints -> 100]更多内容可参考 mathematica.stackexchange.com/q/54900/1871 另,觉得Jet方案好看的各位,建议阅读 mathematica.stackexchange.com/q/101625/1871 开头给出的几篇文章。大家都在用Jet?(当年)大家还都用ie6呢。
关于版本11.1时“偏好设置”菜单的改变 版本11.1时“偏好设置”菜单里的选项改了一次,官网上曾经给出了一份该改动的完整对照表(是的,现在这表在官网找不到了,不知道啥情况),这里贴一下:这里面有的选项我个人觉得还挺有用的,比如代码自动补全时不区分大小写(CaseSensitiveCommandCompletion)。
《武器种族传说~被封印的诗歌~》完全汉化版发布 这么多年了,总算干了件实事.(蕾是《武器种族传说》的女主角,所以我把帖子转到这个吧是没有问题的,恳请百度别吞我帖了好吗.) 【图片】《武器种族传说~被封印的诗歌~》完全汉化版发布【gba吧】_百度贴吧 来自:http://tieba.baidu.com/p/7087256258?sharefrom=tieba
《武器种族传说~被封印的诗歌~》完全汉化版发布 【图片】《武器种族传说~被封印的诗歌~》完全汉化版发布【gba吧】_百度贴吧 来自:http://tieba.baidu.com/p/7087256258?red_tag=3000392497&sharefrom=tieba
《武器种族传说~被封印的诗歌~》完全汉化版发布 【汉化人员】 破解:啪嗒啪嗒 翻译:xzcyr 美工:花开小低调 奶茶 春华秋实 校对:xzcyr ———————————————— 【感言】 啪嗒啪嗒: 拖了这么久总算完成了。 xzcyr: “你为什么要汉化这么个烂游戏?难道那个风剑妹子是你第一个老婆?”很遗憾,我的动机没这么阳光,就如我在当年的求助帖里(https://tieba.baidu.com/p/1460540258)所说,支撑我汉化本作的是病态的执着。 大约十二年前,我在武器种族传说的贴吧短暂地当过一段时间吧主。许多人,包括许多接触了贴吧很长时间的人,都有一种错觉,那就是,觉得凭借少数几人的努力,就可以改变某个贴吧的“生态”,“干出一番事业”,而当时的我就是其中之一,并且,我的意见和武吧仅剩的老人并不统一。武吧仅剩的几个老人喜欢水帖,要“水水更健康”,而我想把武吧建成个类似图书馆的地方——图书馆自然容不得水。双方的意见南辕北辙,更要命的是,双方都坚信自己是对的,丝毫不想让步。争到最后,我选择了离开。 时间或许真能磨灭一切,但可惜,恨总是比爱来得持久。如今我对《武器种族传说》的喜爱早已淡去,当年的争执却在我心里留下了个疙瘩,那就是,我虽然想把武吧建成个图书馆,在任时却几乎没有做过实事。诚然,当时武种的动画早已完结,可整理的资料基本没有,仅剩的几件事门槛都非常高,而 GBA 游戏《エレメンタルジェレイド~封印されし謳~》的汉化就是其中之一。于是,在我发觉自己已经具备翻译这个游戏的能力之时,便产生了汉化本作的念头,这就有了开头那帖。之后又经历了各种波折,本作的汉化终于在今天全部完成。今后,在谈及当年的往事时,我总算是能状似云淡风清,实则内心狂喜地补上一句“哦,不过最后我一怒之下汉化了《武器种族传说》的 GBA 游戏”了。最后再就文本翻译叨叨两句: 1. 几乎所有“ABのC”格式的招式名我都没能考证到出典,只得简单地转写为“AB之C”——我强烈怀疑游戏制作者手里有类似“中二招式名生成器”的玩意儿。 2. 台版的专有名词翻译如今看来十分值得商榷,但考虑到约定俗成,本作的专有名词基本还是和台版保持了一致。 3. 十多万字的文本,不妥处在所难免,欢迎诸位交流探讨。 花开小低调: 五年!五年!你知道这五年我是怎么过的吗? 不是发布了我都不知道修过图 还能想到我,感谢 奶茶: 还有这回事!? 春华秋实: 没啥感言啊,都是兴趣爱好来做的,算是圆小时候的怨念吧,小时候因为玩游戏没少挨打,现在都到了打儿子的年纪了。 【免责说明】 本汉化游戏是在GBA官方商业游戏基础上修改过来的,游戏版权归属原制作商所有, 汉化部分版权归本团队所有。本品仅供汉化研究之用,任何组织或个人不得以本品用于任何形式的商业目的, 对此产生的一切后果由使用方自负,本团队将不对此负任何责任。 【附注】 下载地址见2楼或3楼。(如果2楼被吞掉了的话。) 如遇到BUG可在此贴回复。
ImplicitPlot 为什么用不了了啊! 吧里老人看了这标题可能会纳闷:不是都已经有一个《绘图和动画功能在版本6时有过重大修改,请不要使用过时的教材!)(https://tieba.baidu.com/p/5360020470)了吗,你重复开帖是做什么。因为……前两天我〇蛋地翻看版本5的帮助的时候,发现 ImplicitPlot 的语法并没有被ContourPlot完全取代:如大家所见,Implicit 是可以仅指定一个变量的范围的……这个语法ContourPlot还真没有。 那么怎么办呢?还能咋办,把版本5的程序包挖出来,把其中与新版不兼容的地方改掉呗——需要改的地方倒也意外地少: (* :Title:ImplicitPlot*)(* :Copyright:Copyright 1991-2003,Wolfram Research,Inc.*)(* \ :Authors:Jerry B.Keiper,Wolfram Research,Inc.,contour plot method:Theo Gray,Jerry \ Glynn,Dan Grayson*)(* :Summary:The built-in function Plot requires one to specify an \ explicit function.Many simple graphs (e.g.,circles,ellipses,etc.) are not \ functions.ImplicitPlot allows one to plot figures defined by equations.*)(* \ :Context:Graphics`ImplicitPlot`*)(* :Mathematica Version:3.0*)(* :Package Version:2.2*)(* \ :History:V2.0 by Jerry B.Keiper,April 1991. V2.1 Modifications by John M.Novak,April \ 1992. V2.2 by John M.Novak,May 1999-- modified core rangeplot routine to be more robust \ as number of solutions changes over plotting area.*)(* :Keywords:solution set,graphics*)(* \ :Sources:The contour plot alternate method is from:Gray,Theodore and \ Glynn,Jerry,Exploring Mathematics with Mathematica,(Addison-Wesley,1991)*)(* :Warning:*)(* \ :Limitation:ImplicitPlot relies on Solve for much of the work.If Solve fails,no plot can \ be made.Subscripted variables (e.g.,x[1],x[2]) cannot be \ used.*)BeginPackage["Graphics`ImplicitPlot`"(*,"Utilities`FilterOptions`"*)] If[$VersionNumber >= 9, FilterOptions[a_, b___] := Sequence @@FilterRules[{b}, Options[a]], Needs["Utilities`FilterOptions`"]] Unprotect[ImplicitPlot]; ImplicitPlot::usage = "ImplicitPlot[eqn, {x, a, b}] draws a graph of the set of points that satisfy the equation eqn. The variable x is associated with the horizontal axis and ranges from a to b. The remaining variable in the equation is associated with the vertical axis. ImplicitPlot[eqn, {x, a, x1, x2, ..., b}] allows the user to specify values of x where special care must be exercised. ImplicitPlot[{eqn1, eqn2, ...}, {x, a, b}] allows more than one equation to be plotted, with PlotStyles set as in the Plot function. ImplicitPlot[eqn, {x, a, b}, {y, a, b}] uses a contour plot method of generating the plot. This form does not allow specification of intermediate points." Options[ImplicitPlot] = {AspectRatio -> Automatic, Axes -> Automatic, AxesLabel -> None, AxesOrigin -> Automatic, AxesStyle -> Automatic, Background -> Automatic, ColorOutput -> Automatic, DefaultColor -> Automatic, Epilog -> {}, Frame -> False, FrameLabel -> None, FrameStyle -> Automatic, FrameTicks -> Automatic, GridLines -> None, PlotLabel -> None, PlotPoints -> 39, PlotRange -> Automatic, PlotRegion -> Automatic, PlotStyle -> Automatic, Prolog -> {}, RotateLabel -> True, Ticks -> Automatic, DefaultFont :> $DefaultFont, DisplayFunction :> $DisplayFunction, FormatType :> $FormatType, TextStyle :> $TextStyle, ImageSize -> Automatic} Begin["`Private`"] ImplicitPlot[eqns : {__Equal}, xr : {_, _?NumericQ, _?NumericQ}, yr : {_, _?NumericQ, _?NumericQ}, opts___?OptionQ] := Module[{ps, df}, {ps} = {PlotStyle} /. {opts} /. Options[ImplicitPlot]; df = FilterOptions[{DisplayFunction}, Options[ImplicitPlot]]; ps = cyclestyles[ps, Length[eqns]]; gr = MapThread[ ImplicitPlot[#1, xr, yr, ContourStyle -> #2, DisplayFunction -> Identity, opts] &, {eqns, ps}]; gr = Select[gr, Head[#] === ContourGraphics &]; Show[gr, FilterOptions[ContourGraphics, opts, Sequence @@ Options[ImplicitPlot]], df] /; gr =!= {}] ImplicitPlot[eqns : {__Equal}, {x_, a_?NumericQ, m___?NumericQ, b_?NumericQ}, opts___?OptionQ] := Module[{ps, df, gr, ln}, {ps} = {PlotStyle} /. {opts} /. Options[ImplicitPlot]; df = FilterOptions[{DisplayFunction}, Options[ImplicitPlot]]; ps = cyclestyles[ps, Length[eqns]]; gr = MapThread[ makegr[#1, {x, a, m, b}, PlotStyle -> #2, DisplayFunction -> Identity, opts] &, {eqns, ps}]; gr = Select[gr, (# =!= $Failed) &]; Show[Graphics[gr], FilterOptions[Graphics, opts, Sequence @@ Options[ImplicitPlot]], df] /; gr =!= {}] ImplicitPlot[lhs_ == rhs_, xr : {_, _?NumericQ, _?NumericQ}, yr : {_, _?NumericQ, _?NumericQ}, opts___?OptionQ] := With[{ps = PlotStyle /. {opts} /. Options[ImplicitPlot], copts = FilterOptions[ContourPlot, opts, Sequence @@ Options[ImplicitPlot]]}, ContourPlot[lhs - rhs, xr, yr, copts, ContourStyle -> ps, Contours -> {0}, ContourLines -> True, ContourShading -> False(*,ContourSmoothing\[Rule]True*)]] ImplicitPlot[eqn_Equal, {x_, a_?NumericQ, m___?NumericQ, b_?NumericQ}, opts___?OptionQ] := Module[{ps, df, gr}, {ps} = {PlotStyle} /. {opts} /. Options[ImplicitPlot]; df = FilterOptions[{DisplayFunction}, Options[ImplicitPlot]]; gr = makegr[eqn, {x, a, m, b}, PlotStyle -> ps, opts]; Show[Graphics[gr], FilterOptions[Graphics, opts, Sequence @@ Options[ImplicitPlot]], df] /; gr =!= $Failed] cyclestyles[ps_, ln_] := Module[{style = ps}, If[Head[ps] =!= List, style = {ps}, If[Length[ps] == 0, style = {{}}]]; While[Length[style] < ln, style = Join[style, style]]; Take[style, ln]] ImplicitPlot::var = "Equation `1` does not have a single variable other than `2`." findy[f_, x_] := Module[{nf}, nf = Select[ Union[Cases[f, (_Symbol | _[(_?NumberQ) ...]), Infinity]], (! (NumberQ[N[#]] || # === x)) &]; If[Length[nf] == 1, nf[[1]],(*else*)Message[ImplicitPlot::var, f, x]; $Failed]] ImplicitPlot::epfail = "Equation `1` could not be solved for points to plot." makegr[eqn_Equal, {x_, a_, m___, b_}, opts___] := Module[{f = eqn[[1]] - eqn[[2]], ranges, plots, ar, y}, If[(y = findy[eqn, x]) === $Failed, Return[$Failed]]; ranges = Solve[f == 0 && D[f, y] == 0, {x, y}]; If[ListQ[ranges] && Length[ranges] > 0, ranges = N[x /. ranges]]; If[! VectorQ[ranges, NumberQ], Message[ImplicitPlot::epfail, eqn]; Return[$Failed]]; ranges = Select[Chop[ranges], FreeQ[#, Complex] &]; ranges = Sort[Select[ranges, (a < # < b) &]]; ranges = Union[Sort[Join[ranges, N[{a, m, b}]]]]; ar = N[b - a]/10^8; ranges = Transpose[{Drop[ranges + ar, -1], Drop[ranges - ar, 1]}]; (*ranges is now a (sorted) list of disjoint intervals with small gaps between them \ where singularities probably exist.*)plots = Map[rangeplot[f, x, y, #, opts] &, ranges]]; distx[{x_, y_List}] := Transpose[{Table[x, {Length[y]}], y}] rangeplot[f_, x_, y_, {a_, b_}, opts___] := Module[{pp, ps, j, multipoints, mdpt, len}, {pp, ps} = {PlotPoints - 1, PlotStyle} /. {opts} /. Options[ImplicitPlot]; If[ps === Automatic, ps = {}]; mdpt = (a + b)/2; len = (b - a)/2; multipoints = Split[Map[{#,(*a little bit of kludginess here...*) If[# =!= y, Sort[Select[Chop[N[#]], FreeQ[#, Complex] &]] /. {} -> y, #] &[ y /. Solve[f == 0 /. x -> #, y]]} &, Table[N[mdpt + len Cos[j Pi/pp]], {j, pp, 0, -1}]], (Length[Last[#1]] === Length[Last[#2]]) &]; multipoints = Map[distx, Select[multipoints, (Last[First[#]] =!= y) &], {2}]; (*connect the dots to form the various curves*) If[Length[multipoints] > 0, Map[Flatten[{ps, Line[#]}] &, Map[Transpose[#, {2, 1, 3}] &, multipoints], {2}],(*else*){}]]; Protect[ImplicitPlot]; End[] (*"`Private`"*) EndPackage[] (*"Graphics`ImplicitPlot`"*) (* :Tests:*) (* :Examples:ImplicitPlot[x^2+2 y^2\[Equal]3,{x,-2,2}] (*ellipse*) \ ImplicitPlot[(x^2+y^2)^2\[Equal](x^2-y^2),{x,-2,2}] (*lemniscate*) \ ImplicitPlot[(x^2+y^2)^2\[Equal]2 x y,{x,-2,2}] (*lemniscate*) ImplicitPlot[x^3+y^3\ \[Equal]3 x y,{x,-3,3}] (*folium of Descarte*) ImplicitPlot[x^2+y^2\[Equal]x \ y+3,{x,-3,3}] (*ellipse*) ImplicitPlot[x^2+y^2\[Equal]3 x \ y+3,{x,-10,10},PlotRange\[Rule]{{-10,10},{-10,10}}] (*hyperbola*) \ ImplicitPlot[(x^2)^(1/3)+(y^2)^(1/3)\[Equal]1,{x,-1,1}] \ ImplicitPlot[(x^2)^(1/3)+(y^2)^(1/3)\[Equal]1,{x,-1,2}] \ ImplicitPlot[{(x^2+y^2)^2\[Equal](x^2-y^2),(x^2+y^2)^2\[Equal]2 x y},{x,-2,2},PlotStyle\ \[Rule]{GrayLevel[0],Hue[0]}] (*combined plots*) \ ImplicitPlot[{(x^2+y^2)^2\[Equal](x^2-y^2),(x^2+z^2)^2\[Equal]2 x z},{x,-2,2},PlotStyle\ \[Rule]{GrayLevel[0],Dashing[{.01}]}] (*combined plots*) ImplicitPlot[{a\[Equal]b,x^2+2 \ y^2\[Equal]3},{x,-1,1}] (*one bad plot*) ImplicitPlot[x^2+y^2\[Equal]Pi,{x,-2,2}] (*OK \ eqn with 3 symbols*) ImplicitPlot[Sin[x]\[Equal]Cos[y],{x,1.5,Pi/2,1.7}] (*contour method*) ImplicitPlot[Sin[2 x]+Cos[3 y]\[Equal]1,{x,-2 Pi,2 Pi},{y,-2 Pi,2 \ Pi}] ImplicitPlot[x^2+x y+y^2\[Equal]1,{x,-2Pi,2Pi},{y,-2Pi,2Pi}] ImplicitPlot[x^3+x \ y+y^2\[Equal]1,{x,-2Pi,2Pi},{y,-2Pi,2Pi}] \ ImplicitPlot[x^3-x^2\[Equal]y^2-y,{x,-1,2},{y,-1,2}] (*failure cases*) ImplicitPlot[a\[Equal]b,{x,-1,1}] (*bad plot*) \ ImplicitPlot[x^y\[Equal]y^x,{x,-1,1}] (*bad plot*) \ ImplicitPlot[{a\[Equal]b,c\[Equal]d},{x,-1,1}] (*bad plots*) \ ImplicitPlot[x^2+y^2\[Equal]z,{x,-2,2}] (*bad eqn with 3 vars*) ImplicitPlot[Sin[x]\ \[Equal]y,{x,-3,3}] (*Solve fails...*) ImplicitPlot[Sin[x]\[Equal]Cos[y],{x,-5,5}] \ ImplicitPlot[x^y\[Equal]y^x,{x,-3,3}]*) 测试: ImplicitPlot[{(x^2 + y^2)^2 == (x^2 - y^2), (x^2 + y^2)^2 == 2 x y}, {x, -2, 2}, PlotStyle -> {GrayLevel[0], Dashing[{.03}]}]最后,上面的代码只为做了最低限度的修改,那些不太“现代化”但还能用的地方都没动,大家有兴趣可以改改看。
怎样理解 ImageRecolor 的这一行为? 最近试着玩了一下 ImageRecolor ,然后玩着玩着玩出问题来了……考虑下面这个简例: tst=Image[RawArray["UnsignedInteger8", ConstantArray[{42, 69, 96}, {27, 27}]], "Byte", ColorSpace -> "RGB", Interleaving -> True]如大家所见这是一个纯色小方块。我们试着把它换成红的: ImageRecolor[tst,RGBColor[{42,69,96}/256]->Red]……咋回事?能靠调选项解决吗?( ColorReplace 就算了。)
圣诞前前夜(作者 2008.12.23 博文翻译) X'masイブイブ 圣诞前前夜です。 圣诞快乐。 それはいいとして コミックブレイドの編集ブログにEG紅16巻限定版の目玉!! ドラマCD収録情報が載ってます~。 闲话休提 《Comic Blade》的编辑博客里刊载了武种红本16卷限定版的亮点!!!——广播剧 CD 的收录情报。 キャストを転載~。 这里转载一下配音演员表~。 EREMENTARGERADドラマCD 山清の稔街<バーリィ=トスト>編 [ブレイドコミックスEREMENTAR GERAD第16巻初回限定版特別付録] 《武器种族传说》广播剧 CD 《山清的稔街》篇(译注:第 8 卷剧情) Blade Comics《武器种族传说》第 16 卷初回限定版特别附录 (译注: 广播剧信息没啥好译的,我就标一下出场人物的台版译名吧。) CAST クー(酷):石田 彰 レン(蕾):高橋美佳子 シスカ(希丝卡):水樹奈々 ローウェン(龙威):うえだゆうじ キーア(奇雅):桑谷夏子 グリィナ(格丽娜):京田尚子 クランクハイド(克兰克海德):高橋広樹 バーグレット(巴格雷特):土屋トシヒデ ヘリング(海林古):黒田崇矢 ルールローゼ(鲁鲁萝洁):井上奈々子 チェロット(洽萝特):高田初美 シーナ(席娜):佐久間紅美 グリィナの同契者(格丽娜的同契者):桑原敬一 発売日 2009年3月10日予定 定価 ¥1,290(税込) さらに詳しくは編集ブログにて。 更多信息请参看编辑博客。 アニメから久しぶりのクー達だ!! みんな楽しみにしててね!!! 动画播出后好久没听到酷他们的声音啦!! 大家敬请期待!!! バーグレットが出てくるのが嬉しい~ 巴格雷特会出场,我好开心~
15卷出版了(作者 2008.9.12 博文翻译) エレメンタル紅15巻出ました。 もう読んでくれちゃったりしましたでしょうか?? 《武器种族传说》红本15卷出版了。 大家已经读过了吗? イチゴ頑張って描いたよ。 頑張りすぎて友達に「写真合成したんでしょ?」って言われたよ。 草莓我可是用心画了。 用心过头了,结果有朋友说“你这是用照片合成的吧?” 自分でかいたんだよ!!!!!!!! 这是我自己画的啊!!!!!!!! ・・・・・・・いや、誉められたんだよね? きっと。 ……不对,人家这是夸我吧?肯定是夸我。 最新刊とは関係ないのですが、たま~にネット上で 「東まゆみ」の名前の書き込みを見たと耳にします。 下面这事儿和最新刊没啥关系,可我听说偶尔~会在网上看到“东麻由美”的署名。 ・・・が、私はここ(あずまや日記)以外では書き込みなんてしませんので 皆様くれぐれもだまされないようにお願いします。 ……可是,我署过名的地方只有这里(东家日记) 还望大家千万别上当。 でも自分じゃない人が自分の名前使って書くってあんまりいい気持ちしませんねぇ。 顔が見えないってこわいね~。ぶるぶる 不过自己的名字让别人给用了真让人不怎么舒服呢。 看不到对方长相的网络世界好可怕~我抖。
BBBladeee!!!(作者 2008.8.29 博文翻译) ぶぶぶれいどぉお!!! BBBladeee!!!今月30日発売のコミックブレイド レンちゃんの表紙が目印です。 本月30日发售的《Comic Blade》的封面是蕾,很好认。 で、是非とも東からのお願いがあります。 そこに載っているRe-No:80 雑誌ページP133より 阿东诚挚地请求大家 在阅读这期杂志刊载的《Re-No:80》的时候 从杂志第133页开始 アニメ、エレメンタルジェレイド挿入歌 「everlasting song」 を聴きながら読んでください。 一边听动画版《武器种族传说》插曲 《everlasting song》 一边看。 とにもかくにも今言えるのはそんだけ!!!! 总之我现在能说的只有这些!!!!
用 Mathematica 绘制梵高风的蕾 话不多说,先上图:那么,这幅画是怎么用绘制的呢?这个其实没多少好说的,因为这在 Mathematica 里只需要一行代码:怎么样是不是很神奇?赶紧下载 Ma…………这风格真的不适合我……话说这个 restyle 工具应该不止 Mathematica 里有,大家不妨找一找。
我的亲笔作正在慈善拍卖中展出(作者 2011.5.2 博文翻译) (这篇其实算 2011.3.16 那篇的后续) チャリティーオークションに直筆アイテム出品中です。 我的亲笔作正在慈善拍卖中展出 Yahoo! JAPANさんのチャリティーオークションに 直筆アイテムを出品しています。 我的亲笔作正在Yahoo! JAPAN的慈善拍卖中展出。 ひとつめは「とらねこフォークロア」の色紙。 第一件是《学园虎猫异闻录》的色纸。 主人公、燈人です。 画的是主人公灯人。 色紙のサイズは210mm×180mm。 色纸的大小是210mm×180mm。 ちょっと小振りな大きさです。 尺码略小。二つ目は未使用iPod 第二件是没用过的iPod。 「EREMENTAR GERAD」のレンのミニ色紙もついています。 附有《武器种族传说》的迷你色纸。 ミニ色紙のサイズは135mm×120mmです。 迷你色纸的大小是135mm×120mm。どうぞよろしくお願いいたします 拜托诸位了。
2009年(作者2009.1.8博文翻译) (本文的原文用了不少颜文字,不太适合在贴吧贴,想了解原貌的可以去看原文……) 2009年 2009年(图上的字:喂,说你呢!正月已经过了!!) あけましておめでとうございます。 新年快乐。 今年もエレメンタルジェレイドと東をどうぞよろしくお願いいたします。 今年也请多多关照《武器种族传说》和阿东我哦。 がんばって面白い漫画をいっぱい描くですよ~!! 我会努力画出许多有趣的漫画的!! てがきブログの方はちょうどいい自由帳を手に入れた気分なので けっこう描き散らかしてます。 手绘博客那边,因为感觉就像是得到了一个称手的自由记录本,我乱画了不少东西。 飽きないように続けよう(笑) 我就不知厌倦地继续下去吧(笑)(译注:手绘博客地址:tegaki.pipa.jp/214553/index_0.html 不过,09年10月之后就再没更过了……) 仕事以外であまりお絵描きしない私だけどああやって見てくれる人がいるのなら 我在工作以外很少画画,但既然这些涂鸦有人看 ちょこちょこ描いて行きたいと思うのです。 我也打算一点一点继续画下去。 元旦はSCARECROWさんのライブに行きました。 元旦去听了SCARECROW(按百科的说法,她喜欢那个乐队里的黒田倫弘)的演唱会。 楽しかったです!ライブはやっぱり楽しいね! 好开心!演唱会果然让人开心! そそ、今年も携帯ゲーム「多重人格~Dr.yesterday~」はもりもり配信中ですので 遊んでくださいませ~。 对了对了,手机游戏《多重人格~Dr.yesterday~》(译注:东婶担任这游戏的角色设计)今年也依旧是火热发布中,大家玩一玩吧~。 んで、元旦はかずのこと伊達巻きたべました。 饮食方面,元旦吃了干青鱼子和伊达卷。 伊達巻きさえあれば文句ないです。 有伊达卷了还要啥自行车。 ということで、今年もがんばっていこう~!! 所以,今年也加油吧~!!
你们……有没有蕾的那种图? 就那种,你们懂的 …… …… …… 我说的是没有上色而且线条比较简单的那种蕾的图,你们想什么呢!其实,我在尝试制作蕾的人物曲线(person curve),制作这种曲线需要有一张线条比较简单的图做原版,可是我能找到的蕾的图画,不论是作者本人画的还是同人图,都过于华丽了……你们有没有存那种比较简单的图?
用 Mathematica 把蕾变成银发 总之先上图:这里用的是p站id为 吉野屋 的朋友所作的画,原图地址是 pixiv.net/artworks/72450618 。顺便贴一下原图:那么,我具体是怎么用 Mathematica 实现改色的呢?这个全是靠着版本12新增的函数 ImageRecolor 。加上图片导入,只消两行代码。总之我们先导入图片: img = Import@(* 图片路径 *) 我习惯性地保存到了本地,其实,如果你是在 Mathematica 笔记本(.nb)里编程,完全可以直接右键从网页上复制图片,再直接贴入笔记本;顺便图片的本地路径也可以在选中图片后 Ctrl + C,Ctrl + V 来获取。(这部分内容在 Mathematica 吧精品帖《导入导出杂谈》中有详细说明,欢迎阅读。) 然后嘛,既然要替换头发颜色,那我们当然需要知道头发颜色的具体值。这个在笔记本中同样容易,只要点击图片,选择下方的“坐标工具”,再在需要知道颜色的地方单击,就能获取头发颜色的RGB值了:RGB 值不用手抄,点击 复制 -> 复制颜色值,再在任意地方 Ctrl + V 即可。(不过,对于Graphics上的坐标, Mathematica 是可以直接靠快捷键获取的,不知道 Image 有没有对应的方法呢……?) 最后一步当然就是换颜色了。注意上面的RGB值还要再除以256: ImageRecolor[img, RGBColor@@({180, 202, 252}/256)->Gray] 怎么样,是不是很简单?赶紧下载 Mathematica 试试吧………………这腔调真的不适合我……总之,因为 Mathematica 而关注我的诸位(有的吧?应该是有的吧?否则之前两帖怎么莫名其妙会有几十阅读——在这个冷清的地方这几乎是不可能的),我发布与 Mathematica 无关的内容的日子恐怕还得持续一段(甚至相当长的)时间,为免诸位感到乏味,我接下来会尽量穿插着讲点 Mathematica 调剂调剂。啊,不过图像处理相关的内容我也不很熟,大家不必过于期待。 上面的内容若还有不懂的,欢迎留言提问。
谨表慰问 (作者 2011.3.16 博文翻译) お見舞い申し上げます。 谨表慰问 (图上的字:你不是孤身一人,因为大家都相互联系着。) 東北地方太平洋沖地震で被災された方々の 救出と復旧を心よりお祈り申し上げます。 衷心希望在日本东北地方太平洋近海地震中受灾的各位都能获救、重建家园。
太谢谢了!(作者 2010.3.14 红本完结时的博文翻译) 这个当初译完后是发在我的百度空间里的,不过后来百度空间咋样了大家都知道……这次正好需要发帖,那就拿出来重发下好了: ありがとうございました! 太谢谢了! 2010-03-14 15:09:25 / 東まゆみ 紅の最終巻と蒼の6巻が発売しました。 红本最终卷和蓝本第6卷发售了。 紅はこれでついに終幕! 红本到此终于完结了! 8年間ありがとうございました!! 这八年来真是谢谢大家了!! そして昨日、秋葉原の有隣堂ヨドバシAKIBA店さまにて発売記念サイン会を行いました。 然后呢,我昨天出席了在秋叶原的“有隣堂ヨドバシAKIBA店”(译注:店名,好像没有正规译法)举办的发售纪念签名会。 発表からすぐに定員がいっぱいになってしまい、今回参加できなかったひともいると思います。 签名会的消息发表后参加名额很快就满了,这回大概有人没能参加吧。 でもちゃんと思いは私のところに届いています! 但你们的心意都很好地传达给我了! それにまた面白い漫画を描いてみんなに会いたい! 我还想画出有趣的漫画和大家见面! サイン会は本当にたくさんの方が来てくれて お天気もよくてあったかくて最高でした。 签名会真的来了很多人,天气也很好很暖和,真是再好不过了。 いつも部屋で漫画を描いて送り出しているだけなので、こうしてひとりひとり 私の漫画を読んでくれる人に直接会うのは滅多にないから感慨深かったです。 我总是过着窝在家里画漫画,很少像这样与看过我的漫画的人一一会面,这次签名会让我十分感慨。 GET!読んでましたとか、スタオ読んでましたとか。 “我看过您的《GET!》。”“我看过您的《光剑星传》。” 本当にずっと読んでくれてるんだって嬉しかったです。 你们能一直看我的作品真的让我很开心。 来てくれたみんな!本当にありがとうございます! 来参加签名会的各位!真的太感谢了! 元気をたくさんもらいました! 你们给了我莫大的鼓励! 来月から始まる新作もがんばります! 下个月开始连载的新作我也会加油画的! 蒼もまだまだ続きます! 蓝本的故事也还会继续! エレメンタルだってまだまだ続きます! 《武器种族传说》的故事也仍在继续! クーとレンだってあそこじゃ終わらないよ。 酷和蕾可没有在那里死去哟。 シスカ達だって暴れたりないですよ。 希丝卡他们可还没有闹够哦。 だからこれからも東はがんばるのでよろしくお願いします! 因此今后阿东我也会努力的,请多指教! みんな本当にありがとうです!!!! 各位,真的太谢谢了!!!!
【求证】最近是不是又有什么客户端/浏览器插件屏蔽了贴吧置顶? 如题。总觉得最近违反吧规的人数目有点多。 如果只是星际玩家太多的话,那我就准备严打了。(你们觉不觉得只贴图不贴代码的帖相对其他违规帖似乎活得更久?)
光凭警告信息/出错信息/报错信息寻找问题答案是极不可取的 提问时请附上引发问题的代码。对标题论断有疑虑的同学请阅读下面这篇对 FindRoot::nlnum 警告的简要解说: http://tieba.baidu.com/mo/q/checkurl?url=https%3A%2F%2Fzhidao.baidu.com%2Fquestion%2F810397720290271692.html&urlrefer=0c9df11a204654279f98fe632318e902
:=和=均可用于函数定义,请不要盲目地只使用其中之一! 如果你 1. 觉得:=能把自变量全部染绿感觉很好看所以只用:= 2. 觉得:=写出来显得很专业所以只用:= 3. 在某一次使用:=或是=定义函数后出了问题,从此后就只用=或是:=了 4. 觉得=更像传统数学表达式所以只用= 5. 因为自带帮助教程《立即定义和延时定义》(tutorial/ImmediateAndDelayedDefinitions)里说了一句“在无法确定时用 := 总比用= 好一些. ”而开始无脑使用:=定义函数 6. 某篇教程声称=是用来定义变量的而:=是用来定义函数的 7. 因为其他的什么理由而只使用:=或= 那么,请来看看这篇教程。为方便修订,照例放云笔记上,请多点几下鼠标: note.youdao.com/noteshare?id=509049223cd2f6b2519cfef71d4b900b
【通告】百度私信可能毫无提示地被吞,请避免使用私信提问! 吞私信标准并不明确。 网址,包括不限于qq号手机号的各类号码,过长的mathematica代码,似乎都有可能被吞。 如果确有发私信的需求,建议在发完之后补发一条“我刚发了X条私信,你是否收到了。” 另,自从百度贴吧封杀pc端私信(是的,封杀了,尽管你在pc端看到的提示是“对方不接受私信”)后我个人就再也没回答过私信中的问题;我个人也一直不喜欢非公开的mathematica讨论,希望大家尽量在吧内提问以便知识的继承。
【〇疼】【水?】用Mathematica实现甲虫兽进化 偶然看到了知乎帖子《怎样评价《数码宝贝》第一部中的泉光子郎的编程水平?》(问题编号:30290082)下的某回答,一时兴起就用Mathematica写了个。代码本身也没什么技术含量,而且总感觉翻译的过程中被原代码带偏了……不过写都写了,就贴这儿吧: Clear@"`*" sqr = Sqrt; rnd = RandomReal; fractal[x0_, x1_, y0_, y1_, sp_] := (l = sqr@((x1 - x0)^2 + (y1 - y0)^2); If[l < 2 || sp >= 9, Sow@{{x0, y0/3 + 50}, {x1, y1/3 + 50}}; Return[]]; r = rnd[] + rnd[] + rnd[] - 2; x2 = (x0 + x1)/2 + s (y1 - y0) r; y2 = (y0 + y1)/2 + s (x1 - x0) r; fractal[x0, x2, y0, y2, sp + 1]; fractal[x2, x1, y2, y1, sp + 1];) s = 1.6; s = sqr@(((s - 1)/10 + 1)^2 - 1.); {x0 = 100, x1 = 412, y0 = 0, y1 = 0}; sp = 1; gra = {{{100, 50}, {412, 50}}}; lst = Reap[fractal[x0, x1, y0, y1, sp]][[-1, 1]]; Animate[{{{100, 50}, {412, 50}}}~Join~lst[[;; i]] // Line // Graphics[#, PlotRange -> {All, {0, 50}}] &, {i, 1, Length@lst, 1}]画出来的海岸线总感觉和视频里的不像,不知道是不是有哪里译错了。(我也没查x-basic的文档,原语句的含义基本是猜的。)
20191012
【〇疼】【讨论?】Mathematica,VBA,C++蒙特卡洛法算圆周率对 (类似的讨论以往有过多次,不过当前老帖几乎全被百度隐藏,发出来权当补充吧。) 因为新电脑里预装了正版的Office,就稍微折腾了下VBA,四处翻找相关文章的时候,知乎的某主题引起了我的兴趣: 《为什么 C++ 只比 VBA 快 4倍?》(链接就不贴了,否则八成又要被吞。直接搜索这个标题就可以找到。) 那么Mathematica(在不改变算法实质的情况下)的速度怎么样?——基本可以肯定比C++慢(即便编译,Mathematica在大规模低级运算上也往往不及精心编写过的C/C++/Fortran),但和VBA比呢?(当年学VB时我曾不止一次听到过“VB速度慢”的说法,但我从没正经研究过。) 总之先试试C++和VBA的速度。C++快得意料之中,51毫秒(编译器是TDM-GCC 5.1.0-2 64位,编译选项-Ofast):VBA约279毫秒,和文中所述速度基本一致:然后是Mathematica(测试版本9.0.1): (自认为)写的比较好的非编译版本: (* 可以借助 Simplify`PWToUnitStep@PiecewiseExpand@If[x < 1, 1, 0] 计算出所需的UnitStep组合 *) With[{a = RandomReal[1, {25 10^5}], b = RandomReal[1, {25 10^5}]}, 1/(2.5 10^6) ((Total[1. - UnitStep[-1 + (a^2 + b^2)]] + Total[1. - UnitStep[-1 + ((1 - a)^2 + (1 - b)^2)]])) 2] // AbsoluteTiming (* {0.295614, 3.14008} *) 和VBA纯循环版本的速度差不多。 然后是编译版: Compile[{}, With[{a = RandomReal[1, {25 10^5}], b = RandomReal[1, {25 10^5}]}, 1/(2.5 10^6) ((Total[1. - UnitStep[-1 + (a^2 + b^2)]] + Total[1. - UnitStep[-1 + ((1 - a)^2 + (1 - b)^2)]])) 2]][] // AbsoluteTiming (* {0.126434, 3.14154} *) 比VBA快了,不过还是只有C++的一半。 让我有些惊讶的是,高维列表会导致代码略微变慢: Compile[{}, With[{n = 25 10^5}, With[{lst = RandomReal[1, {2, n}]}, 1./n ((Total[1. - UnitStep[-1. + Total[lst^2]]] + Total[1. - UnitStep[-1. + Total[(1. - lst)^2]]])) 2]]][] // AbsoluteTiming (* {0.152793, 3.14172} *) 编译为C的话又能榨出一点速度来,当然了,调用C编译器挺慢的……: cf = Compile[{}, Module[{c = 0., n = 25 10^5}, Do[With[{a = RandomReal[], b = RandomReal[]}, If[a^2 + b^2 < 1., c += 1.]; If[(1. - a)^2 + (1. - b)^2 < 1., c += 1.];], {n}]; c 2/(n)], CompilationTarget -> C, RuntimeOptions -> "Speed"];//AbsoluteTiming (* {0.296880, Null} *) cf[] // AbsoluteTiming (* {0.110118, 3.14154} *) 上面的代码还有优化余地吗?
【资料&调查】《钢铁是怎样炼成的》小说下载及版本调查 标题写不下了。原本拟定的完整标题是: 【资料&调查】《钢铁是怎样炼成的》小说TXT及PDF下载及本书电子版各版本流行状况简要调查 总之,先放上找到的TXT及PDF的下载: 链接(百度近期拼命吞链,试下短地址): 1t.click/a3Jm 提取码:ziij 以上链接中包含有: TXT 黄树南1994年版(这个就是通常所谓的“全译版”) PDF (没错现有的TXT就上面一个版本) 梅益译本,人民文学出版社1995年第5版,名著名译插图本 黄树南1994年版 花山文艺出版社的仰熙、凤芝译本 人民文学出版社1976年版(这一版的前言颇有时代特色……) 英文版 西班牙文版 改写版其一,出版社不详,世界少年文学名著珍藏版 改写版其二,江西美术出版社,小学生课外阅读必读丛书,带拼音 扫图 日文版 —————————— 资源就上面这些,接下来是电子版各版本流行状况简要总结。本次资源寻找,使用了“钢铁是怎样炼成的 txt”及“钢铁是怎样炼成的 pdf”为关键字,分别下遍了百度及谷歌的搜索结果的头3页中的全部无需注册或使用特殊下载工具的《钢铁是怎样炼成的》小说下载链,耗时一整晚,样本数量应该是够的。 会想到弄这样的调查有两个原因。其一,吧里时不时会有人来求本书的电子书下载——尽管本书的资源其实是辅天盖地一点也不难找,但是每回都要告知一遍也有点麻烦;其二,也是决定性的一点,那就是 @ium123 和 @sky小脐橙 对目前网络上流传的《钢铁是怎样炼成的》小说TXT版本的完整性产生了怀疑,所以我决定对此做一些调查。 直接说结论吧:就我的调查结果来说,这种担心是没有必要的,网络上流传的TXT版本的单一性简直低的惊人——只有黄树南1994年的全译版一个版本。这一版本的TXT大小在 589KB 上下(当然多数网站是以压缩包形式提供小说的,其体积大概在二三百KB——顺便,虽然下了那么多压缩包,我却一个含病毒的包都没遇到),各网站的版本大小有浮动,造成这一现象的原因有: 1 正文中加入了他们网站的网址。 2 段与段之间,有的空了行,有的没空行。 3 部分版本删掉了译者前言。多数版本不含译者后记。(上面放出的下载版已同时包含前言及后记。) 4 及个别版本的TXT使用了Unicode编码格式进行保存,导致整个文件白白大了200来KB。(但只要检查正文行数及字数就能明白其实依旧是同一版本。) 5 少数版本中附上了简介和导读,还有附上《纪念冬妮亚》一文的。 6 下到了极个别的不完整版,但是一缺就缺了半本书,光看大小就能明白…… 总之,对本书TXT版本不全的担心是完全不必要的。各位可以下载上面放出的版本,也可以自行寻找,不管怎么做,出岔子的可能性都趋近于0——不过要是真出了岔子,还望能告诉我。 PDF的版本(相对TXT)较为丰富,大家可自行取用,译本的问题这里就不多讨论了,这里只指出两点:其一,梅益的译本虽然最初是由英文转译的,但后来根据俄文版重校过;其二,黄树南版全译本中增加的内容,在较新的梅益译版中(比如上面的PDF)以附注形式给出了。(因为这些部分在作者生前没有公开发表。)有兴趣的朋友可以阅读梅益版PDF的《译后记》中的相关说明,此外还可参考精品区的相关文章——话虽如此,百度目前隐藏了几乎全部17年1月前的帖子(想了解更多情况可搜索“百度 灭霸式删帖”),精品区这会儿也没剩下几个相关帖……
【资源】《保尔》/《钢铁是怎样炼成的》改写版,菡子 改写 为了有点材料发帖,同时也算是一时兴起,找了找《<钢铁是怎样炼成的>在“十七年”的传播与接受》一文中提及的改写本,但最后只找到了八十年代重印过的本书。链接(百度吞帖依旧汹涌,试试短地址): 1t.click/amnF 提取码:a5n4
【交流】Mathematica版本10以来的某些悄悄改变 近段时间我逐步增加了使用版本11.3和版本12的时间,结果发现,Mathematica近几版以来的某些改变(有的好有的坏)其实并没有写在文档里,故开此帖与大家交流。 先说我发现的几个好的改变: 1. 并行能力比过去强了。比如NDSolve在解偏微分方程时,如果调用的是TensorProductGrid方法,多核机器的CPU会跑满。(版本9时代其实也不是完全没并行,但不会像现在这么高效。)NonlinearModelFit也出现了CPU跑满的情况,不过我在版本9时代对NonlinearModelFit的使用有限,所以不太确定那时候的并行情况如何。 2. NDSolve可以只存储时间终点处的数据了。比如: NDSolve[{y'[x] == y[x] Cos[x + y[x]], y[0] == 1}, y, {x, 30, 30}] 通过观察内存变化可以发现,在版本9时代,NDSolve会先将0至30的数据全部记录下来,在最后生成插值函数时再抛弃多余数据,而至少自11.3起,NDSolve转而采用了实时抛弃“无用”数据的策略——这个特性在求解某些大型方程(组)时很有用。 再说几个“坏”的改变: 3. Plot系函数生成的图形的语法在版本12又悄悄地改了一次,这直接导致某些靠“精确定位”Graphics内部元素来实现图形修改的代码在版本12出现了不兼容。目前来看,用模式匹配实现图形修改的代码受的影响会小些——但愿后续版本不会出现当年版本5->6那般的大改动吧。 4. NDSolve`StateData[…]变成了原子表达式,并且Mathematica没有为之配备相应的修改方法。这导致某些依赖于修改 NDSolve`StateData[…] 的微分方程求解方法的报废。 暂时就想起来这些……大部分都是关于微分方程的,毕竟我比较关心这个嘛。大家也说说自己的发现吧。
【资源】【自扫】《钢铁是怎样炼成的》日文版 为了有点材料发帖,同时也是由于一贯的收集癖作祟,入手了本书的日文版。据日文wiki,本书的日文译本至少有以下七种: 『鉄はいかに鍛へられるか』(東京案内社、1936年) - 稲田定雄訳 『鋼鉄はいかに鍛えられたか』(ナウカ社、1950年) - 杉本良吉訳 『鋼鉄はいかに鍛えられたか』(青木文庫、1953年) - 一条正美訳 『鋼鉄はいかに鍛えられたか』(岩波文庫、1955年) - 金子幸彦訳 『いかに鋼鉄は鍛えられたか』(角川文庫、1958年) - 袋一平訳 『ロシア文学全集第32巻 オストローフスキィ 鋼鉄はいかに鍛えられたか』(修道社、1959年。平凡社版、1964年) - 中村融訳 『世界革命文学選1 鋼鉄はいかに鍛えられたか』(新日本出版社、1964年。文庫版、1974年) - 横田瑞穂訳 在亚马逊上可以找到的,有 一条正美,金子幸彦,袋一平,横田瑞穂 的四个译本。这里扫的是一条正美的译本,选择该译本的原因是——这一版的封面上有图(心照不宣)。 链接(百度疯狂限外链,试下短地址):1t.click/Jru 提取码:4j5x
【转载】《钢铁是怎样炼成的》在“十七年”的传播与接受 本文是武汉大学 户松芳 同学的硕士学位论文。研究了本书在建国后十七年的传播与影响。全文六十余页,就不直接贴图了(近期百度疯狂吞外链,试试短地址): 1t.click/BGT 提取码:sexx 这里提供了NH和PDF两种格式,内容是一样的。
【转载】《钢铁是怎样炼成的》三个中译本的评析 本文是四川大学 袁龙燕 同学的硕士学位论文,评析了 梅益,黄树南,曹缦西、王志棣 的三个译本。全文七十余页,就不直接贴图了(百度贴吧近期疯狂吞帖,试下短地址能不能过关): 1t.click/tFX 提取码:llyk 这里提供了CAJ和PDF两种格式,内容是一样的。
【吧务】【注意】百度贴吧近期会将含有外链的帖子变为仅作者可见 并且这是没有任何通知或提示的。大家在发帖时千万注意。 不确定除外链外是否有其他内容会受此影响,大家若不放心,可在发帖后通过查看浏览器隐身模式加以检查。
为什么我的代码加了下标(Subscript)就出问题了? 这个也算是月经问题了,但是吧里好像一直没有标题足够明了的帖子出现,故开此帖。百度目前彻底限死了外链,只好贴截图了:
免费的Wolfram Engine for Developers,有人用了吗? 这绝对称得上件大事了,整个中文网络却静悄悄的,貌似只有WolframChina的微博提了一句……总之,这就是一个没有笔记本界面也没有自带帮助文档的面向非商业用户(原文不是这个,具体参官网的“Free Wolfram Engine for Developers: Terms and Conditions of Use”)的免费版的Mathematica。相应的链接我已加入置顶。(这帖里就不贴了,怕被吞。) 最后,感谢@Jim_Error 友情提供的Windows版安装包。
下载安装激活,自带帮助是英文、打不开指导(另开新帖者删 为了便于随时修改完善本教程的内容,教程的正文放在github上。请多点一下鼠标: tiebamma.github.io/InstallTutorial 什么,你用的是手机,没法复制上面的链接?那就用电脑访问这个页面——话说你为什么要用手机访问这个帖子,难道是准备把Mathematica装在手机上? 如果对于教程里的内容还有疑问,请在本贴下提问,另开新主题者删。 例外情况:在Mathematica新版推出后的一小段时间里,允许在外面开帖提供链接。“一小段时间”的长度由吧务把握。 github也是可以多人协作的。欢迎大家来协助完善教程。
提问时直接贴代码文本,别截图!至少不要光截图!违者删+封1天 具体说来,这,是所谓的“截图”:而这,才是 我们所希望的代码 文本: \[Theta]e = Compile[{n, \[CapitalOmega], k}, Nest[# + \[CapitalOmega] - k Sin[2 \[Pi] #] &, 0, n]/n]; dat = Parallelize@Outer[\[Theta]e[500, #2, #] &, Range[0, 1, 1/500], Range[0, 1, 1/500]]; // AbsoluteTiming ArrayPlot[dat, ColorFunction -> (Blend[{Black, Blue, Green, Yellow, Red}, #] &), ColorFunctionScaling -> False, DataReversed -> True] 啥?你说直接贴文本不好看?好看有什么用?大多数情况下,答题者不执行一下你的代码,是没法发现你的错误所在的。你提问的时候贴一张图上来, 你上传图片累,我们抄着更累,确切地说,多数时候根本没人愿意抄你的代码。 看似杂乱的代码文本,只要贴回软件中,就能恢复原状了,不信你试试? 善用Ctrl+C,Ctrl+V,远离截图! 想要进一步提高求助成功的概率,可以参考以下帖子: http://tieba.baidu.com/p/2676255684 http://tieba.baidu.com/p/2026341423 最后,求码帖,通删。
【调查】你将《钢铁是怎样炼成的》这本书读了几遍?【2019新版】
你最初读完《钢铁是怎样炼成的》是几岁?【2019年新版】
来到此地的各位,都是哪一年出生的?【2019年新版】
你为什么来到钢铁是怎样炼成的吧?【2019年新版】
选出本书中你最喜欢的角色(可多选)【2019年新版】
你为什么读完了《钢铁是怎样炼成的》?【2019年新版】
【调查】本书读者的性别【2019新版】
20190226
【外交】2019.2.19 钢铁是怎样炼成的吧 回访 嗯……奋战了两个月我重申成功了,故来回访。欢迎大家前来参观: https://tieba.baidu.com/f?kw=%E9%92%A2%E9%93%81%E6%98%AF%E6%80%8E%E6%A0%B7%E7%82%BC%E6%88%90%E7%9A%84&ie=utf-8&tp=0
吧里有两条置顶,手机上只能显示一条,新来的,别用手机上贴吧! 把任意一个置顶放在最上面,违反另一条的就会涨,没办法,试验性地造个第2.5条置顶好了。 大家有什么更好的对策欢迎留言。
【〇疼】让Mathematica支持do…end语法(雾):TemplateBox介绍 受某帖启发写了个无聊的东西:本来想多写点内容介绍下具体思想的,但是现在突然觉得累了,所以算了……其实我对这项技术也不算很熟悉啦。总之Mathematica里各种看似不符合基本语法的马甲 或许就是用同样的方法造出来的。此外,Stackexchange的Carl Woll(Wolfram公司员工,Wolfram|Alpha的首席开发者)是使用此项技术的高手,有兴趣的可以多看看他的帖子。 总之最后是源代码: ClearAll@do SetAttributes[do, HoldAll]; do[var_, begin_, end_, body_] := Do[body, {var, begin, end}] Hold[do /: MakeBoxes[do[var_, begin_, end_, body_], StandardForm] := TemplateBox[MakeBoxes /@ Unevaluated@{var, begin, end, body}, "do", DisplayFunction -> (GridBox[{{RowBox@{RowBox[{style@"do", " ", #}], "=", RowBox[{#2, " ", style@"to", " ", #3}]}}, {RowBox@{"", #4}}, {style@ "end"}}, ColumnAlignments -> Left] &)]] /. style[str_] -> StyleBox[str, FontColor -> Darker@Green] // ReleaseHold // ReleaseHold Hold[CurrentValue[EvaluationNotebook[], {InputAliases, "do"}] = TemplateBox[{"\[SelectionPlaceholder]", "\[Placeholder]", "\[Placeholder]", "\[Placeholder]"}, "do", DisplayFunction -> (GridBox[{{RowBox@{RowBox[{style@"do", " ", #}], "=", RowBox[{#2, " ", style@"to", " ", #3}]}}, {RowBox@{"", #4}}, {style@ "end"}}, ColumnAlignments -> Left] &)]] /. style[str_] -> StyleBox[str, FontColor -> Darker@Green] // ReleaseHold
【转载】钢铁是这样炼成的——梅益老人印象 这是一篇采访。《“又聋又哑”的翻译家——梅益》中的部分内容或许就是出自本文。
【转载】“又聋又哑”的翻译家——梅益 梅益的介绍文章在CNKI能检索到不少,但大都比较正式,如这篇一般谈及他生平轶事的并不多。
【转载】《关于一句名言的争鸣》等两篇 久违地转载一下来自报刊杂志的文章。算是比较少见的“咬文嚼字”式讨论。
得了,我最担心的事发生了。我的吧主位子被百度的机械审核刷掉了 我会尽力去申诉,虽然希望可能不大吧。实在不行我就重新申请。吧里的活跃成员也请积极申请下吧主试试,虽然吧里没什么事,但是无政府状态还是太危险了。@pumpkinlatern @tjchenbin81
导入导出杂谈 关键词:Export Import Read ReadList BinaryRead BinaryReadList DumpSave 导入 导出 Excel 用户友好 CSV XLS XLSX TXT 图片 PDF EPS …… 想想还是开个帖子整理下 常见的导入导出问题及技巧。为方便修订照例放在云笔记上,请大家多点几下鼠标: note.youdao.com/noteshare?id=cca8f44b56fcab28a6b9bfb394397e21 有什么意见或已经议欢迎提出,不过回帖不看帖的照例直接删。
写给想入门Mathematica的新手 此帖是本吧初代吧主 @mm_酱 发在果壳小组的一篇教程。如今果壳小组已死,mm_酱近期又不太活跃,这里姑且重发一份: http://tieba.baidu.com/mo/q/checkurl?url=https%3A%2F%2Fnote.youdao.com%2Fshare%2F%3Fid%3D058e6037396d925af1f4abe4d54a52a8%26type%3Dnote%23%2F&urlrefer=71d537b68c26cdd0a050f86c194ceb3b mm_酱你要是想整理下出个v2就吱一声。
为什么y=y[x]会出错?你分得清函数关系和函数吗? 在实践中发现对此不甚明了的人意外地多,故开此主题。为方便修订,照例弄个云笔记,请多点一下鼠标: http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fnote.youdao.com%2Fnoteshare%3Fid%3Df2cdd9e72b66c73f372296800de7f7f5&urlrefer=2180f1b255fa1c706d57dc4fbe199420
关于果壳Mathematica小组的几篇长文 众所周知,门可罗雀的果壳小组最近(好吧,好像也几个月了……)关闭了。但是,就我所见果壳的Mathematica小组里还是有几篇不错的文章的,比如 @mm_酱 的《写给新手》(这同时也是本吧精品帖之一——现在那帖当然废了),果壳ID 马甲与小号 (@万毒狂魔 是你吗?)的《怎样算阶乘:Mathematica是个计算器》。这些文章就这么没了实在有点可惜,所以,能不能在吧里发一份?
投票截图20181009
【蹭热度】【转】关于A什么爵士对黎曼猜想的证明 毕竟这也算是近期头号娱乐新闻,这里跟个风(心照不宣)。本来嘛,定理证明好像也没有Mathematica多少事,但是,对这事稍有关注的同鞋可能知道,A爵士在进行这个证明的时候,引用了自己的另一篇关于精细结构常数(fine-structure constant)的文章,而那篇文章里的内容相对“初等”,可以方便的进行数值验算。(Quora上甚至有Excel版本。)于是,SE也冒出相关帖了: mathematica.stackexchange.com/q/182565/1871 结果当然是对不上。不过这差的也太远了,该不会文章真是假的吧……
不到2M的Tiny C Compler(TCC)原来也可以用作Compile的编译器啊 不知编译为何的同学先看这里: note.youdao.com/share/?id=bf2a031f7d0d69064941032c7857dfd1&type=note#/ 这是我前两天灵光一闪意识到的:既然配置GCC的时候,用的是GenericCCompiler选项——这选项里有个Generic啊,那说不定,其他的编译器也能用这个方法配置?于是仔细读了读帮助又试了试,发现还真是这样。总之这里给出配置方法。 TCC的配置方法与GCC几乎是一样的,这里依旧以64位Windows为例。 首先把TCC下载下来。官网地址:download.savannah.gnu.org/releases/tinycc/ (目前Win64位下的最新版是tcc-0.9.27-win64-bin.zip。) 然后,解压到任意路径。(我这里为了便于说明,就放在C盘根目录了。不排除在某些特殊路径下会出现BUG。) 最后,我们在Mathematica里执行 SystemOpen@"init.m" 打开配置文件,再在其中写入 << CCompilerDriver`GenericCCompiler` $CCompiler = {"Compiler" -> GenericCCompiler,"CompilerInstallation" -> "C:\\tcc","CompilerName" -> "tcc.exe"}; 并保存。(再次强调,注意安装路径"CompilerInstallation"需要改成你的安装路径,并且这个路径不能有空格。此外,这次我没有设"SystemCompileOptions"选项,因为TCC似乎没有优化相关的选项可设。) 然后就可以愉快地编译了。 ……不过,实践之后发现,TCC的性能相较于GCC似乎并不好,应该是为了编译快而放弃了优化。不过总的来说还是挺好玩的,大家可以玩一玩。 顺便,有谁装了微软家的编译器的话,可以试试上面的方法行不行。
【水?】【转】日本大学生欧派函数锦标赛 是个视频。其中的函数式我就懒得抄了,谁有兴趣就弄一下: weibo.com/1742250074/GtrzzrRX5
【〇疼】伪三维参数绘图 这个〇疼念头是在回复这帖(http://tieba.baidu.com/p/5794390993)的过程中产生的: 如果出于某种原因(比如…………好吧我一个例子也想不出来)我们需要用一张二维线图来装成三维线图的话,该怎么办? 于是就有了下面的玩意儿……: vector[x] = {1, 0}; angle = 35 °; vector[y] = {Cos[angle], Sin[angle]}; vector[z] = {0, 1}; to2dpoint = Function[point, (vector /@ {x, y, z}) point // Total]; coord = Arrow[{{0, 0}, 2 #}] & /@ (vector /@ {x, y, z}) // Graphics; fakeParametricPlot3D[argument__] := Graphics[Cases[ParametricPlot3D[argument], Line[a_] :> Line[to2dpoint /@ a], ∞]]~Show~coord fakeParametricPlot3D[{Cos[x], 1/2 Sin[x], 0}, {x, 0, 2 Pi}]虽然没什么用,但写都写出来了那就在吧里贴一份算了……
【水?】版本12?在做了,咕咕 其实这帖上个月就想法的,但后来弄忘了。6.21的时候WRI的Blog更了篇30周年的纪念文: http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fblog.wolfram.com%2F2018%2F06%2F21%2Fweve-come-a-long-way-in-30-years-but-you-havent-seen-anything-yet%2F&urlrefer=8cb140ebe13600227425855632b9908f 然后,理所当然地,有群众就在下面问起了版本12的事:官方对此如是回复道: Thanks for your comment! Yes, we intend to ship an integer release this year! However, we are in development building things that have never been built before, so we unfortunately can’t provide even a tentative ship date until all new features and functions have been built and tested. We are definitely not trying to keep the release date a secret by any means. When everything has been tested and are sure that the functions are going to operate appropriately, we’ll have a better idea of a timeline for it to ship. At this point though, the best we can say is that it will be sometime this year. 好吧,看样子版本12又准备搞大新闻了。(新的编译器?)但愿这回别又迈大了步子结果扯到〇了吧。(我为什么要说又?)
首页
1
2
下一页