; VisSim Block Diagram Format (VBDF)
; Copyright ©1989-2005 Visual Solutions
POa="Steve Keen"
PV=7.000a
PS=0
PE=1000
PP=0.01
PI=172
PX=0.01
PN=1e-006
PL=250
PT=1e-005
Pn=-10,6,16,"Arial",18,0,400,2,0,1,0,1
Pc=109
Po=1,50,664,0
Ppl=0
Ppp=0
Ppt=0
Ppf=1
Pe=0
PD=1920x1200
PR=0.5
Pf=0x0
Ps=5759,0,0,4799,0,0
PM=1,1,1,1
PvC=0,0,"",0,""
Qn="vsmTutor.dll"
QLI[1]=200
QLI[1]=100
QLb[1]=21
QLI[1]=40
QLI[1]=14
QLI[1]=0
QLI[1]=8454143
QLI[1]=0
QLI[1]=-13
QLI[1]=0
QLI[1]=0
QLI[1]=0
QLs[1]=0
QLI[1]=400
QLb[1]=0
QLb[1]=0
QLb[1]=3
QLb[1]=2
QLb[1]=1
QLb[1]=34
N.1="variable"*122x70<M>
n="FL"
N.2="variable"*208x70<MR>
n="WD"
N.3="variable"*172x56<M>
n="FD"
N.4="const"<100>*126x64<M>
n="Initial Loan"
N.5="integrator"(0,0,0)*144x71<M>
N.6="*"*133x70<M>
N.7="const"<0>*124x72<M>
N.8="summingJunction"*157x66<M>
N.9="variable"*135x64<M>
n="Initial Loan"
N.10="variable"*215x54<MR>
n="Initial Loan"
N.11="summingJunction"*216x61<M>
N.12="integrator"(0,0,0)*205x63<M>
N.13="variable"*28x2
n="rD"
N.14="variable"*47x8
n="rL"
N.15="summingJunction"*34x7
N.16="display"(0.05)*42x4<R>
n=".05"
OF=Z
Oe=3
Ox=1
Ov=1
N.17="variable"*172x58<M>
n="rD"
N.18="*"*185x57<M>
N.19="variable"*173x62<M>
n="rL"
N.20="variable"*172x60<M>
n="FL"
N.21="*"*185x61<M>
N.22="summingJunction"*197x60#4,1<M>
N.23="variable"*83x1
n="s"
N.24="variable"*80x8
n="tau_S"
N.25="slider"<0.3;1;0;1;1>*61x1
n="Capitalist share of surplus"
N.26="slider"<0.25;10;0.05;1;1>*61x8
n="Years from M to M+"
N.27="variable"*152x72<M>
n="tau_S"
N.28="variable"*130x60<M>
n="s"
N.29="const"(1)*130x58<M>
N.30="summingJunction"*143x58<M>
N.31="variable"*145x65<M>
n="FD"
N.32="*"*161x63<M>
N.33="/"*172x64<M>
N.34="summingJunction"*189x71<MR>
N.35="variable"*115x0
n="omega"
N.36="variable"*117x7
n="beta"
N.37="slider"<1;10;0.1;1;1>*94x7
n="Banker A/C turnover p.a."
N.38="slider"<26;104;13;1;1>*94x0
n="Worker A/C turnover p.a."
N.39="variable"*208x72<MR>
n="beta"
N.40="variable"*208x68<MR>
n="omega"
N.41="variable"*208x74<MR>
n="BI"
N.42="*"*200x72<MR>
N.43="*"*200x68<MR>
N.44="integrator"(0,0,0)*194x66<M>
N.45="summingJunction"*205x64<M>
N.46="const"<0>*197x64<M>
N.47="const"<0>*188x65<M>
N.48="summingJunction"*196x65<M>
N.49="integrator"(0,0,0)*185x67<M>
N.50="*"*170x65<M>
N.51="variable"*160x67<M>
n="rD"
N.52="variable"*160x65<M>
n="WD"
N.53="summingJunction"*181x63#3,1<M>
N.54="variable"*182x65<M>
n="Wages"
N.55="variable"*162x62<M>
n="Wages"
N.56="*"*170x69<M>
N.57="variable"*157x69<M>
n="omega"
N.58="variable"*160x71<M>
n="WD"
N.59="summingJunction"*177x64#4,1<M>
N.60="*"*167x60<M>
N.61="variable"*157x60<M>
n="FL"
N.62="variable"*158x62<M>
n="rL"
N.63="*"*167x64<M>
N.64="variable"*157x66<M>
n="rD"
N.65="variable"*157x64<M>
n="FD"
N.66="variable"*157x68<M>
n="WD"
N.67="variable"*157x70<M>
n="rD"
N.68="*"*167x68<M>
N.69="*"*167x72<M>
N.70="variable"*158x74<M>
n="BI"
N.71="variable"*156x72<M>
n="beta"
N.72="meter"(-100,100)*90x18*55x37#4,0
n="Bank Account Balances"
Tt=1
Tw=0,0,100,"Loan"
Tw=1,0,100,"FD"
Tw=2,0,25,"WD"
Tw=3,0,25,"BI"
Tc=0,255
Tg=0,20
Tc=1,16711680
Tg=1,20
Tc=2,0
Tg=2,25
Tc=3,128
Tg=3,25
N.73="slider"<0.04;0.1;0.01;1;1>*6x9
n="Loan minus deposit rate"
N.74="slider"<0.01;0.1;0;1;1>*8x2
n="Interest rate on deposits"
N.75="meter"(-100,100)*90x55*55x47#4,0
n="Incomes per year"
Tt=1
Tw=0,0,400,"Wages"
Tw=1,0,400,"GDP"
Tw=2,0,400,"Profits"
Tw=3,0,20,"Interest"
Tc=0,255
Tg=0,16
Tc=1,16711680
Tg=1,16
Tc=2,0
Tg=2,20
Tc=3,16711935
N.76="variable"*74x75
n="Wages"
N.77="Compound"*75x24#0,1
n="Firm
Loan
Account"
Ms=5759,0,0,4799,0,0
Ml=0
Mr=0
Mh=0
Mp=0
N.78="Compound"*75x61#0,1
n="Bank
Income
Account"
Ms=5759,0,0,4799,0,0
Ml=0
Mr=0
Mh=0
Mp=0
N.79="Compound"*75x36#0,1
n="Firm
Deposit
Account"
Ms=5759,0,0,4799,0,0
Ml=0
Mr=0
Mh=0
Mp=0
N.80="Compound"*74x49#0,1
n="Worker
Deposit
Account"
Ms=5759,0,0,4799,0,0
Ml=0
Mr=0
Mh=0
Mp=0
N.81="variable"*181x67<M>
n="FL"
N.82="variable"*238x69<M>
n="FD"
N.83="variable"*221x66<M>
n="WD"
N.84="variable"*216x66<M>
n="BI"
N.85="variable"*75x92
n="Profits"
N.86="variable"*189x56<M>
n="Interest"
N.87="variable"*169x57<M>
n="rL"
N.88="variable"*168x55<M>
n="FL"
N.89="*"*178x55<M>
N.90="variable"*73x97
n="Interest"
N.91="summingJunction"*76x83
N.92="stripChart"*0x16*74x18#2,0<R>
pt="Firm Accounts"
px="Years"
pax=0
pf=S
pW=760
pw=10
pf=F
pb=120,80
pbx=1000,0
pbY=0,0
pbX=0,0
pc=83602
pm=-1,0
pb.0=100,100
pL.0="Firm Loan"
pb.1=100,80
pL.1="Firm Deposit"
pb.2=0,0
pb.3=0,0
pb.4=0,0
pb.5=0,0
pb.6=0,0
pb.7=0,0
N.93="stripChart"*0x37*74x15#2,0<R>
pt="Worker and Banker Accounts"
px="Years"
pax=0
pf=S
pW=760
pw=10
pf=F
pb=20,0
pbx=1000,0
pbY=0,0
pbX=0,0
pc=83602
pm=-1,0
pb.0=20,0
pL.0="Worker Deposit"
pb.1=4,0
pL.1="Bank Income Account"
pb.2=0,0
pb.3=0,0
pb.4=0,0
pb.5=0,0
pb.6=0,0
pb.7=0,0
N.94="stripChart"*0x55*74x20#2,0<R>
pt="Annual Incomes"
px="Years"
pax=0
pf=S
pW=760
pw=10
pf=F
pb=300,50
pbx=1000,0
pbY=0,0
pbX=0,0
pc=83602
pm=-1,0
pb.0=280,240
pL.0="Annual Wages"
pb.1=120,100
pL.1="Annual Profits"
pb.2=0,0
pb.3=0,0
pb.4=0,0
pb.5=0,0
pb.6=0,0
pb.7=0,0
N.95="stripChart"*0x78*74x22#1,0<R>
pt="Annual Income"
px="Years"
pax=0
pf=S
pW=760
pw=10
pf=F
pb=10,0
pbx=1000,0
pbY=0,0
pbX=0,0
pc=83602
pm=-1,0
pb.0=5,5
pL.0="Annual Gross Interest Income"
pb.1=100,80
pb.2=0,0
pb.3=0,0
pb.4=0,0
pb.5=0,0
pb.6=0,0
pb.7=0,0
N.96="comment"*2x103*145x14
C="Basic Circuit model without debt repayment. You can alter the simulation by varying the parameter values s (capitalist share of surplus), tau_S (turnover time), omega (No. of times workers turnover accounts per year), beta (ditto for bankers), deposit rate and spread between loan and deposit rates using the sliders above. Details of the model structure can be found by right-clicking on the blue boxes, which contain the flowchart mathematics for each of the accounts in the system."
N.97="stripChart"*146x80*74x21#1,0<R>
pt="Annual Income"
px="Years"
pax=0
pf=S
pW=51
pw=1
pf=F
pb=10,0
pbx=1000,0
pbY=0,0
pbX=0,0
pc=5612
pm=-1,0
pb.0=5,5
pL.0="Annual Gross Interest Income"
pb.1=100,80
pb.2=0,0
pb.3=0,0
pb.4=0,0
pb.5=0,0
pb.6=0,0
pb.7=0,0
N.98="stripChart"*146x60*74x18#2,0<R>
pt="Annual Incomes"
px="Years"
pax=0
pf=S
pW=51
pw=1
pf=F
pb=300,50
pbx=1000,0
pbY=0,0
pbX=0,0
pc=5612
pm=-1,0
pb.0=280,240
pL.0="Annual Wages"
pb.1=120,100
pL.1="Annual Profits"
pb.2=0,0
pb.3=0,0
pb.4=0,0
pb.5=0,0
pb.6=0,0
pb.7=0,0
N.99="stripChart"*146x39*74x18#2,0<R>
pt="Worker and Banker Accounts"
px="Years"
pax=0
pf=S
pW=51
pw=1
pf=F
pb=20,0
pbx=1000,0
pbY=0,0
pbX=0,0
pc=5612
pm=-1,0
pb.0=20,0
pL.0="Worker Deposit"
pb.1=4,0
pL.1="Bank Income Account"
pb.2=0,0
pb.3=0,0
pb.4=0,0
pb.5=0,0
pb.6=0,0
pb.7=0,0
N.100="stripChart"*146x19*74x17#2,0<R>
pt="Firm Accounts"
px="Years"
pax=0
pf=S
pW=51
pw=1
pf=F
pb=120,80
pbx=1000,0
pbY=0,0
pbX=0,0
pc=5612
pm=-1,0
pb.0=100,100
pL.0="Firm Loan"
pb.1=100,80
pL.1="Firm Deposit"
pb.2=0,0
pb.3=0,0
pb.4=0,0
pb.5=0,0
pb.6=0,0
pb.7=0,0
N.101="vecToScalar"(7,1)*208x103#1,7
N.102="scalarToVec"(7,1)*197x103#7,1
N.103="comment"*147x10*71x9
C="These strip charts repeat the data in the main ones to the left, but show one year at a time to enable a closer look at rapid dynamics between variables."
N.104="variable"*151x83<M>
n="Profits"
N.105="/"*142x82<M>
N.106="*"*131x81<M>
N.107="variable"*115x83<M>
n="FD"
N.108="variable"*116x81<M>
n="s"
N.109="variable"*122x90<M>
n="tau_S"
G.0=13,14,15,16,23,24,25,26,35,36,37,38,72,73,74,75,76,77,78,79,80,85,90,91,92,93,94,95,96,97,98,99,100,101,102,103,
I.5.i1=6.o1
I.6.i1=1.o1
I.6.i2=7.o1
I.8.i1=9.o1
I.8.i2=5.o1
I.9.i1=4.o1
I.11.i1=10.o1
I.11.i2=12.o1
I.12.i1=22.o1
I.13.i1=74.o1
I.14.i1=15.o1
I.15.i1=13.o1
I.15.i2=73.o1
I.16.i1=14.o1
I.18.i1=3.o1
I.18.i2=17.o1
I.21.i1=20.o1
I.21.i2=19.o1
I.22.i1=18.o1
f22.2.i=-
I.22.i2=21.o1
f22.3.i=-
I.22.i3=54.o1
I.22.i4=34.o1
I.23.i1=25.o1
I.24.i1=26.o1
I.30.i1=29.o1
f30.2.i=-
I.30.i2=28.o1
I.32.i1=30.o1
I.32.i2=31.o1
f33.1.i=ll
I.33.i1=32.o1
f33.2.i=lr
I.33.i2=27.o1
I.34.i1=43.o1
I.34.i2=42.o1
I.35.i1=38.o1
I.36.i1=37.o1
I.42.i1=39.o1
I.42.i2=41.o1
I.43.i1=40.o1
I.43.i2=2.o1
I.44.i1=53.o1
I.45.i1=46.o1
I.45.i2=44.o1
I.48.i1=47.o1
I.48.i2=49.o1
I.49.i1=59.o1
I.50.i1=52.o1
I.50.i2=51.o1
I.53.i1=55.o1
I.53.i2=50.o1
f53.3.i=-
I.53.i3=56.o1
I.54.i1=33.o1
I.56.i1=57.o1
I.56.i2=58.o1
I.59.i1=60.o1
f59.2.i=-
I.59.i2=63.o1
f59.3.i=-
I.59.i3=68.o1
f59.4.i=-
I.59.i4=69.o1
I.60.i1=61.o1
I.60.i2=62.o1
I.63.i1=65.o1
I.63.i2=64.o1
I.68.i1=66.o1
I.68.i2=67.o1
I.69.i1=71.o1
I.69.i2=70.o1
I.72.i1=77.o1
I.72.i2=79.o1
I.72.i3=80.o1
I.72.i4=78.o1
I.75.i1=76.o1
I.75.i2=91.o1
I.75.i3=85.o1
I.75.i4=90.o1
G.77=1,4,5,6,7,8,9,81,86,87,88,89,
I.77.o1=81.o1
G.78=47,48,49,59,60,61,62,63,64,65,66,67,68,69,70,71,84,
I.78.o1=84.o1
G.79=2,34,39,40,41,42,43,3,10,11,12,17,18,19,20,21,22,27,28,29,30,31,32,33,54,82,104,105,106,107,108,109,
I.79.o1=82.o1
G.80=44,45,46,50,51,52,53,55,56,57,58,83,
I.80.o1=83.o1
I.81.i1=8.o1
I.82.i1=11.o1
I.83.i1=45.o1
I.84.i1=48.o1
I.86.i1=89.o1
I.89.i1=88.o1
I.89.i2=87.o1
I.91.i1=76.o1
I.91.i2=85.o1
I.92.i1=77.o1
I.92.i2=79.o1
I.93.i1=80.o1
I.93.i2=78.o1
I.94.i1=76.o1
I.94.i2=85.o1
I.95.i1=90.o1
I.97.i1=101.o7
I.98.i1=101.o5
I.98.i2=101.o6
I.99.i1=101.o3
I.99.i2=101.o4
I.100.i1=101.o1
I.100.i2=101.o2
f101.1.i=vT11
I.101.i1=102.o1
f102.1.o=vT11@7,1
I.102.i1=77.o1
I.102.i2=79.o1
I.102.i3=80.o1
I.102.i4=78.o1
I.102.i5=76.o1
I.102.i6=85.o1
I.102.i7=90.o1
I.104.i1=105.o1
f105.1.i=ll
I.105.i1=106.o1
f105.2.i=lr
I.105.i2=109.o1
I.106.i1=108.o1
I.106.i2=107.o1
cEOF