KETpic できれいな蹐こう
?
1 like?2,487 views
KETpic を聞って TeX に縮親のようなきれいな蹐携襪靴茲Δ箸いΔです KETpic では3肝圷のものだとかかいC嬬が協xされていますがgな恬蹐鰉辰い討海離好薀ぅ匹任禄瞠hしていきます
![TeX のソ`ス
ketpic と graphicx は駅
?gure h廠の嶄にinputコマンドで枠ほどの恬蹐鯣
れる
17
documentclass[12pt]{jsarticle}
usepackage{ketpic}
usepackage{graphicx}
usepackage{float}
begin{document}
begin{figure}[H]
centering
input{ketpic/2x.tex}
caption{$f(x)=2x (0<x<1)$のグラフ}
end{figure}
end{document}](https://image.slidesharecdn.com/ketpic-140608072314-phpapp02/85/KETpic-17-320.jpg)
![Code for extracting the TeX source
22
# I囃の輅
# Hatchdata( I囃の坪翌,I囃の峺協:]爆や爆の貧和の峺協,
# 弍の鬚,嫌 )
GH=Hatchdata(list(｀ii'),list(SEG1,'n'),list(G,'s'),-45,0.5)
# 宙鮫
Drwline(GH,0.5)
# 恬軆K阻の傚冱
# 1で恙翻Sをく0でかずにK阻
Endpicture(1)
# Rでのファイルき竃しのK阻の傚冱
Closefile()
恬TeX
き竃し
2/2](https://image.slidesharecdn.com/ketpic-140608072314-phpapp02/85/KETpic-22-320.jpg)
![麿にも弼？できます
ketpicR_4_3_1_ltd01.zip の嶄の referenceR4_3_1_ltd.pdf
に？なv方のh苧がいてあります
23
2014 定 1 埖 2 晩
KETpic v4.3.1 ltd コマンド匯E
for R
PD プロットデ`タ
1 R についての廣吭
1. KETpic のizみには肝をg佩する
load(￣C:/work/ketpic.Rdata￣) ?C:/work/は恬Iフォルダ兆
☆ ディレクトリの筝は setwd(￣c:/work￣)
2. 猟忖双は? ￣┘瀬屮襭で譴
☆ 猟忖双の嶄に猟忖双を秘れるときは ¨ と ￣ を秘れ徨に聞う
3. v方などを哈方とするときは猟忖双とする
箭G<- Plotdata( ￣x^2￣, ￣x=c(0,1)￣)
4. ┘丱奪スラッシュを竃薦するには２つKべてかく
5. 廣は #
6. 方と猟忖双のQ
as.character(方)
as.numeric(猟忖双)
eval(parse(text=猟忖双)))
sprintf(塀, 方) 塀原き猟忖双
7. なる侏のデ`タからリストを恬るには list を喘いる
恬撹??? L<- list(... , ... );
函り竃し? A<- L[[i]]
何蛍リスト? L[V] (V はベクトル)
崔きQえ? L[[i]]<- ...
Lさ??? length(L)](https://image.slidesharecdn.com/ketpic-140608072314-phpapp02/85/KETpic-23-320.jpg)
![Bibliography
CASTEX鮄恥仂浸(2011), 〆KETpicでS？TEX
グラフ〇, イ`テキスト冩梢侭.
Y. Maeda & M. Kaneko (2013). ＾Making math
textbooks and materials with TEX+KETpic
+hyperlink￣, The 34th Annual Meeting of the TeX
Users Group.
26
[1]
[2]](https://image.slidesharecdn.com/ketpic-140608072314-phpapp02/85/KETpic-26-320.jpg)
KETpic できれいな蹐こう
- 1. ???で きれいな蹐こう @y_system 2014定6埖8晩 KETpic v4.2.2 ltd コマンド匯 for R いての廣吭 zみには肝をg佩する /work/ketpic.Rdata￣) ?C:/work/は恬Iフォルダ兆 ィレクトリの筝は setwd(￣c:/work￣) (1, 2) f(x) = 2x(0 < x < 1) 1 x f(x) O
- 2. このスライドは y盾裂ソフトR で???? を聞ってTEXの恬蹐 胆しくしようというもの どんなにBってもRのplotでは渊腓ある Rではexpressionv方で方塀燕Fはサポ`トされてま すが´た朕は胆しくない´ 2 2 KETpic v4.2.2 ltd コマンド匯E for R PD 1 R についての廣吭 1. KETpic のizみには肝をg佩する load(￣C:/work/ketpic.Rdata￣) ?C:/work/は恬Iフォルダ兆 ☆ ディレクトリの筝は setwd(￣c:/work￣) 2. 猟忖双は? ￣┘瀬屮襭で譴 ☆ 猟忖双の嶄に猟忖双を秘れるときは ¨ と ￣ を秘れ徨に聞う 3. v方などを哈方とするときは猟忖双とする 箭G<- Plotdata( ￣x^2￣, ￣x=c(0,1)￣) 4. ┘丱奪スラッシュを竃薦するには２つKべてかく 5. 廣は # 6. 方と猟忖双のQ as.character(方) f(x)=x 2
- 3. about: 縮親のようなきれいな蹐TEXに 蹐琳个林催や方塀も云猟と揖じた朕 蹐鬚錣りやすく 3 KETpic v4.2.2 ltd コマン for R R についての廣吭 KETpic のizみには肝をg佩する load(￣C:/work/ketpic.Rdata￣) ?C:/work/は恬Iフォルダ兆 ☆ ディレクトリの筝は setwd(￣c:/work￣) 猟忖双は? ￣┘瀬屮襭で譴 ☆ 猟忖双の嶄に猟忖双を秘れるときは ¨ (1, 2) f(x) = 2x(0 < x < 1) 1 x f(x) O
- 4. about: TEXには方ﾓ麻の噴蛍なC嬬はないので盾裂ソフト などで麻を佩う Rの貧でKETpicv方を旋喘してTEX喘の恬蹐魑辰襪 いうもの 4 KETpic v4.2.2 ltd コマン for R R についての廣吭 KETpic のizみには肝をg佩する load(￣C:/work/ketpic.Rdata￣) ?C:/work/は恬Iフォルダ兆 ☆ ディレクトリの筝は setwd(￣c:/work￣) 猟忖双は? ￣┘瀬屮襭で譴 ☆ 猟忖双の嶄に猟忖双を秘れるときは ¨ R TeX 蹈侫．ぅ .texの恬撹 KETpic v方 KETpic スタイルファイル (1, 2) f(x) = 2x(0 < x < 1) 1 x f(x) O 1 f(x) = 2x(0 < x < 1) f(x) = x2 (0 < x < 1) f(x)
- 17. TeX のソ`ス ketpic と graphicx は駅 ?gure h廠の嶄にinputコマンドで枠ほどの恬蹐鯣 れる 17 documentclass[12pt]{jsarticle} usepackage{ketpic} usepackage{graphicx} usepackage{float} begin{document} begin{figure}[H] centering input{ketpic/2x.tex} caption{$f(x)=2x (0<x<1)$のグラフ} end{figure} end{document}
- 18. コンパイル こんなPDFが竃薦されたと房います ! ! ! ! ! ! ! 肝のペ`ジで盾h 18 (1, 2) f(x) = 2x(0 < x < 1) 1 x f(x) O 1 f(x) = 2x(0 < x < 1) のグラフ 1
- 20. Code for generating values 20 # I囃の兜豚晒 Ketinit() # 恬邇I囃の峺協 Setwindow(c(-0.5,1.5),c(-0.5,2.5)) # v方狼のデ`タ恬撹 G=Plotdata(｀2*x','x=c(0,1)') # 蛍デ`タの恬撹 Gv=Listplot(c(1,0),c(1,2)) # 蛍デ`タの恬撹(泣３つ參貧でI囃の恬撹) SEG1=Listplot(c(0,0),c(1,0),c(1,2)) デ`タの 恬撹 ここまでがデ`タ恙縫禰`タなどの
- 21. Code for extracting the TeX source 21 # き竃すファイルの峺協 Openfile(＾2x.tex") # 寄楕のO協蹐1が採mmなのか Beginpicture(｀20mm') # 枠ほどO協したのき竃し Drwline(G,2) # y=2x Drwline(Gv,0.5) # 蛍 # SvBのO協 # Setax(Sの侘彜,罪S兆,罪S兆の了崔,kS兆,kS兆の了崔, # 圻泣兆,圻泣の了崔) # a0.5 とすると嫌を峺協できる Setax(＾a0.5￣,"x","s2","f(x)","w","O","nw") # 恙砲卜鍔屬き秘れる # Expr(恙, |廉掴臼, TeXの方塀燕F) Expr(c(1,2),"w","(1,2)") Expr(c(1.3,2.4),"e","f(x)=2x (0<x<1)") Expr(c(1,0),￣es2","1") # es2とすると嘔和の和 恬TeX き竃し Aく 1/2
- 22. Code for extracting the TeX source 22 # I囃の輅 # Hatchdata( I囃の坪翌,I囃の峺協:]爆や爆の貧和の峺協, # 弍の鬚,嫌 ) GH=Hatchdata(list(｀ii'),list(SEG1,'n'),list(G,'s'),-45,0.5) # 宙鮫 Drwline(GH,0.5) # 恬軆K阻の傚冱 # 1で恙翻Sをく0でかずにK阻 Endpicture(1) # Rでのファイルき竃しのK阻の傚冱 Closefile() 恬TeX き竃し 2/2
- 23. 麿にも弼？できます ketpicR_4_3_1_ltd01.zip の嶄の referenceR4_3_1_ltd.pdf に？なv方のh苧がいてあります 23 2014 定 1 埖 2 晩 KETpic v4.3.1 ltd コマンド匯E for R PD プロットデ`タ 1 R についての廣吭 1. KETpic のizみには肝をg佩する load(￣C:/work/ketpic.Rdata￣) ?C:/work/は恬Iフォルダ兆 ☆ ディレクトリの筝は setwd(￣c:/work￣) 2. 猟忖双は? ￣┘瀬屮襭で譴 ☆ 猟忖双の嶄に猟忖双を秘れるときは ¨ と ￣ を秘れ徨に聞う 3. v方などを哈方とするときは猟忖双とする 箭G<- Plotdata( ￣x^2￣, ￣x=c(0,1)￣) 4. ┘丱奪スラッシュを竃薦するには２つKべてかく 5. 廣は # 6. 方と猟忖双のQ as.character(方) as.numeric(猟忖双) eval(parse(text=猟忖双))) sprintf(塀, 方) 塀原き猟忖双 7. なる侏のデ`タからリストを恬るには list を喘いる 恬撹??? L<- list(... , ... ); 函り竃し? A<- L[[i]] 何蛍リスト? L[V] (V はベクトル) 崔きQえ? L[[i]]<- ... Lさ??? length(L)
- 24. 恬撹箭
- 26. Bibliography CASTEX鮄恥仂浸(2011), 〆KETpicでS？TEX グラフ〇, イ`テキスト冩梢侭. Y. Maeda & M. Kaneko (2013). ＾Making math textbooks and materials with TEX+KETpic +hyperlink￣, The 34th Annual Meeting of the TeX Users Group. 26 [1] [2]