xzcyr xzcyr
关注数: 3 粉丝数: 743 发帖数: 13,770 关注贴吧数: 18
《武器种族传说~被封印的诗歌~》完全汉化版发布 【汉化人员】 破解:啪嗒啪嗒 翻译: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}]}]最后,上面的代码只为做了最低限度的修改,那些不太“现代化”但还能用的地方都没动,大家有兴趣可以改改看。
圣诞前前夜(作者 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卷出版了。 大家已经读过了吗? イチゴ頑張って描いたよ。 頑張りすぎて友達に「写真合成したんでしょ?」って言われたよ。 草莓我可是用心画了。 用心过头了,结果有朋友说“你这是用照片合成的吧?” 自分でかいたんだよ!!!!!!!! 这是我自己画的啊!!!!!!!! ・・・・・・・いや、誉められたんだよね?  きっと。 ……不对,人家这是夸我吧?肯定是夸我。 最新刊とは関係ないのですが、たま~にネット上で 「東まゆみ」の名前の書き込みを見たと耳にします。 下面这事儿和最新刊没啥关系,可我听说偶尔~会在网上看到“东麻由美”的署名。 ・・・が、私はここ(あずまや日記)以外では書き込みなんてしませんので 皆様くれぐれもだまされないようにお願いします。 ……可是,我署过名的地方只有这里(东家日记) 还望大家千万别上当。 でも自分じゃない人が自分の名前使って書くってあんまりいい気持ちしませんねぇ。 顔が見えないってこわいね~。ぶるぶる 不过自己的名字让别人给用了真让人不怎么舒服呢。 看不到对方长相的网络世界好可怕~我抖。
2009年(作者2009.1.8博文翻译) (本文的原文用了不少颜文字,不太适合在贴吧贴,想了解原貌的可以去看原文……) 2009年 2009年(图上的字:喂,说你呢!正月已经过了!!) あけましておめでとうございます。 新年快乐。 今年もエレメンタルジェレイドと東をどうぞよろしくお願いいたします。 今年也请多多关照《武器种族传说》和阿东我哦。 がんばって面白い漫画をいっぱい描くですよ~!! 我会努力画出许多有趣的漫画的!! てがきブログの方はちょうどいい自由帳を手に入れた気分なので けっこう描き散らかしてます。 手绘博客那边,因为感觉就像是得到了一个称手的自由记录本,我乱画了不少东西。 飽きないように続けよう(笑) 我就不知厌倦地继续下去吧(笑)(译注:手绘博客地址:tegaki.pipa.jp/214553/index_0.html 不过,09年10月之后就再没更过了……) 仕事以外であまりお絵描きしない私だけどああやって見てくれる人がいるのなら 我在工作以外很少画画,但既然这些涂鸦有人看 ちょこちょこ描いて行きたいと思うのです。 我也打算一点一点继续画下去。 元旦はSCARECROWさんのライブに行きました。 元旦去听了SCARECROW(按百科的说法,她喜欢那个乐队里的黒田倫弘)的演唱会。 楽しかったです!ライブはやっぱり楽しいね! 好开心!演唱会果然让人开心! そそ、今年も携帯ゲーム「多重人格~Dr.yesterday~」はもりもり配信中ですので 遊んでくださいませ~。 对了对了,手机游戏《多重人格~Dr.yesterday~》(译注:东婶担任这游戏的角色设计)今年也依旧是火热发布中,大家玩一玩吧~。 んで、元旦はかずのこと伊達巻きたべました。 饮食方面,元旦吃了干青鱼子和伊达卷。 伊達巻きさえあれば文句ないです。 有伊达卷了还要啥自行车。 ということで、今年もがんばっていこう~!! 所以,今年也加油吧~!!
用 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 调剂调剂。啊,不过图像处理相关的内容我也不很熟,大家不必过于期待。 上面的内容若还有不懂的,欢迎留言提问。
太谢谢了!(作者 2010.3.14 红本完结时的博文翻译) 这个当初译完后是发在我的百度空间里的,不过后来百度空间咋样了大家都知道……这次正好需要发帖,那就拿出来重发下好了: ありがとうございました! 太谢谢了! 2010-03-14 15:09:25 / 東まゆみ 紅の最終巻と蒼の6巻が発売しました。 红本最终卷和蓝本第6卷发售了。 紅はこれでついに終幕! 红本到此终于完结了! 8年間ありがとうございました!! 这八年来真是谢谢大家了!! そして昨日、秋葉原の有隣堂ヨドバシAKIBA店さまにて発売記念サイン会を行いました。 然后呢,我昨天出席了在秋叶原的“有隣堂ヨドバシAKIBA店”(译注:店名,好像没有正规译法)举办的发售纪念签名会。 発表からすぐに定員がいっぱいになってしまい、今回参加できなかったひともいると思います。 签名会的消息发表后参加名额很快就满了,这回大概有人没能参加吧。 でもちゃんと思いは私のところに届いています! 但你们的心意都很好地传达给我了! それにまた面白い漫画を描いてみんなに会いたい! 我还想画出有趣的漫画和大家见面! サイン会は本当にたくさんの方が来てくれて お天気もよくてあったかくて最高でした。 签名会真的来了很多人,天气也很好很暖和,真是再好不过了。 いつも部屋で漫画を描いて送り出しているだけなので、こうしてひとりひとり 私の漫画を読んでくれる人に直接会うのは滅多にないから感慨深かったです。 我总是过着窝在家里画漫画,很少像这样与看过我的漫画的人一一会面,这次签名会让我十分感慨。 GET!読んでましたとか、スタオ読んでましたとか。 “我看过您的《GET!》。”“我看过您的《光剑星传》。” 本当にずっと読んでくれてるんだって嬉しかったです。 你们能一直看我的作品真的让我很开心。 来てくれたみんな!本当にありがとうございます! 来参加签名会的各位!真的太感谢了! 元気をたくさんもらいました! 你们给了我莫大的鼓励! 来月から始まる新作もがんばります! 下个月开始连载的新作我也会加油画的! 蒼もまだまだ続きます! 蓝本的故事也还会继续! エレメンタルだってまだまだ続きます! 《武器种族传说》的故事也仍在继续! クーとレンだってあそこじゃ終わらないよ。 酷和蕾可没有在那里死去哟。 シスカ達だって暴れたりないですよ。 希丝卡他们可还没有闹够哦。 だからこれからも東はがんばるのでよろしくお願いします! 因此今后阿东我也会努力的,请多指教! みんな本当にありがとうです!!!! 各位,真的太谢谢了!!!!
【〇疼】【讨论?】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月前的帖子(想了解更多情况可搜索“百度 灭霸式删帖”),精品区这会儿也没剩下几个相关帖……
【交流】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[…] 的微分方程求解方法的报废。 暂时就想起来这些……大部分都是关于微分方程的,毕竟我比较关心这个嘛。大家也说说自己的发现吧。
【〇疼】让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
不到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似乎并不好,应该是为了编译快而放弃了优化。不过总的来说还是挺好玩的,大家可以玩一玩。 顺便,有谁装了微软家的编译器的话,可以试试上面的方法行不行。
首页 1 2 下一页