Mathematica 教學：文字排列

mystr=StringPartition[
"豫章故郡洪都新府星分翼軫地接衡廬襟三江而帶五湖控蠻荊而引甌越物華天寶龍光射牛斗之墟人傑地靈徐孺下陳蕃之榻雄州霧列俊彩星馳臺隍枕夷夏之交\
賓主盡東南之美都督閻公之雅望棨戟遙臨宇文新州之懿範襜帷暫駐十旬休暇勝友如雲千里逢迎高朋滿座騰蛟起鳳孟學士之詞宗紫電青霜王將軍之武庫家君作宰路\
出名區童子何知躬逢勝餞時維九月序屬三秋潦水盡而寒潭清煙光凝而暮山紫儼驂騑於上路訪風景於崇阿臨帝子之長洲得仙人之舊館層臺聳翠上出重霄飛閣流丹下\
臨無地鶴汀鳧渚窮島嶼之縈廻桂殿蘭宮即岡巒之體勢披繡闥俯雕甍山原曠其盈視川澤紆其駭矚閭閻撲地鍾鳴鼎食之家舸艦迷津青雀黃龍之舳雲銷雨霽彩徹區明落\
霞與孤鶩齊飛秋水共長天一色漁舟唱晚響窮彭蠡之濱雁陣驚寒聲斷衡陽之浦遙襟甫暢逸興遄飛爽籟發而清風生纖歌凝而白雲遏睢園綠竹氣凌彭澤之樽鄴水朱華光\
照臨川之筆四美具二難並窮睇眄於中天極娛遊於暇日天高地迥覺宇宙之無窮興盡悲來識盈虛之有數望長安於日下指吳會於雲間地勢極而南溟深天柱高而北辰遠關\
山難越誰悲失路之人萍水相逢盡是他鄉之客懷帝閽而不見奉宣室以何年嗟乎！時運不齊命途多舛馮唐易老李廣難封屈賈誼於長沙非無聖主竄梁鴻於海曲豈乏明時\
所賴君子安貧達人知命老當益壯寧移白首之心窮且益堅不墜青雲之志酌貪泉而覺爽處涸轍以猶懽北海雖賒扶搖可接東隅已逝桑榆非晚孟嘗高潔空餘報國之心阮籍\
猖狂豈效窮途之哭勃三尺微命一介書生無路請纓等終軍之弱冠有懷投筆慕宗慤之長風捨簪笏於百齡奉晨昏於萬里非謝家之寶樹接孟氏之芳鄰他日趨庭叨陪鯉對今\
茲捧袂喜托龍門楊意不逢撫凌雲而自惜鍾期既遇奏流水以何慚嗚呼！勝地不常盛筵難再蘭亭已矣梓澤丘墟臨別贈言幸承恩於偉餞登高作賦是所望於群公！敢竭鄙\
誠恭疏短引一言均賦四韻俱成請灑潘江各傾陸海雲爾滕王高閣臨江渚佩玉鳴鸞罷歌舞畫棟朝飛南浦雲珠簾暮捲西山雨閒雲潭影日悠悠物換星移幾度秋閣中帝子今\
何在檻外長江空自流！",1];

ntext[n_]:=Total@Flatten@Reverse@Map[If[Total[#]==255*3,0,1]&,
Rasterize["6",RasterSize->n][[1,1]][[10;;-4]],{2}];

num=SortBy[ParallelMap[{#,Abs[ntext[#]-Length@mystr]}&,Range[10,100]],Last][[1,1]];

mydata=Reverse@Map[If[Total[#]==255*3,0,1]&,
Rasterize["6",RasterSize->num][[1,1]][[10;;-4]],{2}];

mypos=Position[Flatten[mydata],1][[All,1]];

mydata2=Flatten[mydata];

Table[mydata2[[mypos[[i]]]]=mystr[[i]],{i,Length@mypos}];

Grid[Partition[mydata2,42]//.0->""]

Tags: Mathematica 教學, Mathematica 教學 程式

• 編輯文章
• 此文章網址
• 轉寄此文章
• 目前有0 意見