Message Boards Message Boards

0
|
3278 Views
|
2 Replies
|
0 Total Likes
View groups...
Share
Share this post:
GROUPS:

Kindly run below 3 codes and send me the code plus output of the code,

Posted 5 years ago
Task 1:
shells = {p};
info = Initialize[shells, "n", {}, s];
wt =  Coulomb[info, 1, 1, 1, 1];   

Task 2:
w = wt[[5]] -   wt[[6]];
es = EigensystemH[w]; 
es[[1]]

Task 3:
shells = {d};
states = {};
info = Initialize[shells, jvalues, states, sym];
wt =  Coulomb[info, 1, 1, 1, 1]; 
w = wt[[1]] F0 + (wt[[5]] - wt[[6]]) F2 + (wt[[9]] - wt[[10]]) F4;
en = Expand[Eigenvalues[w]]

The above is 3 tasks in computational physics, kindly run the code as it has some error. will be grateful

Attachments:
POSTED BY: Muhammad Tahir
2 Replies
Posted 5 years ago

Yes it has errors, i want to fix these errors to make the code run. plz do it if you can

POSTED BY: Muhammad Tahir

I didnt get you question. I ran the first task but it clearly will show some errors as in the following image:

enter image description here

POSTED BY: Estevao Teixeira
Reply to this discussion
Community posts can be styled and formatted using the Markdown syntax.
Reply Preview
Attachments
Remove
or Discard

Group Abstract Group Abstract