Recent content by kaizen.moto

It works...Thank you so much.

Dear Simon, Brilliant...it works...Thank you very much.

Hi everyone, Iam just wondering how to export the mathematica nb. file to MS word? Preferably word 2003 version. I have tried to use cut and paste method into word, however, the presentation in word does not look nice. Any advice is very much appreciated.

Hi all, I need help to edit the code so that the arrangment of the outputs match the one that Iam looking for. For instance: term[n_Integer, m_Integer] := Apply[Dot, Table[matg[[i]], {i, m + 1, n}]].hl[[m]] /; (n >= m); Subscript[lay, s_] := Sum[term[s, i], {i, s}]; In[1]...

How about f(x) = (1 - x/a), what would be the solution after Fourier expansion?

Dear all, Iam just wondering whether the term 1/a can be expanded using Fourier expansion. If it does, please let me know how to to do this. Thank for any kind help.

Dale, first of all, I wanted to say, you are a very nice person and very helpful. Iam very pleased with all your comments and advice from the beginning you helped me until now. You have given me the courage to learn to use mathematica in a such a way that makes me feel enthuastic towards...

Thank you again for your help. It works now but I still can't figure out why I still got the warnings. I have tried many many ways to overcome the warnings but still failed including putting back the hl( hL) to h1 (h one). Iam still wondering though why did you change from h1(h one) to h1 (hL).

Thank you for the comment, I found that the result of the given code shows the product rather than dot product. I mean after running the code, it gives me for instance In[1]:= Subscript[mata, 4] Out[1]:= matg[[4]] matg[[3]] matg[[2]] hl[[1]] + matg[[4]] matg[[3]] hl[[2]] + matg[[4]] hl[[3]] +...

Hm, the concept is correct and works, however, there is minor warnings that I need to fix, warnings says: ' Part::partd:Part specification h1[[1]] is longer than depth of object.>>' Thank you for your kind help

Dear all, Iam looking for a generic code that could express the following functions: Subscript[mata, 1] = hl[[1]]; Subscript[mata, 2] = matg[[2]].hl[[1]] + hl[[2]]; Subscript[mata, 3] = matg[[3]].matg[[2]].hl[[1]] + matg[[3]].hl[[2]] + hl[[3]]; Subscript[mata, 4] =...

Finally, I have solved my problems, and I got the results. For now, I just need to refine my codes so that it can works faster and efficiently. Thank you so much for your kind help.

I have checked that those imaginary parts are not correct. When I solve the eigenvalues of a 6 x 6 matrix, I got 6 eigenvalues which contains 2 reals, 4 complex roots. The imaginary parts are not always true, they are just the result of numerical precision loss as you said.

For the matter of discussion, I run the code for iterators of {m,1,11,2},{n,1,11,2}, (meaning there are 36 cycles in total) since code had failed to give results at the stage m = 11 and n = 5, i.e (11,5). I encountered two warnings after running the code, first being inverse of badly...

The errors starts from this function (simplified version): dispmat[variables_]:=Module[{local variables}, psimat = psimatrix[variables];.....; disp = (Inverse[mat A]).(mat B - mat C); disp]where mat A is 3 x 3 matrix, mat B is 3 x 1 (column vector) and mat C is also a column vector (3 x1 ). So...