NRG Ljubljana  (c) Rok Zitko, rok.zitko@ijs.si, 2005-2012
initial $Id: initial.m,v 1.1 2012/05/15 09:58:19 rokzitko Exp rokzitko $
Mathematica version: 9.0 for Mac OS X x86 (64-bit) (November 20, 2012)
sneg version: 1.233
Loading module initialparse.m
Discretization: Z
U=0.5 Gamma=0.03 delta=0.1 t=0.
epsilon=-0.15
QS ../model.m 
Options:
Options: {}
Loading module models.m
"models $Id: models.m 877 2009-12-16 16:34:11Z zitko $"
Loading module custommodels.m
models $Id: custommodels.m,v 1.2 2011/10/21 16:59:38 rokzitko Exp rokzitko $
custommodels.m done
Loading module ../model.m
def1ch, NRDOTS=1
COEFCHANNELS:1
Hc=gammaPolCh[1]*(nc[d[0, 0], f[1, 0, 0]] + nc[d[0, 1], f[1, 0, 1]] + 
     nc[f[0, 0, 0], d[1, 0]] + nc[f[0, 0, 1], d[1, 1]])
H0=coefzeta[1, 0]*(-1 + nc[f[0, 0, 0], f[1, 0, 0]] + 
     nc[f[0, 0, 1], f[1, 0, 1]])
adddots, nrdots=1
"selfopd[CR,UP]="-0.15*d[0, 1] - 0.5*nc[d[0, 0], d[0, 1], d[1, 0]]
"selfopd[CR,DO]="-0.15*d[0, 0] + 0.5*nc[d[0, 0], d[0, 1], d[1, 1]]
"selfopd[AN,UP]="0.15*d[1, 1] - 0.5*nc[d[0, 0], d[1, 0], d[1, 1]]
"selfopd[AN,DO]="0.15*d[1, 0] + 0.5*nc[d[0, 1], d[1, 0], d[1, 1]]
NRDOTS:1
CHANNELS:1
basis:{d[], f[0]}
lrchain:{}
lrextrarule:{}
NROPS:2
Hamiltonian generated. U/2 - coefzeta[1, 0] + delta*nc[d[0, 0], d[1, 0]] - 
   (U*nc[d[0, 0], d[1, 0]])/2 + gammaPolCh[1]*nc[d[0, 0], f[1, 0, 0]] + 
   delta*nc[d[0, 1], d[1, 1]] - (U*nc[d[0, 1], d[1, 1]])/2 + 
   gammaPolCh[1]*nc[d[0, 1], f[1, 0, 1]] + 
   gammaPolCh[1]*nc[f[0, 0, 0], d[1, 0]] + 
   coefzeta[1, 0]*nc[f[0, 0, 0], f[1, 0, 0]] + 
   gammaPolCh[1]*nc[f[0, 0, 1], d[1, 1]] + 
   coefzeta[1, 0]*nc[f[0, 0, 1], f[1, 0, 1]] - 
   U*nc[d[0, 0], d[0, 1], d[1, 0], d[1, 1]]
H-conj[H]=0
SCALE[0]=1.8709439943236637
faktor=0.755882360275742
Generating basis
Basis states generated.
BASIS NR=16
Saving basis to basis.model..QS
PREC=1000
Tmin=1.*^-8
Tmin=1.*^-8 ==> Nmax=54
DISCNMAX=54
mMAX=108
rho[0]=0.0000300161346563077
pos=0.000613480452894044
neg=0.0006514280199551451
theta=0.039965613283678223807556166393701616598783240298284976977330052185131\
14707933820675194893434465423260271897749247725447669843807271442385159689606\
00718044779176123642273805941540025672525706653206452651557561696785055551964\
34058643020873821283190099386448557099752714274524061977765139938490584175847\
70247089484005963299572750273658032460244536545544218565615133765918567454069\
63541084885199515462714838252488928631774017838493978254869377850696322354700\
60382152941573746563594169358370409765025530110304131305527527974627812472104\
34678324084301564074790820640332192083168892803851418798082220187639793128328\
37349001111778999864240250688920175072703013032504225828299163660366780353561\
35019709528982596966671165037102712369662310860182035593153550630347551363188\
95043679226255355298823956244084598989369617730694152219132524495470921515405\
38373823167100023409541232236928529786430407934090246651592281783850473927701\
97930327599697074380253432261472491345598287672312791057388083044660312153837\
6130646061679012847325749441`1000.
{1, 0.7514823414347539}
{2, 0.9999690204055378}
{3, 1.005910554911591}
{4, 1.0080718270014803}
{5, 1.0090109809216592}
{6, 1.0094504135419167}
{7, 1.0096631511463992}
{8, 1.0097678393116265}
{9, 1.0098197638772564}
{10, 1.009845623252273}
{11, 1.0098585152904271}
{12, 1.0098649132991298}
{13, 1.0098680105783018}
{14, 1.0098692641871998}
{15, 1.0098690518832845}
{16, 1.0098665898203683}
{17, 1.0098586830757639}
{18, 1.009835843548461}
{19, 1.0097710208531554}
{20, 1.00958999524905}
{21, 1.009332879010158}
{22, 1.0090757627712659}
{23, 1.0088186465323739}
{24, 1.0085615302934816}
{25, 1.0083044140545896}
{26, 1.0080472978156976}
{27, 1.0077901815768056}
{28, 1.0075330653379135}
{29, 1.0073080886288828}
{30, 1.0073080886288828}
{1, 0.7516072213428292}
{2, 1.014806063473915}
{3, 1.0126944627775043}
{4, 1.0113924321798684}
{5, 1.010662585859636}
{6, 1.0102751360583038}
{7, 1.0100753775257878}
{8, 1.0099739336623874}
{9, 1.0099228043750301}
{10, 1.0098971301076876}
{11, 1.0098842313198622}
{12, 1.0098776657152453}
{13, 1.0098740880057524}
{14, 1.009871457690927}
{15, 1.0098677578743607}
{16, 1.0098591804613575}
{17, 1.0098358511224121}
{18, 1.0097703256006614}
{19, 1.0095852268103385}
{20, 1.0090687243066943}
{21, 1.0083352113164368}
{22, 1.0076016983261793}
{23, 1.0068681853359216}
{24, 1.006134672345664}
{25, 1.0054011593554064}
{26, 1.0046676463651487}
{27, 1.003934133374891}
{28, 1.0032006203846335}
{29, 1.0025587965181582}
{30, 1.0025587965181582}
Diagonalisation.
Discretization checksum [-1] (channel 1): \
4.24453168985492145361826931870723063472411`10.*^-36
BAND="asymode" thetaCh={"0.03996561328"}
Discretization (channel 1)
"xitable" (channel 1)
0.4506065122
0.4795733497
0.9323265935
1.234022587
1.274104329
0.9269876851
1.025173369
0.8573920413
1.012430182
0.8511420748
1.010485712
0.849695721
1.010025773
0.8493269346
1.009910467
0.8492314048
1.009880948
0.8492071208
1.009872684
0.8492025529
1.009868452
0.8492063417
1.009861359
0.8492213919
1.009842525
0.8492651145
1.009789584
0.8493890278
1.009640019
0.8497392033
1.009217758
0.8507266618
1.008029992
0.8534938595
1.004727847
0.8611009109
0.9958907509
0.8807840156
0.9751167555
0.9227314251
0.9457963279
0.969077396
0.9758457436
0.9968484146
1.0061217
1.007726713
1.007345802
1.007347479
1.006853816
1.006850945
1.006359054
1.006353285
1.005867896
1.00584671
1.005399768
"zetatable" (channel 1)
-0.2062758956
0.09643859305
-0.09084097292
0.02658635647
0.06912682218
0.06640489144
0.008788462789
0.01084101426
0.001603618641
0.002803403643
0.000412901841
0.0007412887654
0.0001092691075
0.0001960983473
0.00002901219845
0.00005176198043
7.689407758e-6
0.00001362782291
2.032346944e-6
3.578991682e-6
5.356808202e-7
9.377758135e-7
1.408643648e-7
2.452147014e-7
3.70051478e-8
6.401949292e-8
9.768675418e-9
1.672055579e-8
2.666462568e-9
4.415308924e-9
8.513433428e-10
1.249090739e-9
4.295595578e-10
4.866739229e-10
3.739170581e-10
4.012897509e-10
3.877549135e-10
5.965251762e-10
3.648150739e-10
9.421696051e-10
5.17034588e-10
8.856578057e-10
4.480416689e-10
6.057290631e-10
2.779643228e-10
3.510760606e-10
1.48600626e-10
1.948134248e-10
7.692766935e-11
1.058160091e-10
3.905660298e-11
5.684972591e-11
1.955696179e-11
3.04315983e-11
9.607019025e-12
Precision last xi:945.3702646384219
Precision last zeta: 942.5274690564196
Discretization done.
--EOF--
           {{# Input file for NRG Ljubljana, Rok Zitko, rok.zitko@ijs.si, \

maketable[]

2005-2012}, {# symtype , QS}, {# $Id: initial.m,v 1.1 2012/05/15 09:58:19 \
rokzitko Exp rokzitko $}, {# Using sneg version , 1.233}, 
   {# Model: , ../model.m,  Variant: , ,  Channels: , 1}, 
   {# U=, 0.5,  Gamma=, 0.03,  Delta=, 0.1,  t=, 0.}, {#}, 
   {# Gamma^(1/2)=, Sqrt[theta0]/Sqrt[Pi]}, {# Lambda=, 2.,  BAND=, asymode}, 
   {# DISCRETIZATION=, Z,  z=, 0.125}, {# ops=, A_d self_d}, {#!7}, 
   {# Number of channels, impurities, subspaces: }, {1, 1, 6}}
exnames={an1x, an1y, an1z, an2x, an2y, an2z, anB2, anB4, anB6, anD, anE, 
   anodelta, B, beta, Bf, Borb, Bx, By, Bz, d, delta1, delta2, delta3, 
   deltaeps, eps, eps0, eps1, eps2, eps3, epsilon, F0, F2, F4, g, g1, g2, 
   Gamma1, Gamma2, Gamma2to2, Gamma3, gammaa, gch, ggg, gl, gs, J0, J1, J12, 
   J2, Jad, Jcharge, Jcharge1, Jcharge2, JH, jhop, Jhund, Jkondo, Jkondo1, 
   Jkondo1ch2, Jkondo1P, Jkondo1Z, Jkondo2, Jkondo2ch2, Jkondo2P, Jkondo2Z, 
   Jkondo3, JkondoDM, JkondoP, JkondoZ, Jspin, k, kappa, kFR, lr, lslambda, 
   maj1do, maj1up, maj2do, maj2up, majdelta, majdeltado, majdeltaup, n0, 
   omega, pairdelta, phi, Pl, Pr, Ra, t0, t12, ta, tab, tad, Tad, tb, tpp, 
   tpp12, tpp13, tpp23, U1, U12, U2, U3, Uad, Uf, Uprime, V, V1, V2, V3}
thetaCh={"0.03996561328"}
theta0Ch={"0.039965613283678224"}
gammaPolCh={"0.1127894047133551"}
checkdefinitions[] -> -0.3051182767778972
calcgsenergy[]
diagvc[{-2, 1}]
Generating matrix and saving to ham.model..QS_-2.1
hamil={{(U - 2*coefzeta[1, 0])/2}}
dim={1, 1}
det[vec]=1. 1-abs=0.
orthogonality check=Abs[-1 + MyDot[{{1.}}, {{1.}}]]
diagvc[{-1, 2}]
Generating matrix and saving to ham.model..QS_-1.2
hamil={{U/2, gammaPolCh[1]}, {gammaPolCh[1], delta - coefzeta[1, 0]}}
dim={2, 2}
det[vec]=1.0000000000000004 1-abs=-4.440892098500626*^-16
orthogonality check=2*Abs[-1 + 
      MyDot[{{-0.788052866797351, 0.6156075690994036}, 
        {-0.6156075690994036, -0.788052866797351}}, 
       {{-0.788052866797351, -0.6156075690994036}, 
        {0.6156075690994036, -0.788052866797351}}]] + 
   2*Abs[MyDot[{{-0.788052866797351, 0.6156075690994036}, 
       {-0.6156075690994036, -0.788052866797351}}, 
      {{-0.788052866797351, -0.6156075690994036}, 
       {0.6156075690994036, -0.788052866797351}}]]
diagvc[{0, 1}]
Generating matrix and saving to ham.model..QS_0.1
hamil={{U/2 + coefzeta[1, 0], Sqrt[2]*gammaPolCh[1], 0}, 
   {Sqrt[2]*gammaPolCh[1], delta, Sqrt[2]*gammaPolCh[1]}, 
   {0, Sqrt[2]*gammaPolCh[1], (4*delta + U - 2*coefzeta[1, 0])/2}}
dim={3, 3}
det[vec]=1.0000000000000002 1-abs=-2.220446049250313*^-16
orthogonality check=3*Abs[-1 + 
      MyDot[{{-0.7245725158809768, 0.6745420558249753, 
         -0.14137780643837858}, 
        {-0.6860329256709672, -0.6862677457060183, 0.24165141443598698}, 
        {0.06598101336933587, 0.2720838034999442, 0.9600088071198924}}, 
       {{-0.7245725158809768, -0.6860329256709672, 0.06598101336933587}, 
        {0.6745420558249753, -0.6862677457060183, 0.2720838034999442}, 
        {-0.14137780643837858, 0.24165141443598698, 0.9600088071198924}}]] + 
   6*Abs[MyDot[{{-0.7245725158809768, 0.6745420558249753, 
        -0.14137780643837858}, 
       {-0.6860329256709672, -0.6862677457060183, 0.24165141443598698}, 
       {0.06598101336933587, 0.2720838034999442, 0.9600088071198924}}, 
      {{-0.7245725158809768, -0.6860329256709672, 0.06598101336933587}, 
       {0.6745420558249753, -0.6862677457060183, 0.2720838034999442}, 
       {-0.14137780643837858, 0.24165141443598698, 0.9600088071198924}}]]
diagvc[{0, 3}]
Generating matrix and saving to ham.model..QS_0.3
hamil={{delta}}
dim={1, 1}
det[vec]=1. 1-abs=0.
orthogonality check=Abs[-1 + MyDot[{{1.}}, {{1.}}]]
diagvc[{1, 2}]
Generating matrix and saving to ham.model..QS_1.2
hamil={{delta + coefzeta[1, 0], -gammaPolCh[1]}, 
   {-gammaPolCh[1], (4*delta + U)/2}}
dim={2, 2}
det[vec]=1.0000000000000002 1-abs=-2.220446049250313*^-16
orthogonality check=2*Abs[-1 + 
      MyDot[{{-0.9815048548585279, -0.19143724791466338}, 
        {0.19143724791466338, -0.9815048548585279}}, 
       {{-0.9815048548585279, 0.19143724791466338}, 
        {-0.19143724791466338, -0.9815048548585279}}]] + 
   2*Abs[MyDot[{{-0.9815048548585279, -0.19143724791466338}, 
       {0.19143724791466338, -0.9815048548585279}}, 
      {{-0.9815048548585279, 0.19143724791466338}, 
       {-0.19143724791466338, -0.9815048548585279}}]]
diagvc[{2, 1}]
Generating matrix and saving to ham.model..QS_2.1
hamil={{2*delta + U/2 + coefzeta[1, 0]}}
dim={1, 1}
det[vec]=1. 1-abs=0.
orthogonality check=Abs[-1 + MyDot[{{1.}}, {{1.}}]]
Lowest energies (absolute):{-0.12827486295723062, -0.10477043300697708, 0.1, 
   0.16189168369130186, 0.20328700779857894, 0.24372410436868247, 
   0.3943842119400156, 0.45627589563131754, 0.4719989673259131, 
   0.7014834252083982}
Lowest energies (GS shifted):{0., 0.023504429950253536, 0.22827486295723062, 
   0.2901665466485325, 0.33156187075580956, 0.3719989673259131, 
   0.5226590748972462, 0.5845507585885481, 0.6002738302831437, 
   0.8297582881656289}
Scale factor SCALE(Ninit):1.8709439943236637
Lowest energies (shifted and scaled):
  {0., 0.012562872016246677, 0.12201052711882526, 0.1550909848337957, 
   0.17721635268706556, 0.19882955794215995, 0.27935580994565506, 
   0.31243626766062554, 0.3208400850609852, 0.44349712801829866}
ireducTable: f[0]
Loading module operators.m
"operators.m $Id: operators.m 877 2009-12-16 16:34:11Z zitko $"
ireducTable: d[#1, #2] & 
ireducTable: Chop[Expand[komutator[Hselfd /. params, d[#1, #2]]]] & 
$Id: operators.m 877 2009-12-16 16:34:11Z zitko $ DONE
Loading module customoperators.m
"customoperators $Id: customoperators.m,v 1.3 2010/04/07 09:12:36 rok Exp rok \
$"
Customoperators done.
Loading module modeloperators.m
-- maketable[] done --
Timing report
{basis, 0.015849`4.651546858902575}
{ham, 0.041244`4.28875452129718}
{maketable, 0.706322`6.300547727044042}
{xi, 1.718313`6.68664726928428}
{_, 0}
data
gammaPol=0.1127894047133551
"Success!"
