Re: [問題] ListLinePlot的PlotLegend

作者: chungyuandye (養花種魚數月亮賞星星) 看板: Mathematica
標題: Re: [問題] ListLinePlot的PlotLegend
時間: Wed Dec 14 20:20:04 2011

※ 引述《enunion (珍惜)》之銘言：
: 請問有人知道再用ListLinePlot時
: 怎麼弄出一個方塊上面標示什麼顏色代表什麼意思
: 我試過PlotLegend
: 但是沒用
: 查ListLinePlot的選項也沒有PlotLegend
: 請問還有什麼方法嗎?
: 感謝~

時間很趕的話，湊合用一下∼

mylegend[plot_Graphics,legend_List]:=
Block[{p=plot,l=legend,colortemp,color,Opacitytemp,temp},
(*擷取色彩*)
colortemp=Cases[p,Hue[a_,b_,c_]:>Hue[a,b,c],Infinity];
color=colortemp[[-Length@l;;-1]];

(*配對圖例及色彩*)
temp={color[[#]],l[[#]]}&/@Range[Length@color];

(*建立圖例*)

Labeled[p,
Grid[{Graphics[{#[[1]],Thickness[0.1],Opacity[0.75],
Line[{{0,0},{1,0}}]},
ImageSize->{24,24},AspectRatio->8/24,
ImagePadding->0],#[[2]]}&/@temp],

(*指定圖例位置*)
{{Right,Top}}]
]

mylegend[ListLinePlot[Table[Accumulate[RandomReal[{-1,1},250]],{3}],
Filling->0],{"a","b","c"}]

mylegend[ListLinePlot[
Table[Accumulate[RandomReal[{-1,1},250]],{10}]],
CharacterRange["a","z"][[1;;10]]]

--
養花種魚數月亮賞星星

http://chungyuandye.twbbs.org

--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 218.173.134.231
推 enunion:真的可以用耶！！好強＠＠ 真的很感謝您和harry901大！！  12/14 21:34
推 enunion:可是標示的顏色好像怪怪的 紅色的線他會標成紫色  12/14 21:41
→ enunion:亮綠色的線會標成暗綠色 這有辦法解決嗎？  12/14 21:42
→ chungyuandye:Opacity[0.75]->Opacity[1]  12/14 21:45
→ harry901:這個太強了  12/14 21:48
推 enunion:還是一樣耶 紅色還是會標成紫色  12/14 21:51

Re: [問題] 指定變值

作者: chungyuandye (養花種魚數月亮賞星星) 看板: Mathematica
標題: Re: [問題] 指定變值
時間: Thu Dec 1 21:15:24 2011

※ 引述《qoodeva (發呆的花枝)》之銘言：
: 依邊界條件而改變的材料變數
: 第一組
: ω=6;
: λ=10;
: x=0.41;
: 第二組
: ω=7;
: λ=128;
: x=0.2;
: 第三組
: ω=9;
: λ=4800;
: x=0.1;
: =========(主程式部分)=========================================
: eqn1=6ωa x+7λb ;
: eqn2=8λa +12ωb x ;
: 將eqn1,eqn2的a,b排成係數矩陣
: 6ω x 7λ
: BB= ( )
: 8λ 12ω x
: Eigensystem[BB][[1]] (特徵值)
: {0.08,0,004}
: Eigensystem[BB][[2]] (特徵向量)
: 特徵值對應到的特徵向量
: ����������
: ↓ ↓
: {{0.008,0.004},{{0.811,0.841},{0.647,0.881}}}
: ↑ ↑
: ��������������
: 選取Eigensystem[BB][[1]]中最小值，
: 所對應到Eigensystem[BB][[2]]之特徵向量即為a,b之值。
: a=Eigensystem[BB][[2,2,1]];
: b=Eigensystem[BB][[2,2,2]];
: 再將得到的a,b值反帶回eqn1可得一條function[x]的函數xop。
: xop=eqn1/.{a->a,b->b}
: ==============================================================================
: 現在我每次改變材料變數時都可以得到一條f[x]的函數，
: 並利用這個函數作圖，最後將這三組所得到的圖形繪製一起。
: 我想請問版上高手
: 1.我只能一次一次的改變數值去得到這三條方程式，
: 是否有什麼特殊指令可以更簡潔的計算一次得到這三組函數，
: 一開始有想到用map可是它是取矩陣中的元素去運算，
: 我的目的是像Do迴圈這樣，可是我的值是只能選取特定的值。

eqn1=6\[Omega]*a*x+7\[Lambda]*b;
eqn2=8\[Lambda]*a+12\[Omega]*bx;

test[fun1_,fun2_,w_,l_,xx_]:=
Block[{a,b,BB,BE,coa,cob,eqn1temp,\[Omega],\[Lambda],x,y,
eqn11,eqn22},
eqn1temp=fun1/.x->y;
\[Omega]=w;\[Lambda]=l;x=xx;
eqn11=fun1;eqn22=fun2;
BB={Coefficient[eqn11,#]&/@{a,b},
Coefficient[eqn22,#]&/@{a,b}};
BE=Eigensystem[BB];
{coa,cob}=Sort[Transpose@BE][[1,2]];
eqn1temp/.{a->coa,b->cob}
]

data = {{6, 10, 0.41}, {7, 128, 0.2}, {9, 4800, 0.1}};

Plot[test[eqn1, eqn2, #[[1]], #[[2]], #[[3]]] & /@ data, {y, 0, 1}]

: 2.選取Eigensystem[BB][[1]]中最小值，
: 所對應到Eigensystem[BB][[2]]之特徵向量即為a,b之值。
: 要怎麼自動選取最小特徵值所對應到的特徵向量，
: 用Min[]選結果都是選到{}內最小的值=_=

先轉置，在用Sort排序，第一個就是

: 3.另外請教一下，當我使用Do迴圈所得到的大量數據，
: 是否能用成表格表示??

只有想不到，沒有做不到

myresult={#[[1]],#[[2]],#[[3]],
test[eqn1,eqn2,#[[1]],#[[2]],#[[3]]]}&/@data

TableForm[myresult,TableHeadings->{Range[Length@myresult],{"\[Omega]",
"\[Lambda]","x","xop"}}]

--
養花種魚數月亮賞星星

http://chungyuandye.twbbs.org

--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 218.173.131.111
推 qoodeva:謝謝老師，實在太厲害了@@  12/01 21:19
推 qoodeva:老師請教一下，當中的eqn11是指eqn1嗎??  12/01 23:10
推 LPH66:不是的 仔細看 Block 裡有宣告 eqn11 和 eqn22 為暫時變數  12/02 00:22

Re: [問題] 如何使用平行運算或加快計算時間？

作者: chungyuandye (養花種魚數月亮賞星星) 看板: Mathematica
標題: Re: [問題] 如何使用平行運算或加快計算時間？
時間: Thu Dec 1 13:01:14 2011

※ 引述《harry901 (forcing to A cup)》之銘言：
: 小弟又要來求救了@___@~ 爬了文跟網路
: 原本以為只要調整mathematica裡面的系統設定
: 就可以輕輕鬆鬆的使用多核心或連到其他電腦上進行平行運算
: 但是...嗚嗚 似乎沒那麼容易>.<~

Mathematica的Parallel Computing ToolKit預設是會開啟本機的Kernel

要利用多台電腦平行運算，那你每台電腦都要安裝LightweightGrid這個Service

如果有裝的話，會自動將網域中的電腦自動抓出來。

想看你現在有多少Kernel可以使用，Kernels[]會傳回來可使用的Kernels

要用LightWeightGrid，除非真的有大量的運算，

否則花在多台電腦的資料傳輸時間基本上划不來

若你在購買Mathematica時有加購買Premier Service，那這個是贈送的。

若找不到直接拿License到官網下載

: 爬了很多文 大多數使用平行運算是用ParallelMap來運算...

這個不一定要用Map，只是Map似乎比較直覺。

: 我天真以為 調調系統 mathematica就會聰明的自己將資料分配給多核電腦計算...
: 弄了老半天就是只有用到單核 不管在for迴圈前面加上parallelize 還是其他方法
: 都沒辦法成功平行運算>.<~ 一趟下來要四五分鐘左右....
: 由於程式的複雜度關係 沒有使用Map指令
: 小弟的程式到目前為止已經快六百行了 還有2/3要寫 寫完大約一千多行
: 程式的架構大約如下
: 主程式(Cell 1)： 有函數f1,f2,f3, 變數z,t 參數a,b,c, ...
: 要計算數值重積分,還要找根 算出來的東西會用到副程式
: 副程式(Cell 2_： 約有十二個小程式 每個小程式裡面都有一個迴圈(大小不一)
: 這邊最花時間.......
: 請問 有辦法利用平行運算減少運算時間嗎?
: 實在摸不著平行運算最基本的使用概念...唉....
: 到最後 好像parallelize不能使用在for迴圈裡面的樣子
: 舉個簡單的例子好了 這樣 板上的大大比較容易知道我的問題>_<
: ===============================================================
: PB[z_, t_] = 3*t^2 - Exp[t*z];(*令一個函數PB*)
: ans = Array[anss, {10, 2}];(*令答案矩陣ans*)
: For[i = 0, i <= 10, i++;(*使用迴圈計算*)
: ans[[i, 1]] = i;
: ans[[i, 2]] = NIntegrate[NIntegrate[
: PB[z, t] - Exp[z*t] , {z, -3, 3*i}], {t, 0, 10}
: ]
: ]
: TimeUsed[]
: ans

這邊雙重積分的使用比較不好，可以先查一下Mathematica的用法

PB[z_,t_]=3*t^2-Exp[t*z];
ft[i_]=Re@Integrate[PB[z,t]-Exp[z*t],{t,0,10},{z,-3,3*i},Assumptions->i>0];

test1=AbsoluteTiming@Map[{#,N@ft[#]}&,Range[10]]

(*將函數分給各個Kernel，基本上這個指令在8.0似乎是可以省略。*)

(*但在7.0就要很仔細設定*)

DistributeDefinitions[ft,PB];

test2=AbsoluteTiming@ParallelMap[{#,N@ft[#]}&,Range[10]]
test3=AbsoluteTiming@ParallelTable[{i,N@ft[i]},{i,10}]
ans=test2[[2]]

最後是迴圈的部份，Mathematica提供蠻多的函數
可以用help查LoopingConstructs，For Do While這些函數在Mathematica不一定
是最好的選擇。程式若很複雜，需要用到很多額外的副程式，盡量用Block Module
包起來。

有錯請多指教∼

--
養花種魚數月亮賞星星

http://chungyuandye.twbbs.org

--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 218.173.131.111
※ 編輯: chungyuandye 來自: 218.173.131.111 (12/01 13:30)
※ 編輯: chungyuandye 來自: 218.173.131.111 (12/01 13:31)
推 harry901:謝謝老師∼ 我會吸收吸收 研發看看@@  12/01 22:49

Re: [問題] mathematica的排序與篩選

作者: chungyuandye (養花種魚數月亮賞星星) 看板: Mathematica
標題: Re: [問題] mathematica的排序與篩選
時間: Wed Dec 14 13:40:53 2011

※ 引述《harry901 (forcing to A cup)》之銘言：
: 問題：mathematica有篩選與排序的語法嗎?
: 假設 我有一串列資料ANS[m,n] m列 n行 每一列的行表示不同屬性
: 現在我需要比較這些屬性依序篩選 然後排列大小 我們假設
: 人 國 英 數
: ANS[5,4] = [王小明 99 60 31]
: [李大同 75 51 66]
: [陳小偉 71 20 43]
: [高小茜 81 80 79]
: [馬英文 78 56 26]
: 若我要篩選出所有數學大於30分且國文60以上的同學，mathematica有辦法直接篩選嗎?
: 查了資料似乎沒有篩選的語法...我只能先令一個FinalANS存放篩選結果
: 步驟一，先計算出FinalANS的長度
: templength=0;
: For[i=1,i=Length[ANS],i++,
: If[ANS[[i,2]]>60&&ANS[[i,4]]>30,templength++,{}]
: ]
: 上面可以將templength計算出FinalANS所需的長度
: 步驟二，將篩選後結果放入FinalANS中，如
: FinalANS=Array[fnlans,{templength,4}];
: tempwrite=0;
: For[i=1,i=Length[ANS],i++,
: If[ANS[[i,2]]>60&&ANS[[i,4]]>30,tempwrite++;
: FinalANS[[i]]=ANS[[tempwrite]],{}]
: ]
: 這樣就可以完成篩選的答案(步驟一二應該可以合併在同一個loop裡面，一時想不出)
: 不過 像這樣的例子
: mathematica沒辦法直接用簡單的過濾方式求得嗎?
: 最後是排序FinalANS 若我要依照英文成績由高排至低
: 那麼 我又得寫類似上面的迴圈一個一個去判斷...可以用Sort等等方式慢慢擠出來
: 試問 mathematica有相關排序的語法嗎?

data = {{"王小明", 99, 60, 31},
{"李大同", 75, 51, 66}, {"陳小偉", 71, 20, 43},
{"高小茜", 81, 80, 79}, {"馬英文", 78, 56, 26}};

mydata=Select[data, #[[4]] >= 30 && #[[2]] >= 60 &]

要排序的話，可以使用 ?Sort 或是 ?SortBy 了解更多的設定

按總分
SortBy[mydata,Total]
按姓名
SortBy[mydata,First]
按國文
SortBy[mydata,#[[2]]&]
按英文
SoryBy[mydata,#[[3]]&]

Select, Cases這些都是可以作為篩選的函數，不過Pattern Matching也是ok

data /. {a_, b_, c_, d_} :> {a, b, c, d} /; b >= 60 && d >= 30

找出1,2,.....,100任意三個數加總等於100的所有組合

AbsoluteTiming@ReplaceList[Range[100],
{___,a_,___,b_,___,c_,___}:>{a,b,c}/;a+b+c==50]

AbsoluteTiming@Select[Subsets[Range[100],{3}],Total@#==50&]

--
養花種魚數月亮賞星星

http://chungyuandye.twbbs.org
※ 編輯: chungyuandye 來自: 218.173.131.148 (12/14 13:53)
推 harry901:真是謝謝∼ 又學到一招了...  12/14 13:55
推 harry901:篩選用Select就可以了 我居然笨到還寫迴圈  12/14 13:59

Re: [問題] ListLinePlot的PlotLegend

作者: chungyuandye (養花種魚數月亮賞星星) 看板: Mathematica
標題: Re: [問題] ListLinePlot的PlotLegend
時間: Wed Dec 14 22:31:42 2011

※ 引述《chungyuandye (養花種魚數月亮賞星星)》之銘言：
: 標題: Re: [問題] ListLinePlot的PlotLegend
: 時間: Wed Dec 14 20:20:04 2011
:
: ※ 引述《enunion (珍惜)》之銘言：
: : 請問有人知道再用ListLinePlot時
: : 怎麼弄出一個方塊上面標示什麼顏色代表什麼意思
: : 我試過PlotLegend
: : 但是沒用
: : 查ListLinePlot的選項也沒有PlotLegend
: : 請問還有什麼方法嗎?
: : 感謝~
:
: → enunion:亮綠色的線會標成暗綠色 這有辦法解決嗎？ 12/14 21:42
: 推 enunion:還是一樣耶 紅色還是會標成紫色 12/14 21:51

Mathematica會自行指定顏色，若要自行指定的話，那要改一下地方

mylegend[plot_Graphics,legend_List]:=
Block[{p=plot,l=legend,colortemp,color,Opacitytemp,temp},
(*擷取色彩*)
(*判斷是否自行者定顏色*)
colortemp=If[Cases[p,RGBColor[a_,b_,c_]:>RGBColor[a,b,c],Infinity]=={},
Cases[p,Hue[a_,b_,c_]:>Hue[a,b,c],Infinity],
Cases[p,RGBColor[a_,b_,c_]:>RGBColor[a,b,c],Infinity]];
color=colortemp[[-Length@l;;-1]];

(*配對圖例及色彩*)
temp={color[[#]],l[[#]]}&/@Range[Length@color];

(*建立圖例*)Labeled[p,
Grid[{Graphics[{#[[1]],Thickness[0.1],Opacity[0.75],
Line[{{0,0},{1,0}}]},ImageSize->{24,24},
AspectRatio->8/24,ImagePadding->0],#[[2]]}&/@
temp],
(*指定圖例位置*){{Right,Top}}]
]
mylegend[ListLinePlot[Table[Accumulate[RandomReal[{-1,1},250]],{3}],
Filling->0,PlotStyle->{Red,Blue,Green}],
{"a","b","c"}]

你會發現在沒有Filling這個Option時圖形很OK，但是加上Filling後，圖形就很不協調

而且當數列多時，顏色也是很難選擇，那不如就交由系統指定來得方便！

--
養花種魚數月亮賞星星

http://chungyuandye.twbbs.org

--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 218.173.134.231
推 enunion:這樣就可以了∼ 不過不懂指令為什麼這樣寫XD  12/14 22:45
→ enunion:如果要自學的話 有推薦的書單嗎？  12/14 22:46

Re: [問題] 請教有關遞迴式

作者: chungyuandye (養花種魚數月亮賞星星) 看板: Mathematica
標題: Re: [問題] 請教有關遞迴式
時間: Wed Nov 16 00:02:08 2011

※ 引述《sphwny (時間過的真快>"<)》之銘言：
: 不好意思又來問問題了
: 目前小弟寫到定義分段函數
: 然後使用遞迴的方式把剩下的函數定義完
: 舉例如下:
: H[-1,x1_,x2_,x3_,n_] :=E^(-x1*x3)*(n!/x2^n)*Sqrt[1/(2*x2)]
: 然後
: H[0,x1_,x2_,x3_,n_]:=
: x3/(2*n)*H[-1,x1,x2,x3,n+1]-x1/(2*n)*H[-1,x1,x2,x3,n] /; x2==0.5*x3^2
: H[0,x1_,x2_,x3_,n_]:=
: n!*(0.5*x1*H[-1,x1,x2,x3,n-1]-0.5*x3*H[-1,x1,x2,x3,n]) /; x2!=0.5*x3^2 ; x1>0
: H[0,x1_,x2_,x3_,n_]:=
: 0.5*x1*H[-1,x1,x2,x3,n-1]-0.5x3*H[-1,x1,x2,x3,n] /; x2!=0.5*x3^2 ; x1<0
: H[0,x1_,x2_,x3_,n_]:=
: 0.5*x3*H[-1,x1,x2,x3,n] /; x2!=0.5*x3^2; x1==0
: Table[H[i,x1_,x2_,x3_,n_]:= (1/i)*H[i-2,x1,x2,x3,n+1]-
: (x3/i)*H[i-1,x1,x2,x3,n+1]-(x1/i)*H[i-1,x1,x2,x3,n], {i,12}];
: 最後再把這些函數做些計算處理的時候
: 出現了遞迴次數超過256次之類的訊息以及後面伴隨很多錯誤訊息
: 當中似乎出現了什麼問題
: 是我的定義語法錯誤了嗎?
: 還是有其他的方法來定義這樣子的遞迴函數?
: 麻煩各位大師替我解惑!! 謝謝!!

上面的函數可以改用Which試試看！至於遞迴次數可以利用$RecursionLimit=?? 來設定
上面的函數因為都是利用SetDelayed來定義，所以每次都必須重新計算，
因此當i大的時候會非常耗時，可以試著用動態定義來改善

H[-1,x1_,x2_,x3_,n_]=E^(-x1*x3)*(n!/x2^n)*Sqrt[1/(2*x2)]

H[0,x1_,x2_,x3_,n_]:=Which[
x2==0.5*x3^2,
x3/(2*n)*H[-1,x1,x2,x3,n+1]-x1/(2*n)*H[-1,x1,x2,x3,n],
x2!=0.5*x3^2&&x1>0,
n!*(0.5*x1*H[-1,x1,x2,x3,n-1]-0.5*x3*H[-1,x1,x2,x3,n]),
x2!=0.5*x3^2&&x1<0,
0.5*x1*H[-1,x1,x2,x3,n-1]-0.5x3*H[-1,x1,x2,x3,n],
x2!=0.5*x3^2&&x1==0,
0.5*x3*H[-1,x1,x2,x3,n]
]

H[i_,x1_,x2_,x3_,n_]:=H[i,x1,x2,x3,n]=(1/i)*H[i-2,x1,x2,x3,n+1]-(x3/i)*
H[i-1,x1,x2,x3,n+1]-(x1/i)*H[i-1,x1,x2,x3,n]

利用相同的原理，可以利用Fibonacci number的函數來做實驗

f1[0] = 0; f1[1] = 1; f2[0] = 0; f2[1] = 1;
f1[x_Integer] := f1[x - 1] + f1[x - 2]
f2[x_Integer] := f2[x] = f2[x - 1] + f2[x - 2]
AbsoluteTiming@f1[30]
AbsoluteTiming@f2[30]

f1沒利用動態定義，f2則是利用動態定義來定義函數。

--
養花種魚數月亮賞星星

http://chungyuandye.twbbs.org

--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 218.173.136.123
※ 編輯: chungyuandye 來自: 218.173.136.123 (11/16 00:04)
※ 編輯: chungyuandye 來自: 218.173.136.123 (11/16 00:10)

[自動轉寄] [通告] 與其在網路上當鄉民,不如學會Know How做事業

作者: healthbe2 (成長是美麗的痛)
標題: [通告] 與其在網路上當鄉民,不如學會Know How做事業
時間: Sun Nov 20 17:48:39 2011

===========================================

景氣再怎麼壞,都還是有人荷包滿滿

誰說年輕就不能有大成就!

眼光,工具,抓住未來的方向,您也能像他們一樣

http://successasia.blogspot.com/

===========================================

--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 59.120.142.81

[自動轉寄] Re: [問題] 請教有關遞迴式

作者: chungyuandye (養花種魚數月亮賞星星) 看板: Mathematica
標題: Re: [問題] 請教有關遞迴式
時間: Wed Nov 16 00:02:08 2011

※ 引述《sphwny (時間過的真快>"<)》之銘言：
: 不好意思又來問問題了
: 目前小弟寫到定義分段函數
: 然後使用遞迴的方式把剩下的函數定義完
: 舉例如下:
: H[-1,x1_,x2_,x3_,n_] :=E^(-x1*x3)*(n!/x2^n)*Sqrt[1/(2*x2)]
: 然後
: H[0,x1_,x2_,x3_,n_]:=
: x3/(2*n)*H[-1,x1,x2,x3,n+1]-x1/(2*n)*H[-1,x1,x2,x3,n] /; x2==0.5*x3^2
: H[0,x1_,x2_,x3_,n_]:=
: n!*(0.5*x1*H[-1,x1,x2,x3,n-1]-0.5*x3*H[-1,x1,x2,x3,n]) /; x2!=0.5*x3^2 ; x1>0
: H[0,x1_,x2_,x3_,n_]:=
: 0.5*x1*H[-1,x1,x2,x3,n-1]-0.5x3*H[-1,x1,x2,x3,n] /; x2!=0.5*x3^2 ; x1<0
: H[0,x1_,x2_,x3_,n_]:=
: 0.5*x3*H[-1,x1,x2,x3,n] /; x2!=0.5*x3^2; x1==0
: Table[H[i,x1_,x2_,x3_,n_]:= (1/i)*H[i-2,x1,x2,x3,n+1]-
: (x3/i)*H[i-1,x1,x2,x3,n+1]-(x1/i)*H[i-1,x1,x2,x3,n], {i,12}];
: 最後再把這些函數做些計算處理的時候
: 出現了遞迴次數超過256次之類的訊息以及後面伴隨很多錯誤訊息
: 當中似乎出現了什麼問題
: 是我的定義語法錯誤了嗎?
: 還是有其他的方法來定義這樣子的遞迴函數?
: 麻煩各位大師替我解惑!! 謝謝!!

上面的函數可以改用Which試試看！至於遞迴次數可以利用$RecursionLimit=?? 來設定
上面的函數因為都是利用SetDelayed來定義，所以每次都必須重新計算，
因此當i大的時候會非常耗時，可以試著用動態定義來改善

H[-1,x1_,x2_,x3_,n_]=E^(-x1*x3)*(n!/x2^n)*Sqrt[1/(2*x2)]

H[0,x1_,x2_,x3_,n_]:=Which[
x2==0.5*x3^2,
x3/(2*n)*H[-1,x1,x2,x3,n+1]-x1/(2*n)*H[-1,x1,x2,x3,n],
x2!=0.5*x3^2&&x1>0,
n!*(0.5*x1*H[-1,x1,x2,x3,n-1]-0.5*x3*H[-1,x1,x2,x3,n]),
x2!=0.5*x3^2&&x1<0,
0.5*x1*H[-1,x1,x2,x3,n-1]-0.5x3*H[-1,x1,x2,x3,n],
x2!=0.5*x3^2&&x1==0,
0.5*x3*H[-1,x1,x2,x3,n]
]

H[i_,x1_,x2_,x3_,n_]:=H[i,x1,x2,x3,n]=(1/i)*H[i-2,x1,x2,x3,n+1]-(x3/i)*
H[i-1,x1,x2,x3,n+1]-(x1/i)*H[i-1,x1,x2,x3,n]

利用相同的原理，可以利用Fibonacci number的函數來做實驗

f1[0] = 0; f1[1] = 1; f2[0] = 0; f2[1] = 1;
f1[x_Integer] := f1[x - 1] + f1[x - 2]
f2[x_Integer] := f2[x] = f2[x - 1] + f2[x - 2]
AbsoluteTiming@f1[30]
AbsoluteTiming@f2[30]

f1沒利用動態定義，f2則是利用動態定義來定義函數。

--
養花種魚數月亮賞星星

http://chungyuandye.twbbs.org

--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 218.173.136.123
※ 編輯: chungyuandye 來自: 218.173.136.123 (11/16 00:04)
※ 編輯: chungyuandye 來自: 218.173.136.123 (11/16 00:10)

[自動轉寄] Re: [問題] 解聯立方程式

作者: qoodeva (發呆的花枝)
標題: Re: [問題] 解聯立方程式
時間: Sun Nov 13 17:55:51 2011

※ 引述《chungyuandye (養花種魚數月亮賞星星)》之銘言：
: ※ 引述《qoodeva (發呆的花枝)》之銘言：
: : Do[
: : zt=(aω^2 +c)+d e-d^2 q; (*這是方程式，a,b,c,e,q為常數,ω為未知數*)
: : sol=Solve[zt==0,d]; (求解d，但因為ω為未知數，會出現未精準值)
: : H=HH[[4;;6,4;;6]]; (*H是HH矩陣的子矩陣*)
: : HE=Eigenvalues[H];
: : HD=Det[H];
: : If[Sign[HD]=\=0, (*判定HD行列式不為零*)
: : If[
: : Sign[HD]=-Sign[zz],Print[ω] (*判定行列式大於零時，將對應的ω輸出*)
: : ];
: : ];
: : zz=HD;
: : ,{ω,1,12000,1}]
: zt=(aω^2 +c)+d e-d^2 q
: 你的aω^2中間少打一個等號或是空格
: 其他看起來沒有錯才對

喔喔，那只是打快了一點，實際上我是有空格的，不過謝謝你，
我今天重新試了好幾次，最後發現，我HH矩陣是寫在Do外面
，但是多打了個//MatrixForm，再變成矩陣顯示時似乎沒辦法執行Do裡面的code，
消去之後就有插值跑出來，但是我的研究還沒做完，
我也不確定這樣跑出來的數字正不正確，但是至少有東西在跑了，謝謝你黑。

--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.116.78.76

[自動轉寄] [通告] 推薦您加入此系統的五個原因

作者: maybule (機會天使)
標題: [通告] 推薦您加入此系統的五個原因
時間: Sun Oct 30 15:18:24 2011

=====================================================

☉ 無風險，小錢兼差加薪，大錢倍增事業，格局由您決定。

☉ 網路平台搭配實體支援，事業串聯全球無國界。

☉ 多位世界暢銷書作家和雜誌創辦人推薦甚至親自參與，
好萊塢明星及NBA球星瘋狂使用。

☉ 成功的教練和成功的團隊引領你入門。

☉ 幫助自己和他人提升生活品質，
化競爭對手成為合作夥伴。

免費註冊 http://www.vemma-angel.net/853630805/

=====================================================

--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 111.248.47.93

[自動轉寄] Re: [問題] 圖上兩條曲線如何加註

作者: chungyuandye (養花種魚數月亮賞星星) 看板: Mathematica
標題: Re: [問題] 圖上兩條曲線如何加註
時間: Tue Oct 4 21:41:18 2011

※ 引述《tsungjen ()》之銘言：
: ※ 引述《chungyuandye (養花種魚數月亮賞星星)》之銘言：
: : Needs["PlotLegends`"]
: : Plot[{fun1, fun2]}, {x, range},
: : PlotLegend -> {"name 1", "name 2"},
: : LegendPosition -> {位置}, LegendSize -> {大小},
: : LegendShadow -> None, LegendBorder -> {Black}]
: : example
: : Plot[{Sin[x], Cos[x]}, {x, 0, 2 Pi}, PlotLegend -> {"sine", "cosine"},
: : LegendPosition -> {0, 0}, LegendSize -> {1, 0.5},
: : LegendShadow -> None, LegendBorder -> {Black}]
: : 如果加圖例只是要自己判斷函數位置的話，那比較簡單的方法應該是Tooltip
: : Plot[{Tooltip[Sin[x], "Sine Sine Sine Sine"],
: : Tooltip[Cos[x], "Cosine Cosine Cosine Cosine"]}, {x, 0, 2 Pi}]
: : 記得把滑鼠游標到函數上
: 因為我想要做出有數值點又有連續方程式的圖，所以我把指令這樣打
: Needs["PlotLegends"]
: Show[ListPlot[data],Plot[{f[x],g[x]},{x,0,100},PlotLegend->{"f","g"},
: PlotRange->Full],Frame->True, AspectRatio -> Full]
: 可是畫出來的圖並不正確
: 我找不到方法可以解決

ListPlot[{{#, Sin[2 #]} & /@ Range[0, 2 Pi, 0.1], {#, Sin[#]} & /@
Range[0, 2 Pi, 0.1], {#, Cos[#]} & /@ Range[0, 2 Pi, 0.1]},
Joined -> {False, True, True},
PlotLegend -> {"Sin[2x]", "Sin[x]", "Cos[x]"},
LegendPosition -> {0, 0}, LegendSize -> {1, 0.5},
LegendShadow -> None, LegendBorder -> {Black}]

--
養花種魚數月亮賞星星

http://chungyuandye.twbbs.org

--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 218.173.129.64
→ chungyuandye:位置大小就自己調一下  10/04 21:42

[自動轉寄] Re: [賣/面交/高雄] IPAD2 WIFY 16G

作者: ispaaa (ＲＣＴ)
標題: Re: [賣/面交/高雄] IPAD2 WIFY 16G
時間: Wed Sep 14 10:37:40 2011

我不會看保固耶，不好意思。

是沒有拆封的，從外面我只知道是2011出廠的，這樣有回答到你的問題嗎？

還是外面包裝上有寫，你跟我說我再找一下？

※ 引述《chungyuandye (養花種魚數月亮賞星星)》之銘言：
: ※ 引述《ispaaa (ＲＣＴ)》之銘言：
: : 板工提醒:發文前 請詳閱板規條文
: : ==========================================================================
: : [物品型號]： IPAD2 WIFY 16G 黑白皆有
: : [連絡方式]：站內信
: : [交易地點]：高雄市區面交
: : [交易價格]：14500
: : [其他備註]：原PO和APPLE系列商品不熟，是朋友贈送的。
: : 有其他問題都可以站內信詢問。
: 請問保固到什麼時候？？
: 感恩喔∼

--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.127.186.10

[自動轉寄] Re: [問題] 快速傅立葉轉換_頻率轉波長的定義

作者: raebmun (reversal)
標題: Re: [問題] 快速傅立葉轉換_頻率轉波長的定義
時間: Fri Sep 9 23:04:05 2011

: Position[absfreq, _?(-0.001 < # < 0.001 &)][[1, 1]]
: _ 這個意思是說 "哪些東西"的意思
: ? 有點類似條件
: _?那些在正負0.01的東西
: 整行的白話文大概就是傳回那些在正負0.01的東西在absfreq這個序列中的位置
: 你也可以用下面這行指令試試
: SortBy[Transpose@{Range[num], Abs@absfreq}, Last]

感謝您的耐心解答

我會試試看的!!!

--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.113.28.165

[自動轉寄] (raebmun) Re: [問題] 快速傅立葉轉換_頻率轉波長的定義

作者: chungyuandye (養花種魚數月亮賞星星)
標題: Re: [問題] 快速傅立葉轉換_頻率轉波長的定義
時間: Fri Sep 9 22:56:42 2011

※ 引述《raebmun (reversal)》之銘言：
: 最近從網路上看到利用mathematica作FFT的教學(內容與雷射脈衝有關)
: 照著上面作是可以得到預期結果
: 可是有個部分code看不懂 所以想請高手解惑
: 其中定義時間與頻率的部分:
: time = Table[(j - (num/2))*\[Delta]t, {j, 1, num}];
: freq = Table[(j - (num/2))*\[Delta]\[Omega], {j, 1, num}];
: absfreq = Table[freq[[j]] + \[Omega]0, {j, 1, num}];
: 接著我希望雷射強度跟波長有關 必須作頻率與波長的轉換
: 他是這樣寫的
: zp = Position[absfreq, _?(-0.001 < # < 0.001 &)][[1, 1]] + 1;
: wave = Reverse[
: Table[(2*Pi*c)/absfreq[[i]], {i, zp, Length[freq]}]];
: 在這裡zp的定義看不懂
: 我想我表達的不好 就附上這份檔案的連結網址
: http://ppt.cc/GLg_
: 謝謝各位耐心看完我的問題

Position[absfreq, _?(-0.001 < # < 0.001 &)][[1, 1]]

_ 這個意思是說 "哪些東西"的意思
? 有點類似條件

_?那些在正負0.01的東西

整行的白話文大概就是傳回那些在正負0.01的東西在absfreq這個序列中的位置

你也可以用下面這行指令試試

SortBy[Transpose@{Range[num], Abs@absfreq}, Last]

--
養花種魚數月亮賞星星

http://chungyuandye.twbbs.org

--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 118.232.230.45

[自動轉寄] [問題] 卡方獨立性檢定 細格有0

作者: Kinght (�▽�) 看板: Statistics
標題: [問題] 卡方獨立性檢定 細格有0
時間: Tue Aug 30 15:31:07 2011

拜託不要看到標題就先推Yate's Correction for Continuity或

Fisher's exact probability test

說來慚愧 接觸統計將近8年…

最近才聽說卡方檢定中細格不能有零這件事Orz

上網google 「卡方 0」也只有看到一筆資料有提到

而且只剩庫存頁面…

資料有幾個變項 有很多的變數 雖然樣本有超過2000

但是因為資料的特性 往往有一個變項很大 但是其他細格都是0

例如
甲 乙 丙 丁 戊 己 庚
A 280 1 10 0 0 0 2
B 12 5 0 380 5 3 1
C 0 181 3 1 0 2 5
D 1 3 0 21 89 40 20
E 9 20 18 50 150 0 0

類似這樣的狀況

如果併項到沒有0
1.會讓特徵消失 2.變項太少失去解釋意義 3.Cramers'V變小

請問有什麼方法解決嗎？

謝謝

--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 163.29.135.126
推 gsuper:我也想問這問題 我的資料是上千筆 3*2 table , 一旦部分資  08/31 02:00
→ gsuper:料併項 整體的算法就不統一..很苦惱  08/31 02:01
→ bmka:那為什麼不用Fisher's exact test?  08/31 09:44
→ bmka:你知道為什麼要避免small cells嗎?  08/31 09:46
→ Kinght:Fisher's是"期望值"小於5 因為會讓檢定值變高  08/31 12:30
推 laba1014:請問有甚麼ref.提到細格"觀察值"不能為0的限制?  08/31 14:20
→ laba1014:大部分書提到的只有對"期望值"的限制不是嗎  08/31 14:21
→ bmka:Kinght大你記錯了,那不是Fisher exact的限制  08/31 19:13
→ bmka:主要原因也不是檢定值(mistaken for power?) 的問題  08/31 19:14
→ bmka:引一段 R. A. Fisher在書裡講的話  08/31 19:22
→ bmka:"The treatment of frequencies by means of chi-square is  08/31 19:23
→ bmka:an approximation, which is useful for the comparative  08/31 19:23
→ bmka:simplicity of the calculations. The exact treatment is  08/31 19:23
→ bmka:somewhat more laborious, though necessary in cases of  08/31 19:24
→ bmka:doubt." -- Statistical Methods for Research Workers  08/31 19:24
→ bmka:他這裡指的statement of doubt就是"期望值"小於五  08/31 19:26
→ bmka:這種情況下chi-square test statistic"很可能"不是卡方分佈  08/31 19:27
→ bmka:(修正,"很可能"長得不像卡方分佈, chi-sq test 只是  08/31 19:29
→ bmka:approximation test)  08/31 19:29
→ bmka:所以,不好意思,還是請你用Fisher exact test吧  08/31 19:42
→ yhliu:5×7 table, 要做 exact test? 不知多少時間能算出來?  08/31 21:20
→ yhliu:卡方檢定是近似檢定方法, 是基於多變量中央極限定理而來的.  08/31 21:20
→ yhliu:因此, 有 "cell 期望次數至少為 5" 的要求. 但有兩個方向的  08/31 21:21
→ yhliu:數值研究結論: 一是說對於大型的表, 只要期望值小於5的 cell  08/31 21:22
→ yhliu:數比例不太高, 而所有 cell 期望值都在 1 以上, 馬馬虎虎啦!  08/31 21:23
→ yhliu:另一結論說: 即使各細格期望值都在5以上, 但若各細格期望值  08/31 21:24
→ yhliu:相差太懸殊, 卡方近似還是有疑問的.  08/31 21:25
→ yhliu:至於 cell observations 是 0 的問題, 很久很久以前看過一篇  08/31 21:26
→ yhliu:文章, 大意上是說 cell observation 為 0, 則 "殘差" 只能是  08/31 21:27
→ yhliu:負的, 不能是正的. 好像因此作者建議調整自由度吧?....不過,  08/31 21:28
→ yhliu:事隔太久記憶不一定真實, 也就是作者是否以調整自由度的方法  08/31 21:29
→ yhliu:對付, 我無法肯定. 原文出處也沒有印象了.  08/31 21:30
→ bmka:y大第一點指的是這篇 Koehler and Larntz (1980). An  08/31 21:48
→ bmka:An empirical investigation of goodness-of-fit statistics  08/31 21:49
→ bmka:for sparse multinomials. JASA, 75, 336-344.  08/31 21:49
→ bmka:至於5X7的fisher exact 對現在的電腦來說算是小case啦  08/31 21:50
→ bmka:如果是更大的table,R的function裡面還有用simulation來  08/31 21:53
→ bmka:得到p-value這個選項(真的想省時間的話)  08/31 21:53
推 gsuper:推一個  09/01 02:54
→ Kinght:所以bmka大認為"即使細格有0 只要期望值<5的格數少於20％  09/01 08:48
→ Kinght:仍不用做Fisher exact test"?  09/01 08:49
→ bmka:我的中文有那麼差嗎....請多愛用Fisher's exact test.  09/01 11:11
→ Kinght:所以你只是來推廣Fisher exact test？  09/01 15:41
→ ADORIAN:b 大是說放心使用 Fisher's exact test  09/01 19:38
→ bmka:謝謝A大翻譯 :)  09/01 19:57

[自動轉寄] 您好 這是能夠改善您生活的決定

作者: mny001 (peggy)
標題: 您好 這是能夠改善您生活的決定
時間: Sat Aug 27 11:31:13 2011

http://blog.sina.com.tw/mny888/

如果能真正創造額外收入 那該有多好

提供您一個可全職也可兼職的好機會

0元創業 在家工作 時間彈性

只有你要, 我們才能伸出援手!!
你我當中，有誰不想增加【額外收入】？ 若大家能【共好】，我們願意免費協助你真正
創造收入!

請上官網了解http://blog.sina.com.tw/mny888/
請上GOOGLE搜尋 樹馬矢星聯盟分公司

如有打擾 萬分抱歉 對不起 感謝您

--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 111.184.22.29

[自動轉寄] 老師您好!!

作者: pxpypz (??)
標題: 老師您好!!
時間: Wed Aug 24 20:00:33 2011

老師您好!!

我是前幾個月向您請教過 Mathematica 問題的學生
我們實驗室有另一位學弟也有 Mathematica 的問題想請教您
他作的一些計算模擬同時用到 MATLAB 和 Mathematica
他最近在程式撰寫上遇到瓶頸 想請教您
請問我可以將您的聯絡資料給他嗎? ^^

感謝您 辛苦了 !! 祝一切順利 !!
pxpypz 敬上

--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 42.72.114.214

[自動轉寄] Re: [問題] 如何利用Compile加速Maximize?

作者: chungyuandye (養花種魚數月亮賞星星) 看板: Mathematica
標題: Re: [問題] 如何利用Compile加速Maximize?
時間: Sat Aug 6 07:11:16 2011

※ 引述《narwhalgary (獨角鯨葛瑞)》之銘言：
: For[i=1,i<201,i++,
: cn[i]= Maximize[f(i,r),r][[2,1,2]]; ← 希望能加速的程式碼 不知如何Compile
: ......
: ]
: 煩請大大們解答 萬分感激

Maximize這些Mathematica的內建函數基本上都已經Compile過了∼
你要的可能是快速的將這200的最佳化問題計算完，不過既然都要計算，
把[[2,1,2]]的部份先保留起來

以下用平行運算

f[i_, r_] := a*i*r^2 - 2 b r + c

cn[i_Integer] := Minimize[f[i, r], r]

DistributeDefinitions[cn, f, Range[200]];

myans=ParallelMap[cn, Range[200]]

myans[[All, 2, 1, 2]]

另外，Mathematica最佳化的指令可以看查一下這個help
ConstrainedOptimizationIntroduction

如果問題沒有要求解析解，NMaximize 或 NMinimize倒是不錯的選擇！

--
養花種魚數月亮賞星星

http://chungyuandye.twbbs.org

--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 218.173.130.134

[自動轉寄] Re: Bifurcation diagram of Logistic Map

作者: chungyuandye (養花種魚數月亮賞星星) 看板: Mathematica
標題: Re: Bifurcation diagram of Logistic Map
時間: Sat Jul 9 09:34:22 2011

※ 引述《biglion ( )》之銘言：
: 看到你的非線性的例子 讓我借題發揮一下
: 提到非線性系統
: 一定不會漏掉 Logistic Map 著名的 Bifurcation diagram
: 相信只要對非線性有些微了解的人都看過
: 不要覺得這很難畫
: 其實使用Mathematica 可以很輕易的就畫出來哦！
: (****** Code Start *******)
: (* Definition of Logistic Map *)
: lmap[r_][xn_] := r xn (1 - xn);
: (* Run n iterations and pick the last m pts *)
: np[n_][m_][r_] :=
: Thread[{r, Take[NestList[lmap[r], Random[], n], -m]}]
: (* Collect data from r=r1 to r=r2 with step dr *)
: s[r1_, r2_, dr_, n_, m_] := Flatten[np[n][m] /@ Range[r1, r2, dr], 1];
: (* run r=2.9~4.0 step=0.0005 *)
: g2d9to4d0 = s[2.9, 4, .0005, 1000, 200]; (*It may take ~10 seconds*)
: (* See the result! *)
: fig1=ListPlot[g2d9to4d0, PlotRange -> {{2.9, 4}, {0, 1}},
: PlotStyle -> PointSize[.0001], FrameLabel -> {"r", "xn"},
: Frame -> True, RotateLabel -> False]
: fig2=ListPlot[g2d9to4d0, PlotRange -> {{3.4, 3.67}, {0.73, 0.92}},
: PlotStyle -> PointSize[.0001], FrameLabel -> {"r", "xn"},
: Frame -> True, RotateLabel -> False]
: (****** Code End ******)

稍微用Compile修改一下

npc=Compile[{{n,_Integer},{m,_Integer},{r,_Real}},
{r,#}&/@NestList[r *# *(1-#)&,Random[],n][[-m;;-1]]
];

t[r1_,r2_,dr_,n_,m_]:=Flatten[Map[npc[n,m,#]&,Range[r1,r2,dr]],1]
u[r1_, r2_, dr_, n_, m_] := Flatten[ParallelMap[npc[n, m, #] &,
Range[r1, r2, dr]], 1]

ex1 = AbsoluteTiming@s[2.9, 4, .0005, 1000, 200];
ex2 = AbsoluteTiming@t[2.9, 4, .0005, 1000, 200];
ex2 = AbsoluteTiming@[2.9, 4, .0005, 1000, 200];
ex1[[1]]
ex2[[1]]
ex3[[1]]

fig1 = ListPlot[ex2[[2]], PlotRange -> {{2.9, 4}, {0, 1}},
PlotStyle -> PointSize[.0001], FrameLabel -> {"r", "xn"},
Frame -> True, RotateLabel -> False]

如果是8.0而且有安裝C Compiler的話，npc後面面可以加上
CompilationTarget -> "C"

--
養花種魚數月亮賞星星

http://chungyuandye.twbbs.org

--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 118.232.186.105

[自動轉寄] Re: [問題] 請問如何依次 Import 多個檔案?

作者: chungyuandye (養花種魚數月亮賞星星) 看板: Mathematica
標題: Re: [問題] 請問如何依次 Import 多個檔案?
時間: Sat Jul 9 06:22:02 2011

※ 引述《Pathria (bjhuang)》之銘言：
: 大家好,最近剛學使用mathematica 7,
: 因為統計分析,需要對多組數據做計算,
: 若我將每一組數據以流水號編碼, 例如 : data1 , data2, data3.
: 希望能以迴圈依次讀取每一組數據,
: 請問 mathematica 的 Import 該如何寫 ?
: 我嘗試寫成下面的型式, 可是問號部分不知道要如何表示?
: For[i=1,i<N, i++,
: p = Import["data" ?, "Table"];
: (*... 分析程式的內容....*)
: ];
: 謝謝.

設定目錄

SetDirectory["路徑"]

假設你的資料分別是 data1, data2,.....

mydata=Import["data" <> ToString[#], 資料格式]&/@Range[100]

<>在 Mathematica 是文字連接符號，資料格式的部份可以查Help

--
養花種魚數月亮賞星星

http://chungyuandye.twbbs.org

--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 118.232.186.105
※ 編輯: chungyuandye 來自: 118.232.186.105 (07/09 07:14)

[自動轉寄] Re: [問題] 如何搜尋取代下標？

作者: chungyuandye (養花種魚數月亮賞星星) 看板: Mathematica
標題: Re: [問題] 如何搜尋取代下標？
時間: Fri Jul 8 23:37:02 2011

※ 引述《oversky0 (oversky0)》之銘言：
: 請問在 Mathematica �要如何搜尋及取代下標(subscript)文字？

data = Subscript[x, #] & /@ Range[10]

以下用pattern match 將下標各＋10

data /. Subscript[x_, i_] :> Subscript[x, 10 + i]

將下標移除，變數多的時候比較方便

data /. Subscript[x_, i_] :> ToExpression["x" <> ToString[i]]

--
我打研究室走過 那獨坐電腦前的容顏如苦瓜的糾結
靈感不來 長壽的煙霧不散
研究室如小小的寂寞的城 恰如商管的電梯向晚

http://chungyuandye.twbbs.org

--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 118.232.186.105

[自動轉寄] Re: Google + 邀請

作者: secretshadow (台勞)
標題: Re: Google + 邀請
時間: Wed Jul 6 23:37:05 2011

※ 引述《chungyuandye (養花種魚數月亮賞星星)》之銘言：
: ※ 引述《secretshadow (台勞)》之銘言：
: : 之前感謝熱心版友讓我順利加入google+
: : 現在換我回饋啦...
: : 請大家站內信寄帳號..謝謝.:)
: : 希望大家都能順利加入google plus
: : Good Luck :)
: chungyuandye at gmail.com
: thanks a bunch!

Done :)

--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 128.205.230.122

[自動轉寄] Re: [心得] Legend for Plot without PlotLegend

作者: chungyuandye (養花種魚數月亮賞星星) 看板: Mathematica
標題: Re: [心得] Legend for Plot without PlotLegend
時間: Wed Jul 6 00:10:56 2011

※ 引述《chungyuandye (養花種魚數月亮賞星星)》之銘言：
: 標題: [心得] Legend for Plot without PlotLegend
: 時間: Tue Jul 5 09:42:48 2011
:
:
: Mathematica 裡面繪製圖例的函數PlotLegend雖然功能將多，
: 但我個人覺得不是很好用，所以寫了一個比較陽春的函數。
: 如果有什麼其他的建議可以跟我講∼
:
: mylegend[plot_Graphics, legend_List] :=
: Block[{p = plot, l = legend, color, temp},
: (* 擷取色彩 *)
: color = Cases[p, Hue[a_, b_, c_] :> Hue[a, b, c], Infinity];
: (* 配對圖例及色彩 *)
: temp = {color[[#]], l[[#]]} & /@ Range[Length@color];
: (* 建立圖例 *)
: Labeled[p,
: Grid[{Graphics[{#[[1]], Thickness[0.1], Line[{{0, 0}, {1, 0}}]},
: ImageSize -> {24, 24}, AspectRatio -> 8/24, ImagePadding -> 0],
: #[[2]]} & /@ temp],
: (* 指定圖例位置 *)
: {{Right, Top}}]
: ]
:
: 用法：
:
: mylegend[圖形，圖例文字]
:
: p1 = Plot[{Sin[x], Cos[x]}, {x, 0, 2 Pi}]
:
: mylegend[p1,{Sin,Cos}]
:
: ◆ From: 218.173.130.220
: 推 Frobenius:推∼ 07/05 15:33
: 推 xgcj:!! 07/05 16:39
: 推 kichigop:老師你發paper用的圖是直接Mathematica弄出來的嗎? 07/05 19:27
: → kichigop:還是用Origin或Grapher之類的軟體? 07/05 19:27
: → chungyuandye:我只有用Mathematica，轉成EPS也比較方便 07/05 20:18
: 推 Frobenius:請問怎麼用Mathematica轉成EPS？能互轉嗎^^ 07/05 23:30

事實上Mathematica在處理圖形間檔案格式的轉換也是相當方便，
以上面的圖形為例

Export["test.eps",mylegend[p1,{Sin,Cos}]

這時候檔案會儲存到你的home directory，如果你不知道你的Home Directory在哪

Directory[]

這個指令會傳回預設的目錄，萬一你不喜歡預設的目錄，SetDirectory["絕對路徑"]

之後所以的檔案都會儲存到你指定的目錄下。

如果你不想下指令，那圖形選擇起來，滑鼠右鍵->Save Graphics As->

自己要什麼格式自己選

但是在做迴圈時，或是要將現有的檔案轉檔時，一個一個轉就不方便
(*這時候不用到網路找轉檔程式，M@就可以 *)

首先先設定圖檔儲存的目錄，假設目錄的絕對路徑是 ~/test

( Win 應該是C:\\xxx\\，注意是兩斜線 )

(* 設定目錄為test *)
SetDirectory["~/test"];

(* 將副檔名為JPG或jpg的圖檔全部抓出來 *)
data = FileNames["*.JPG" | "*.jpg"]

(* 將JPG檔全部轉成主檔名相同的EPS檔 * )
Export[StringReplace[#,"jpg"|"JPG"->"eps"],Import[#]]&/@data

當然其他格式間的轉換也是沒問題！

--
養花種魚數月亮賞星星

http://chungyuandye.twbbs.org

--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 218.173.130.220

[自動轉寄] [心得] Legend for Plot without PlotLegend

作者: chungyuandye (養花種魚數月亮賞星星) 看板: Mathematica
標題: [心得] Legend for Plot without PlotLegend
時間: Tue Jul 5 09:42:48 2011

Mathematica 裡面繪製圖例的函數PlotLegend雖然功能將多，
但我個人覺得不是很好用，所以寫了一個比較陽春的函數。
如果有什麼其他的建議可以跟我講∼

mylegend[plot_Graphics, legend_List] :=
Block[{p = plot, l = legend, color, temp},

(* 擷取色彩 *)

color = Cases[p, Hue[a_, b_, c_] :> Hue[a, b, c], Infinity];

(* 配對圖例及色彩 *)

temp = {color[[#]], l[[#]]} & /@ Range[Length@color];

(* 建立圖例 *)

Labeled[p,
Grid[{Graphics[{#[[1]], Thickness[0.1], Line[{{0, 0}, {1, 0}}]},
ImageSize -> {24, 24}, AspectRatio -> 8/24, ImagePadding -> 0],
#[[2]]} & /@ temp],

(* 指定圖例位置 *)

{{Right, Top}}]
]

用法：

mylegend[圖形，圖例文字]

p1 = Plot[{Sin[x], Cos[x]}, {x, 0, 2 Pi}]

mylegend[p1,{Sin,Cos}]

p2=ListLinePlot[Accumulate@RandomReal[{-1,1},100]&/@Range[5]]

mylegend[p2,{"Series-1","Series-2","Series-3","Series-4","Series-5"}]

p3=ContourPlot[Evaluate[x^2+y^2==#&/@Range[5]],{x,-3,3},{y,-3,3}]

mylegend[p3,{"Circle-1","Circle-2","Circle-3","Circle-4","Circle-5"}]

--
養花種魚數月亮賞星星

http://chungyuandye.twbbs.org

--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 218.173.130.220

[自動轉寄] (anandydy529) Re: [算表] 有快速把99.4.1變成099.04.01的方法嗎

作者: chungyuandye (養花種魚數月亮賞星星)
標題: Re: [算表] 有快速把99.4.1變成099.04.01的方法嗎
時間: Thu Jun 30 15:19:24 2011

※ 引述《anandydy529 (AndyAWD)》之銘言：
: 軟體:excel
: 版本:2003
: 我有五百多筆的活動起迄資料，之前是用99.4.1-99.5.1這樣排列
: 最近老闆要我把日期改成099.04.01-099.05.01
: 我有想過先用資料剖析再用取代，但一直失敗
: 請問有什麼更好的方法

資料剖析=>分個符號=>其他=>句點

之後會有abcde欄, f1公式

=IF(A1>=100,A1, 0 & A1) &"." & IF(B1>=10,B1, 0 & B1) &"." &
IF(FIND("-",C1,1)=3,LEFT(C1,2) & ".",0 & LEFT(C1,1) & "-") &
IF(LEN(C1)-FIND("-",C1,1)=3,RIGHT(C1,3),0 & RIGHT(C1,2)) & "." &
IF(D1>=10,D1,0 & D1) & "." & IF(E1>=10,E1,0 & E1)

--
養花種魚數月亮賞星星

http://chungyuandye.twbbs.org

--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 120.119.96.8

[自動轉寄] (CUCUMBERER) Re: [請問] mathematica使用矩陣或向量表示光

作者: chungyuandye (養花種魚數月亮賞星星)
標題: Re: [請問] mathematica使用矩陣或向量表示光
時間: Thu Jun 30 14:45:03 2011

※ 引述《CUCUMBERER (瓜仔)》之銘言：
: 各位好
: 我想請問如何使用mathematica來描述一道空間中的光
: 最好是矩陣或向量，當然是要畫得出來
: 指令跟函數要用啥??
: 先感謝大家

light = RandomReal[{0, 1}, {10, 2, 3}];

Graphics3D[{RGBColor@@RandomReal[{0,1},3],
Arrowheads[0.1],Thickness[0.01],Arrow[#]}&/@light]

--
養花種魚數月亮賞星星

http://chungyuandye.twbbs.org

--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 120.119.96.8

[自動轉寄] Re: [心得] Compute Pi Using A Monte Carlo

作者: chungyuandye (養花種魚數月亮賞星星) 看板: Mathematica
標題: Re: [心得] Compute Pi Using A Monte Carlo
時間: Wed Jun 29 13:45:24 2011

※ 引述《kichigop (超痛恨不求甚解...XXX)》之銘言：
: 恕刪^^
: 老師那請問到底該怎麼判斷何時比較適合用parallel computing呢?
: 我剛試了一下
: ParallelTable[n, {n, 1, 10000000}]
: SessionTime[]
: Out[1]= 這結果就省略了^^"
: Out[2]= 36.1718750
: Table[n, {n, 1, 10000000}]
: SessionTime[]
: Out[1]= 這結果就省略了^^"
: Out[2]= 29.5156250
: 結果似乎沒有比較好...XD
: 所以我不太曉得究竟甚麼樣的狀況比較適合用平行運算...

要能做平行運算條件是每次的計算是獨立的

test[ntemp_Integer]:=Block[{n=ntemp,data,t1,t2},
(* 建立n條具實數解的隨機二元一次方程式*)
data=Select[RandomReal[{0,1},{n,3}],#[[2]]^2-4*#[[1]]*#[[3]]>=0&];
(* 不使用平行運算 *)
t1=AbsoluteTiming[Map[Quiet@FindRoot[#.{x^2,x,1},{x,0}]&,data]];
(* 使用平行運算 *)
t2=AbsoluteTiming[ParallelMap[Quiet@FindRoot[#.{x^2,x,1},{x,0}]&,data]];
{n,t1[[1]],t2[[1]]}
]

(* n=100,200,...,10000 個實驗一次*)
sim=test[#]&/@Range[100,10000,100]

(* 畫出計算時間 *)
plot1=ListLinePlot[{sim[[All,{1,2}]],sim[[All,{1,3}]]}]

(* 建立圖例 *)
Labeled[plot1,
Grid[{Graphics[{#[[1]],Thickness[0.1],Line[{{0,0},{1,0}}]},
ImageSize->{24,24},AspectRatio->8/24,
ImagePadding->0],#[[2]]}&/@
Transpose@{plot1[[1,1,{3,4},1]],
{"不使用平行運算", "使用平行運算"}}],
{Right,Top}
]

可以發現當計算次數少的時候，平行運算並沒有太大的好處，
但計算次數大的時候就能有效的節省計算時間

: 還有一個問題
: ParallelDo[Print[n], {n, 1, 8}]
: (kernel 4) 1
: (kernel 3) 3
: (kernel 2) 5
: (kernel 1) 7
: (kernel 4) 2
: (kernel 3) 4
: (kernel 2) 6
: (kernel 1) 8
: 這不是我要的結果啊...沒有照順序排...
: 這也讓我很好奇...我本來以為Table跟Do基本上是一樣的東西
: 只是Table是產生完用大括號括起來然後秀出來
: 但是ParallelTable看起來順序是對的

list={};Do[list=Append[list,n],{n,1,8}];list

但是用ParallelDo的時候，每次計算指定的kernel並沒有照順序，
所以才會有你說的情形。

事實上Mathematica 是不建議在做迴圈時第一時間就使用Do, For, While 這些函數
應該盡量以Pure function以及Functional programming取代

--
養花種魚數月亮賞星星

http://chungyuandye.twbbs.org

--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 118.232.166.217

[自動轉寄] (kichigop) Compute PI Using A Monte Carlo

作者: chungyuandye (養花種魚數月亮賞星星)
標題: Compute PI Using A Monte Carlo
時間: Tue Jun 28 19:12:06 2011

一些平行運算程式的使用方法我在blog裡面都有提到，
有興趣的話可以到我blog留言討論，

以下是使用Mathematica 8.0

N[Pi,100]

(* 定義距離原點的半徑函數 *)
r[x_, y_] = Sqrt[x^2 + y^2];

(*產生10000的隨機樣本點*)
dataset = RandomReal[{0, 1}, {10000, 2}];

(*繪初樣本點與1/4圓*)
Show[ListPlot[dataset, AspectRatio -> 1],
Plot[Sqrt[1 - x^2], {x, 0, 1}, PlotStyle -> {Thickness[0.01], Red}]]

(*將半徑內與半徑玩的點畫出*)
ListPlot[{Select[dataset, r @@ # < 1 &],
Select[dataset, r @@ # >= 1 &]}, PlotStyle -> {{Red}, {Blue}},
AspectRatio -> 1]

(* 模擬一組樣本數為n時估計的pi *)
sim[ntemp_] := With[{n = ntemp},
(*將函數r分配給各核心*)
DistributeDefinitions[r];
N@Total@ParallelMap[If[r[#[[1]], #[[2]]] <= 1, 1, 0] &,
RandomReal[{0, 1}, {n, 2}]]/n*4
]

sim[10000]

(* 實驗重複1000次，並畫出直芳荼*)
Histogram[sim[1000] & /@ Range[100]]

(* 建立樣本數為n時，所得到pi的函數 *)
size[ntemp_Integer] := Block[{n = ntemp, data},
data = RandomReal[{0, 1}, {n, 2}];
N@Total@Map[If[r[#[[1]], #[[2]]] <= 1, 1, 0] &, data]/n*4
];

(*將函數size分配給各核心*)
DistributeDefinitions[size];
(*不使用平行運算*)
Map[size, Range[10000, 100000, 1000]] // AbsoluteTiming
(*使用平行運算*)
ParallelMap[size, Range[10000, 100000, 1000]] // AbsoluteTiming

--
養花種魚數月亮賞星星

http://chungyuandye.twbbs.org

--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 118.232.166.217

[自動轉寄] [心得] Spinski Triangle with CompilationTar …

作者: chungyuandye (養花種魚數月亮賞星星) 看板: Mathematica
標題: [心得] Spinski Triangle with CompilationTarget->"C"
時間: Tue Jun 28 16:15:18 2011

Mathematica 較為人詬病的就是計算速度及不可編譯為執行檔。
但這在7.0及8.0之後的Compile及平行運算大致已獲得解決。

$Version

newpt[x_List] := {{x[[1]], Mean@{x[[1]], x[[2]]},
Mean@{x[[1]], x[[3]]}}, {x[[2]], Mean@{x[[2]], x[[1]]},
Mean@{x[[2]], x[[3]]}}, {x[[3]], Mean@{x[[3]], x[[1]]},
Mean@{x[[3]], x[[2]]}}};

(*不編譯程式*)
Stgraph1[pt_List, n_Integer] :=
Nest[Flatten[Map[newpt, #], 1] &, {pt}, n];

(* 編譯程式 *)
Stgraph2 =
Compile[{{pt, _Real, 2}, {n, _Integer}},
Nest[Flatten[
Map[{{#[[1]], Mean@{#[[1]], #[[2]]},
Mean@{#[[1]], #[[3]]}}, {#[[2]], Mean@{#[[2]], #[[1]]},
Mean@{#[[2]], #[[3]]}}, {#[[3]], Mean@{#[[3]], #[[1]]},
Mean@{#[[3]], #[[2]]}}} &, #], 1] &, {pt}, n]];

(*由 C Compiler 編譯程式*)
Stgraph3 =
Compile[{{pt, _Real, 2}, {n, _Integer}},
Nest[Flatten[
Map[{{#[[1]], Mean@{#[[1]], #[[2]]},
Mean@{#[[1]], #[[3]]}}, {#[[2]], Mean@{#[[2]], #[[1]]},
Mean@{#[[2]], #[[3]]}}, {#[[3]], Mean@{#[[3]], #[[1]]},
Mean@{#[[3]], #[[2]]}}} &, #], 1] &, {pt}, n],
CompilationTarget -> "C"];

pt = {{0, 0}, {2, 0}, {1, Sqrt[3]}};

First@AbsoluteTiming@Stgraph1[pt, 8]
First@AbsoluteTiming@Stgraph2[pt, 8]
First@AbsoluteTiming@Stgraph3[pt, 8]

Graphics[{Red, Polygon /@ Stgraph3[pt, 8]}]

--
養花種魚數月亮賞星星

http://chungyuandye.twbbs.org

--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 118.232.166.217

[自動轉寄] [心得] A broken heart

作者: chungyuandye (養花種魚數月亮賞星星) 看板: Mathematica
標題: [心得] A broken heart
時間: Tue Jun 28 15:08:31 2011

試試8.0 2D-3D 繪圖 Texture 的功能

tt=Import["http://tinyurl.com/3m4awrv"];

ff[xx_]:=Cases[y/.NSolve[(y^2+xx^2-1)^3-y^2*xx^3==0,y],_Real][[-1]];

data={#,RandomReal[{-0.15,0.25}]}&/@Range[-0.9,0.9,0.05];

m[de_]:={{Cos[de],-Sin[de]},{Sin[de],Cos[de]}};

slope[pt_List]:=(pt[[2,2]]-pt[[1,2]])/(pt[[2,1]]-pt[[1,1]]);

pt=Partition[Flatten[{{#[[1]],Min[Max[#[[2]],-ff[#[[1]]]]*0.75,
ff[#[[1]]]]*0.75}&/@data,{{1,0}}},1],2,1];

eq=Piecewise[{slope[#]*(x-#[[1,1]])+#[[1,2]],#[[1,1]]<=x<#[[2,1]]}&/@pt];

bh1=RegionPlot[(y^2+x^2-1)^3-y^2x^3<0&&y<eq,
{y,-1.5,1.5},{x,-1.5,1.5},PlotStyle->Texture[tt]];

bh2=RegionPlot[(y^2+x^2-1)^3-y^2x^3<0&&y>eq,
{y,-1.5,1.5},{x,-1.5,1.5},PlotStyle->Texture[tt]];

Manipulate[Show[
bh1/.GraphicsComplex[a__,b__]:>GraphicsComplex[{-l,0}
+(#+{0,1}).m[-z*Pi/10]&/@a,b],
bh2/.GraphicsComplex[a__,b__]:>GraphicsComplex[{l,0}
+(#+{0,1}).m[z*Pi/10]&/@a,b],
PlotRange->{{-1.5,1.5},{-0.5,2.5}},Frame->False],
{z,0,1,0.1},{l,0,0.3,0.1}
]

--
養花種魚數月亮賞星星

http://chungyuandye.twbbs.org

--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 118.232.166.217
→ chungyuandye:輸出 http://tinyurl.com/3wwr4uy  06/28 15:10
推 Frobenius:Cool!  06/28 15:12

[自動轉寄] 請求協助資料分析

作者: manhoodguy (1111)
標題: 請求協助資料分析
時間: Mon Jun 27 07:04:01 2011

您好
我想請求資料分析
不知是否有興趣?
方法是hlm
資料數目不多
目的在解釋報表
有三階層資料
報酬約2000
若可行請給我回覆進一步詳談

--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 220.129.0.66

[自動轉寄] Re: 恭喜開板:)

作者: chungyuandye (養花種魚數月亮賞星星) 看板: Mathematica
標題: Re: 恭喜開板:)
時間: Sat Jun 25 21:57:37 2011

※ 引述《apruth (L's celebrate！)》之銘言：
: 恭喜開板呀^^
: 哈哈
: 我好前面

恭喜開版~~just for fun

str[x_] :=
"http://images.google.com.tw/images?um=1&hl=zh-TW&tbs=isch:1&q=%E6%\
9E%97%E5%BF%97%E7%8E%B2&sa=N&start=" <> ToString[18*x] <> "&ndsp=" <>
ToString[18]
mypic = ImageResize[#, RandomInteger[{1, 50}]] & /@
Flatten[Import[str[#], {"Html", "Images"}][[2 ;; -1]] & /@
Range[20]];

myplot[str_, size_] :=
Module[{mystr = str, test, a, b, mysize = size, data},
test = Rasterize[str, RasterSize -> 20, ImageSize -> 500];
{a, b} = Dimensions[test[[1, 1]]][[1 ;; 2]];
data = Reverse[#] & /@
Select[Flatten[
Table[If[
And[test[[1, 1, i, j]][[1]] > 100,
test[[1, 1, i, j]][[2]] > 100,
test[[1, 1, i, j]][[3]] > 100], {0, 0}, {i, j}], {i, a}, {j,
b}], 1], # != {0, 0} &];
ListPlot[data, PlotStyle -> PointSize[0.01], ImageSize -> mysize,
AspectRatio -> 1, Frame -> False, Axes -> {None, None},
PlotRange -> {{-0.2 Min[data[[All, 1]]],
1.1 Max[data[[All, 1]]]}, {0.2 Min[data[[All, 2]]],
1.1 Max[data[[All, 2]]]}},
Epilog -> {{PointSize[RandomReal[{0, 1/10}]],
RGBColor[Random[], Random[], Random[]], Point[{#}]} & /@
data}]]

mypicplot[str_, size_] :=
Module[{mystr = str, test, a, b, mysize = size, data},
test = Rasterize[str, RasterSize -> 50, ImageSize -> mysize];
{a, b} = Dimensions[test[[1, 1]]][[1 ;; 2]];
data = Reverse[#] & /@
Select[Flatten[
Table[If[
And[test[[1, 1, i, j]][[1]] > 100,
test[[1, 1, i, j]][[2]] > 100,
test[[1, 1, i, j]][[3]] > 100], {0, 0}, {i, j}], {i, a}, {j,
b}], 1], # != {0, 0} &];
ListPlot[RandomSample[Partition[data, 1], Length@data],
PlotMarkers ->
Evaluate[
Rotate[#, Random[]*Pi] & /@ RandomChoice[mypic, Length@data]],
Frame -> False, Axes -> {None, None},
PlotRange -> {{-0.2 Min[data[[All, 1]]],
1.1 Max[data[[All, 1]]]}, {0.2 Min[data[[All, 2]]],
1.1 Max[data[[All, 2]]]}}, ImageSize -> mysize]]

myplot[\[HeartSuit], 500]

mypicplot[M, 1000]

--
我打研究室走過 那獨坐電腦前的容顏如苦瓜的糾結
靈感不來 長壽的煙霧不散
研究室如小小的寂寞的城 恰如商管的電梯向晚

http://chungyuandye.twbbs.org

--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 218.173.132.228

[自動轉寄] [通告] 選擇比努力重要 您值得擁有更好!

作者: fgsgfd (Yes Man)
標題: [通告] 選擇比努力重要 您值得擁有更好!
時間: Tue Jun 7 11:16:43 2011

新經濟潮流~涵蓋了 [實體經濟]、[無國界經濟]、[數位經濟]、及[倍數經濟]

這不是一個普通的機會,有緣遇上~為何還等待!!

化危機變轉機,選對平台,做什麼都容易:http://www.vemmabuilder.com/28710784/sb02

為M型社會下的眾生打造一條新的黃金通路!!

也不用擔心薪水漲不漲的問題

拿回人生的自主權

您,絕對可以!!

--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 111.248.48.227

[自動轉寄] Re: [其他] mathematica 繪圖

作者: sparrow620 (可遇不可求′-`y-∼)
標題: Re: [其他] mathematica 繪圖
時間: Wed Jun 1 00:07:39 2011

嗯嗯

再次感謝~ Orz

※ 引述《chungyuandye (養花種魚數月亮賞星星)》之銘言：
: ※ 引述《sparrow620 (可遇不可求′-`y-∼)》之銘言：
: : 再請問一下
: : 這個不等式繪圖，RegionPlot指令
: : 可以只顯示數線，而不上色嗎？
: Manipulate[
: RegionPlot[{x >= xx, x - y >= 225/16, y >= yy}, {x, -100,
: 100}, {y, -100, 100}, PlotRange -> All,
: PlotStyle -> None], {{xx, 975/16}, -100, 100}, {{yy, 75/16}, -100,
: 100}]
: 有問題可以到我blog討論∼

--
保存期限 過了嗎?
過期...就會有瑕疵了...

--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 118.171.81.215

[自動轉寄] (sparrow620) Re: [其他] mathematica 繪圖

作者: chungyuandye (養花種魚數月亮賞星星)
標題: Re: [其他] mathematica 繪圖
時間: Tue May 31 21:39:07 2011

※ 引述《sparrow620 (可遇不可求′-`y-∼)》之銘言：
: 再請問一下
: 這個不等式繪圖，RegionPlot指令
: 可以只顯示數線，而不上色嗎？
: ※ 引述《chungyuandye (養花種魚數月亮賞星星)》之銘言：
: : Manipulate[
: : Show[
: : RegionPlot[{x>=xx,x-y>=225/16,y>=yy},
: : {x,-100,100},{y,-100,100},PlotRange->All],
: : RegionPlot[x>=xx&&x-y>=225/16&&y>=yy,
: : {x,-100,100},{y,-100,100},PlotStyle->Blue]],
: : {{xx,975/16},-100,100},{{yy,75/16},-100,100}
: : ]

Manipulate[
RegionPlot[{x >= xx, x - y >= 225/16, y >= yy}, {x, -100,
100}, {y, -100, 100}, PlotRange -> All,
PlotStyle -> None], {{xx, 975/16}, -100, 100}, {{yy, 75/16}, -100,
100}]

有問題可以到我blog討論∼

--
我打研究室走過 那獨坐電腦前的容顏如苦瓜的糾結
靈感不來 長壽的煙霧不散
研究室如小小的寂寞的城 恰如商管的電梯向晚

http://chungyuandye.twbbs.org

--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 218.173.129.195

[自動轉寄] Re: [其他] mathematica 繪圖

作者: sparrow620 (可遇不可求′-`y-∼)
標題: Re: [其他] mathematica 繪圖
時間: Tue May 31 09:22:26 2011

修改了一下 似乎得到我想要的圖
感謝~

※ 引述《chungyuandye (養花種魚數月亮賞星星)》之銘言：
: ※ 引述《sparrow620 (可遇不可求′-`y-∼)》之銘言：
: : 請問這個指令是不是沒辦法 為x-y軸命名
: : 以及將座標刻度取消?
: : 試了 AxesLabel 跟 Ticks 好像不行…
: : 因為其實我想畫的圖 數字部份(如975/16)我是用 給定(a,c,epsilon_1,epsilon_2)四個
: : 才有一個確切值(如975/16)
: : 不然應該只是
: : x>= 某常數
: : x-y>= 某某常數
: : y>= 某某某常數
: : 其中x>=0,y>=0 可變動的部份是(a,c,epsilon_1,epsilon_2)才會有對應的x-y圖
: : 沒辦法不顯示刻度的話，圖似乎要再另外手畫的樣子...
: Manipulate[Show[
: RegionPlot[{x >= xx, x - y >= 225/16, y >= yy}, {x, -100,
: 100}, {y, -100, 100}, PlotRange -> All],
: RegionPlot[
: x >= xx && x - y >= 225/16 && y >= yy, {x, -100, 100}, {y, -100,
: 100}, PlotStyle -> Blue],
: Axes -> True, AxesLabel -> {"x", "y"}, Frame -> False,
: Ticks -> {Range[-100, 100, 25], Range[-100, 100, 25]}
: ], {{xx, 975/16}, -100, 100}, {{yy, 75/16}, -100, 100}]

--
保存期限 過了嗎?
過期...就會有瑕疵了...

--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 114.47.208.16

[自動轉寄] (sparrow620) Re: [其他] mathematica 繪圖

作者: chungyuandye (養花種魚數月亮賞星星)
標題: Re: [其他] mathematica 繪圖
時間: Tue May 31 05:17:50 2011

※ 引述《sparrow620 (可遇不可求′-`y-∼)》之銘言：
: 請問這個指令是不是沒辦法 為x-y軸命名
: 以及將座標刻度取消?
: 試了 AxesLabel 跟 Ticks 好像不行…
: 因為其實我想畫的圖 數字部份(如975/16)我是用 給定(a,c,epsilon_1,epsilon_2)四個
: 才有一個確切值(如975/16)
: 不然應該只是
: x>= 某常數
: x-y>= 某某常數
: y>= 某某某常數
: 其中x>=0,y>=0 可變動的部份是(a,c,epsilon_1,epsilon_2)才會有對應的x-y圖
: 沒辦法不顯示刻度的話，圖似乎要再另外手畫的樣子...
: ※ 引述《chungyuandye (養花種魚數月亮賞星星)》之銘言：
: : Manipulate[
: : Show[
: : RegionPlot[{x>=xx,x-y>=225/16,y>=yy},
: : {x,-100,100},{y,-100,100},PlotRange->All],
: : RegionPlot[x>=xx&&x-y>=225/16&&y>=yy,
: : {x,-100,100},{y,-100,100},PlotStyle->Blue]],
: : {{xx,975/16},-100,100},{{yy,75/16},-100,100}
: : ]

Manipulate[Show[
RegionPlot[{x >= xx, x - y >= 225/16, y >= yy}, {x, -100,
100}, {y, -100, 100}, PlotRange -> All],
RegionPlot[
x >= xx && x - y >= 225/16 && y >= yy, {x, -100, 100}, {y, -100,
100}, PlotStyle -> Blue],
Axes -> True, AxesLabel -> {"x", "y"}, Frame -> False,
Ticks -> {Range[-100, 100, 25], Range[-100, 100, 25]}
], {{xx, 975/16}, -100, 100}, {{yy, 75/16}, -100, 100}]

--
養花種魚數月亮賞星星

http://cydye1069.blogspot.com
http://tinyurl.com/25nedr2

--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 218.173.129.195

[自動轉寄] (sparrow620) Re: [其他] mathematica 繪圖

作者: chungyuandye (養花種魚數月亮賞星星)
標題: Re: [其他] mathematica 繪圖
時間: Tue May 31 05:16:57 2011

※ 引述《sparrow620 (可遇不可求′-`y-∼)》之銘言：
: 請問這個指令是不是沒辦法 為x-y軸命名
: 以及將座標刻度取消?
: 試了 AxesLabel 跟 Ticks 好像不行…
: 因為其實我想畫的圖 數字部份(如975/16)我是用 給定(a,c,epsilon_1,epsilon_2)四個
: 才有一個確切值(如975/16)
: 不然應該只是
: x>= 某常數
: x-y>= 某某常數
: y>= 某某某常數
: 其中x>=0,y>=0 可變動的部份是(a,c,epsilon_1,epsilon_2)才會有對應的x-y圖
: 沒辦法不顯示刻度的話，圖似乎要再另外手畫的樣子...
: ※ 引述《chungyuandye (養花種魚數月亮賞星星)》之銘言：
: : Manipulate[
: : Show[
: : RegionPlot[{x>=xx,x-y>=225/16,y>=yy},
: : {x,-100,100},{y,-100,100},PlotRange->All],
: : RegionPlot[x>=xx&&x-y>=225/16&&y>=yy,
: : {x,-100,100},{y,-100,100},PlotStyle->Blue]],
: : {{xx,975/16},-100,100},{{yy,75/16},-100,100}
: : ]

Manipulate[Show[
RegionPlot[{x >= xx, x - y >= 225/16, y >= yy}, {x, -100,
100}, {y, -100, 100}, PlotRange -> All],
RegionPlot[
x >= xx && x - y >= 225/16 && y >= yy, {x, -100, 100}, {y, -100,
100}, PlotStyle -> Blue],
Axes -> True, AxesLabel -> {"x", "y"}, Frame -> False,
Ticks -> {Range[-100, 100, 25], Range[-100, 100, 25]}
], {{xx, 975/16}, -100, 100}, {{yy, 75/16}, -100, 100}]

--
養花種魚數月亮賞星星

http://cydye1069.blogspot.com
http://tinyurl.com/25nedr2

--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 218.173.129.195

[自動轉寄] Re: [其他] mathematica 繪圖

作者: sparrow620 (可遇不可求′-`y-∼)
標題: Re: [其他] mathematica 繪圖
時間: Tue May 31 02:13:00 2011

請問這個指令是不是沒辦法 為x-y軸命名
以及將座標刻度取消?
試了 AxesLabel 跟 Ticks 好像不行…
因為其實我想畫的圖 數字部份(如975/16)我是用 給定(a,c,epsilon_1,epsilon_2)四個
才有一個確切值(如975/16)
不然應該只是

x>= 某常數
x-y>= 某某常數
y>= 某某某常數
其中x>=0,y>=0 可變動的部份是(a,c,epsilon_1,epsilon_2)才會有對應的x-y圖
沒辦法不顯示刻度的話，圖似乎要再另外手畫的樣子...

※ 引述《chungyuandye (養花種魚數月亮賞星星)》之銘言：
: ※ 引述《sparrow620 (可遇不可求′-`y-∼)》之銘言：
: : 如果
: : x >= 975/16
: : x-y >= 225/16
: : y >= 375/16
: : 三條數線同時出現在二維x-y軸該怎麼畫@@"
: : 最近在摸這個軟體...
: : 它好像要給定範圍才能畫的樣子...
: Manipulate[
: Show[
: RegionPlot[{x>=xx,x-y>=225/16,y>=yy},
: {x,-100,100},{y,-100,100},PlotRange->All],
: RegionPlot[x>=xx&&x-y>=225/16&&y>=yy,
: {x,-100,100},{y,-100,100},PlotStyle->Blue]],
: {{xx,975/16},-100,100},{{yy,75/16},-100,100}
: ]

--
保存期限 過了嗎?
過期...就會有瑕疵了...

--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 114.47.208.16

[自動轉寄] [問題] 題項多 amos模式如何繪製

作者: aman0523 (Let's Start From Here) 看板: Statistics
標題: [問題] 題項多 amos模式如何繪製
時間: Thu May 26 02:46:08 2011

先感謝各位：）
我覺得我要問一個很笨的問題>"<

我的問卷共包含六個構念
共有64個題項
今天嘗試著看書跑SEM
使用AMOS軟體

可是我的題項實在好多
塞不下可繪製的版面
不知道大家有沒有遇過此種問題？

我想嘗試將構念下的題項先以因素分析分出子構念
再以子構念取代題項（即觀察變項）
不知道這方法可不可行
不然一個構念底下可能就多達15題
如果可行的話可以給我個提示要如何操作嘛？

真是麻煩各位幫忙解答了

--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 122.125.71.135
→ coldwind0912:雖然不是絕對 但sem一個構念超過6題適配也不會太好  05/26 07:42
→ coldwind0912:我記得有一篇著名的paper裡 有句經典的話....  05/26 07:43
→ coldwind0912:一個構念至少要3題 4題剛好 超過5題其餘的都是肉汁  05/26 07:44
→ coldwind0912:不然 就看原po要不要先作題項整合的動作了  05/26 07:45

[自動轉寄] SET 中獎咧! $ 900

恭喜您中了彩券
祝您發財

金額及看板寫在標題上

詳細結果將自動公佈到該看板

[自動轉寄] 老師您好!!又來向您請教了^^

作者: pxpypz (??)
標題: 老師您好!!又來向您請教了^^
時間: Tue May 24 17:44:14 2011

老師您好!!抱歉間隔兩個多月 又來打擾您了^^
感謝您前回指導我找出我的 model 中的正確解
(由那個解可以看出我的模型需要修改 所以這兩個月一直在修改中)

我目前正在解一個新的問題
等效於 兩條聯立方程式解兩個圓的交點
可能交於兩點 可能切於一點 也可能沒有交點

我的方程式在寄給您的附加檔案中
其中 A.B.R.V 都已知 求未知的 x,y 交點作標
我知道寫法很簡單 可是我的寫法卻跑不出來
是我的寫法錯了呢?
(解二元二次聯立方程式的方法是否和一般的一樣呢?
直覺上我覺得我弄錯了一個很簡單的地方 ><)

還是表示他沒有解呢?
還請您有空幫我看一下了!!
萬分感謝 !!^^

pxpypz 敬上

--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 42.72.127.120

[自動轉寄] Re: [請問] 基礎mathematica指令

作者: Liberl (利貝爾)
標題: Re: [請問] 基礎mathematica指令
時間: Fri May 20 00:07:54 2011

太感謝你了！！！

※ 引述《chungyuandye (養花種魚數月亮賞星星)》之銘言：
: ※ 引述《Liberl (利貝爾)》之銘言：
: : 如果我有一條式子
: : x=a/b+3*c 這樣
: : 然後我知道a b c分別多少
: : 我應該要如何打然後解出x?
: : 當然我可以直接代進去解
: : 不過因為那些都是參數 我希望微調後就可以直接重解
: : 我是想有沒有類似
: : x=a/b+3*c, a=2, b=5, c=7
: : 這樣的寫法
: : 感謝
: : 我查了洪維恩的書 似乎沒有寫?
: myfun[a_, b_ /; b != 0, c_] := a/b + 3 c
: In[100]:= myfun[2,-1,1]
: Out[100]= 1
: In[101]:= myfun[2,1,1]
: Out[101]= 5
: In[102]:= myfun[2,0,1]
: Out[102]= myfun[2,0,1]

--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 203.70.98.204

[自動轉寄] (Liberl) Re: [請問] 基礎mathematica指令

作者: chungyuandye (養花種魚數月亮賞星星)
標題: Re: [請問] 基礎mathematica指令
時間: Thu May 19 22:55:45 2011

※ 引述《Liberl (利貝爾)》之銘言：
: 如果我有一條式子
: x=a/b+3*c 這樣
: 然後我知道a b c分別多少
: 我應該要如何打然後解出x?
: 當然我可以直接代進去解
: 不過因為那些都是參數 我希望微調後就可以直接重解
: 我是想有沒有類似
: x=a/b+3*c, a=2, b=5, c=7
: 這樣的寫法
: 感謝
: 我查了洪維恩的書 似乎沒有寫?

myfun[a_, b_ /; b != 0, c_] := a/b + 3 c
In[100]:= myfun[2,-1,1]
Out[100]= 1
In[101]:= myfun[2,1,1]
Out[101]= 5
In[102]:= myfun[2,0,1]
Out[102]= myfun[2,0,1]

--
養花種魚數月亮賞星星

http://cydye1069.blogspot.com
http://tinyurl.com/25nedr2

--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 120.119.96.8

[自動轉寄] (lifeisdrama) Re: [其他] mathematica 解 ODE

作者: chungyuandye (養花種魚數月亮賞星星)
標題: Re: [其他] mathematica 解 ODE
時間: Thu May 19 22:38:42 2011

※ 引述《lifeisdrama (人生如戲)》之銘言：
: 請問各位板友
: 小弟我用mathematica解下列的式子
: 20y''(t)+3789y(t)=-10 Sign[y''(t)] ; y'(0)=0.1 , y(0)=0
: ~~~~~~~~~~~~
: 其中符號Sign(t)的定義為:
: 當t>0，則Sign(t)=1
: 當t<0，則Sign(t)=-1
: 程式碼如下
: NDSolve[{20 y''[t] + 3789 y[t] == -10 Sign[y''[t]], y[0] == 0,
: y'[0] == 0.1}, {y[t]}, {t, 0, 1}]
: 並且將圖形繪出，可得到下面的圖形
: Plot[Evaluate[y[t] /. %], {t, 0, 1}]
: http://www.pixavid.com/leSWO7/
: 由圖可知有兩條線，想請問為何會出現兩條線??
: 感謝你的回

因為
NDSolve[{20 y''[t] + 3789 y[t] == -10 Sign[y''[t]], y[0] == 0,
y'[0] == 0.1}, {y[t]}, {t, 0, 1}]
有兩組解阿

--
養花種魚數月亮賞星星

http://cydye1069.blogspot.com
http://tinyurl.com/25nedr2

--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 120.119.96.8

[自動轉寄] Re: 安裝中文時install.sh Permission denied?(Mac)

作者: ballII (揪團玩舞 5/7（六）)
標題: Re: 安裝中文時install.sh Permission denied?(Mac)
時間: Fri Apr 29 14:16:24 2011

謝謝您告知雪豹成功的範例
我一直都有加Library
也許問題是我用精簡版（TeXLive 2010basic）而非完整版（TeXLive 2010）
我再試試
謝謝您

※ 引述《chungyuandye (養花種魚數月亮賞星星)》之銘言：
: 在Snow Leopard上你要不要改一下install.sh檔
: MYTEXMF=$HOME/Library/texmf
: 把參數加一下 Library
: 這樣自行換裝在home directory，我從MacTeX2007用到現在都是這樣
: 一切都OK
: good luck!
: ※ 引述《ballII (揪團玩舞 5/7（六）)》之銘言：
: : 不在。
: : （可否順便請教一下：如果要找的目標在未知的隱藏folder裡，
: : 在放大鏡旁輸入好像都找不到。請問該怎麼找呢？）
: : 有這指令。
: : 當初為了保持權限在win下改，應改是編碼有問題所以找不到。
: : 現在在mac下改，並用上述第 2) 方法，可以跑。找得到 env。
: : 但以下仍然 not writable.
: : $ sudo ./install.sh
: : Don't use root to do install, abort!
: : 哇？

--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.122.161.110

[自動轉寄] [轉錄][徵才] 台積電 竹科職缺

作者: RonaldFisher (費雪) 看板: Statistics
標題: [轉錄][徵才] 台積電 竹科職缺
時間: Tue Apr 19 15:34:27 2011

※ [本文轉錄自 Tech_Job 看板 #1Dh3wW7e ]

作者: orangehehe (:)) 看板: Tech_Job
標題: [徵才] 台積電 竹科職缺
時間: Mon Apr 18 21:37:33 2011

【公司名稱】台積電

【工作職缺】工程師 (正職缺，非約聘)

【工作內容】資料分析/系統開發規劃

【徵求條件】
1. 需至少兩年以上工程資料分析/開發經驗 (EDA)
2. 熟悉良率分析及其統計相關應用
3. 熟悉 VB.Net, VB, Java, C/C++ & SQL 等程式開發語言
4. 具有 JMP Script/ R / Matlab/ S-Plus 開發經驗者為佳

【工作地點】台積電竹科

【工作時間】星期一~五, 周休二日(不需輪班)

【薪資範圍】薪資面議, 與年資相關. (參考碩畢起薪 NT.44800)

【需求人數】2~4人

【聯絡人/連絡方式】
意者請投履歷至 nicole_chuang@tsmc.com
rachel_yen@tsmc.com

【其他備註】
此職缺需具有統計分析背景或程式相關工作經驗2年以上者

--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 114.25.184.8
推 limit9999:起薪多300了  04/18 22:05
推 vvvv:兩工作經驗多300XDDDDDDDDDDDDDD  04/18 22:07
推 gcanny:也多了幾個人..  04/18 23:21
推 sullivanou:為什麼南科沒有這種職缺= =  04/18 23:33
→ louliu:GG起薪本來就44800阿  04/18 23:44
推 pk329:感覺好像是我們部門的= =  04/19 00:27
推 w9764108:有網管缺嗎...@@  04/19 10:42

--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 125.230.35.62

[自動轉寄] Re: [程式] 徵求幫我跑一個矩陣。特徵值+特徵向量

作者: Arteta (沒有暱稱)
標題: Re: [程式] 徵求幫我跑一個矩陣。特徵值+特徵向量
時間: Wed Apr 13 13:04:42 2011

阿....我已經推文說徵到了說 冏

還是非常感謝你
附上 300 P給您這樣好嗎？

※ 引述《chungyuandye (養花種魚數月亮賞星星)》之銘言：
: ※ 引述《Arteta (沒有暱稱)》之銘言：
: : [軟體程式類別]: MatLab 或其他可跑特徵值及特徵向量的軟體
: : [程式問題]: 我只有 SPSS 可以使用
: : 剛在網上找了很久都找不到適當可用的 MatLab
: : [問題敘述]: 剛開始練習 SPSS，要跑主成份分析
: : 已跑出相關矩陣如附檔
: : http://www.badongo.com/file/25302690
: : 但不知該怎麼跑特徵值而無法繼續下一步
: : 在網路上找了資料，似乎要跑特徵值和特徵向量
: : 部份文章說 EXCEL 可計算
: : 但看了半天還是看不懂
: : 是不是可以請有 MatLab 程式的板友幫忙處理一下特徵值和特徵向量呢？
: : 非常感謝 ! (可提供P幣500P做為小小感謝)
: matrix data variables = a b c d e f g h i j k/ N=200 .
: begin data
: 1.000
: -0.203 1.000
: -0.095 0.252 1.000
: -0.149 0.215 0.166 1.000
: -0.133 0.001 0.161 0.441 1.000
: -0.202 0.712 0.143 0.043 -0.085 1.000
: -0.332 0.792 0.414 0.175 0.127 0.707 1.000
: -0.293 0.830 0.374 0.221 0.068 0.680 0.878 1.000
: -0.330 0.699 0.046 0.038 -0.361 0.687 0.551 0.609 1.000
: -0.175 0.619 0.082 -0.116 -0.202 0.315 0.350 0.516 0.609 1.000
: -0.389 0.882 0.406 0.438 0.244 0.583 0.761 0.841 0.572 0.468 1.000
: end data
: factor /matrix=in(cor=*)
: /criteria = FACTOR(11)
: /extraction=pc.
: 自己改一下變數名稱跟樣本數，SPSS開個語法檔就可以直接跑了

--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 114.41.66.236

[自動轉寄] (Arteta) Re: [程式] 徵求幫我跑一個矩陣。特徵值+特徵向量

作者: chungyuandye (養花種魚數月亮賞星星)
標題: Re: [程式] 徵求幫我跑一個矩陣。特徵值+特徵向量
時間: Wed Apr 13 07:33:10 2011

※ 引述《Arteta (沒有暱稱)》之銘言：
: [軟體程式類別]: MatLab 或其他可跑特徵值及特徵向量的軟體
: [程式問題]: 我只有 SPSS 可以使用
: 剛在網上找了很久都找不到適當可用的 MatLab
: [問題敘述]: 剛開始練習 SPSS，要跑主成份分析
: 已跑出相關矩陣如附檔
: http://www.badongo.com/file/25302690
: 但不知該怎麼跑特徵值而無法繼續下一步
: 在網路上找了資料，似乎要跑特徵值和特徵向量
: 部份文章說 EXCEL 可計算
: 但看了半天還是看不懂
: 是不是可以請有 MatLab 程式的板友幫忙處理一下特徵值和特徵向量呢？
: 非常感謝 ! (可提供P幣500P做為小小感謝)

matrix data variables = a b c d e f g h i j k/ N=200 .
begin data
1.000
-0.203 1.000
-0.095 0.252 1.000
-0.149 0.215 0.166 1.000
-0.133 0.001 0.161 0.441 1.000
-0.202 0.712 0.143 0.043 -0.085 1.000
-0.332 0.792 0.414 0.175 0.127 0.707 1.000
-0.293 0.830 0.374 0.221 0.068 0.680 0.878 1.000
-0.330 0.699 0.046 0.038 -0.361 0.687 0.551 0.609 1.000
-0.175 0.619 0.082 -0.116 -0.202 0.315 0.350 0.516 0.609 1.000
-0.389 0.882 0.406 0.438 0.244 0.583 0.761 0.841 0.572 0.468 1.000
end data
factor /matrix=in(cor=*)
/criteria = FACTOR(11)
/extraction=pc.

自己改一下變數名稱跟樣本數，SPSS開個語法檔就可以直接跑了

--
養花種魚數月亮賞星星

http://cydye1069.blogspot.com
http://tinyurl.com/25nedr2

--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 218.173.131.12

[自動轉寄] Re: [問題] Lyx有人使用嗎？有問題想請教

作者: sparrow620 (可遇不可求′-`y-∼)
標題: Re: [問題] Lyx有人使用嗎？有問題想請教
時間: Sat Apr 9 18:22:49 2011

嗯嗯
了解了，很清楚
昨天也是google了很久才查到這個
http://ppt.cc/s!ci
然後自己也在ctrl+m 數學編輯式模式下 按了ctrl+enter
出現的是2x3 看了一下程式碼跟您的一樣
謝謝您

※ 引述《chungyuandye (養花種魚數月亮賞星星)》之銘言：
: ※ 引述《sparrow620 (可遇不可求′-`y-∼)》之銘言：
: : 您好
: : 是將文字or數學式輸入至表格內，然後取消表格框線的意思嗎？
: : 填入2x3表格似乎就可以對齊 但表格無法置中@@
: : 還是我誤解您的意思了...
: Step 1. 工具列=>插入=>數學=>Eqnarray環境
: 有三個空格，中間記得用等號
: Step 2. 下方工具列=>插入列。這樣就會有第二行∼∼其他就一此類推了
: 如果還是有問題，不介意的話，自己看畫面吧！
: http://chungyuandye.twbbs.org/2011/04/lyx.html

--
我不喜歡排隊的感覺....

--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 114.40.201.98

[自動轉寄] (sparrow620) Re: [問題] Lyx有人使用嗎？有問題想請教

作者: chungyuandye (養花種魚數月亮賞星星)
標題: Re: [問題] Lyx有人使用嗎？有問題想請教
時間: Sat Apr 9 17:55:46 2011

※ 引述《sparrow620 (可遇不可求′-`y-∼)》之銘言：
: 您好
: 是將文字or數學式輸入至表格內，然後取消表格框線的意思嗎？
: 填入2x3表格似乎就可以對齊 但表格無法置中@@
: 還是我誤解您的意思了...
: ※ 引述《chungyuandye (養花種魚數月亮賞星星)》之銘言：
: : 你要把它想成是2X3的表格
: : f(x) = sdfgh
: : = hjkl

Step 1. 工具列=>插入=>數學=>Eqnarray環境
有三個空格，中間記得用等號

Step 2. 下方工具列=>插入列。這樣就會有第二行∼∼其他就一此類推了

如果還是有問題，不介意的話，自己看畫面吧！

http://chungyuandye.twbbs.org/2011/04/lyx.html

--
養花種魚數月亮賞星星

http://cydye1069.blogspot.com
http://tinyurl.com/25nedr2

--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 218.173.131.77

[自動轉寄] Re: [問題] Lyx有人使用嗎？有問題想請教

作者: sparrow620 (可遇不可求′-`y-∼)
標題: Re: [問題] Lyx有人使用嗎？有問題想請教
時間: Fri Apr 8 20:04:33 2011

您好
是將文字or數學式輸入至表格內，然後取消表格框線的意思嗎？
填入2x3表格似乎就可以對齊 但表格無法置中@@
還是我誤解您的意思了...

※ 引述《chungyuandye (養花種魚數月亮賞星星)》之銘言：
: ※ 引述《sparrow620 (可遇不可求′-`y-∼)》之銘言：
: : 因為我的筆電cwtex一直灌不進去
: : 同樣是xp的電腦教室桌機就灌得進去
: : 後來只好放棄學cwtex，灌同學給的lyx，
: : 老師也沒要求要用哪種排版軟體，lyx覺得蠻方便就省省用了
: : 也比word好看一點
: : 可是 lyx 關於 「文章的對齊」
: : 像是 f(x)=sdfgh
: : =hjkl
: 你要把它想成是2X3的表格
: f(x) = sdfgh
: = hjkl
: : lyx好像沒有辦法完全對齊，等號(=)要手動打空格對很久才可以對齊
: : 不像cwtex可以打上程式碼看要對齊哪一個就對齊的很漂亮
: : (看我同學示範給我看，可是我的筆電就是沒法灌丫 囧)
: : 有使用lyx的大大可以教一下嗎？感謝！

--
我不喜歡排隊的感覺....

--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 114.40.201.98

[自動轉寄] [通告] 享受生活 提早退休，開啟夢想的大門

作者: Kazakhstan33 (^^y)
標題: [通告] 享受生活 提早退休，開啟夢想的大門
時間: Fri Apr 1 12:29:50 2011

--------------------------------------------------------------------

給薪水族、創業人、只要是想賺錢的你~

商機只給看的懂得人 http://www.vemmabuilder.com/28710784/sb2

線上培訓學習簡單 系統自動跟進

花您兩分鐘時間點閱瞭解對您無損失!

註冊後請留意您的信箱並與我聯繫，系統將會提供完整居家網路創業資訊！

--------------------------------------------------------------------

--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 114.42.101.80

[自動轉寄] (onlineID) Re: 解方程式

作者: chungyuandye (養花種魚數月亮賞星星)
標題: Re: 解方程式
時間: Tue Mar 29 10:44:31 2011

※ 引述《onlineID (虛擬世界)》之銘言：
: _______ ________
: x = √x + 1/x + √1 + 1/x
: 解 x = _________
: 謝謝。

有算數幾何不等式
x+1/x>=2，所以x>Sqrt(2)

原式左右平方，移項，左右乘以x^2得

x^2 (1 - 6 x - x^2 - 2 x^3 + x^4 )=0

因為x^2不為0，所以 (1 - 6 x - x^2 - 2 x^3 + x^4 )=0

你的問題應該在這邊，有解析解，但公式很複雜，可以自己帶進去
http://en.wikipedia.org/wiki/Quartic_function

大概是 x=2.975701884835571

--
養花種魚數月亮賞星星

http://cydye1069.blogspot.com
http://tinyurl.com/25nedr2

--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 218.173.129.248

[自動轉寄] Re: [其他] mathematica求整數解

作者: iamcrazyforu (愛宅)
標題: Re: [其他] mathematica求整數解
時間: Sun Mar 27 20:49:51 2011

※ 引述《chungyuandye (養花種魚數月亮賞星星)》之銘言：
: ※ 引述《iamcrazyforu (愛宅)》之銘言：
: : 用mathematica解線性規畫
: : 是否能夠限制解必須為整數呢?
: : 另外如果要輸出圖的話
: : 有沒有辦法把最佳整數解標示在圖上呢?
: 5.2的話應該只是把RegionPlot改成InequalityPlot，
: 不過在6.0之前，這些事額外的套件，必須帶入，所以要先導入InequalityGraphics
: 我手上沒有5.2，可以的話跟我講一下∼科科∼感恩喔！
: <<Graphics`InequalityGraphics`
: obj=x+2y;
: cons=And[3x+4y>=5,x>=0,y>=0];
: ansR=Minimize[{obj,cons},{x,y}]
: ansI=Minimize[{obj,cons,Element[{x,y},Integers]},{x,y}]
: Show[InequalityPlot[cons,{x,-1,3},{y,-,3}],
: ContourPlot[obj==ansR[[1]],{x,-1,3},{y,-1,3},ContourStyle->{Red,Thickness[0.01]
: ContourPlot[obj==ansI[[1]],{x,-1,3},{y,-1,3},ContourStyle->{Blue,Thickness[0.01
: Epilog->{Green,PointSize[0.05],Point[{x,y}/.ansR[[2]]],Point[{x,y}/.ansI[[2]]]}
: PlotRange->{{-1,3},{-1,3}}
: ]

真的很感謝你的幫忙!!
不過我的函數庫出了問題沒辦法載入
可能還是畫出線就好了
沒能夠幫你驗證真是抱歉呀...

--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 219.81.151.180

[自動轉寄] (iamcrazyforu) Re: [其他] mathematica求整數解

作者: chungyuandye (養花種魚數月亮賞星星)
標題: Re: [其他] mathematica求整數解
時間: Sun Mar 27 19:29:38 2011

※ 引述《iamcrazyforu (愛宅)》之銘言：
: 用mathematica解線性規畫
: 是否能夠限制解必須為整數呢?
: 另外如果要輸出圖的話
: 有沒有辦法把最佳整數解標示在圖上呢?

5.2的話應該只是把RegionPlot改成InequalityPlot，
不過在6.0之前，這些事額外的套件，必須帶入，所以要先導入InequalityGraphics
我手上沒有5.2，可以的話跟我講一下∼科科∼感恩喔！

<<Graphics`InequalityGraphics`
obj=x+2y;
cons=And[3x+4y>=5,x>=0,y>=0];
ansR=Minimize[{obj,cons},{x,y}]
ansI=Minimize[{obj,cons,Element[{x,y},Integers]},{x,y}]
Show[InequalityPlot[cons,{x,-1,3},{y,-,3}],
ContourPlot[obj==ansR[[1]],{x,-1,3},{y,-1,3},ContourStyle->{Red,Thickness[0.01]
ContourPlot[obj==ansI[[1]],{x,-1,3},{y,-1,3},ContourStyle->{Blue,Thickness[0.01
Epilog->{Green,PointSize[0.05],Point[{x,y}/.ansR[[2]]],Point[{x,y}/.ansI[[2]]]}
PlotRange->{{-1,3},{-1,3}}
]

--
養花種魚數月亮賞星星

http://cydye1069.blogspot.com
http://tinyurl.com/25nedr2

--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 218.173.128.199

[自動轉寄] Re: [其他] mathematica求整數解

作者: chungyuandye (養花種魚數月亮賞星星) 看板: Math
標題: Re: [其他] mathematica求整數解
時間: Sun Mar 27 17:50:57 2011

※ 引述《iamcrazyforu (愛宅)》之銘言：
: 用mathematica解線性規畫
: 是否能夠限制解必須為整數呢?
: 另外如果要輸出圖的話
: 有沒有辦法把最佳整數解標示在圖上呢?

方法很多，LinearProgramming, Minimize, FindMinimum, NMinimize
都可以用來求解線性規劃問題，當然包含整數規劃。

min x+2y
st 3x+4y>=5
x>=0,y>=0

obj=x+2y;
cons=And[3x+4y>=5,x>=0,y>=0];
ansR=Minimize[{obj,cons},{x,y}]
ansI=Minimize[{obj,cons,Element[{x,y},Integers]},{x,y}]
Show[RegionPlot[cons,{x,0,3},{y,0,3}],
ContourPlot[obj==ansR[[1]],{x,-1,3},{y,-1,3},ContourStyle->{Red,Thickness[0.01]
ContourPlot[obj==ansI[[1]],{x,-1,3},{y,-1,3},ContourStyle->{Blue,Thickness[0.01
Epilog->{Green,PointSize[0.05],Point[{x,y}/.ansR[[2]]],Point[{x,y}/.ansI[[2]]]}
PlotRange->{{-1,3},{-1,3}}
]

--
我打研究室走過 那獨坐電腦前的容顏如苦瓜的糾結
靈感不來 長壽的煙霧不散
研究室如小小的寂寞的城 恰如商管的電梯向晚

http://chungyuandye.twbbs.org

--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 218.173.240.190
※ 編輯: chungyuandye 來自: 218.173.240.190 (03/27 17:55)

[自動轉寄] Re: [微積] 請問這個方程組的解有多少組？

作者: apmoimo (阿尚)
標題: Re: [微積] 請問這個方程組的解有多少組？
時間: Sat Mar 26 15:40:07 2011

chungyuandye 您好：

非常感謝您的回信，我會用您的想法再好好想的。

謝謝您

apmoimo

※ 引述《chungyuandye (養花種魚數月亮賞星星)》之銘言：
: ※ 引述《apmoimo (阿尚)》之銘言：
: : 標題: [微積] 請問這個方程組的解有多少組？
: : 時間: Fri Mar 25 17:52:41 2011
: : 想請問方租組有多少解 (x,y)
: : (ln x) + x + 2y = a
: : (ln y) + 2x + 3y = b
: : 我對一些特定的 a,b 值畫了兩條曲線的交點，感覺至少有一個交點，
: : 但是不確定是否有兩個以上的交點
: : 想請教是否有人用軟體對一些特定的 a,b 值，來看這個方程組有幾組解。
: : 謝謝
: 兩條函數在定義域(0,oo)都是單調遞減且為凸函數，所以應該只有一組解
: 有Mathematica的話，可以執行以下程式
: Dt[y,x]/.Solve[Dt[Log[x]+x+2y==a,x]/.Dt[a,x]->0,Dt[y,x]][[1]]//FullSimplify
: D[%,x]//FullSimplify
: Dt[y,x]/.Solve[Dt[Log[y]+2x+3y==b,x]/.Dt[b,x]->0,Dt[y,x]][[1]]//FullSimplify
: Dt[%,x]//FullSimplify
: Manipulate[
: ContourPlot[{Log[x]+x+2y==a,Log[y]+2x+3y==b},
: {x,0,1},{y,0,1}],
: {a,-5,5,1/10},{b,-5,5,1/10}]

--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.112.51.108

[自動轉寄] (apmoimo) Re: [微積] 請問這個方程組的解有多少組？

作者: chungyuandye (養花種魚數月亮賞星星)
標題: Re: [微積] 請問這個方程組的解有多少組？
時間: Sat Mar 26 14:24:26 2011

※ 引述《apmoimo (阿尚)》之銘言：
: 標題: [微積] 請問這個方程組的解有多少組？
: 時間: Fri Mar 25 17:52:41 2011
:
:
: 想請問方租組有多少解 (x,y)
:
: (ln x) + x + 2y = a
: (ln y) + 2x + 3y = b
:
: 我對一些特定的 a,b 值畫了兩條曲線的交點，感覺至少有一個交點，
: 但是不確定是否有兩個以上的交點
:
: 想請教是否有人用軟體對一些特定的 a,b 值，來看這個方程組有幾組解。
:
:
: 謝謝
:

兩條函數在定義域(0,oo)都是單調遞減且為凸函數，所以應該只有一組解
有Mathematica的話，可以執行以下程式

Dt[y,x]/.Solve[Dt[Log[x]+x+2y==a,x]/.Dt[a,x]->0,Dt[y,x]][[1]]//FullSimplify
D[%,x]//FullSimplify
Dt[y,x]/.Solve[Dt[Log[y]+2x+3y==b,x]/.Dt[b,x]->0,Dt[y,x]][[1]]//FullSimplify
Dt[%,x]//FullSimplify
Manipulate[
ContourPlot[{Log[x]+x+2y==a,Log[y]+2x+3y==b},
{x,0,1},{y,0,1}],
{a,-5,5,1/10},{b,-5,5,1/10}]

--
養花種魚數月亮賞星星

http://cydye1069.blogspot.com
http://tinyurl.com/25nedr2

--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 218.173.132.12

[自動轉寄] Re: [其他] Mathematica的字型圖形預設大小

作者: randle (*________*)
標題: Re: [其他] Mathematica的字型圖形預設大小
時間: Thu Mar 24 23:18:17 2011

※ 引述《chungyuandye (養花種魚數月亮賞星星)》之銘言：
: ※ 引述《randle (*________*)》之銘言：
: : 不好意思這個問題跟數學沒有關係，而是軟體操作的問題...想不到該去哪個板問
: : Mathematica 可以從選單的 Format 去改個別的 font size，
: : 也可以改個別圖形的 magnification，
: : 我的問題是如何讓這些設定變成「預設值」？
: : 因為只要再開啟新的計算，就又會變回原本的大小設定啊...原本的實在太小了
: : 謝謝！
: 工具列=>Mathematica=>Perference=>Advance=>Open option inspector
: 你要的應該是設定FontSize 跟 ImageSize
: Default setting 是 fontsize=12, Imagesize=350x350
: 你可以自己修改∼
非常感謝！！！
我會試看看的！！！

--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 111.251.162.178

[自動轉寄] Re: [微積] 證明

作者: ted (ted)
標題: Re: [微積] 證明
時間: Thu Mar 24 23:08:35 2011

※ 引述《chungyuandye (養花種魚數月亮賞星星)》之銘言：
: ※ 引述《ted (ted)》之銘言：
: : 想去證明
: : 在a>0的情況下
: : exp(a^2)+exp(-a) > exp(a)
: : 可是我想了一整天都想出不做法!
: : 希望版上高手能傳授一下解法!
: : 感激不盡!!
: 我試著做了一下，把證明放在網頁上
: http://tinyurl.com/4ezbsmr
: 如果不嫌棄在看看∼

感謝你提供這個方法~!

我會繼續嘗試看看有沒有其他的做法~!

感謝你!!

--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 118.169.33.202

[自動轉寄] (ted) Re: [微積] 證明

作者: chungyuandye (養花種魚數月亮賞星星)
標題: Re: [微積] 證明
時間: Thu Mar 24 21:14:27 2011

※ 引述《ted (ted)》之銘言：
: 想去證明
: 在a>0的情況下
: exp(a^2)+exp(-a) > exp(a)
: 可是我想了一整天都想出不做法!
: 希望版上高手能傳授一下解法!
: 感激不盡!!

我試著做了一下，把證明放在網頁上
http://tinyurl.com/4ezbsmr
如果不嫌棄在看看∼

--
養花種魚數月亮賞星星

http://cydye1069.blogspot.com
http://tinyurl.com/25nedr2

--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 218.173.128.137

[自動轉寄] (randle) Re: [其他] Mathematica的字型圖形預設大小

作者: chungyuandye (養花種魚數月亮賞星星)
標題: Re: [其他] Mathematica的字型圖形預設大小
時間: Thu Mar 24 21:06:22 2011

※ 引述《randle (*________*)》之銘言：
: 不好意思這個問題跟數學沒有關係，而是軟體操作的問題...想不到該去哪個板問
: Mathematica 可以從選單的 Format 去改個別的 font size，
: 也可以改個別圖形的 magnification，
: 我的問題是如何讓這些設定變成「預設值」？
: 因為只要再開啟新的計算，就又會變回原本的大小設定啊...原本的實在太小了
: 謝謝！

工具列=>Mathematica=>Perference=>Advance=>Open option inspector

你要的應該是設定FontSize 跟 ImageSize

Default setting 是 fontsize=12, Imagesize=350x350
你可以自己修改∼

--
養花種魚數月亮賞星星

http://cydye1069.blogspot.com
http://tinyurl.com/25nedr2

--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 218.173.128.137

[自動轉寄] Re: Re:[請益] 誠徵高手解一個聯立方程式

作者: pxpypz (??)
標題: Re: Re:[請益] 誠徵高手解一個聯立方程式
時間: Sun Mar 20 15:30:08 2011

※ 引述《chungyuandye (養花種魚數月亮賞星星)》之銘言：
: ※ 引述《pxpypz (??)》之銘言：
: 如果Mathematica程式有什麼問題，可以隨時Email給我！
: 還有你的匯款我收到了，太多了∼∼
: 感恩∼

老師您好
一直以來我把我要計算的方程式前半部用手算推導
到最後A=(……) B=(……) 這兩行
我想請教的是 Mathematica 是不是有類似的功能呢?
我有將兩個推導版本的文件檔寄給您
您方便的話可否幫我 demo 其中一個 另一個我自己來試試看 XDD

版本一的 A,B 就是先前您幫我驗算的 A,B
兩個版本只有最後一項 qE 的正負號對調 其他都一樣
但推導出來的 A,B 會有一些差別
感謝您了!!^^

--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 111.82.146.39

[自動轉寄] Re: Re:[請益] 誠徵高手解一個聯立方程式

作者: pxpypz (??)
標題: Re: Re:[請益] 誠徵高手解一個聯立方程式
時間: Sat Mar 19 15:38:55 2011

※ 引述《chungyuandye (養花種魚數月亮賞星星)》之銘言：

對了 我後來另外想到一個問題
我貼出的兩條方程式是從一組聯立微分方程推導的結果
(方程式的流程稍後我再寄去信箱給您 您方便且願意的話再幫我看看囉^^)

如果將算出的x,y從聯立微分方程的源頭代入
理論上是不是應該也能算出相同的結果呢?
小弟現在正在驗證這組方程式兩組解在物理上的正確性
現在看起來這個 model 有可能要修改了 ><

我覺得這段時間需要您幫助的機會真的很大 拜託您了!!

後續關於 請您幫忙到什麼程度 酬勞如何計算的部分
請老師您不吝告知
小弟能力範圍內盡量配合

(我最近還在消化您所提供的 code..... XDD)

--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 111.82.44.241

[自動轉寄] Re: Re:[請益] 誠徵高手解一個聯立方程式

作者: pxpypz (??)
標題: Re: Re:[請益] 誠徵高手解一個聯立方程式
時間: Sat Mar 19 15:27:31 2011

※ 引述《chungyuandye (養花種魚數月亮賞星星)》之銘言：
: ※ 引述《pxpypz (??)》之銘言：

感謝!!
由於前兩天較忙 款項剛剛才匯入您的富邦帳戶 抱歉
您應於週一銀行上班日可查詢入帳
匯款人資料 0061097****950
敬祝 身體健康 萬事如意 !!^^

--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 111.82.44.241

[自動轉寄] [爆卦] 國立體大技擊系集體霸凌!!!!!!!!!!!!!! …

作者: chai396 (最終的沉默是死亡) 看板: Gossiping
標題: [爆卦] 國立體大技擊系集體霸凌!!!!!!!!!!!!!!!!!!!!!!!!!!
時間: Fri Mar 18 20:34:09 2011

同學的姐姐就讀國立體育大學技擊系

事情始末是因為系上要出公差

同學姊姊剛好有英文課要上而跟教練和隊長報備請學長代班

而後引發學姊的不滿，以恐嚇威脅的意味暢談"學長學弟制"

不僅在公眾場合集體侮辱更在FB上大肆嗆聲 http://ppt.cc/nHNo
http://ppt.cc/ARCq

讓被害者身心受創，目前打算到警局備案並且請民代關切

霸凌事件層出不窮

既八德國中(高中?)後教育是否有改善?

為何上了大學之後還要接受霸凌?

這些人的羞恥心在何處? 這些人的父母怎麼管教的?

這些人的朋友是否也是加害者?

------------------------------以下為正文----------------------

星期一到星期三是比賽出公差，我經過隊長跟教練同意找人代班就可以先上課再趕過來幫
忙。

結果我一到現場，我就被鄭喻文學姊罵說：「大家都出工差誰准你一個人去上課？其他人
問我為什麼你可以上他們不行，如果大家都要上課那大家都不用來幫忙了？就是因為有你
這種人，有先例！以後大家都這樣就好了要怎麼辦？」

我當時回應：「可是我有找人代替我，沒有如果阿，而且教練都同意了，而且為什麼不是
教練講而是跟我講？」

鄭喻文學姊說：「事情到教練那邊去就已經要把事情鬧大，事情就會變得很大條。」她又
說「妳怎麼可以找學長代替妳，怎麼可以找一個大六的學長，我們有學長學弟制妳不知道
嗎？」旁邊其他的學長姐也幫腔說我的不是，後來學姊生氣的走掉。

應該是同一個時間學姊用手機上網打在FB說 「學弟妹最偉大了，我他媽的還沒遇過敢跟
我頂嘴的學妹,你他媽的是第一個!!!」後來另一個學姊李沛晴進來，當時教練也剛好在旁
邊。她就對大家說：「現在學弟妹都比學長姐還大，還會頂嘴。」

我當時並沒有頂嘴我只是把事情跟學姊說，因為她不知道事情的經過。我一到現場就被罵
，其他人都認為我去上課不來幫忙，並不知道我有跟教練還有隊長報備過，還有人說叫我
把工差的錢吐出來當隊費。我不懂，如果要給應該也是給幫我代班的學長才是，可是為什
麼是入隊費？

大家都覺得我做錯了且沒有一個人幫我講話，跟我要好的學長也叫我別說什麼話，我為自
己辯駁也只會被說不禮貌態度不好還擺臉色給他們看。

他們說我去上課就是不應該，還請一個學長來幫我，說我一科0分不會被當拉！我當時點
點頭就走掉卻說我擺臉色。

比賽結束要頒獎的時候，李沛晴學姊集合大家，當時全隊都在，大一大二要整隊，一開
始我忘記她說什麼但是罵人的時候，他叫我的名字大罵我：「我就是集合大家罵妳一個，
妳去跟教練說阿！大家都出工差只有妳一個人去上英文課，我們大一都沒有上過英文課嗎
？妳把我們大家當白癡嗎？我們沒有0分過嗎？還不是來幫忙，妳才大二就可以這樣？妳
也要擺臉色給我看嗎?妳也要擺臉色給我看嗎?妳繼續擺臉色妳給我試試看！之前學長學弟
制，學妹不跟學姊問好是直接甩巴掌的！我並沒有要用學長學弟制壓你們。但是……，還
有妳在ＦＢ上面說要不要學姊也來幫忙，妳是誰阿，妳大二叫一個研究所的學姊來幫忙？
！你們大二現在就這樣子是不是？」

( 研究所學姊當時是回應別的人PO文：「XXX 還有（包括我）我愛你們」所以我當時開
開玩笑回覆說：「學姊要不要也來幫忙XD」並沒有任何意思在，研究所學姊也沒有後續的
回應)

我記得的事情不多因為當時腦袋是空白的，後來是因為別人看不下去希望我去跟教練反
應，不然我打算忍下去。因為這不是第一次發生類似這樣的事情，他們只會叫我把事情壓
下來，沒必要讓主任知道，我們自己解決就好。可是他們的坐下來談談只是讓我聽到他們
否認他們說過的話，在我背後做過的事情，我只能自己哭著忍著也說不出什麼話，我不知
道這樣的事情還要發生幾次，直到我忍受不了我自己離開然後讓他們繼續這樣惡性循環嗎
……？

--

我發的文我負責 趕快來嗆我威脅我 糾咪 ^.<

--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 118.161.43.89
→ s902131:學長學帝雉  03/18 20:34
推 a98450333:體大不意外呀  03/18 20:34
推 hankwanghow:這..  03/18 20:34
噓 sussyak47:作業自己做
跟作業的關係是? =)  03/18 20:34
噓 onlychan:看到霸凌這詞看得好膩。換個詞吧。
很膩阿，但是一直都有 換詞但還在?  03/18 20:34
噓 ppbigass:學姊圖呢?  03/18 20:35
推 cmj:體大不都是____  03/18 20:35
推 MJdavid:備案？  03/18 20:35
推 ahw12000:體大~~  03/18 20:35
推 train60125:體育的不是通常都這樣嗎  03/18 20:35
→ jpg10330:[爆掛] 體大技擊系集體霸凌!!!!!!!!!!!!!! …  03/18 20:35
推 boyen3:雞雞細?  03/18 20:35
→ Alik:學弟妹最偉大了，我他媽的還沒遇過敢跟我頂嘴的學妹  03/18 20:35
→ lucard1129:是118再來爆 不過優質118應該是沒有霸凌的>.^  03/18 20:35
推 dimer:體大的啊 反正那不是一般人  03/18 20:35
推 gonghigh:學姊圖呢?  03/18 20:35
推 pumahamybird:人家四肢發達 霸凌一下很過分嗎?  03/18 20:35
推 BlueMt:不意外阿@@ 都這樣  03/18 20:35
→ minoru:體育系統 尤其武術系統的前輩傳統本來就很重  03/18 20:35
推 Robben:體育系 不意外  03/18 20:35
推 boson0725:高調  03/18 20:35
推 gamesame7711:姊姊 姐姐 弄得我好亂喔 重點是還都沒圖  03/18 20:36
推 garcia:感覺霸起來會好痛的系  03/18 20:36
推 terop:技擊館到了 請要下車的旅客準備下車  03/18 20:36
推 freewash:什麼爛學長學弟制？  03/18 20:36
→ flexin:不意外啊  03/18 20:36
推 shinshong:學長學帝雉 正常吧  03/18 20:36
→ ahw12000:高級版八家將  03/18 20:36
推 david789321:學長為什麼要學帝雉?  03/18 20:36
推 korsg:學長姐有很秋嗎?  03/18 20:37
→ tarjan33167:學長學弟制勒 樓下應該很想把她__到___外翻  03/18 20:37
→ ahw12000:122的體育系也是一堆____  03/18 20:37
推 stero:..............  03/18 20:37
→ gamesame7711:學長是工具人的感覺...
請學長幫忙代班，上完課就趕去幫忙 工具人?
推 drkkimo:若是霸凌不可 但是像是私人糾紛??
是霸凌阿，看完正文會清楚些
推 GFDS:我要跟學姐單挑!!!  03/18 20:37
推 joumay:應該是找錯學長代班 讓學姐以為她是小三!!! (別叫我姐!!!)  03/18 20:37
推 hikerLin:這就是台灣 不管是學校 當兵 職場的隱文化...  03/18 20:37
噓 a09374567:四肢發達的人喜歡動手腳~  03/18 20:37
→ KissMeMoMo:秋沙小 難怪台灣體育界那麼腐敗 假球也一堆  03/18 20:37
推 daniel229:幫高調  03/18 20:37
推 aadsl:學長?那是什麼??可以吃的嗎???  03/18 20:38
推 shahe:高調!!  03/18 20:38
推 inori712:有貓餅  03/18 20:38
推 rappig:學長姐有很屌嗎 誰沒當過學長姐 無聊  03/18 20:38
有些人就是喜歡倚老賣老，自以為囉
※ 編輯: chai396 來自: 118.161.43.89 (03/18 20:42)
噓 goodsnk:明明是學姐學妹制  03/18 20:38
推 stantheman:相信明年你姊就會開始霸菱學弟妹了  03/18 20:38
→ taiwanlaws:念大學時認識幾個師範體系的體育系朋友 有學長學弟制  03/18 20:38
推 geng1113:幫高調  03/18 20:38
推 anper:學長學帝雉  03/18 20:38
推 Balders:放長線釣大魚 要有禮貌喔!  03/18 20:39
推 dichotomyptt:我要戰10個!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!  03/18 20:39
→ taiwanlaws:會集合大一的菜鳥到體育館精神訓話 其他學校的體育系  03/18 20:39
推 devgru:學長學帝雉  03/18 20:39
推 korsg:上fb搜尋一下名字就有了 真是...顆顆  03/18 20:39
推 bhchad:都嗆說要讓某人長草了 可以告了  03/18 20:39
→ taiwanlaws:與相關科系有沒有我就不清楚了  03/18 20:39
推 powerword:退一步海闊天空，不要玩最大!  03/18 20:39
→ louic:真好笑，都是成年人了，還不知道如何處理，放到網路讓人同情  03/18 20:40
→ KissMeMoMo:學長了不起啊 我當菜兵都故意挖洞給那些智障跳  03/18 20:40
推 yugiyo:讀到大學了還霸凌？小孩子嗎？  03/18 20:40
推 hungyacom:呵呵 學姐出名了  03/18 20:40
→ kugga:學長學帝雉 學姐學妹汁  03/18 20:40
推 shinshong:我還被體育系新生誤叫學長好  03/18 20:40
推 Maziger:學姐不正 沒興趣幫你教訓(哈欠)  03/18 20:40
推 ikjoikjo:拍三小  03/18 20:40
推 stero:http://ppt.cc/lY0Q 我只是路過撿到的連結  03/18 20:41
→ BowLongSing:體育系的私生活很亂 非常亂  03/18 20:41
→ KTA0619:國立體育大學......軍校嗎?  03/18 20:41
→ BowLongSing:就以我認識的人來說  03/18 20:41
推 liltwnboiz:低能嗎 都什麼年代了還在學長姐 羞恥心呢  03/18 20:41
噓 g3sg1:體大有學長學弟制是新聞嗎?  03/18 20:42
然後呢? 不是新聞就放任? 姑息養奸是嘛
噓 chen000:上來討拍!?這是多久的傳統了不爽不要念 念了不要該  03/18 20:42
就是有妳這種人才會這種是持續發生 好傳統，不該嗎?
→ Alik:那大頭貼讓我很不蘇福  03/18 20:42
推 wenchii:好可怕，像流芒  03/18 20:42
噓 pizza0306:學姊勒 給他難看吧 加油  03/18 20:42
噓 taidocky:笑死人了 沒懶趴還跟人家學什麼學長學弟制  03/18 20:42
噓 b22222217200:請民代關切? 加油好嗎  03/18 20:42
恩，當酸民為噓而噓時，有想過自己周遭或者家人如果正受這樣的傷害要怎辦?
如果可以，請b22222217200大來幫忙可以嗎?
推 william5h:學長學帝雉XDDDDDD 藍腹鷳表示：  03/18 20:43
噓 dichotomyptt:居然有酸民真的認為不合理的要求是磨練耶 大開眼界  03/18 20:43
※ 編輯: chai396 來自: 118.161.43.89 (03/18 20:46)
→ pizza0306:他一定沒有男人的溫暖 鄉民 衝吧  03/18 20:43
噓 amadisyeh: 本末導致..學校課業才是最重要的把  03/18 20:44
推 clkdtm32:感覺還蠻像小朋友  03/18 20:44
噓 joumay:純噓連結意圖使人永久喪失性趣  03/18 20:44
噓 rex105:不正耶...XDDD  03/18 20:44
噓 g3sg1:還是南崁高中的耶 桃園人進攻囉?  03/18 20:44
→ newjackle:學長學弟制~史上最爛的制度~因為連軍中都用這套~  03/18 20:44
推 hl4:自己想辦法處理吧，把鄉民當小叮噹喔...  03/18 20:44
推 itachi0609:不會嗆回去喔 學長姊除了年齡大還有哪點了不起  03/18 20:45
噓 sevenheadsho:這種制度很爛 不過這種事情需要找到民代關切?  03/18 20:45
找老師沒用阿
噓 orz:沒卦  03/18 20:45
→ g3sg1:挖 嗆人草長很高的還是南崁高中體育老師耶  03/18 20:45
推 YourMom:很爛不能找民代關切阿~要找噓文的萬能鄉民關切  03/18 20:45
推 pizza0306:推joumay 講的好逗趣  03/18 20:46
噓 aadsl:純噓連結意圖使人永久喪失性趣XD 看得出來所謂的學姐奴性重  03/18 20:46
推 nosay:這幾個學姐真嘴砲...要學長學弟制請先去當兵完在來嘴砲  03/18 20:46
→ aoiaoi:體育的學長弟制不是傳統嗎...  03/18 20:46
噓 roymond:不意外....體院都會來學長學弟制，沒腦袋就只會搞這招  03/18 20:46
→ nosay:沒當兵是在學長學弟制三蛇...看不懂..菜虫都掉地上了還擺老  03/18 20:47
推 peteroy:體育界的倫理???幫高調 台灣的體育已經夠爛了  03/18 20:47
→ kugga:哪時才能建立學妹迎新第一天先給宅宅學長吃變成傳統...(淚)  03/18 20:47
噓 ll000000:無聊 在學校還可以休學 那軍中呢?要逃兵嗎 爛  03/18 20:47
推 suncharlotte:這學姊講話好鬼打牆 = =  03/18 20:47
→ suncharlotte:而且只是一件小事搞這麼大幹嗎 好幼稚  03/18 20:47
設身處地想一想~
推 kimgtob:學長學弟制是什麼??  03/18 20:47
噓 KissMeMoMo:妓者快來抄 給他紅  03/18 20:48
推 g3sg1:因為他們認為此例一開 學長學帝雉就會開始崩解阿  03/18 20:48
→ g3sg1:當然要趕快棒打出頭者  03/18 20:48
噓 The5F:等你學小胖炸彈摔拍成影片再來講  03/18 20:49
妳是哪位?
推 agoodjob:學姐那是什麼？可以吃嗎？總統都被罵慘了學姐是啥咖？  03/18 20:49
推 suncharlotte:上個英文課有啥大不了嗎? 而且人家有請假  03/18 20:49
推 dnei:長的這麼＿還學長學弟制 笑死人  03/18 20:49
→ suncharlotte:這學姊搞得自己比教練老師還大 = =  03/18 20:49
噓 hordbone:你現在也不過是想把他鬧大而已  03/18 20:50
是阿，不鬧大她們哪怕? 輿論壓力多少有效吧
→ g3sg1:就此例不可開阿 老鳥總認為 我沒有的 你不能有  03/18 20:50
→ jglr7129:講這種話 絕對以前有動手的經驗了 真是欺善怕惡又一樁  03/18 20:50
推 dick58582001:要升一兵了沒阿？？？？？？？？？？？  03/18 20:50
→ hordbone:請自己解決不要想在這邊靠別人  03/18 20:50
能靠自己的話這種事情不會一再發生
噓 rockywu18:讀體育的 應該看的懂誰對誰錯  03/18 20:50
噓 coffee777:噓這學姐~  03/18 20:51
→ aoiaoi:認真看完 只能說抗壓差 還好不用當兵 不然大概會自殺  03/18 20:51
噓 FATDUDU:長這麼醜還學長學弟, 不用管這種人啦  03/18 20:52
噓 domejo:等你當學長的表現喔 最好能對學弟客客氣氣喔  03/18 20:52
噓 dnei:學姐：又是個沒有情人的情人節:( 意外嗎？  03/18 20:52
→ FATDUDU:出社會醜女又個性差, 注定撿角  03/18 20:52
→ jglr7129:念體育得好特別好與眾不同喔 拍拍手 XD  03/18 20:52
推 visorkk:大學生就是要上課 出甚麼公差 你有繳學費上課就是你的權力  03/18 20:52
→ FATDUDU:這種人就不用幻想白馬王子了啦, 連七矮人都不屑幹  03/18 20:53
推 DENNYMOUSE:恐怖連結!!!!  03/18 20:53
推 wa410489:"學長姐"可以幹嘛? 早人家幾年好了不起嗎?  03/18 20:53
推 g3sg1:還有不要大驚小怪了 等你變老鳥後99%會跟他們一樣  03/18 20:53
→ visorkk:學姐也沒啥了不起 就是比你老而已 最老最有理 那大家找人  03/18 20:53
推 nosay:連階級都沒有還學長學弟制勒..菜比八  03/18 20:53
→ visorkk:瑞當總統官員民代就好了 幹嘛選舉?  03/18 20:53
推 qmaper:剛當兵的時候~一堆菜鳥出公差~你找個上兵來代班~  03/18 20:54
推 roea68roea68:椅子拿起來 從他頭上砸下去 其他那些沒膽的一定定住  03/18 20:54
→ nosay:學姐應該是不爽你找來的學長不夠帥...才會故意刁你  03/18 20:54
→ qmaper:菜鳥:幹~你乾脆找排A來代班算了  03/18 20:54
→ nosay:如果你找個歪國人來...學姐一定把你當成神一樣拜  03/18 20:55
→ g3sg1:不要在那邊說:我絕對不會像之前的那樣 那都是放屁  03/18 20:55
推 darwin0711:關於喻文 聰明伶俐天真善良又可愛的"小孩"!!!!XD  03/18 20:55
推 master32:學生上課最重要吧!什麼公差可以比上課重要,我很好奇  03/18 20:55
推 Robben:狗迷 不意外  03/18 20:55
→ Fuuuck:體育界一直都是學長學弟制...而且有些是玩得很認真!  03/18 20:55
推 CharlotteX:嚇死我了 都要JIZZ了  03/18 20:56
→ darwin0711:( ︶︿︶)_╭∩╮...無言  03/18 20:56
噓 jackeman:都幾歲了...  03/18 20:56
推 FATDUDU:女生也在學長學弟制, 破百了沒啊, 什麼東西  03/18 20:56
→ daniel0922:那麼喜歡學長學弟制可以簽下去啊~ 揪咪  03/18 20:57
噓 dnei:我絕對不會像之前的那樣 我的確是做到了 屁要吸回去嗎  03/18 20:57
→ FATDUDU:難怪台灣體育科系沒人瞧得起  03/18 20:57
推 ICBanana:學姊哪根蔥?  03/18 20:57
→ TMWSTW:一群野蠻人。  03/18 20:57
噓 RyomaTaco:純噓學姊 要學長學弟制 不會入伍喔 X!  03/18 20:57
→ jidoufu:這種制度真的很討厭  03/18 20:57
→ lesswind:難怪台灣體育科系沒人瞧得起  03/18 20:57
推 mp44stg44:上課比較重要吧。當掉學分費誰出啊！  03/18 20:57
→ mp44stg44:出公差有比上課重要喔，腦袋裝啥  03/18 20:58
推 beaune:所以我才討厭體育班的  03/18 20:59
推 relaxcloud:以前呼巴掌? 以前女人不能出人頭地 她現在出來幹嘛?  03/18 20:59
→ yianhsu:po上來事情也不會解決 搞得大家都認識這個系很爛嗎  03/18 20:59
→ relaxcloud:什麼都講以前 就因為自己苦過 所以也要苦別人?  03/18 20:59
推 macdivas:倫理？論理？難怪體育系的要被笑沒腦袋  03/18 21:00
→ FATDUDU:對啊, 要扯以前的話他連說話資格都沒有勒  03/18 21:00
→ bhchad:太可恥了 裡面有個老師教唆拿空氣槍打人 還說要長草 真扯  03/18 21:00
推 hidejia:妓者快來抄阿~~~~~~~~  03/18 21:00
推 azbycxdwevfu:學長姊是三小？一踢退三步 你他x學姊給我退到學校外  03/18 21:00
→ FATDUDU:男人吃完飯他才可以吃勒, 笑死誰啊愛比老  03/18 21:00
噓 YesHi:純噓 讀大學搞什麼學長學弟制 笑死人了  03/18 21:01
推 rj9rj9123:學長姊制度學校阿 比私校還濫  03/18 21:01
推 msn10022:DS  03/18 21:02
噓 cacasi:學長為啥要學帝雉，學九官不行嗎? 還有學姐他媽幾T的~  03/18 21:03
※ 編輯: chai396 來自: 118.161.43.89 (03/18 21:04)
噓 jeffccc:就爛學校才有這種東西啊，懷疑喔，沒聽李家同講?  03/18 21:03
推 jumbotest:0.0  03/18 21:05
噓 tachikoma:體保生，不意外  03/18 21:06
噓 oneal6110891:爛學校  03/18 21:06
推 g3sg1:呼 拍完照了 不知道他啥時會砍文  03/18 21:07
推 Maziger:去問記者有沒有興趣報啦 我猜是沒有 以為鄉民可以期待？  03/18 21:08
推 chiralman:哈 我大一也被學長嗆過耶 不過我們般比較有理 ㄎㄎ  03/18 21:08
推 ideekao:真是不可取  03/18 21:09
推 ShadowTime:ㄜ  03/18 21:09
推 Tenging:爛人學姐  03/18 21:09
→ Maziger:如果是無名 現在已經一堆出師表貼在上面 FB嘛......  03/18 21:09
噓 cacasi:還出公差咧~ 是會不會打草、洗油水分離器啊~  03/18 21:09
→ e04ckymadam:這麼愛學長學弟制是不會簽下去喔? 體能很好?去打仗啊  03/18 21:11
噓 lovinglone: 體育系 不意外  03/18 21:12
噓 C6:XD  03/18 21:14
推 Aroman:可悲  03/18 21:14
推 skyleo:讓他爆啊,這種咖進體育界?? 台灣要有救就是要讓這種咖消失  03/18 21:14
推 ppc:體育系不意外阿...  03/18 21:15
→ adudu:都是沒貢獻的東西 有啥好戰？  03/18 21:15
推 NinUranus:  03/18 21:16
噓 lovesammy:妳這種PO版討拍的行為才像霸凌吧  03/18 21:17
或許喔，我會檢討 姑息才是讓霸凌成長的根源
推 e04ckymadam:http://tinyurl.com/46nk6op  03/18 21:18
→ e04ckymadam:搜尋關鍵字...高中有拿過全國第一耶  03/18 21:18
推 otaku5566:體大  03/18 21:18
噓 oneal6110891:恐怖連結..遠看還好 近看..............  03/18 21:18
推 jerry0172005:霸凌者人恆霸凌之XD  03/18 21:19
→ jerry0172005:PO版剛剛好  03/18 21:19
噓 number89757:==========關我屁事阿! 當八卦板妳個版?=============  03/18 21:20
抱歉喔 造成您困擾
噓 foolwind:這麼愛學帝雉 表演一下啊  03/18 21:20
噓 KFMOMENT:體大的水準就在這邊阿 這種事情不意外吧  03/18 21:20
推 BackToYou:體育界的倫理 哈哈哈  03/18 21:20
推 visorkk:原來鄭喻文的專長是打手槍  03/18 21:20
推 YMH:這是團體暴力 V.S."優良(中二?)"傳統倫理 嗎??XD  03/18 21:21
→ KFMOMENT:這種正常的事情也在PO? 搞清楚你在體大OK?  03/18 21:21
推 FATDUDU:學姊履歷表專長: 打手槍  03/18 21:21
推 n4939733:原來是打手槍第一名阿  03/18 21:21
噓 cacasi:打1985吧，讓學姐被洞八~  03/18 21:21
推 chanicen:霸凌者人恆霸菱之  03/18 21:22
→ conanhide:敗類!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!  03/18 21:24
推 ICBanana:http://ppt.cc/og@W 好像是她的吳名  03/18 21:24
※ 編輯: chai396 來自: 118.161.43.89 (03/18 21:27)
推 sondarphone:以前認識的體育系說學長姐灌酒不喝也是沒倫理．很好笑  03/18 21:25
推 YMH:阿不就：以前我也被霸凌為什麼我現在不能霸凌人?  03/18 21:25
推 g3sg1:那無名的還有憂鬱症耶  03/18 21:27
→ e04ckymadam:跟軍中一樣，仗著自己早幾年生罷了  03/18 21:28
推 cacasi:愛擺老咩，可惜只是菜B八，看看FB連結裡面菜蟲一大堆...  03/18 21:31
噓 nightstory:討拍很無聊 還有她是發在自己的臉書上吧？ 愛看又愛罵  03/18 21:31
活著無知，何樂而不為? 少丟臉了 原文看清楚
※ 編輯: chai396 來自: 118.161.43.89 (03/18 21:33)
噓 malindorothy:還真的有酸民覺得不合理的規定可以當傳統延續ㄟ  03/18 21:32
推 Hambowbow:擺老? 是有多老? 死小孩  03/18 21:32
→ malindorothy:真的是一臉奴才樣  03/18 21:32
→ sohate5566:夠了沒？可以劣退嘛！  03/18 21:33
推 kiss812kiss: 靠腰 奴才樣也太好笑  03/18 21:33
推 FATDUDU:真的是無名嗎?　看了照片還以為男生 = =a  03/18 21:35
推 g3sg1:幾歲歐 21 頂多22吧  03/18 21:35
→ g3sg1:對了 前面我說的老了會一樣是在軍中  03/18 21:36
→ g3sg1:那種能堅持當初理念下去的人 有 但是非常稀少  03/18 21:36
→ g3sg1:大多都是老了也跟著整學弟了  03/18 21:38
→ nightstory:原文看完很久了 哪裡有寫他發在哪? 的確，難怪你很快樂  03/18 21:39
推 Yakyuboy51:悲哀~這個學姐不簽志願役真是浪費一個國軍人才！  03/18 21:44
推 s12:不都這樣嗎?  03/18 22:00
推 MicroGG:體育系不意外阿，還叫人家不要上課，哈  03/18 22:07
→ Sparxxx:與其說霸凌 倒不如是說相處不和  03/18 22:09
噓 hankwanghow:為那個學姊感到可悲 幾歲了?? 真可笑  03/18 22:13
推 deathblake:直接踹共不是很好?  03/18 22:13
→ hankwanghow:都是成年人 為何不能頂嘴 還活在國中階段嗎?  03/18 22:14
噓 shahe:....這學姊說她未來老公是小池徹平=.=  03/18 22:17
推 AllenYAYA:倚老賣老... 有夠悲哀  03/18 22:17
噓 heaphy:這學姊以為在當兵嗎? 真偉大  03/18 22:21
→ heaphy:會不會是有其他事情得罪到那個學姊，不然她怎麼敢這樣誇張  03/18 22:23
→ heaphy:當眾故意罵到這樣讓人難堪?  03/18 22:23
推 w43:台灣體育界總怪人不重視、怪體委會怎麼樣 不自愛怪誰  03/18 22:25
噓 keswickdada:縱使不能頂嘴很瞎 你PO這來是想幹嘛?  03/18 22:29
讓妳知道這種事一再發生，順便見識酸民的嘴巴 這樣回答妳滿意嗎?
推 kaorukoganei:先擒抱在接炸彈摔阿 小小年紀賣什麼老阿 學姊?笑死我  03/18 22:38
推 lmc66:最討厭學長學帝雉  03/18 22:41
推 dnei:我說的也是指軍中 g版友 趕快來吸我的屁= =+  03/18 22:44
※ 編輯: chai396 來自: 118.161.43.89 (03/18 23:00)
※ 編輯: chai396 來自: 118.161.43.89 (03/18 23:02)
推 Orstor:頭腦__, 四肢__  03/18 23:15
推 clhs31632: 簡單 發達  03/18 23:18
推 fushi:霸凌的標準真低 又沒被打也沒被罵三字經  03/18 23:21
推 DCHC:技擊系怎麼教出一群沒家教的大學生？  03/18 23:24
推 TURNA755:0分可以這麼驕傲wwwwwwwwwww  03/18 23:29
推 tidus7723:說怎麼不反抗的,近來這環境就知道怎麼不能反抗了  03/18 23:31
最新消息:國立體大技擊系學長出面講話了

他們的流言 有的已經構成 刑法的 妨害自由罪嫌
我叫鄭裕文學姊不要刪除留言
我們可能會幫他報警
只是 現在在查 是誰故意要鬧他的
沒有人承認 禮拜一 一二年級大家跑步 跑到有人承認為止
還有人說要讓他 紅
什麼之類的
FB 的 聊天室

[N-t Lo]
檢舉 · 23:22
你知道 他們這樣做已經觸法了嘛?
[你]
檢舉 · 23:22
?
[N-t Lo]
檢舉 · 23:23
有幾個人用私人訊息 去留言給鄭喻文學姊 我看了相關好友 有你
所以在想應該是你說的
[你]
檢舉 · 23:23
我說?
我叫人去留言給他做什麼?
他們又是誰 說什麼
[N-t Lo]
檢舉 · 23:24
如果不是你 沒關係 是你 也就承認
不是你 應該就是 家X
[你]
檢舉 · 23:24
你現在叫我說是情 你又不跟我講發生什麼事情
[N-t Lo]
檢舉 · 23:25
就是有 不認識人
去鄭喻文學姊的
發私人訊息
說 學長學弟制很秋喔
也有人說 要讓他上報
你弟弟 無故 也+他好友
[你]
檢舉 · 23:26
我第加他好有 我也會加我弟彭有好有 很奇怪嗎
還有你說什麼 觸法 什麼意思?
[N-t Lo]
檢舉 · 23:27
他們的

要準備河蟹了嗎?
※ 編輯: chai396 來自: 118.161.43.89 (03/18 23:39)
推 kuweilun:好怕喔  03/18 23:40
→ kuweilun:學長不是就是爸媽早相幹所以早出世這樣嗎?  03/18 23:41