File: gvt4.mpl

package info (click to toggle)
libxc 5.2.3-3.1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 197,020 kB
  • sloc: ansic: 31,506; f90: 3,369; perl: 1,392; python: 966; makefile: 425; sh: 318
file content (14 lines) | stat: -rw-r--r-- 470 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
(*
 Copyright (C) 2017 M.A.L. Marques

 This Source Code Form is subject to the terms of the Mozilla Public
 License, v. 2.0. If a copy of the MPL was not distributed with this
 file, You can obtain one at http://mozilla.org/MPL/2.0/.
*)

gvt4_gamm := (alpha, x, z) -> 1 + alpha*(x^2 + z):

gtv4 := (alpha, dd, x, z) ->
  dd[1]/gvt4_gamm(alpha, x, z) +
  (dd[2]*x^2 + dd[3]*z)/gvt4_gamm(alpha, x, z)^2 +
  (dd[4]*x^4 + dd[5]*x^2*z + dd[6]*z^2)/gvt4_gamm(alpha, x, z)^3: