1,350 reputation
421
bio website
location
age
visits member for 1 year, 10 months
seen 14 hours ago

Sep
11
comment How to control the positions of contour labels?
Thank you! Clever method!
Sep
3
comment Is there a bug in the Part function of Mathematica 10?
Wow, deep understanding! Thanks, Mr. Wizard
Sep
1
comment Is there a bug in the Part function of Mathematica 10?
@kguler Oh, such a delicate definition. Probably you are right.
Jul
27
comment how to write TableForm expression into file?
@Mr.Wizard OK, I understand.
Jul
27
comment how to write TableForm expression into file?
@Mr.Wizard what does one lingering concern would be that it might not perform as well as a manual approach using WriteString mean?
Jul
27
comment how to write TableForm expression into file?
@Mr.Wizard Thank you, Mr. Wizard. I mean if data = {{"Ca", 1.123456789, 1.98765432}}, then OutputForm[TableForm[data, TableSpacing -> {0, 3}]] >> "test" will give Ca 1.12346 1.98765, you can see the accuracy is downgrade. But Lou gives addtional answer that suggest using SetAccuracy, it works well. What do you think of Lou's method?
Jul
26
comment how to write TableForm expression into file?
This can be seen if you try real number like 0.1234567896 instead of integer.
Jul
26
comment how to write TableForm expression into file?
As I metioned in the reply to Algohi. I just found that the accuracy of numbers that OutputForm gives is much lower than Export gives. But Export seems not univeral in file operation like OpenWrite and Write, so is there a better solution?
Jul
26
comment how to write TableForm expression into file?
@Algohi Thank you! I think Lou's answer which is to control TableSpacing is more flexible, for example in OpenWrite and Write cases? But there is a problem, the accuracy of the number that OutputForm gives is not enough sometimes, do you know other method to solve this?
Jul
26
comment how to write TableForm expression into file?
Wonderful solution! Thank you!
Jul
18
comment Mathematica 10 doesn't support path containing Chinese characters
@TetsuoIchii So this is a bug?
Jul
7
comment Defining a function that differentiates another function with rule replacement
I found this works: hh[i_][x_, y_] := {{tt, x + Sin[x]}, {y, 1}} /. rulelist[[i]]; hhpar[x_, y_, i_] := Derivative[1, 0, 0][hh[i][#1, #2] &][x, y]; While this not works: hh[x_, y_, i_] := {{tt, x + Sin[x]}, {y, 1}} /. rulelist[[i]]; hhpar[x_, y_, i_] := Derivative[1, 0, 0][hh[#1, #2, i] &][x, y];
Jul
7
comment Defining a function that differentiates another function with rule replacement
Thank you very much!
Jul
7
comment Defining a function that differentiates another function with rule replacement
And I forgot what this kind of function definition hhpar[j_, k_][x_, y_, i_] is called? Could you show me a link which has a discussion on this kind of function definition?
Jul
7
comment Defining a function that differentiates another function with rule replacement
Thank you, m_goldberg. Your definition really works, but I don't understand why my definition gives wrong answer. Could you explain a little? I think I miss a lesson on function definition.
Jul
6
comment Defining a function that differentiates another function with rule replacement
@eldo Thank you, eldo! But it doesn't work.
Jul
6
comment How can I avoid a scoping problem when differentiating?
@Szabolcs Wow! So quick! Thank you very much! This works, and I thought I known the reason, but it terms out that I actually didn't know the true reason is x at that time.
Jun
26
comment How to get correct numerical integration which should be zero?
Thank you very much! AccuracyGoal works perfectly
Jun
26
comment Strange numerical integration result
Thank you very much! Trace is so useful!
Jun
26
comment Strange numerical integration result
What is more, the integration of berrycur is rather slow, it tooks me 40 seconds to give result 12.5664. Do you know how to speed it up?