206249/an_brtest.m at master · ModelDBRepository/206249 · GitHub

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
defaults;
npatterns=1;
actPpre= [];
actPpost = [];

histPpre = [];
histPpost = [];
histIpre = [];
histIpost = [];

prePop = [];;
postPop = [];


nruns=10;

brcase = [];
multiruns=1;
for ncase=1:4
    nbranches = ncase*10;
    brsynsH = zeros(nruns,10);
    brsynsK = zeros(nruns,10);
    nrnsyns = zeros(nruns,npyrs);

    nrnbins = [0:80];
    nrnsynsH = zeros(nruns, length(nrnbins));
    sumweights = zeros(nruns, 2);

    %%CONDITION='brtestL'

    brws = [];
    brsyns = zeros(nruns,npyrs*nbranches);
    nsbefore = [];
    nsafter= [];


    for run=1:nruns


        sfn=sprintf('./data/%s_%d_%d/spikes.dat', CONDITION, nbranches, run-1);
        fspk = fopen(sfn);

        nn =1;
        while ~feof(fspk)
           line = fgets(fspk);
           c = sscanf(line, '%d');

           for ns=1:multiruns
              tt= (ns-1)*stimduration;
              nsbefore(run, ns, nn) = length(find(c>tt & c<tt+stimduration));

              tt= (multiruns+ns)*stimduration;
              nsafter(run,  ns, nn)  = length(find(c>tt & c<tt+stimduration));
           end

           nn = nn + 1;
           if (nn>nneurons)
               break;
           end
        end
        fclose(fspk);

        npat=0;
        %tend = npat*stimduration;
        %actpre  = sum( raster(1:npyrs, tend+1:tend+stimduration),2)/2; % for 2000 msec

        actpre = nsbefore(run, 1, 1:npyrs)/(stimduration/1000);

        %tend = 2*npatterns*stimduration+npat*stimduration;
        %actpost = sum( raster(1:npyrs, tend+1:tend+stimduration),2)/2; % for 2000 msec
        actpost = nsafter(run, 1, 1:npyrs)/(stimduration/1000);

        actPpre(ncase, run,  :) = actpre;
        actPpost(ncase, run, :) = actpost;

        [bw, bs, nw, ns] = getsynstate2(sprintf('./data/%s_%d_%d/synstate.dat', CONDITION, nbranches, run-1), npyrs, nbranches, ninputs);

        brws(run,:) = bw(1,:);
        brsyns(run,:) = bs(1,:);

        brsynsH(run,:) = hist(bs(1,:), [0:9]);
        brsynsK(run,:) = hist(bs(1,:), [0:9]);
        brsynsH(run,:) = brsynsH(run,:)/sum(brsynsH(run,:));

        nrnsyns(run,:) = ns(1,:);
        nrnsynsH(run,:) = hist(ns(1,:), nrnbins);
        nrnsynsH(run,:) = nrnsynsH(run,:)/sum(nrnsynsH(run,:));

    end
    brcase(ncase) = mean(brsyns(find(brsyns>0)));
    brcases(ncase) = std(brsyns(find(brsyns>0)))/sqrt(10);
end


ba = (mean(actPpre>CUTOFF,3));
bb = (mean(actPpost>CUTOFF,3));

figure
errorbar(mean(ba,2),std(ba,0,2));

hold on
errorbar(mean(bb,2),std(bb,0,2));
title(sprintf('Active population - %s',CONDITION))
legend('Pre', 'Post');