-
Notifications
You must be signed in to change notification settings - Fork 2
Expand file tree
/
Copy pathEnergy2_3D_QPOTTS.m
More file actions
30 lines (30 loc) · 1.64 KB
/
Energy2_3D_QPOTTS.m
File metadata and controls
30 lines (30 loc) · 1.64 KB
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
function E2=Energy2_3D_QPOTTS(IESM_NewSpin)
%E2=26-...
E2=...
KDel_3D_QPOTTS(IESM_NewSpin(2,2,2),IESM_NewSpin(1,1,1))+...
KDel_3D_QPOTTS(IESM_NewSpin(2,2,2),IESM_NewSpin(1,2,1))+...
KDel_3D_QPOTTS(IESM_NewSpin(2,2,2),IESM_NewSpin(1,3,1))+...
KDel_3D_QPOTTS(IESM_NewSpin(2,2,2),IESM_NewSpin(2,1,1))+...
KDel_3D_QPOTTS(IESM_NewSpin(2,2,2),IESM_NewSpin(2,2,1))+...
KDel_3D_QPOTTS(IESM_NewSpin(2,2,2),IESM_NewSpin(2,3,1))+...
KDel_3D_QPOTTS(IESM_NewSpin(2,2,2),IESM_NewSpin(3,1,1))+...
KDel_3D_QPOTTS(IESM_NewSpin(2,2,2),IESM_NewSpin(3,2,1))+...
KDel_3D_QPOTTS(IESM_NewSpin(2,2,2),IESM_NewSpin(3,3,1))+...
KDel_3D_QPOTTS(IESM_NewSpin(2,2,2),IESM_NewSpin(1,1,2))+...
KDel_3D_QPOTTS(IESM_NewSpin(2,2,2),IESM_NewSpin(1,2,2))+...
KDel_3D_QPOTTS(IESM_NewSpin(2,2,2),IESM_NewSpin(1,3,2))+...
KDel_3D_QPOTTS(IESM_NewSpin(2,2,2),IESM_NewSpin(2,1,2))+...
KDel_3D_QPOTTS(IESM_NewSpin(2,2,2),IESM_NewSpin(2,3,2))+...
KDel_3D_QPOTTS(IESM_NewSpin(2,2,2),IESM_NewSpin(3,1,2))+...
KDel_3D_QPOTTS(IESM_NewSpin(2,2,2),IESM_NewSpin(3,2,2))+...
KDel_3D_QPOTTS(IESM_NewSpin(2,2,2),IESM_NewSpin(3,3,2))+...
KDel_3D_QPOTTS(IESM_NewSpin(2,2,2),IESM_NewSpin(1,1,3))+...
KDel_3D_QPOTTS(IESM_NewSpin(2,2,2),IESM_NewSpin(1,2,3))+...
KDel_3D_QPOTTS(IESM_NewSpin(2,2,2),IESM_NewSpin(1,3,3))+...
KDel_3D_QPOTTS(IESM_NewSpin(2,2,2),IESM_NewSpin(2,1,3))+...
KDel_3D_QPOTTS(IESM_NewSpin(2,2,2),IESM_NewSpin(2,2,3))+...
KDel_3D_QPOTTS(IESM_NewSpin(2,2,2),IESM_NewSpin(2,3,3))+...
KDel_3D_QPOTTS(IESM_NewSpin(2,2,2),IESM_NewSpin(3,1,3))+...
KDel_3D_QPOTTS(IESM_NewSpin(2,2,2),IESM_NewSpin(3,2,3))+...
KDel_3D_QPOTTS(IESM_NewSpin(2,2,2),IESM_NewSpin(3,3,3))+...
Gb_change(IESM_NewSpin(2,2,2));