CA1 pyramidal neuron: synaptic plasticity during theta cycles (Saudargiene et al. 2015)

 Download zip file   Auto-launch 
Help downloading and running models
Accession:157157
This NEURON code implements a microcircuit of CA1 pyramidal neuron and consists of a detailed model of CA1 pyramidal cell and four types of inhibitory interneurons (basket, bistratified, axoaxonic and oriens lacunosum-moleculare cells). Synaptic plasticity during theta cycles at a synapse in a single spine on the stratum radiatum dendrite of the CA1 pyramidal cell is modeled using a phenomenological model of synaptic plasticity (Graupner and Brunel, PNAS 109(20):3991-3996, 2012). The code is adapted from the Poirazi CA1 pyramidal cell (ModelDB accession number 20212) and the Cutsuridis microcircuit model (ModelDB accession number 123815)
Reference:
1 . Saudargiene A, Cobb S, Graham BP (2015) A computational study on plasticity during theta cycles at Schaffer collateral synapses on CA1 pyramidal cells in the hippocampus. Hippocampus 25:208-18 [PubMed]
Citations  Citation Browser
Model Information (Click on a link to find other models with that property)
Model Type: Synapse; Dendrite;
Brain Region(s)/Organism:
Cell Type(s): Hippocampus CA1 pyramidal cell; Hippocampus CA1 basket cell; Hippocampus CA1 bistratified cell; Hippocampus CA1 axo-axonic cell;
Channel(s):
Gap Junctions:
Receptor(s):
Gene(s):
Transmitter(s):
Simulation Environment: NEURON;
Model Concept(s): Long-term Synaptic Plasticity; STDP;
Implementer(s): Saudargiene, Ausra [ausra.saudargiene at gmail.com];
Search NeuronDB for information about:  Hippocampus CA1 pyramidal cell;
/
SaudargieneEtAl2015
readme.html
ANsyn.mod *
bgka.mod *
bistableGB_DOWNUP.mod
burststim2.mod *
cad.mod
cadiffus.mod *
cagk.mod *
cal.mod *
calH.mod *
car.mod *
cat.mod *
ccanl.mod *
d3.mod *
gabaa.mod *
gabab.mod *
glutamate.mod *
gskch.mod *
h.mod
hha_old.mod *
hha2.mod *
hNa.mod *
IA.mod
ichan2.mod
Ih.mod *
kadbru.mod
kadist.mod *
kapbru.mod
kaprox.mod *
Kaxon.mod *
kca.mod *
Kdend.mod *
km.mod *
Ksoma.mod *
LcaMig.mod *
my_exp2syn.mod *
Naaxon.mod *
Nadend.mod *
nap.mod
Nasoma.mod *
nca.mod *
nmda.mod *
nmdaca.mod *
regn_stim.mod *
somacar.mod *
STDPE2Syn.mod *
apical-non-trunk-list.hoc
apical-tip-list.hoc
apical-tip-list-addendum.hoc
apical-trunk-list.hoc
axoaxonic_cell17S.hoc
axon-sec-list.hoc
BasalPath.hoc
basal-paths.hoc
basal-tree-list.hoc
basket_cell17S.hoc
bistratified_cell13S.hoc
burst_cell.hoc
current-balance.hoc *
main.hoc
map-segments-to-3d.hoc *
mod_func.c
mosinit.hoc
ObliquePath.hoc *
oblique-paths.hoc
olm_cell2.hoc
pattsN100S20P5_single.dat
PC.ses
peri-trunk-list.hoc
pyramidalNeuron.hoc
randomLocation.hoc
ranstream.hoc
screenshot.png
soma-list.hoc
stim_cell.hoc *
vector-distance.hoc
                            
//CA1 cell morphology and channels  
//to compile .mod files: nrnivmodl
//to load the cell: nrngui cellCA1.hoc

//-------------------------------------
// Cell setup
//-------------------------------------

begintemplate PyramidalCell

public dendritesCA3_list, dendritesEC_list, dendritesBSinhib_list//lists of dendrites for CA3, EC inputs

public soma, dendrite, apical_dendrite
public soma_list, basal_tree_list, axon_sec_list, apical_tip_list, apical_tip_list_addendum, apical_trunk_list
public peri_trunk_list, peri_trunk_addl, apical_non_trunk_list

public spine_head41, spine_neck41
public spine_head95, spine_neck95
public spine_headSO5, spine_neckSO5

public pl,opl //Oblique Path
public bl,obl //Basal Path
public khsection 

public pre_list, connect2target //synapses PC template 

public all 
public is_art 

public synapse_list
objref synapse_list

objref dendritesCA3_list, dendritesEC_list, dendritesBSinhib_list //lists of dendrites for CA3, EC inputs

objref soma_list, basal_tree_list, axon_sec_list, apical_tip_list, apical_tip_list_addendum, apical_trunk_list
objref peri_trunk_list, peri_trunk_addl, apical_non_trunk_list

objref vRP, vAPEX 

objref pl[150],opl[150] //Oblique Path
objref bl[150],obl[150] //Basal Path
objectvar khsection

objref CAN_temp, CAL_temp, CAT_temp, KAD_temp, KAP_temp, NA_temp 
objref tmpo2 
strdef sectype

objref pre_list //synapses PC template 

public v_init
v_init=-70//Initial voltage of sections
   

//maximum_segment_length=75

//---------------------------------------------------------------------------------------------------
//Main
//---------------------------------------------------------------------------------------------------



proc init() {localobj randomize_location 
  
 

  //---------------------------------------------------------

  topol()
  cell_analysis()
  cell_analysis_oblique1()
  cell_analysis_oblique2()  
  cell_analysis_basal()

  
  add_spine41()
  add_spine95()
  add_spineSO5()


   


  cell_setup1(v_init)
    

//-------------------------------------------------
//Lists
//-------------------------------------------------

  pre_list = new List()

  synapse_list = new List()



//-------------------------------------------------
//synapses create for EC, CA3 AMPA, CA3 BSC inhibition on PC dendrites 
//-------------------------------------------------

  synapses(dendritesEC_list,dendritesCA3_list, dendritesBSinhib_list)

 
}

create soma[5]
create dendrite[59]
create apical_dendrite[119]

create spine_head41, spine_neck41
create spine_headSO5, spine_neckSO5
create spine_head95, spine_neck95

objref synEC[1] //EC AMPA synapses
objref synCA3[1] //CA3 AMPA synapses     
objref synBSA[1] //BS GABAA synapses     
objref synBSB[1] //BS GABAB synapses     


//--------------------------------------------------
//--------------------------------------------------
//membrane properties 
//cell-setup1.hoc
//--------------------------------------------------

proc Rm_sigmoid() { local rm
     Rm_soma=Rm_default
     //Rm_end=5e3
     Rm_end=12e3
     dhalf=200
     steep=50

     for (x) {  
       xdist = find_vector_distance_precise(secname(),x)    // calc. perpedicular distance      



       rm = Rm_soma + (Rm_end - Rm_soma)/(1.0 + exp((dhalf-xdist)/steep))
       g_pas(x) = 1.0/rm
     }

}


/* Changing Ra sigmoidally along the apical trunk (obsolete in this case)*/

proc Ra_sigmoid() {  
     Ra_soma=Ra_default  
     //Ra_end=Ra_default           
     Ra_end=35             
     dhalf=210
     steep=50

     for (x) {  
       xdist = find_vector_distance_precise(secname(),x)  //calc. perpedicular distance
       Ra = Ra_soma + (Ra_end - Ra_soma)/(1.0 + exp((dhalf-xdist)/steep))
     }
}

/* To make the distal trunk h-current conductance, g_h, about 7
times higher (at 300 um) than the somatic value vis-a-vis Magee
J., J. of Neuroscience 18(19) 7613-7624, 1998, we vary I_h
conductance sigmoidally along the apical trunk.
*/

proc apical_h_insert_sig() {

     gh_soma=soma_hbar
     gh_end=soma_hbar*9
     dhalf=280
     steep=50

     for (x) {  
       xdist = find_vector_distance_precise(secname(),x)  //calc. perpedicular distance
       insert h
       gbar_h(x) = gh_soma + (gh_end - gh_soma)/(1.0 + exp((dhalf-xdist)/steep))

       }  
}

/* Inserting proximal (kap) and distal(kad) A-type channels
along the apical trunk. Proximal I_A is distributed in a fixed
conductance over the first 100 um from the cell
body. Distal-type I_A is distributed in a linearly increasing
manner for distances 100 < xdist < 350. For xdist < 100,
g_A_distal(x) = 0 and for xdist > 350 g_A_distal(x) = constant =
g_A_distal(350) 
*/

proc A_insert() {
    
     kap_distal_maxfactor=1
     kap_distal_distance=100
     //kad_distal_maxfactor=8
     kad_distal_maxfactor=6.5
     kad_distal_distance=350


     for (x) {  
       
       //distance from the soma
       
       xdist=find_vector_distance_precise(secname(),x)


       fr= xdist/kad_distal_distance

       /* fr - normed distance from the soma (divided by 350)
          kad_init = 1.04*0.0072



//----------------------------------------------------------


       */

       insert kap
       insert kad 
       ek = -80


       if (xdist < kap_distal_distance ) {

          // distance from the soma is x < 100
          gkabar_kad(x) = 0
          gkabar_kap(x) = soma_kap       
       


       } else if (xdist < kad_distal_distance ) {

         // distance from the soma is 100 < x < 350
          

          gkabar_kap(x) = 0						
          gkabar_kad(x) = kad_distal_maxfactor*kad_init*fr  
         
          
       } else {

          // distance from the soma is x> 350

          gkabar_kap(x) = 0					  
          gkabar_kad(x) = kad_distal_maxfactor*kad_init  
         
       }
     }



}


/* Inserting m-type potassium current with a fixed conductance along the apical trunk */

proc apical_km_insert() {

     km_distal_maxfactor=1
     km_distal_distance=350

     for (x) {  
       xdist = find_vector_distance_precise(secname(),x)
       fr = xdist/km_distal_distance
       insert km
       gbar_km(x)=soma_km
     }
}


/* Inserting K(Ca++)-type channels and calsium pumps along the
apical trunk with maximum conductances in 50 < xdist < 200 
*/

proc apical_kca_insert() {
       
     kca_distal_maxfactor=1
     kca_distal_distance=200
  


     for (x) {  
       xdist = find_vector_distance_precise(secname(),x)
       fr = xdist/kca_distal_distance 
       insert cad    // calsium pump/buffering mechanism
       insert kca    // slow AHP K++ current
       insert mykca  // medium AHP K++ current

	if (xdist < kca_distal_distance && xdist > 50) {       
            gbar_kca(x) = 5*soma_kca
            gkbar_mykca = 2*mykca_init
        } else {
            gbar_kca(x) = 0.5*soma_kca
            gkbar_mykca = 0.25*mykca_init
       }

     }


}

/* Inserting LVA Ca++ T-type channels along the apical trunk in
a linearly increasing manner, for xdist > 100 um 
*/

proc apical_caT_insert() {
     caT_distal_maxfactor=4
     caT_distal_distance=350

     for (x) {  
        xdist = find_vector_distance_precise(secname(),x)
        fr = xdist/caT_distal_distance
        insert cat  
        if (xdist < 100) {
           gcatbar_cat(x) = 0
        } else {
           gcatbar_cat(x) = caT_distal_maxfactor*soma_caT*fr
        } 
    }
}


/* Inserting HVAm Ca++ R-type and HVA L-type channesls along
the apical trunk. The R-type current is distributed in a fixed
conductance while the L-type current is distributed in a
maximum fixed conductance for distances xdist > 50 um and in a very
small conductance for xdist < 50 um
*/

proc apical_caR_caLH_insert() {
     for (x) {  
         xdist = find_vector_distance_precise(secname(),x)
         insert car
         gcabar_car(x) = 0.1*soma_car

         insert calH
         if (xdist > 50) {            
            gcalbar_calH(x) = 4.6*soma_caLH
         } else {
            gcalbar_calH(x) = 0.1*soma_caLH
         }
     }
}


//---------------
proc khoblique_peri_decay() { local i,x,d, v_init

v_init=$1
v_init=-70






//khsection = "apical_dendrite[46]" //"Trunk section used for oblique conductance values")

apical_dendrite[46] khsection = new SectionRef()
peri_trunkl=50.0 //Length of the peri-trunk region"



// Holding the conductance values from apical_dendrite[46] 

khsection.sec { hold_cat=gcatbar_cat(1) hold_car=soma_car hold_calH=soma_caLH hold_nap=0.0004*gnabar_hha_old }


//print "hold_cat", hold_cat
khsection.sec { hold_h=gbar_h(1) hold_ar2_hha_old=ar2_hha_old(1) hold_kdr=gkbar_hha_old(1) }


khsection.sec { hold_g_pas=g_pas(1) hold_Ra=Ra hold_kap=gkabar_kap(1) hold_kad=gkabar_kad(1) }


khsection.sec { hold_mykca=gkbar_mykca(1) hold_kca=gbar_kca(1) hold_km=gbar_km(1) }


     for i=0,plcount {


    
        // set the origin to the currently accessed section 
        
        access opl[i].trunk_section.sec



        xdist = find_vector_distance_precise(secname(),0)

  
        distance(0,1)
 
       
        trunk_kap = gkabar_kap(1)  // holding the parent trunk values
        trunk_kad = gkabar_kad(1)
        trunk_h  = gbar_h(1)
        trunk_pas = g_pas(1)
        trunk_Ra = Ra 
        trunk_car  = gcabar_car(1)
        trunk_calH  = gcalbar_calH(1)
        trunk_cat  = gcatbar_cat(1)
        trunk_kca  = gbar_kca(1)
        trunk_mykca  = gkbar_mykca(1)
        trunk_km  = gbar_km(1)
        trunk_nap  = 0.2*hold_nap // No persistent I_Na at the trunk => hold a small persent of hold_nap value
        trunk_ar2_hha_old  = ar2_hha_old(1) // spike attenuation variable

        sec_count=0
  
       forsec pl[i] {
//           printf("\t-- %s --\n", secname()) access all oblique paths from parent trunk to root oblique
                           
	   if (!sec_count) {              // skip all trunk sections
               sec_count=sec_count+1
               continue
            }         
                insert kap 
                insert kad
                insert h     
                insert pas         
                insert car
                insert calH
                insert cat
                insert kca
                insert mykca
                insert km
                insert nap
                insert cad

                e_pas = v_init
                ek = -80

                for (x) {
                  if (x > 0 && x < 1) {
                     d = distance(1,x)
                     if (d < peri_trunkl) {   // for distances close to the parent trunk section keep trunk values
                        Ra = Ra_default  
                        gkabar_kap(x) = trunk_kap  
                        gkabar_kad(x) = trunk_kad   
                        gbar_h(x) = trunk_h  
                        g_pas(x) = trunk_pas
                        gcabar_car(x) = trunk_car
                        gcalbar_calH(x) = trunk_calH
                        gcatbar_cat(x) = trunk_cat  
                        gbar_kca(x) = trunk_kca  
                        gkbar_mykca = mykca_init 
                        gbar_km(x) = trunk_km
                        gnabar_nap(x) = trunk_nap
                        ar2_hha_old(x) = trunk_ar2_hha_old         
                    
                     } else {          // for further distances set conductances to apical_dendrite[46] values (or a multiple)            
                        gkabar_kap(x) = hold_kap  
                        gkabar_kad(x) = 1.25*hold_kad   
                        gbar_h(x) = hold_h  
                        g_pas(x) = hold_g_pas
		        //g_pas(x) = 10*hold_g_pas

                        Ra = Ra_default
                        gcabar_car(x) = hold_car
                        gcalbar_calH(x) = hold_calH 
                        gcatbar_cat(x) = hold_cat  
                        ar2_hha_old(x) = 0.8*hold_ar2_hha_old  // set to 80% of dend. 46 value  
                        gbar_kca(x) = hold_kca
                        gkbar_mykca = 1.1*mykca_init 
                        gnabar_nap(x) = hold_nap  
                        gbar_km(x) = 2*hold_km             // set to 2 times the dend 46 value
             
                        if (xdist > 300 ) {                // for xdist > 300 um increase:
                           gkabar_kad(x) = 1.3*1.9*hold_kad      // A-current,
                           gcabar_car(x) = 13*hold_car       // Ca++-R current,
                           gcalbar_calH(x) = 14*hold_calH     // Ca++-L current,
                           gbar_kca(x) = 5*soma_kca         // slow AHP current  
                           gkbar_hha_old(x) = 1.07*hold_kdr // delayed rectifier
                           //gkbar_hha_old(x) = 1.1*hold_kdr // delayed rectifier
                         }

                        if (xdist > 350) {               // for xdist > 350 um increase even more:
                           gcalbar_calH(x)=15*hold_calH  // Ca++-L current,
                           gcabar_car(x) = 13*hold_car       // Ca++-R current,
			   ar2_hha_old(x) = 0.95         // less spike attenuation 
                           gnabar_nap(x)=2*hold_nap      // Na+ persistent                   

                        }
                           
                     } 
   		}
	    }
         
          sec_count=sec_count+1
        }
    }
}



//---------------------
/* Seting conductance values in all basal dendrites to be the
same as the values in apical_dendrite[14], except for the A
current conductance which is 0.6 times higher.  
*/

proc khbasal_fixed() { local i,x,d
//$o1.defvar("channel:basal", "khsection", "\"apical_dendrite[14]\"", "Trunk section used for basal conductance values")
//sprint($o1.tmp_str,"%s { hold_g_pas=g_pas(1) hold_kap=gkabar_kap(1)  hold_kad=gkabar_kad(1) hold_h=gbar_h(1)}", khsection)
//execute1($o1.tmp_str)

//khsection="apical_dendrite[14]"

apical_dendrite[14] khsection = new SectionRef()

khsection.sec { hold_g_pas=g_pas(1) hold_kap=gkabar_kap(1)  hold_kad=gkabar_kad(1) hold_h=gbar_h(1)}


forsec basal_tree_list {

      insert kap 
      insert kad
      insert h                
      insert pas
     
      for (x) {
         gkabar_kap(x) = 1.6*hold_kap
         gkabar_kad(x) = 1.6*hold_kad
         gbar_h(x) = soma_hbar
         g_pas(x) =  hold_g_pas
         Ra = Ra_default
         e_pas = v_init
         ek = -80 
     }
  }
}

/* The Na channels developed Mel and modified by Brannon,
Poirazi (hha2 and hha_old) both reduce activation as function
of voltage. In other words, they show actvity-dependent
attenuation of conductance.  Within both of these mechanisms,
ar2 ([0..1]) is used to inversely describe the intensity of
voltage-dependent attenuation. 0 is maximum attenuation, 1 is
no attenuation.

Within the cell model, we vary the amount of attenuation along
the apical trunk as a function of distance from the cell body
such that proximal sections show little attenuation and distal
sections show comparably more (with the exception of distal
obliques).

We typically decay ar2 linearly from proximal to distal with
the maximum and minimum values of decay as
parameters. Initialize these parameters: 
*/

//---------------------
//cut-sections.hoc

proc cut_sections() {  

  forall {
      nseg=1+int(L/$1)
  }

}

//---------------------


proc cell_setup1() { local v_init

 
   v_init=$1
   v_init=-70
   
 
    maximum_segment_length=75


  // Set passive membrane properties
  
    Rm_default=200000 //Specific membrane resistance 
    Rm_trunk=Rm_default //Non-oblique dendritic specific membrane resistance
    Rm_non_trunk=Rm_default //Apical oblique specific membrane resistance
    Rm_basal=Rm_default //Basal specific membrane resistance
    Rm_tip=Rm_default //Tip specific membrane resistance
    Rm_soma=Rm_default //Somatic specific membrane resistance
    Rm_axon=Rm_default //Axonal specific membrane resistance
    Ra_default=50 //Specific axial resistance
    Ra_basal=Ra_default //Basal specific axial resistance
    Ra_trunk=Ra_default //Somatic specific axial resistance
    Ra_non_trunk=Ra_default //Somatic specific axial resistance
    Ra_soma=Ra_default //Somatic specific axial resistance
    Ra_tip=Ra_default //Apical tip specific axial resistance
    Ra_axon=Ra_default //Axonal specific axial resistance
    Cm_default=1 //Default specific capacitance
    Cm_axon=Cm_default //Axonal specific capacitance
    Cm_soma=Cm_default //Somatic specific capacitance
    Cm_trunk=Cm_default //Trunk specific capacitance
    Cm_non_trunk=Cm_default //Oblique specific capacitance
    Cm_basal=Cm_default //Basal specific capacitance
    Cm_tip=Cm_default //Apical tip specific capacitance

    
  // SEVERELY affects experiment results
  celsius=34 //Temperature of slice
        
  // Set HH Sodium - Potassium properties

    gna_default=0.007 //Default Na conductance
    gna_trunk=gna_default //Trunk Na conductance
    trunk_non_trunk_ratio=1.0 //Non-trunk Na conductance ratio
    gna_non_trunk=trunk_non_trunk_ratio*gna_default //Non-trunk Na conductance
    gna_tip=gna_non_trunk //Oblique Tip Na conductance
    gna_basal=gna_default //Basal Na conductance
    gna_axon=0.1 //Axonal Na conductance
    gna_soma=gna_default //Somatic Na conductance

// Set delayed rectifier properties as a percent of Na conductances
   
    kdr_div=10.0/1.24 //Default ratio of Na to kdr conductances
    kdr_div_soma=10.0/2.0 // Soma Na-kdr divider
    kdr_div_axon=kdr_div_soma // Axon Na-kdr divider
    kdr_div_trunk=kdr_div //Trunk Na-kdr divider
    kdr_div_non_trunk=kdr_div //Non-trunk Na-kdr divider
    kdr_div_tip=kdr_div //Oblique Tips Na-kdr divider
    kdr_div_basal=kdr_div  //Basal Na-kdr divider

// Set delayed rectifie conductances

    gkdrbar_default=gna_default/kdr_div //Default KDR conductance. ")
    gkdrbar_axon=gna_axon/kdr_div_axon //Axonal  KDR conductance. ")
    gkdrbar_basal=gna_basal/kdr_div_basal //Basal  KDR conductance. ")
    gkdrbar_soma=gna_soma/kdr_div_soma //Somatic  KDR conductance. ")
    gkdrbar_trunk=gna_trunk/kdr_div_trunk //Trunk KDR conductance. ")
    gkdrbar_non_trunk=gna_non_trunk/kdr_div_non_trunk //Non-Trunk KDR conductance. ")
    gkdrbar_tip=gna_tip/kdr_div_tip //Oblique Tip KDR conductance. ")
    gkdrbar_basal=gna_basal/kdr_div_basal  //Basal KDR conductance. ")

//$o1.xopen_library("Terrence","cut-sections")


    //xopen("cut-sections.hoc")

    cut_sections(maximum_segment_length)


// make 3-d mapping of cell sections

//$o1.xopen_library("Terrence","map-segments-to-3d")

    //xopen("map-segments-to-3d.hoc")




    map_segments_to_3d()
//print "MAP-END"


// prepare to make a graph with cell configuration
//$o1.tmpo2=new Shape()
    //tmpo2=new Shape()


//-------------------------------------------------------------------        
// Set initial conductance values 
//-------------------------------------------------------------------
    soma_caL = 0.014     
    soma_car = 0.0003
    gsomacar = 0.003 
    soma_caLH =0.95*0.000333
    soma_caT = 0.0001
    soma_kca = 0.0001
    soma_km = 0.06
    mykca_init = 1.1*0.015
    soma_hbar = 1.872e-5
    soma_kap = 0.0075
    kad_init = 1.04*0.0072

    
    

// Start inserting mechanisms in cell

      sectype ="soma"
      forsec "soma" {

            insert hha2    // HH mechanism with low threshold for Na spikes (-57 mV)
                    gnabar_hha2 = gna_soma
                    gkbar_hha2  = gkdrbar_soma
                    gl_hha2     = 0
                    el_hha2     = v_init
                    ena         = 50

            insert pas    // leak conductance
                    g_pas =  1/Rm_soma
                    e_pas = v_init
                    Ra    = Ra_soma

            insert h     // h current 
                   gbar_h  = soma_hbar
                   K_h     = 8.8
                   vhalf_h = -82

            insert kap  // proximal A current
                   gkabar_kap = soma_kap
                   ek         = -80

            insert km  // m-type potassium current
                   gbar_km    = soma_km
                   ek         = -80 
           
            insert cal // HVA Ca++-L type current
                   gcalbar_cal = soma_caL/2
           
            insert cat // LVA Ca++-T type current
                   gcatbar_cat = soma_caT/2

            insert somacar // HVAm Ca++-R type current
                   gcabar_somacar = gsomacar
            
            insert kca   // K(Ca) sAHP potassium type current
                   gbar_kca = 5*soma_kca
         
            insert mykca // K(Ca) mAHP potassium type current
	           gkbar_mykca = 5.5*mykca_init
        
            insert cad  // calcium pump/buffering mechanism
           
            //tmpo2.color(2)    
      }




//  Configure Axon

      sectype="axon"
      forsec axon_sec_list {

              insert hha2  // HH mechanism with low threshold for Na spikes (-57 mV)
                    gnabar_hha2 = gna_axon
                    gkbar_hha2  = gkdrbar_axon
                    gl_hha2     = 0
                    el_hha2     = v_init
                    ena         = 50
     
              insert pas  // leak conductance
                    g_pas       = 1/Rm_axon
                    e_pas       = v_init
                    Ra          = Ra_axon
                    cm          = Cm_axon

               insert km  // m-type potassium current
                    gbar_km     = 0.5*soma_km
                    ek          = -80
                       

               //tmpo2.color(1)

      }
 

//***********************************************************************************
//  Configure apical trunk
     
      

      forsec apical_trunk_list {

         
          apical_h_insert_sig()    // Inserting h-current

          apical_caR_caLH_insert() // Inserting Ca++ R-type and Ca++ L-type currents
          
	  apical_caT_insert()      // Inserting Ca++ T-type current
          apical_kca_insert()      // Inserting K(Ca) sAHP and mAHP potassium currents
          apical_km_insert()       // Inserting m-type potassium current
          A_insert()               // Inserting A-current



          
          insert hha_old // HH mechanism with high threshold for Na spikes (-50 mV)
                    gnabar_hha_old = gna_trunk
                    gkbar_hha_old  = gkdrbar_trunk
                    ena            = 50
                    
          insert pas // leak conductance
                    e_pas          = v_init
                    el_hha_old     = v_init
                    Ra             = Ra_trunk
                    cm             = Cm_trunk

         
          Rm_sigmoid()   // configure Rm along apical trunk
          Ra_sigmoid()   // configure Ra along apical trunk
          //tmpo2.color(4)
          

           
// Set the Na+ spike attenuation variable (linearly decreasing from soma to 300 um)



         max_ar2=0.95 //Somatic value of ar2
         min_ar2=0.30 //Minimum value of ar2
         decay_end=300.0 //Distance beyond which all values are min_ar2
         decay_start=50.0 //Distance at which ar2 starts to decrease


         m_ar2 = (max_ar2 - min_ar2)/(decay_start - decay_end)
            for (x) {
                xdist = find_vector_distance_precise(secname(),x)

   

                if (xdist < decay_start) { 
                  ar2_hha_old(x) = max_ar2 
                } else if (xdist > decay_end) {               
                  ar2_hha_old(x) = min_ar2 
                } else {               
               ar2_hha_old(x) = max_ar2 + m_ar2*xdist
                }
            }

      }


//**************************************************************************


//Configure the apical-non-trunk section: insert basic mechanisms  
  
    sectype = "apical non-trunk"

    forsec apical_non_trunk_list {
            
              insert hha_old // HH mechanism with high threshold for Na spikes (-50 mV)
                     gnabar_hha_old = gna_non_trunk
                     gkbar_hha_old  = gkdrbar_non_trunk
                     el_hha_old     = v_init  
                     ena            = 50
              
               insert pas // passive properties
                     g_pas     = 1/Rm_non_trunk
                     e_pas     = v_init                     
                     Ra        = Ra_non_trunk
                     cm        = Cm_non_trunk
             

                //tmpo2.color(3)

    }


    khoblique_peri_decay(v_init)  // Configure the apical oblique dendrites



// Configure the basal dendrites


   sectype = "basal tree"
   forsec basal_tree_list {
            insert hha_old // HH mechanism with high threshold for Na spikes (-50 mV)
                    gnabar_hha_old = gna_basal
                    gkbar_hha_old  = gkdrbar_basal
                    el_hha_old     = v_init
                    gl_hha_old     = 0
  
            insert pas // passive properties
                    g_pas          = 1/Rm_basal
                    e_pas          = v_init
                    Ra             = Ra_basal
                    cm             = Cm_basal

            insert kap // Insert proximal A current
                  gkabar_kap       = 2.5*soma_kap


        Ra_sigmoid() // configure Ra
        //tmpo2.color(5)

      }


        
   khbasal_fixed() // Configure basal dendrites     

   
    forsec "soma" { g_pas=1/Rm_soma } // force Rm at all soma sections

    forall if (ismembrane("hha_old")) {  // zero out gl (leak conductance) since g_pass is taking its place
       gl_hha_old = 0  
       ek         = -77 
     }
     forall if (ismembrane("hha2")) { // zero out gl (leak conductance) since g_pass is taking its place
       gl_hha2 = 0  
       ek      = -77 
     }

    forall if(ismembrane("ca_ion")) {
      eca = 140
      ion_style("ca_ion",0,1,0,0,0)
      vshift_ca = 0
    }

  // Account for spines (obsolete in this case) 

   forall {
        for (x) {
          if (x > 0 && x < 1) {
                diam(x)=diam(x)*1.0
                }
        }
   }


 
 

    current_balance(v_init)



}



//--------------------------------------------------
//--------------------------------------------------
//cell 
//cell-analysis.hoc
//--------------------------------------------------

proc cell_analysis() {

forall insert d3   
adjustment=41.1


vRP=new Vector()
access  apical_dendrite[4]   // set point of reference (if adjustment=0). With adjustment factor = 41.1
vcreate(vRP)                 // the point of reference is the soma

vAPEX=new Vector()
access apical_dendrite[92]  // set the apex point
vcreate2(vAPEX,0.5)


//------------
//soma-list.hoc 
//-------------
soma_list=new SectionList()
forsec "soma" {
      soma_list.append()
} 


//------------
//axon-sec-list.hoc 
//-------------
axon_sec_list = new SectionList()

for i = 30,34 dendrite[i] {
  axon_sec_list.append()
}

for i = 18,22 dendrite[i] {
  axon_sec_list.append()
}

//-------------
//basal-tree-list.hoc 
//-------------

basal_tree_list=new SectionList()

for i = 0,17 dendrite[i] {
  basal_tree_list.append()
}

for i = 23,29 dendrite[i] {
  basal_tree_list.append()
}


for i = 35,58 dendrite[i] {
  basal_tree_list.append()
}


//------------
//apical-tip-list.hoc 
//------------

apical_tip_list=new SectionList()

 // List of obliques located at distances approximatelly less than 300 microns from the soma

  apical_dendrite[3]    apical_tip_list.append()   // 1 degree                 74.4  microns from soma
  apical_dendrite[5]    apical_tip_list.append()   // 0 degree                 57.46 (vertical distance)
  apical_dendrite[24]   apical_tip_list.append()   // 0 degree                 92.05
  apical_dendrite[30]   apical_tip_list.append()   // 0 degree  (essentially) 153.44
  apical_dendrite[34]   apical_tip_list.append()   // 2 degrees (ignore 3rd)  215.06
  apical_dendrite[45]   apical_tip_list.append()   // 0 degree. (essentially) 170.32
  apical_dendrite[51]   apical_tip_list.append()   // 2 degrees               210.93
  apical_dendrite[59]   apical_tip_list.append()   //                         189.34
  apical_dendrite[61]   apical_tip_list.append()   //                         221.55
  apical_dendrite[63]   apical_tip_list.append()   //                         231.58
  apical_dendrite[68]   apical_tip_list.append()   // 2 degrees               277.48
  apical_dendrite[70]   apical_tip_list.append()   // 0 degree                300.94
  apical_dendrite[106]  apical_tip_list.append()   // 0 degree                258.05
  apical_dendrite[107]  apical_tip_list.append()   // 0 degree                159.55      
  apical_dendrite[111]  apical_tip_list.append()   // 1 degree                106.30
  apical_dendrite[112]  apical_tip_list.append()   // 0 degree                 88.52
  apical_dendrite[115]  apical_tip_list.append()   // 1 degree                117.79
  apical_dendrite[118]  apical_tip_list.append()   // 0 degree                 81.66

  apical_dendrite[73]   apical_tip_list.append()   // 0 degree                334.84 
  apical_dendrite[82]   apical_tip_list.append()   // 0 degree                360.28
  apical_dendrite[86]   apical_tip_list.append()   // 0 degree                419.68
  apical_dendrite[93]   apical_tip_list.append()   // 0 degree                468.60
  apical_dendrite[97]   apical_tip_list.append()   // 0 degree                445.90
  apical_dendrite[105]  apical_tip_list.append()   // 0 degree                425.58

  //closer to the soma
  apical_dendrite[73]   apical_tip_list.append()   // 0 degree                419.68
  apical_dendrite[74]   apical_tip_list.append()   // 0 degree                468.60
  apical_dendrite[81]   apical_tip_list.append()   // 0 degree                445.90
  apical_dendrite[82]  apical_tip_list.append()   // 0 degree                425.58


//----------------------------------------------------
// Dendrites for CA3 inputs less than 300 microns from the soma// 
//----------------------------------------------------


dendritesCA3_list=new SectionList()
  	
  apical_dendrite[10]    dendritesCA3_list.append()  
  apical_dendrite[107]   dendritesCA3_list.append()        
  apical_dendrite[111]   dendritesCA3_list.append()   
  apical_dendrite[112]   dendritesCA3_list.append()   
  apical_dendrite[115]   dendritesCA3_list.append()   
  apical_dendrite[118]   dendritesCA3_list.append()   
  apical_dendrite[24]    dendritesCA3_list.append()   
  apical_dendrite[30]    dendritesCA3_list.append()   
  apical_dendrite[14]    dendritesCA3_list.append()   
  apical_dendrite[22]    dendritesCA3_list.append()   
  apical_dendrite[25]    dendritesCA3_list.append()   
  apical_dendrite[48]    dendritesCA3_list.append()   
  apical_dendrite[56]    dendritesCA3_list.append()   
  apical_dendrite[57]    dendritesCA3_list.append()   
  apical_dendrite[37]    dendritesCA3_list.append()   
  apical_dendrite[36]    dendritesCA3_list.append()   
  apical_dendrite[66]    dendritesCA3_list.append()   
  apical_dendrite[69]    dendritesCA3_list.append()   
  apical_dendrite[106]   dendritesCA3_list.append()   
  apical_dendrite[70]    dendritesCA3_list.append()   
  apical_dendrite[74]    dendritesCA3_list.append()   
  apical_dendrite[118]   dendritesCA3_list.append()                   
  apical_dendrite[2]     dendritesCA3_list.append()                    
  apical_dendrite[21]    dendritesCA3_list.append()                    
  apical_dendrite[34]    dendritesCA3_list.append()   
  apical_dendrite[45]    dendritesCA3_list.append()   
  apical_dendrite[51]    dendritesCA3_list.append()   
  apical_dendrite[59]    dendritesCA3_list.append()   
  apical_dendrite[63]    dendritesCA3_list.append()   
  


//----------------------------------------------------
// Dendrites for BS inhibition less than 300 microns from the soma 
//----------------------------------------------------

dendritesBSinhib_list=new SectionList()

  apical_dendrite[41]   dendritesBSinhib_list.append() 
  apical_dendrite[48]   dendritesBSinhib_list.append() 
  apical_dendrite[23]   dendritesBSinhib_list.append()   
  apical_dendrite[63]   dendritesBSinhib_list.append()   
  apical_dendrite[33]  dendritesBSinhib_list.append()   
  apical_dendrite[6]  dendritesBSinhib_list.append()   
  apical_dendrite[16]  dendritesBSinhib_list.append()   
  apical_dendrite[27]  dendritesBSinhib_list.append()   
  apical_dendrite[58]  dendritesBSinhib_list.append()   
  apical_dendrite[27]   dendritesBSinhib_list.append()   
  apical_dendrite[58]  dendritesBSinhib_list.append()   
  apical_dendrite[65]   dendritesBSinhib_list.append()   

//----------------------------------------------------
// Dendrites for EC inputs, more than 300 microns from the soma
//----------------------------------------------------

dendritesEC_list=new SectionList()

  apical_dendrite[73]   dendritesEC_list.append()   
  apical_dendrite[82]   dendritesEC_list.append()   
  apical_dendrite[86]   dendritesEC_list.append()   
  apical_dendrite[93]   dendritesEC_list.append()   
  apical_dendrite[97]   dendritesEC_list.append()   
  apical_dendrite[105]  dendritesEC_list.append()   
  apical_dendrite[85]   dendritesEC_list.append()                   
  apical_dendrite[95]   dendritesEC_list.append()   


//------------------------------------------------------------------------------
//apical-tip-list-addendum.hoc 
//--------------------------------------------------------------------------------
 
  apical_tip_list_addendum=new SectionList()
  
  apical_dendrite[2]    apical_tip_list_addendum.append()  // 1 degree      69.9821  microns from soma
  apical_dendrite[33]   apical_tip_list_addendum.append()  // 2 degrees    177.4831 (vertical distance)
  apical_dendrite[36]   apical_tip_list_addendum.append()  // 2 degree     189.0447 
  apical_dendrite[37]   apical_tip_list_addendum.append()  // 2 degrees    180.5792 
  apical_dendrite[39]   apical_tip_list_addendum.append()  // 1 degree      83.7030
  apical_dendrite[40]   apical_tip_list_addendum.append()  // 1 degreee    102.6654
  apical_dendrite[44]   apical_tip_list_addendum.append()  // 0 degree     172.7760 
  apical_dendrite[47]   apical_tip_list_addendum.append()  // 0 degree.    177.4980
  apical_dendrite[53]   apical_tip_list_addendum.append()  // 3 degrees    202.8910
  apical_dendrite[54]   apical_tip_list_addendum.append()  // 3 degrees    190.3009
  apical_dendrite[67]   apical_tip_list_addendum.append()  // 2 degrees    289.5367   
  apical_dendrite[110]  apical_tip_list_addendum.append()  // 1 degree      98.7392
  apical_dendrite[114]  apical_tip_list_addendum.append()  // 1 degree     123.9962
  apical_dendrite[117]  apical_tip_list_addendum.append()  // 0 degree      67.6363


  


//------------
//apical-trunk-list.hoc 
//------------

apical_trunk_list=new SectionList()

apical_dendrite[0]  apical_trunk_list.append() // 13.40  microns from soma 
apical_dendrite[4]  apical_trunk_list.append() // 46.03 (vertical distance)
apical_dendrite[6]  apical_trunk_list.append() // 45.75
apical_dendrite[14] apical_trunk_list.append() // 52.53
apical_dendrite[15] apical_trunk_list.append() // 58.97
apical_dendrite[16] apical_trunk_list.append() // 70.89
apical_dendrite[22] apical_trunk_list.append() // 72.93
apical_dendrite[23] apical_trunk_list.append() // 74.48
apical_dendrite[25] apical_trunk_list.append() // 93.56
apical_dendrite[26] apical_trunk_list.append() // 98.55
apical_dendrite[27] apical_trunk_list.append() // 121.89
apical_dendrite[41] apical_trunk_list.append() // 144.46
apical_dendrite[42] apical_trunk_list.append() // 142.81
apical_dendrite[46] apical_trunk_list.append() // 156.96
apical_dendrite[48] apical_trunk_list.append() // 162.99
apical_dendrite[56] apical_trunk_list.append() // 179.58
apical_dendrite[58] apical_trunk_list.append() // 180.11
apical_dendrite[60] apical_trunk_list.append() // 210.33
apical_dendrite[62] apical_trunk_list.append() // 222.80
apical_dendrite[64] apical_trunk_list.append() // 233.67
apical_dendrite[65] apical_trunk_list.append() // 252.71
apical_dendrite[69] apical_trunk_list.append() // 292.06
apical_dendrite[71] apical_trunk_list.append() // 324.53 
apical_dendrite[81] apical_trunk_list.append() // 346.84
apical_dendrite[83] apical_trunk_list.append() // 387.00
apical_dendrite[95] apical_trunk_list.append() // 413.05
apical_dendrite[103] apical_trunk_list.append() // 417.73
apical_dendrite[104] apical_trunk_list.append() // 423.75

 
//------------
//peri-trunk-list.hoc
//------------

peri_trunk_list=new SectionList()

apical_dendrite[1] peri_trunk_list.append()
apical_dendrite[5] peri_trunk_list.append()
apical_dendrite[7] peri_trunk_list.append()
apical_dendrite[17] peri_trunk_list.append()
apical_dendrite[24] peri_trunk_list.append()
apical_dendrite[28] peri_trunk_list.append()
apical_dendrite[29] peri_trunk_list.append()
apical_dendrite[30] peri_trunk_list.append()
apical_dendrite[40] peri_trunk_list.append()
apical_dendrite[43] peri_trunk_list.append()
apical_dendrite[47] peri_trunk_list.append()
apical_dendrite[49] peri_trunk_list.append()
apical_dendrite[57] peri_trunk_list.append()
apical_dendrite[59] peri_trunk_list.append()
apical_dendrite[61] peri_trunk_list.append()
apical_dendrite[63] peri_trunk_list.append()
apical_dendrite[66] peri_trunk_list.append()
apical_dendrite[70] peri_trunk_list.append()
apical_dendrite[72] peri_trunk_list.append()
apical_dendrite[96] peri_trunk_list.append()
apical_dendrite[104] peri_trunk_list.append()


peri_trunk_addl=new SectionList()

apical_dendrite[8]   peri_trunk_addl.append()
apical_dendrite[18]  peri_trunk_addl.append()
apical_dendrite[44]  peri_trunk_addl.append()
apical_dendrite[73]  peri_trunk_addl.append()
apical_dendrite[105] peri_trunk_addl.append()




//------------
//apical-non-trunk-list.hoc 
//------------

apical_non_trunk_list=new SectionList()

forsec "apical" {
   skip = 0
   ifsec apical_trunk_list { skip=1 }
   if (!skip) {
    apical_non_trunk_list.append()
  }
}


}


//-----------------------------------------
//proc continuation
//-----------------------------------------

proc cell_analysis_oblique1() {


//------------
//oblique-paths.hoc 
//------------

objref pl[150],opl[150]

plcount=0
pl[plcount]=new SectionList()
apical_dendrite[0] pl[plcount].append()
apical_dendrite[1] pl[plcount].append()
apical_dendrite[2] pl[plcount].append()
opl[plcount]=new ObliquePath(pl[plcount])


plcount=plcount+1
pl[plcount]=new SectionList()
apical_dendrite[0] pl[plcount].append()
apical_dendrite[1] pl[plcount].append()
apical_dendrite[3] pl[plcount].append()
opl[plcount]=new ObliquePath(pl[plcount])

plcount=plcount+1
pl[plcount]=new SectionList()
apical_dendrite[4] pl[plcount].append()
apical_dendrite[5] pl[plcount].append()
opl[plcount]=new ObliquePath(pl[plcount])

plcount=plcount+1
pl[plcount]=new SectionList()
apical_dendrite[6] pl[plcount].append()
apical_dendrite[7] pl[plcount].append()
apical_dendrite[8] pl[plcount].append()
opl[plcount]=new ObliquePath(pl[plcount])

plcount=plcount+1
pl[plcount]=new SectionList()
apical_dendrite[6] pl[plcount].append()
apical_dendrite[7] pl[plcount].append()
apical_dendrite[9] pl[plcount].append()
apical_dendrite[10] pl[plcount].append()
apical_dendrite[11] pl[plcount].append()
opl[plcount]=new ObliquePath(pl[plcount])

plcount=plcount+1
pl[plcount]=new SectionList()
apical_dendrite[6] pl[plcount].append()
apical_dendrite[7] pl[plcount].append()
apical_dendrite[9] pl[plcount].append()
apical_dendrite[10] pl[plcount].append()
apical_dendrite[12] pl[plcount].append()
opl[plcount]=new ObliquePath(pl[plcount])

plcount=plcount+1
pl[plcount]=new SectionList()
apical_dendrite[6] pl[plcount].append()
apical_dendrite[7] pl[plcount].append()
apical_dendrite[9] pl[plcount].append()
apical_dendrite[13] pl[plcount].append()
opl[plcount]=new ObliquePath(pl[plcount])

plcount=plcount+1
pl[plcount]=new SectionList()
apical_dendrite[14] pl[plcount].append()
apical_dendrite[116] pl[plcount].append()
apical_dendrite[117] pl[plcount].append()
opl[plcount]=new ObliquePath(pl[plcount])


plcount=plcount+1
pl[plcount]=new SectionList()
apical_dendrite[14] pl[plcount].append()
apical_dendrite[116] pl[plcount].append()
apical_dendrite[118] pl[plcount].append()
opl[plcount]=new ObliquePath(pl[plcount])


plcount=plcount+1
pl[plcount]=new SectionList()
apical_dendrite[16] pl[plcount].append()
apical_dendrite[17] pl[plcount].append()
apical_dendrite[18] pl[plcount].append()
opl[plcount]=new ObliquePath(pl[plcount])

plcount=plcount+1
pl[plcount]=new SectionList()
apical_dendrite[16] pl[plcount].append()
apical_dendrite[17] pl[plcount].append()
apical_dendrite[19] pl[plcount].append()
apical_dendrite[20] pl[plcount].append()
opl[plcount]=new ObliquePath(pl[plcount])

plcount=plcount+1
pl[plcount]=new SectionList()
apical_dendrite[16] pl[plcount].append()
apical_dendrite[17] pl[plcount].append()
apical_dendrite[19] pl[plcount].append()
apical_dendrite[21] pl[plcount].append()
opl[plcount]=new ObliquePath(pl[plcount])

plcount=plcount+1
pl[plcount]=new SectionList()
apical_dendrite[23] pl[plcount].append()
apical_dendrite[24] pl[plcount].append()
opl[plcount]=new ObliquePath(pl[plcount])

plcount=plcount+1
pl[plcount]=new SectionList()
apical_dendrite[27] pl[plcount].append()
apical_dendrite[28] pl[plcount].append()
apical_dendrite[29] pl[plcount].append()
apical_dendrite[30] pl[plcount].append()
opl[plcount]=new ObliquePath(pl[plcount])

plcount=plcount+1
pl[plcount]=new SectionList()
apical_dendrite[27] pl[plcount].append()
apical_dendrite[28] pl[plcount].append()
apical_dendrite[29] pl[plcount].append()
apical_dendrite[31] pl[plcount].append()
apical_dendrite[32] pl[plcount].append()
apical_dendrite[33] pl[plcount].append()
opl[plcount]=new ObliquePath(pl[plcount])

plcount=plcount+1
pl[plcount]=new SectionList()
apical_dendrite[27] pl[plcount].append()
apical_dendrite[28] pl[plcount].append()
apical_dendrite[29] pl[plcount].append()
apical_dendrite[31] pl[plcount].append()
apical_dendrite[32] pl[plcount].append()
apical_dendrite[34] pl[plcount].append()
opl[plcount]=new ObliquePath(pl[plcount])

plcount=plcount+1
pl[plcount]=new SectionList()
apical_dendrite[27] pl[plcount].append()
apical_dendrite[28] pl[plcount].append()
apical_dendrite[29] pl[plcount].append()
apical_dendrite[31] pl[plcount].append()
apical_dendrite[35] pl[plcount].append()
apical_dendrite[36] pl[plcount].append()
opl[plcount]=new ObliquePath(pl[plcount])

plcount=plcount+1
pl[plcount]=new SectionList()
apical_dendrite[27] pl[plcount].append()
apical_dendrite[28] pl[plcount].append()
apical_dendrite[29] pl[plcount].append()
apical_dendrite[31] pl[plcount].append()
apical_dendrite[35] pl[plcount].append()
apical_dendrite[37] pl[plcount].append()
opl[plcount]=new ObliquePath(pl[plcount])

plcount=plcount+1
pl[plcount]=new SectionList()
apical_dendrite[27] pl[plcount].append()
apical_dendrite[28] pl[plcount].append()
apical_dendrite[38] pl[plcount].append()
apical_dendrite[39] pl[plcount].append()
opl[plcount]=new ObliquePath(pl[plcount])

plcount=plcount+1
pl[plcount]=new SectionList()
apical_dendrite[27] pl[plcount].append()
apical_dendrite[28] pl[plcount].append()
apical_dendrite[38] pl[plcount].append()
apical_dendrite[40] pl[plcount].append()
opl[plcount]=new ObliquePath(pl[plcount])

plcount=plcount+1
pl[plcount]=new SectionList()
apical_dendrite[42] pl[plcount].append()
apical_dendrite[43] pl[plcount].append()
apical_dendrite[44] pl[plcount].append()
opl[plcount]=new ObliquePath(pl[plcount])

plcount=plcount+1
pl[plcount]=new SectionList()
apical_dendrite[42] pl[plcount].append()
apical_dendrite[43] pl[plcount].append()
apical_dendrite[45] pl[plcount].append()
opl[plcount]=new ObliquePath(pl[plcount])

plcount=plcount+1
pl[plcount]=new SectionList()
apical_dendrite[46] pl[plcount].append()
apical_dendrite[47] pl[plcount].append()
opl[plcount]=new ObliquePath(pl[plcount])

plcount=plcount+1
pl[plcount]=new SectionList()
apical_dendrite[48] pl[plcount].append()
apical_dendrite[49] pl[plcount].append()
apical_dendrite[50] pl[plcount].append()
apical_dendrite[51] pl[plcount].append()
opl[plcount]=new ObliquePath(pl[plcount])

plcount=plcount+1
pl[plcount]=new SectionList()
apical_dendrite[48] pl[plcount].append()
apical_dendrite[49] pl[plcount].append()
apical_dendrite[50] pl[plcount].append()
apical_dendrite[52] pl[plcount].append()
apical_dendrite[53] pl[plcount].append()
opl[plcount]=new ObliquePath(pl[plcount])

plcount=plcount+1
pl[plcount]=new SectionList()
apical_dendrite[48] pl[plcount].append()
apical_dendrite[49] pl[plcount].append()
apical_dendrite[50] pl[plcount].append()
apical_dendrite[52] pl[plcount].append()
apical_dendrite[54] pl[plcount].append()
opl[plcount]=new ObliquePath(pl[plcount])

plcount=plcount+1
pl[plcount]=new SectionList()
apical_dendrite[48] pl[plcount].append()
apical_dendrite[49] pl[plcount].append()
apical_dendrite[55] pl[plcount].append()
opl[plcount]=new ObliquePath(pl[plcount])

plcount=plcount+1
pl[plcount]=new SectionList()
apical_dendrite[56] pl[plcount].append()
apical_dendrite[57] pl[plcount].append()
opl[plcount]=new ObliquePath(pl[plcount])

plcount=plcount+1
pl[plcount]=new SectionList()
apical_dendrite[58] pl[plcount].append()
apical_dendrite[59] pl[plcount].append()
opl[plcount]=new ObliquePath(pl[plcount])

plcount=plcount+1
pl[plcount]=new SectionList()
apical_dendrite[60] pl[plcount].append()
apical_dendrite[61] pl[plcount].append()
opl[plcount]=new ObliquePath(pl[plcount])

plcount=plcount+1
pl[plcount]=new SectionList()
apical_dendrite[62] pl[plcount].append()
apical_dendrite[63] pl[plcount].append()
opl[plcount]=new ObliquePath(pl[plcount])

plcount=plcount+1
pl[plcount]=new SectionList()
apical_dendrite[62] pl[plcount].append()
apical_dendrite[63] pl[plcount].append()
opl[plcount]=new ObliquePath(pl[plcount])

plcount=plcount+1
pl[plcount]=new SectionList()
apical_dendrite[65] pl[plcount].append()
apical_dendrite[66] pl[plcount].append()
apical_dendrite[67] pl[plcount].append()
opl[plcount]=new ObliquePath(pl[plcount])


plcount=plcount+1
pl[plcount]=new SectionList()
apical_dendrite[65] pl[plcount].append()
apical_dendrite[66] pl[plcount].append()
apical_dendrite[68] pl[plcount].append()
opl[plcount]=new ObliquePath(pl[plcount])

plcount=plcount+1
pl[plcount]=new SectionList()
apical_dendrite[69] pl[plcount].append()
apical_dendrite[70] pl[plcount].append()
opl[plcount]=new ObliquePath(pl[plcount])

plcount=plcount+1
pl[plcount]=new SectionList()
apical_dendrite[71] pl[plcount].append()
apical_dendrite[72] pl[plcount].append()
apical_dendrite[73] pl[plcount].append()
opl[plcount]=new ObliquePath(pl[plcount])

plcount=plcount+1
pl[plcount]=new SectionList()
apical_dendrite[71] pl[plcount].append()
apical_dendrite[72] pl[plcount].append()
apical_dendrite[74] pl[plcount].append()
apical_dendrite[75] pl[plcount].append()
apical_dendrite[76] pl[plcount].append()
opl[plcount]=new ObliquePath(pl[plcount])

plcount=plcount+1
pl[plcount]=new SectionList()
apical_dendrite[71] pl[plcount].append()
apical_dendrite[72] pl[plcount].append()
apical_dendrite[74] pl[plcount].append()
apical_dendrite[75] pl[plcount].append()
apical_dendrite[77] pl[plcount].append()
apical_dendrite[78] pl[plcount].append()
opl[plcount]=new ObliquePath(pl[plcount])

plcount=plcount+1
pl[plcount]=new SectionList()
apical_dendrite[71] pl[plcount].append()
apical_dendrite[72] pl[plcount].append()
apical_dendrite[74] pl[plcount].append()
apical_dendrite[75] pl[plcount].append()
apical_dendrite[77] pl[plcount].append()
apical_dendrite[79] pl[plcount].append()
opl[plcount]=new ObliquePath(pl[plcount])

plcount=plcount+1
pl[plcount]=new SectionList()
apical_dendrite[71] pl[plcount].append()
apical_dendrite[72] pl[plcount].append()
apical_dendrite[74] pl[plcount].append()
apical_dendrite[80] pl[plcount].append()
opl[plcount]=new ObliquePath(pl[plcount])

plcount=plcount+1
pl[plcount]=new SectionList()
apical_dendrite[81] pl[plcount].append()
apical_dendrite[82] pl[plcount].append()
opl[plcount]=new ObliquePath(pl[plcount])

plcount=plcount+1
pl[plcount]=new SectionList()
apical_dendrite[83] pl[plcount].append()
apical_dendrite[84] pl[plcount].append()
apical_dendrite[85] pl[plcount].append()
apical_dendrite[86] pl[plcount].append()
opl[plcount]=new ObliquePath(pl[plcount])

   
}



//--------------
proc cell_analysis_oblique2() {
//--------------
//because procedure 
//cell_analysis_oblique1()
//too big


plcount=plcount+1
pl[plcount]=new SectionList()
apical_dendrite[83] pl[plcount].append()
apical_dendrite[84] pl[plcount].append()
apical_dendrite[85] pl[plcount].append()
apical_dendrite[87] pl[plcount].append()
apical_dendrite[88] pl[plcount].append()
apical_dendrite[89] pl[plcount].append()
opl[plcount]=new ObliquePath(pl[plcount])



plcount=plcount+1
pl[plcount]=new SectionList()
apical_dendrite[83] pl[plcount].append()
apical_dendrite[84] pl[plcount].append()
apical_dendrite[85] pl[plcount].append()
apical_dendrite[87] pl[plcount].append()
apical_dendrite[88] pl[plcount].append()
apical_dendrite[90] pl[plcount].append()
opl[plcount]=new ObliquePath(pl[plcount])

plcount=plcount+1
pl[plcount]=new SectionList()
apical_dendrite[83] pl[plcount].append()
apical_dendrite[84] pl[plcount].append()
apical_dendrite[85] pl[plcount].append()
apical_dendrite[87] pl[plcount].append()
apical_dendrite[91] pl[plcount].append()
opl[plcount]=new ObliquePath(pl[plcount])

plcount=plcount+1
pl[plcount]=new SectionList()
apical_dendrite[83] pl[plcount].append()
apical_dendrite[84] pl[plcount].append()
apical_dendrite[92] pl[plcount].append()
apical_dendrite[93] pl[plcount].append()
opl[plcount]=new ObliquePath(pl[plcount])

plcount=plcount+1
pl[plcount]=new SectionList()
apical_dendrite[83] pl[plcount].append()
apical_dendrite[84] pl[plcount].append()
apical_dendrite[92] pl[plcount].append()
apical_dendrite[94] pl[plcount].append()
opl[plcount]=new ObliquePath(pl[plcount])

plcount=plcount+1
pl[plcount]=new SectionList()
apical_dendrite[95] pl[plcount].append()
apical_dendrite[96] pl[plcount].append()
apical_dendrite[97] pl[plcount].append()
opl[plcount]=new ObliquePath(pl[plcount])

plcount=plcount+1
pl[plcount]=new SectionList()
apical_dendrite[95] pl[plcount].append()
apical_dendrite[96] pl[plcount].append()
apical_dendrite[98] pl[plcount].append()
apical_dendrite[99] pl[plcount].append()
opl[plcount]=new ObliquePath(pl[plcount])

plcount=plcount+1
pl[plcount]=new SectionList()
apical_dendrite[95] pl[plcount].append()
apical_dendrite[96] pl[plcount].append()
apical_dendrite[98] pl[plcount].append()
apical_dendrite[100] pl[plcount].append()
apical_dendrite[101] pl[plcount].append()
opl[plcount]=new ObliquePath(pl[plcount])

plcount=plcount+1
pl[plcount]=new SectionList()
apical_dendrite[95] pl[plcount].append()
apical_dendrite[96] pl[plcount].append()
apical_dendrite[98] pl[plcount].append()
apical_dendrite[100] pl[plcount].append()
apical_dendrite[102] pl[plcount].append()
opl[plcount]=new ObliquePath(pl[plcount])

plcount=plcount+1
pl[plcount]=new SectionList()
apical_dendrite[104] pl[plcount].append()
apical_dendrite[105] pl[plcount].append()
opl[plcount]=new ObliquePath(pl[plcount])

plcount=plcount+1
pl[plcount]=new SectionList()
apical_dendrite[41] pl[plcount].append()
apical_dendrite[107] pl[plcount].append()
opl[plcount]=new ObliquePath(pl[plcount])

plcount=plcount+1
pl[plcount]=new SectionList()
apical_dendrite[26] pl[plcount].append()
apical_dendrite[108] pl[plcount].append()
opl[plcount]=new ObliquePath(pl[plcount])

plcount=plcount+1
pl[plcount]=new SectionList()
apical_dendrite[26] pl[plcount].append()
apical_dendrite[109] pl[plcount].append()
apical_dendrite[110] pl[plcount].append()
opl[plcount]=new ObliquePath(pl[plcount])

plcount=plcount+1
pl[plcount]=new SectionList()
apical_dendrite[26] pl[plcount].append()
apical_dendrite[109] pl[plcount].append()
apical_dendrite[111] pl[plcount].append()
opl[plcount]=new ObliquePath(pl[plcount])

plcount=plcount+1
pl[plcount]=new SectionList()
apical_dendrite[22] pl[plcount].append()
apical_dendrite[112] pl[plcount].append()
opl[plcount]=new ObliquePath(pl[plcount])

plcount=plcount+1
pl[plcount]=new SectionList()
apical_dendrite[15] pl[plcount].append()
apical_dendrite[113] pl[plcount].append()
apical_dendrite[114] pl[plcount].append()
opl[plcount]=new ObliquePath(pl[plcount])

plcount=plcount+1
pl[plcount]=new SectionList()
apical_dendrite[15] pl[plcount].append()
apical_dendrite[113] pl[plcount].append()
apical_dendrite[115] pl[plcount].append()
opl[plcount]=new ObliquePath(pl[plcount])

plcount=plcount+1
pl[plcount]=new SectionList()
apical_dendrite[64] pl[plcount].append()
apical_dendrite[106] pl[plcount].append()
opl[plcount]=new ObliquePath(pl[plcount])
}

//------------
//basal-paths.hoc 
//------------

proc cell_analysis_basal() {

blcount=0
bl[blcount]=new SectionList()
dendrite[0] bl[blcount].append()
dendrite[16] bl[blcount].append()
obl[blcount]=new BasalPath(bl[blcount])

blcount=blcount + 1
bl[blcount]=new SectionList()
dendrite[0] bl[blcount].append()
dendrite[1] bl[blcount].append()
dendrite[2] bl[blcount].append()
dendrite[3] bl[blcount].append()
dendrite[4] bl[blcount].append()
dendrite[5] bl[blcount].append()
obl[blcount]=new BasalPath(bl[blcount])


blcount=blcount + 1
bl[blcount]=new SectionList()
dendrite[0] bl[blcount].append()
dendrite[1] bl[blcount].append()
dendrite[2] bl[blcount].append()
dendrite[3] bl[blcount].append()
dendrite[4] bl[blcount].append()
dendrite[6] bl[blcount].append()
obl[blcount]=new BasalPath(bl[blcount])

blcount=blcount + 1
bl[blcount]=new SectionList()
dendrite[0] bl[blcount].append()
dendrite[1] bl[blcount].append()
dendrite[2] bl[blcount].append()
dendrite[3] bl[blcount].append()
dendrite[7] bl[blcount].append()
obl[blcount]=new BasalPath(bl[blcount])


blcount=blcount + 1
bl[blcount]=new SectionList()
dendrite[0] bl[blcount].append()
dendrite[1] bl[blcount].append()
dendrite[2] bl[blcount].append()
dendrite[8] bl[blcount].append()
obl[blcount]=new BasalPath(bl[blcount])

blcount=blcount + 1
bl[blcount]=new SectionList()
dendrite[0] bl[blcount].append()
dendrite[1] bl[blcount].append()
dendrite[2] bl[blcount].append()
dendrite[9] bl[blcount].append()
dendrite[10] bl[blcount].append()
dendrite[11] bl[blcount].append()
obl[blcount]=new BasalPath(bl[blcount])

blcount=blcount + 1
bl[blcount]=new SectionList()
dendrite[0] bl[blcount].append()
dendrite[1] bl[blcount].append()
dendrite[2] bl[blcount].append()
dendrite[9] bl[blcount].append()
dendrite[10] bl[blcount].append()
dendrite[12] bl[blcount].append()
obl[blcount]=new BasalPath(bl[blcount])

blcount=blcount + 1
bl[blcount]=new SectionList()
dendrite[13] bl[blcount].append()
dendrite[14] bl[blcount].append()
obl[blcount]=new BasalPath(bl[blcount])

blcount=blcount + 1
bl[blcount]=new SectionList()
dendrite[54] bl[blcount].append()
dendrite[55] bl[blcount].append()
dendrite[57] bl[blcount].append()
dendrite[13] bl[blcount].append()
dendrite[15] bl[blcount].append()
obl[blcount]=new BasalPath(bl[blcount])

blcount=blcount + 1
bl[blcount]=new SectionList()
dendrite[15] bl[blcount].append()
dendrite[17] bl[blcount].append()
obl[blcount]=new BasalPath(bl[blcount])


blcount=blcount + 1
bl[blcount]=new SectionList()
dendrite[23] bl[blcount].append()
dendrite[24] bl[blcount].append()
dendrite[25] bl[blcount].append()
obl[blcount]=new BasalPath(bl[blcount])


blcount=blcount + 1
bl[blcount]=new SectionList()
dendrite[23] bl[blcount].append()
dendrite[24] bl[blcount].append()
dendrite[26] bl[blcount].append()
dendrite[27] bl[blcount].append()
obl[blcount]=new BasalPath(bl[blcount])

blcount=blcount + 1
bl[blcount]=new SectionList()
dendrite[23] bl[blcount].append()
dendrite[24] bl[blcount].append()
dendrite[26] bl[blcount].append()
dendrite[28] bl[blcount].append()
obl[blcount]=new BasalPath(bl[blcount])

blcount=blcount + 1
bl[blcount]=new SectionList()
dendrite[23] bl[blcount].append()
dendrite[29] bl[blcount].append()
obl[blcount]=new BasalPath(bl[blcount])

blcount=blcount + 1
bl[blcount]=new SectionList()
dendrite[35] bl[blcount].append()
dendrite[36] bl[blcount].append()
dendrite[37] bl[blcount].append()
dendrite[38] bl[blcount].append()
obl[blcount]=new BasalPath(bl[blcount])

blcount=blcount + 1
bl[blcount]=new SectionList()
dendrite[35] bl[blcount].append()
dendrite[36] bl[blcount].append()
dendrite[37] bl[blcount].append()
dendrite[39] bl[blcount].append()
dendrite[40] bl[blcount].append()
obl[blcount]=new BasalPath(bl[blcount])


blcount=blcount + 1
bl[blcount]=new SectionList()
dendrite[35] bl[blcount].append()
dendrite[36] bl[blcount].append()
dendrite[37] bl[blcount].append()
dendrite[39] bl[blcount].append()
dendrite[41] bl[blcount].append()
obl[blcount]=new BasalPath(bl[blcount])

blcount=blcount + 1
bl[blcount]=new SectionList()
dendrite[35] bl[blcount].append()
dendrite[36] bl[blcount].append()
dendrite[42] bl[blcount].append()
dendrite[43] bl[blcount].append()
dendrite[44] bl[blcount].append()
dendrite[45] bl[blcount].append()
dendrite[46] bl[blcount].append()
obl[blcount]=new BasalPath(bl[blcount])

blcount=blcount + 1
bl[blcount]=new SectionList()
dendrite[35] bl[blcount].append()
dendrite[36] bl[blcount].append()
dendrite[42] bl[blcount].append()
dendrite[43] bl[blcount].append()
dendrite[44] bl[blcount].append()
dendrite[45] bl[blcount].append()
dendrite[47] bl[blcount].append()
obl[blcount]=new BasalPath(bl[blcount])

blcount=blcount + 1
bl[blcount]=new SectionList()
dendrite[35] bl[blcount].append()
dendrite[36] bl[blcount].append()
dendrite[49] bl[blcount].append()
obl[blcount]=new BasalPath(bl[blcount])

blcount=blcount + 1
bl[blcount]=new SectionList()
dendrite[35] bl[blcount].append()
dendrite[36] bl[blcount].append()
dendrite[50] bl[blcount].append()
obl[blcount]=new BasalPath(bl[blcount])


blcount=blcount + 1
bl[blcount]=new SectionList()
dendrite[35] bl[blcount].append()
dendrite[51] bl[blcount].append()
dendrite[52] bl[blcount].append()
obl[blcount]=new BasalPath(bl[blcount])

blcount=blcount + 1
bl[blcount]=new SectionList()
dendrite[35] bl[blcount].append()
dendrite[51] bl[blcount].append()
dendrite[53] bl[blcount].append()
obl[blcount]=new BasalPath(bl[blcount])


blcount=blcount + 1
bl[blcount]=new SectionList()
dendrite[54] bl[blcount].append()
dendrite[56] bl[blcount].append()
obl[blcount]=new BasalPath(bl[blcount])

blcount=blcount + 1
bl[blcount]=new SectionList()
dendrite[54] bl[blcount].append()
dendrite[55] bl[blcount].append()
dendrite[57] bl[blcount].append()
obl[blcount]=new BasalPath(bl[blcount])

blcount=blcount + 1
bl[blcount]=new SectionList()
dendrite[54] bl[blcount].append()
dendrite[58] bl[blcount].append()
obl[blcount]=new BasalPath(bl[blcount])


}


//--------------------------------------------------
//topolgy
//cell.hoc
//--------------------------------------------------

proc topol() {
  topol0()
  topol1()
  topol2()
  topol3()
  topol4()
  topol5()
  topol6()
  topol7()
  topol8()
  topol9()
  topol10()
  topol11()
  topol12()
  topol13()
  topol14()
  topol15()
  topol16()
  topol17()
  topol18()
  topol19()
  topol20()
  topol21()
}



proc topol0() {

//{create soma[5]}
//{create dendrite[59]}
//{create apical_dendrite[119]}

{access soma[0]}
{pt3dclear()}
{pt3dadd(2.497,-13.006,11.13,4.58)}
{pt3dadd(2.497,-13.006,11.12,4.58)}

{soma[0] connect soma[1](0), 1}
{access soma[1]}
{pt3dclear()}
{pt3dadd(2.497,-13.006,11.12,4.58)}
{pt3dadd(1.954,-10.542,18.72,6.14)}
{pt3dadd(1.785,-8.96,18.72,6.46)}
{pt3dadd(1.423,-7.729,15.84,6.46)}
{pt3dadd(1.423,-7.559,15.84,6.46)}
{pt3dadd(1.242,-6.508,15.84,7.4)}
{pt3dadd(1.073,-5.277,15.92,8.038)}
{pt3dadd(0.531,-3.695,16,10.56)}
{pt3dadd(0.18,-2.632,16,11.5)}
{pt3dadd(-0.18,-1.762,16,12.14)}
{pt3dadd(-0.361,-1.231,16.079,12.76)}
{pt3dadd(-0.361,-1.05,16.079,12.76)}
{pt3dadd(-0.711,-0.35,16.079,12.76)}
{pt3dadd(-0.531,0.7,16.079,12.76)}
{pt3dadd(-0.531,1.932,16.16,12.46)}

{soma[1] connect soma[2](0), 1}
{access soma[2]}
{pt3dclear()}
{pt3dadd(-0.531,1.932,16.16,12.46)}
{pt3dadd(0.006,1.146,20.406,1.4)}

{soma[2] connect dendrite[0](0), 1}
{access dendrite[0]}
{pt3dclear()}
{pt3dadd(0.006,1.146,20.406,1.4)}
{pt3dadd(-5.875,-0.531,25.44,1.1)}

{dendrite[0] connect dendrite[1](0), 1}
{access dendrite[1]}
{pt3dclear()}
{pt3dadd(-5.875,-0.531,25.44,1.1)}
{pt3dadd(-5.875,1.762,29.44,0.8)}
{pt3dadd(-6.599,1.762,29.44,0.8)}
{pt3dadd(-7.311,1.932,29.44,0.8)}
{pt3dadd(-7.48,1.932,29.44,0.8)}
{pt3dadd(-8.023,1.401,29.36,0.8)}
{pt3dadd(-8.373,1.231,29.36,0.8)}
{pt3dadd(-9.085,0.531,29.28,0.8)}
{pt3dadd(-9.265,0.531,29.28,0.8)}
{pt3dadd(-10.339,0.18,29.2,0.8)}
{pt3dadd(-10.52,0.18,29.12,0.8)}
{pt3dadd(-11.582,1.401,34.32,0.8)}
{pt3dadd(-11.944,1.581,34.08,0.8)}

{dendrite[1] connect dendrite[2](0), 1}
{access dendrite[2]}
{pt3dclear()}
{pt3dadd(-11.944,1.581,34.08,0.8)}
{pt3dadd(-11.232,2.632,34.08,1.1)}

{dendrite[2] connect dendrite[3](0), 1}
{access dendrite[3]}
{pt3dclear()}
{pt3dadd(-11.232,2.632,34.08,1.1)}
{pt3dadd(-11.232,2.632,34.12,0.8)}
{pt3dadd(-10.87,3.514,20,0.8)}
{pt3dadd(-10.689,3.864,19.92,0.8)}
{pt3dadd(-9.797,5.277,19.04,0.8)}
{pt3dadd(-9.797,5.446,19.04,0.8)}
{pt3dadd(-9.085,6.147,18.8,0.8)}
{pt3dadd(-9.085,6.327,20.32,0.8)}
{pt3dadd(-9.085,6.508,41.6,0.8)}
{pt3dadd(-9.085,6.678,41.68,0.8)}
{pt3dadd(-9.446,7.209,42.56,0.8)}
{pt3dadd(-9.446,7.378,42.72,0.8)}
{pt3dadd(-9.627,7.378,42.96,0.8)}
{pt3dadd(-9.977,7.559,43.28,0.8)}
{pt3dadd(-9.977,7.729,43.36,0.8)}
{pt3dadd(-9.977,7.729,24.24,0.8)}

{dendrite[3] connect dendrite[4](0), 1}
{access dendrite[4]}
{pt3dclear()}
{pt3dadd(-9.977,7.729,24.24,0.8)}
{pt3dadd(-11.763,8.26,21.84,0.8)}
{pt3dadd(-11.944,8.26,20.64,0.8)}
{pt3dadd(-11.763,8.441,1.76,0.8)}
{pt3dadd(-11.582,8.441,1.76,0.8)}
{pt3dadd(-10.689,9.311,1.76,0.8)}
{pt3dadd(-10.339,9.672,1.76,0.8)}
{pt3dadd(-9.977,10.373,0.24,0.8)}
{pt3dadd(-10.158,10.723,0,0.8)}
{pt3dadd(-10.339,11.074,-0.08,0.8)}
{pt3dadd(-11.401,12.124,-0.88,0.8)}
{pt3dadd(-11.582,12.655,-0.96,0.8)}
{pt3dadd(-11.582,13.187,-0.96,0.8)}
{pt3dadd(-11.763,13.356,-0.96,0.8)}

{dendrite[4] connect dendrite[5](0), 1}
{access dendrite[5]}
{pt3dclear()}
{pt3dadd(-11.763,13.356,-0.96,0.8)}
{pt3dadd(-11.763,13.356,-0.919,1.1)}
{pt3dadd(-9.977,15.639,10.16,1.1)}
{pt3dadd(-9.977,15.819,10.16,1.1)}
{pt3dadd(-10.158,17.401,9.04,1.1)}
{pt3dadd(-10.158,17.582,7.28,1.1)}
{pt3dadd(-11.763,18.984,-9.12,1.1)}
{pt3dadd(-11.763,19.334,-9.2,1.1)}
{pt3dadd(-11.944,22.848,-9.44,1.1)}
{pt3dadd(-11.763,22.848,-10.32,1.1)}
{pt3dadd(-9.446,25.311,-17.04,1.1)}
{pt3dadd(-9.446,25.843,-17.28,1.1)}
{pt3dadd(-9.627,29.526,-22.72,1.1)}
{pt3dadd(-10.689,30.758,-24.72,1.1)}
{pt3dadd(-10.87,30.939,-24.88,1.1)}
{pt3dadd(-12.113,34.623,-28.08,1.1)}
{pt3dadd(-12.113,34.803,-28.08,1.1)}
{pt3dadd(-12.113,36.386,-37.2,1.1)}
{pt3dadd(-12.113,36.555,-37.28,1.1)}
{pt3dadd(-11.944,39.199,-37.36,1.1)}
{pt3dadd(-11.944,39.199,-37.28,1.1)}

{dendrite[4] connect dendrite[6](0), 1}
{access dendrite[6]}
{pt3dclear()}
{pt3dadd(-11.763,13.356,-0.96,0.8)}
{pt3dadd(-12.836,14.237,12.32,0.8)}
{pt3dadd(-14.441,15.288,12.16,1.1)}
{pt3dadd(-15.153,16.52,11.6,1.1)}
{pt3dadd(-15.153,16.701,11.36,1.1)}
{pt3dadd(-15.153,16.87,10.72,1.1)}
{pt3dadd(-14.791,17.401,7.68,1.1)}
{pt3dadd(-14.61,17.582,6.64,1.1)}
{pt3dadd(-13.718,18.633,-8.08,1.1)}
{pt3dadd(-13.899,18.803,-8.32,1.1)}
{pt3dadd(-14.61,19.334,-9.12,1.1)}
{pt3dadd(-14.791,19.334,-9.44,1.1)}
{pt3dadd(-14.791,20.566,-12.88,1.1)}
{pt3dadd(-14.791,20.735,-12.88,1.1)}
{pt3dadd(-14.791,22.317,-19.2,1.1)}
{pt3dadd(-14.791,22.498,-19.2,1.1)}
{pt3dadd(-15.322,23.729,-19.36,1.1)}
{pt3dadd(-15.322,24.08,-19.68,1.1)}
{pt3dadd(-15.153,24.261,-20.08,1.1)}
{pt3dadd(-15.153,25.131,-20.16,1.1)}
{pt3dadd(-14.791,25.843,-20.16,1.1)}
{pt3dadd(-14.791,26.543,-28.32,1.1)}
{pt3dadd(-14.791,26.713,-28.32,1.1)}
{pt3dadd(-15.684,28.125,-32.88,1.1)}
{pt3dadd(-16.034,28.295,-32.88,1.1)}
{pt3dadd(-16.927,29.526,-35.6,1.1)}
{pt3dadd(-17.108,29.707,-35.76,1.1)}
{pt3dadd(-18.181,31.108,-35.68,1.1)}
{pt3dadd(-18.351,31.459,-35.84,1.1)}
{pt3dadd(-18.893,31.99,-36.96,1.1)}
{pt3dadd(-19.074,31.99,-37.44,1.1)}
{pt3dadd(-19.605,34.453,-41.2,1.1)}
{pt3dadd(-19.424,34.453,-41.2,1.1)}
{pt3dadd(-19.424,34.623,-41.2,1.1)}

{dendrite[3] connect dendrite[7](0), 1}
{access dendrite[7]}
{pt3dclear()}
{pt3dadd(-9.977,7.729,24.24,0.8)}
{pt3dadd(-9.977,7.729,24.279,1.1)}
{pt3dadd(-9.977,8.26,0.08,1.1)}
{pt3dadd(-9.977,8.441,0.56,1.1)}
{pt3dadd(-10.339,8.791,14.72,1.1)}
{pt3dadd(-10.339,8.96,16.079,1.1)}
{pt3dadd(-11.401,9.311,34.8,1.1)}
{pt3dadd(-11.582,9.311,35.12,1.1)}
{pt3dadd(-12.655,10.723,39.76,1.1)}
{pt3dadd(-12.655,10.893,40.16,1.1)}
{pt3dadd(-13.187,12.305,39.84,1.1)}
{pt3dadd(-14.441,12.836,15.28,1.1)}
{pt3dadd(-15.865,13.706,12.56,1.1)}
{pt3dadd(-15.865,13.887,12.56,1.1)}
{pt3dadd(-15.153,14.057,3.52,1.1)}
{pt3dadd(-14.791,14.418,3.52,1.1)}
{pt3dadd(-14.26,14.938,2.8,1.1)}
{pt3dadd(-14.079,15.469,2.56,1.1)}
{pt3dadd(-14.079,16,2.08,1.1)}
{pt3dadd(-14.441,16.351,-0.64,1.1)}
{pt3dadd(-14.61,16.52,-0.8,1.1)}
{pt3dadd(-15.322,17.221,-2.96,1.1)}
{pt3dadd(-15.322,17.582,-3.28,1.1)}
{pt3dadd(-15.153,17.752,-3.84,1.1)}
{pt3dadd(-14.441,18.803,-10,1.1)}
{pt3dadd(-14.441,18.984,-10.32,1.1)}
{pt3dadd(-15.684,20.215,-12.32,1.1)}
{pt3dadd(-16.034,20.566,-12.48,1.1)}
{pt3dadd(-16.034,21.097,-12.96,1.1)}
{pt3dadd(-16.215,21.447,-0.56,1.1)}

{dendrite[2] connect dendrite[8](0), 1}
{access dendrite[8]}
{pt3dclear()}
{pt3dadd(-11.232,2.632,34.08,1.1)}
{pt3dadd(-12.475,2.813,35.76,1.1)}
{pt3dadd(-12.294,4.045,40.8,1.1)}
{pt3dadd(-12.294,4.214,42.88,1.1)}
{pt3dadd(-12.475,5.096,46.24,1.1)}
{pt3dadd(-12.655,5.096,41.52,1.1)}
{pt3dadd(-13.718,5.277,35.44,1.1)}
{pt3dadd(-13.899,5.277,34.64,1.1)}
{pt3dadd(-14.791,5.277,29.28,1.1)}
{pt3dadd(-14.972,5.277,28.72,1.1)}
{pt3dadd(-16.215,5.627,22.4,1.1)}
{pt3dadd(-16.215,5.796,22.4,1.1)}
{pt3dadd(-16.034,7.909,18.56,1.1)}
{pt3dadd(-16.034,8.09,18.56,1.1)}
{pt3dadd(-16.396,8.26,18.48,1.1)}
{pt3dadd(-16.757,8.441,18.48,1.1)}
{pt3dadd(-16.927,8.441,17.68,1.1)}
{pt3dadd(-18.893,8.26,11.76,1.1)}
{pt3dadd(-19.243,8.09,11.76,1.1)}
{pt3dadd(-20.679,7.909,9.04,1.1)}
{pt3dadd(-20.679,7.729,8,1.1)}
{pt3dadd(-21.921,7.559,6.96,1.1)}
{pt3dadd(-22.102,7.559,6.96,1.1)}
{pt3dadd(-23.165,7.559,0.96,1.1)}
{pt3dadd(-23.345,7.559,0.4,1.1)}
{pt3dadd(-24.057,7.729,-0.32,1.1)}
{pt3dadd(-24.238,7.729,-0.32,1.1)}
{pt3dadd(-27.266,12.305,-8,1.1)}
{pt3dadd(-27.447,12.475,-8,1.1)}
{pt3dadd(-30.295,12.475,-24.48,1.1)}
{pt3dadd(-30.295,12.655,-24.48,1.1)}
{pt3dadd(-31.188,13.006,-29.52,1.1)}
{pt3dadd(-31.368,13.187,-29.68,1.1)}
{pt3dadd(-32.261,13.356,-31.84,1.1)}
{pt3dadd(-32.611,13.356,-32.479,1.1)}
{pt3dadd(-33.866,13.356,-34.64,1.1)}
{pt3dadd(-34.035,13.356,-34.72,1.1)}
{pt3dadd(-36.713,14.237,-35.28,1.1)}
{pt3dadd(-36.894,14.237,-35.68,1.1)}
{pt3dadd(-38.137,15.119,-15.2,1.1)}
{pt3dadd(-38.499,15.119,-15.2,1.1)}
{pt3dadd(-41.165,15.469,-15.2,1.1)}
{pt3dadd(-41.346,15.469,-15.2,1.1)}
{pt3dadd(-43.132,16.52,-15.2,1.1)}
{pt3dadd(-43.312,16.701,-15.2,1.1)}
{pt3dadd(-45.798,18.102,-15.2,1.1)}
{pt3dadd(-45.979,18.102,-15.2,1.1)}
{pt3dadd(-48.657,18.633,-15.2,1.1)}
{pt3dadd(-55.607,17.582,-15.2,1.1)}
{pt3dadd(-59.347,19.334,-39.04,1.1)}
{pt3dadd(-59.528,19.334,-38.8,1.1)}
{pt3dadd(-64.161,20.735,-52.64,1.1)}
{pt3dadd(-64.342,20.735,-52.64,1.1)}
{pt3dadd(-63.98,22.317,-53.92,1.1)}
{pt3dadd(-63.98,22.848,-54.4,1.1)}
{pt3dadd(-65.765,23.899,-54.8,1.1)}
{pt3dadd(-66.297,23.729,-54.8,1.1)}
{pt3dadd(-67.901,22.848,-58.96,1.1)}
{pt3dadd(-68.263,22.498,-58.88,1.1)}
{pt3dadd(-69.144,22.679,-58.88,1.1)}
{pt3dadd(-69.506,22.848,-58.88,1.1)}
{pt3dadd(-70.218,24.611,-58.88,1.1)}
{pt3dadd(-70.218,25.311,-58.88,1.1)}
{pt3dadd(-70.93,27.425,-58.88,1.1)}
{pt3dadd(-71.822,27.425,-58.88,1.1)}
{pt3dadd(-73.246,26.713,-58.88,1.1)}
{pt3dadd(-73.608,26.543,-58.96,1.1)}
{pt3dadd(-75.382,27.594,-58.96,1.1)}
{pt3dadd(-75.563,27.775,-58.96,1.1)}
{pt3dadd(-75.032,31.639,-58.96,1.1)}
{pt3dadd(-75.212,31.99,-58.96,1.1)}
{pt3dadd(-77.698,32.171,-67.12,1.1)}
{pt3dadd(-78.241,32.171,-67.12,1.1)}
{pt3dadd(-81.45,33.221,-67.44,1.1)}
{pt3dadd(-81.45,33.391,-67.68,1.1)}
{pt3dadd(-84.478,36.736,-68.8,1.1)}
{pt3dadd(-84.659,36.736,-68.8,1.1)}
{pt3dadd(-87.326,36.736,-71.36,1.1)}
{pt3dadd(-87.507,36.736,-71.52,1.1)}
{pt3dadd(-87.507,38.499,-71.36,1.1)}
{pt3dadd(-87.687,38.668,-71.92,1.1)}
{pt3dadd(-89.111,39.018,-74.16,1.1)}
{pt3dadd(-89.292,39.018,-74.24,1.1)}
{pt3dadd(-90.535,40.951,-78.56,1.1)}
{pt3dadd(-90.716,41.132,-79.2,1.1)}
{pt3dadd(-93.744,42.363,-83.28,1.1)}
{pt3dadd(-97.134,45.878,-91.76,1.1)}
{pt3dadd(-97.304,45.878,-92.8,1.1)}
{pt3dadd(-100.694,47.279,-99.28,1.1)}
{pt3dadd(-100.875,47.991,-99.28,1.1)}
{pt3dadd(-103.191,49.041,-107.6,1.1)}
{pt3dadd(-104.084,49.041,-108,1.1)}
{pt3dadd(-105.508,49.211,-109.92,1.1)}
{pt3dadd(-106.039,49.041,-110,1.1)}
{pt3dadd(-108.355,48.691,-118.24,1.1)}
{pt3dadd(-109.248,48.51,-118.32,1.1)}
{pt3dadd(-111.745,48.16,-118.32,1.1)}
{pt3dadd(-112.095,47.81,-118.32,1.1)}
{pt3dadd(-115.124,47.81,-118.32,1.1)}
{pt3dadd(-115.485,47.991,-118.24,1.1)}

{dendrite[1] connect dendrite[9](0), 1}
{access dendrite[9]}
{pt3dclear()}
{pt3dadd(-11.944,1.581,34.08,0.8)}
{pt3dadd(-11.944,1.581,34.12,1.1)}
{pt3dadd(-12.655,1.401,35.44,1.1)}
{pt3dadd(-13.899,2.282,59.6,1.1)}
{pt3dadd(-15.153,2.632,52.64,1.1)}
{pt3dadd(-16.757,3.163,54.56,1.1)}
{pt3dadd(-16.927,3.163,57.12,1.1)}
{pt3dadd(-16.396,4.565,72.64,1.1)}
{pt3dadd(-16.215,4.926,72.64,1.1)}
{pt3dadd(-15.503,6.147,72.64,1.1)}
{pt3dadd(-15.503,6.508,72.64,1.1)}
{pt3dadd(-16.396,7.729,72.64,1.1)}
{pt3dadd(-16.396,7.909,72.56,1.1)}
{pt3dadd(-18.351,8.61,72.56,1.1)}
{pt3dadd(-18.531,8.791,72.56,1.1)}
{pt3dadd(-19.786,9.141,72.56,1.1)}
{pt3dadd(-19.955,9.141,72.56,1.1)}
{pt3dadd(-18.893,12.305,72.56,1.1)}
{pt3dadd(-18.893,12.655,72.56,1.1)}
{pt3dadd(-19.605,13.887,72.56,1.1)}
{pt3dadd(-19.424,14.237,72.72,1.1)}

{dendrite[9] connect dendrite[10](0), 1}
{access dendrite[10]}
{pt3dclear()}
{pt3dadd(-19.424,14.237,72.72,1.1)}
{pt3dadd(-18.712,15.819,72.72,1.1)}
{pt3dadd(-18.712,16,72.72,1.1)}
{pt3dadd(-18.351,17.933,60.96,1.1)}
{pt3dadd(-18.351,18.102,58.4,1.1)}
{pt3dadd(-18,20.385,79.84,1.1)}
{pt3dadd(-18,20.916,80.08,1.1)}
{pt3dadd(-17.82,21.266,80.16,1.1)}
{pt3dadd(-19.424,22.498,80.24,1.1)}
{pt3dadd(-19.605,22.848,80.32,1.1)}
{pt3dadd(-19.605,23.029,80.32,1.1)}
{pt3dadd(-19.424,24.08,79.2,1.1)}
{pt3dadd(-19.243,24.08,78.08,1.1)}
{pt3dadd(-19.243,24.43,76.4,1.1)}
{pt3dadd(-19.074,25.131,71.44,1.1)}
{pt3dadd(-19.955,25.662,56.48,1.1)}
{pt3dadd(-21.21,26.193,56.72,1.1)}
{pt3dadd(-20.848,26.894,70,1.1)}

}

//---------------
proc topol1() {

{dendrite[10] connect dendrite[11](0), 1}
{access dendrite[11]}
{pt3dclear()}
{pt3dadd(-20.848,26.894,70,1.1)}
{pt3dadd(-20.848,26.894,70.04,0.8)}
{pt3dadd(-22.272,27.944,70,0.8)}
{pt3dadd(-22.453,27.944,70,0.8)}
{pt3dadd(-23.526,29.176,70,0.8)}
{pt3dadd(-23.707,29.707,46.48,0.8)}
{pt3dadd(-23.707,29.877,46.48,0.8)}
{pt3dadd(-23.876,31.459,44.48,0.8)}
{pt3dadd(-23.876,31.809,44.16,0.8)}
{pt3dadd(-24.238,32.871,42.88,0.8)}
{pt3dadd(-24.238,33.391,42.48,0.8)}
{pt3dadd(-24.95,34.623,41.76,0.8)}
{pt3dadd(-25.131,34.973,41.52,0.8)}
{pt3dadd(-25.131,36.205,39.44,0.8)}
{pt3dadd(-24.95,36.555,39.36,0.8)}
{pt3dadd(-24.588,37.267,39.36,0.8)}
{pt3dadd(-23.707,38.668,39.2,0.8)}
{pt3dadd(-23.526,39.369,38.4,0.8)}
{pt3dadd(-23.526,40.951,33.84,0.8)}
{pt3dadd(-23.526,41.132,33.44,0.8)}
{pt3dadd(-23.526,41.482,33.6,0.8)}
{pt3dadd(-23.707,42.533,33.44,0.8)}
{pt3dadd(-23.876,42.883,32.64,0.8)}
{pt3dadd(-23.876,43.414,31.76,0.8)}
{pt3dadd(-24.238,44.996,27.76,0.8)}
{pt3dadd(-24.238,45.346,27.68,0.8)}
{pt3dadd(-24.588,46.578,26.64,0.8)}
{pt3dadd(-24.588,46.928,25.68,0.8)}
{pt3dadd(-24.769,47.109,24.8,0.8)}
{pt3dadd(-25.311,47.81,22.8,0.8)}
{pt3dadd(-25.481,47.81,22.8,0.8)}
{pt3dadd(-25.662,48.341,22.8,0.8)}
{pt3dadd(-26.193,49.041,22.32,0.8)}
{pt3dadd(-26.193,49.211,22.08,0.8)}
{pt3dadd(-26.193,49.923,20.8,0.8)}
{pt3dadd(-26.023,50.273,20.64,0.8)}
{pt3dadd(-25.481,50.793,20.24,0.8)}
{pt3dadd(-25.311,50.974,19.2,0.8)}
{pt3dadd(-24.769,51.674,15.44,0.8)}
{pt3dadd(-24.588,52.025,15.52,0.8)}
{pt3dadd(-24.588,52.556,15.6,0.8)}
{pt3dadd(-25.481,52.906,14.08,0.8)}
{pt3dadd(-25.481,53.087,12.8,0.8)}
{pt3dadd(-26.023,53.256,10.56,0.8)}
{pt3dadd(-26.554,53.437,10.4,0.8)}
{pt3dadd(-28.159,53.437,8.64,0.8)}
{pt3dadd(-29.233,53.788,8.48,0.8)}
{pt3dadd(-29.402,53.957,8.48,0.8)}
{pt3dadd(-30.476,54.669,6.56,0.8)}
{pt3dadd(-30.656,54.669,5.76,0.8)}
{pt3dadd(-31.368,55.189,0.48,0.8)}
{pt3dadd(-31.549,55.539,0,0.8)}
{pt3dadd(-31.368,56.251,-4.96,0.8)}
{pt3dadd(-31.188,56.42,-4.96,0.8)}
{pt3dadd(-31.719,56.951,-9.92,0.8)}
{pt3dadd(-31.899,57.121,-10.4,0.8)}
{pt3dadd(-32.43,58.002,-10.4,0.8)}
{pt3dadd(-32.43,58.703,-10.4,0.8)}
{pt3dadd(-32.973,59.935,-14.24,0.8)}
{pt3dadd(-33.154,60.116,-14.64,0.8)}
{pt3dadd(-33.685,60.285,-17.84,0.8)}
{pt3dadd(-33.866,60.285,-18.24,0.8)}
{pt3dadd(-34.216,60.466,-18.56,0.8)}
{pt3dadd(-35.64,60.466,-19.04,0.8)}
{pt3dadd(-36.001,60.466,-19.04,0.8)}
{pt3dadd(-36.894,60.466,-19.04,0.8)}
{pt3dadd(-37.075,60.466,-19.84,0.8)}
{pt3dadd(-37.787,61.697,-24.16,0.8)}
{pt3dadd(-37.787,61.867,-24.16,0.8)}
{pt3dadd(-38.137,62.398,-25.76,0.8)}
{pt3dadd(-38.318,62.398,-26.4,0.8)}
{pt3dadd(-38.318,62.748,-29.28,0.8)}
{pt3dadd(-38.318,63.099,-29.28,0.8)}
{pt3dadd(-38.137,63.98,-29.28,0.8)}
{pt3dadd(-38.137,64.33,-29.44,0.8)}
{pt3dadd(-39.03,64.861,-29.76,0.8)}
{pt3dadd(-39.211,65.031,-29.84,0.8)}
{pt3dadd(-39.742,65.381,-33.04,0.8)}
{pt3dadd(-39.742,65.562,-33.68,0.8)}
{pt3dadd(-39.211,66.963,-33.84,0.8)}
{pt3dadd(-39.03,67.494,-33.84,0.8)}
{pt3dadd(-40.273,68.376,-38.08,0.8)}
{pt3dadd(-40.453,68.376,-38.64,0.8)}
{pt3dadd(-40.985,68.907,-38.96,0.8)}
{pt3dadd(-40.985,69.257,-38.96,0.8)}
{pt3dadd(-40.634,70.127,-41.36,0.8)}
{pt3dadd(-40.273,70.658,-41.84,0.8)}
{pt3dadd(-40.103,71.359,-41.92,0.8)}
{pt3dadd(-40.103,71.54,-42.08,0.8)}
{pt3dadd(-40.273,72.071,-45.44,0.8)}
{pt3dadd(-40.453,72.24,-46.08,0.8)}
{pt3dadd(-41.708,72.941,-48.32,0.8)}
{pt3dadd(-41.708,73.122,-48.8,0.8)}
{pt3dadd(-41.877,73.653,-50.56,0.8)}
{pt3dadd(-41.877,74.003,-50.56,0.8)}
{pt3dadd(-42.058,75.054,-51.76,0.8)}
{pt3dadd(-42.058,75.585,-52.8,0.8)}
{pt3dadd(-42.239,76.455,-62.56,0.8)}
{pt3dadd(-42.77,76.817,-65.92,0.8)}
{pt3dadd(-43.843,76.636,-62,0.8)}
{pt3dadd(-44.024,76.636,-62.24,0.8)}
{pt3dadd(-44.555,77.167,-63.68,0.8)}
{pt3dadd(-44.375,78.218,-70.32,0.8)}
{pt3dadd(-44.375,78.399,-70.32,0.8)}
{pt3dadd(-44.555,79.1,-75.76,0.8)}
{pt3dadd(-44.736,79.269,-76.24,0.8)}
{pt3dadd(-45.267,79.981,-77.28,0.8)}
{pt3dadd(-45.448,79.981,-78.24,0.8)}
{pt3dadd(-45.086,81.201,-78.96,0.8)}
{pt3dadd(-44.906,81.201,-78.96,0.8)}
{pt3dadd(-44.736,81.201,-54.48,0.8)}
{pt3dadd(-44.906,81.201,-54.48,0.8)}

{dendrite[10] connect dendrite[12](0), 1}
{access dendrite[12]}
{pt3dclear()}
{pt3dadd(-20.848,26.894,70,1.1)}
{pt3dadd(-22.453,26.894,70,1.1)}
{pt3dadd(-22.814,26.894,70,1.1)}
{pt3dadd(-23.876,27.063,69.28,1.1)}
{pt3dadd(-24.057,27.063,68.4,1.1)}
{pt3dadd(-25.131,28.125,56.88,0.8)}
{pt3dadd(-25.311,28.125,56.88,0.8)}
{pt3dadd(-25.311,29.526,56.56,0.8)}
{pt3dadd(-25.311,29.877,56.56,0.8)}
{pt3dadd(-25.481,30.939,56.16,0.8)}
{pt3dadd(-27.447,34.973,67.68,0.8)}
{pt3dadd(-27.447,35.154,67.68,0.8)}
{pt3dadd(-27.447,37.086,67.68,0.8)}
{pt3dadd(-27.266,37.787,67.68,0.8)}
{pt3dadd(-26.735,39.018,67.68,0.8)}
{pt3dadd(-27.086,39.55,67.68,0.8)}
{pt3dadd(-27.628,40.431,67.68,0.8)}
{pt3dadd(-27.628,40.951,67.68,0.8)}
{pt3dadd(-27.266,43.245,67.68,0.8)}
{pt3dadd(-27.086,44.115,68.08,0.8)}
{pt3dadd(-26.916,44.646,69.44,0.8)}
{pt3dadd(-27.266,45.346,81.68,0.8)}
{pt3dadd(-27.266,45.697,81.68,0.8)}
{pt3dadd(-28.69,47.109,81.68,0.8)}
{pt3dadd(-28.871,47.279,81.68,0.8)}
{pt3dadd(-29.402,47.81,81.68,0.8)}
{pt3dadd(-29.583,48.16,81.68,0.8)}
{pt3dadd(-29.944,49.742,81.68,0.8)}
{pt3dadd(-29.944,50.443,81.68,0.8)}
{pt3dadd(-32.08,52.025,81.68,0.8)}
{pt3dadd(-32.43,52.375,81.68,0.8)}
{pt3dadd(-33.154,53.256,81.68,0.8)}
{pt3dadd(-33.154,53.788,81.68,0.8)}
{pt3dadd(-33.154,58.183,87.6,0.8)}
{pt3dadd(-31.188,62.398,87.68,0.8)}
{pt3dadd(-31.007,62.579,88.08,0.8)}
{pt3dadd(-31.007,64.861,69.28,0.8)}
{pt3dadd(-31.007,65.212,69.28,0.8)}
{pt3dadd(-31.368,67.325,69.36,0.8)}
{pt3dadd(-31.719,68.026,69.36,0.8)}
{pt3dadd(-32.792,70.127,69.36,0.8)}
{pt3dadd(-32.973,70.839,69.28,0.8)}
{pt3dadd(-32.43,72.941,61.52,0.8)}
{pt3dadd(-32.43,73.122,61.2,0.8)}
{pt3dadd(-33.323,74.704,59.52,0.8)}
{pt3dadd(-33.323,75.054,59.52,0.8)}
{pt3dadd(-33.504,75.936,59.52,0.8)}
{pt3dadd(-33.504,76.636,59.28,0.8)}
{pt3dadd(-34.397,78.037,57.44,0.8)}
{pt3dadd(-34.577,78.218,57.2,0.8)}
{pt3dadd(-34.216,79.981,56.8,0.8)}
{pt3dadd(-34.035,80.331,56.8,0.8)}
{pt3dadd(-34.035,80.851,56.8,0.8)}
{pt3dadd(-34.577,81.913,55.6,0.8)}
{pt3dadd(-34.747,82.083,55.28,0.8)}
{pt3dadd(-34.928,82.964,54.56,0.8)}
{pt3dadd(-34.577,91.925,54.56,0.8)}
{pt3dadd(-34.397,91.925,54.56,0.8)}
{pt3dadd(-34.397,92.456,54.56,0.8)}

{dendrite[9] connect dendrite[13](0), 1}
{access dendrite[13]}
{pt3dclear()}
{pt3dadd(-19.424,14.237,72.72,1.1)}
{pt3dadd(-19.424,14.237,72.76,0.8)}
{pt3dadd(-21.921,14.418,58.88,0.8)}
{pt3dadd(-22.102,14.588,58.8,0.8)}
{pt3dadd(-24.057,15.819,58.8,0.8)}
{pt3dadd(-25.131,16.701,60.96,0.8)}
{pt3dadd(-25.311,16.701,62.64,0.8)}
{pt3dadd(-27.266,16.87,53.04,0.8)}
{pt3dadd(-27.447,16.87,52,0.8)}
{pt3dadd(-29.052,17.401,58.8,0.8)}
{pt3dadd(-29.944,17.571,77.12,0.8)}
{pt3dadd(-30.476,17.571,77.12,0.8)}
{pt3dadd(-31.899,17.752,77.12,0.8)}
{pt3dadd(-32.08,17.752,77.44,0.8)}
{pt3dadd(-33.323,17.933,78.08,0.8)}
{pt3dadd(-33.685,17.933,78,0.8)}
{pt3dadd(-35.289,18.633,75.84,0.8)}
{pt3dadd(-35.47,18.633,75.36,0.8)}
{pt3dadd(-36.532,19.515,73.12,0.8)}
{pt3dadd(-36.713,19.515,71.2,0.8)}
{pt3dadd(-38.318,20.034,53.6,0.8)}
{pt3dadd(-40.103,20.215,49.36,0.8)}
{pt3dadd(-40.103,20.385,49.36,0.8)}

{dendrite[13] connect dendrite[14](0), 1}
{access dendrite[14]}
{pt3dclear()}
{pt3dadd(-40.103,20.385,49.36,0.8)}
{pt3dadd(-40.103,20.385,49.4,0.8)}
{pt3dadd(-43.482,21.266,53.92,0.8)}
{pt3dadd(-43.663,21.266,53.92,0.8)}
{pt3dadd(-45.979,23.198,53.92,0.8)}
{pt3dadd(-45.979,23.549,53.92,0.8)}
{pt3dadd(-46.51,24.961,60.16,0.8)}
{pt3dadd(-46.51,25.131,60.24,0.8)}
{pt3dadd(-52.578,24.611,40,0.8)}
{pt3dadd(-52.748,24.611,40,0.8)}
{pt3dadd(-54.714,24.611,39.28,0.8)}
{pt3dadd(-54.895,24.611,38.64,0.8)}
{pt3dadd(-54.895,26.193,31.84,0.8)}
{pt3dadd(-54.895,26.894,30.08,0.8)}
{pt3dadd(-55.064,26.894,30.08,0.8)}
{pt3dadd(-56.85,28.125,19.12,0.8)}
{pt3dadd(-57.031,28.295,19.12,0.8)}
{pt3dadd(-58.986,29.357,19.2,0.8)}
{pt3dadd(-59.347,29.526,18.8,0.8)}
{pt3dadd(-61.483,29.707,15.76,0.8)}
{pt3dadd(-61.664,29.877,14.96,0.8)}
{pt3dadd(-62.737,30.589,13.44,0.8)}
{pt3dadd(-62.907,31.108,12.72,0.8)}
{pt3dadd(-63.98,32.69,3.2,0.8)}
{pt3dadd(-64.161,33.041,3.2,0.8)}
{pt3dadd(-65.404,33.753,0.8,0.8)}
{pt3dadd(-65.765,34.103,0,0.8)}
{pt3dadd(-66.116,34.453,-0.56,0.8)}
{pt3dadd(-67.72,35.685,-1.12,0.8)}
{pt3dadd(-68.082,36.035,-1.44,0.8)}
{pt3dadd(-69.687,36.555,-6.56,0.8)}
{pt3dadd(-69.856,36.555,-7.12,0.8)}
{pt3dadd(-71.642,36.555,-11.44,0.8)}
{pt3dadd(-71.822,36.555,-15.36,0.8)}
{pt3dadd(-72.353,36.917,-19.52,0.8)}
{pt3dadd(-72.715,37.267,-19.52,0.8)}
{pt3dadd(-73.777,38.499,-20.48,0.8)}
{pt3dadd(-73.958,38.849,-20.64,0.8)}
{pt3dadd(-75.563,39.719,-24.16,0.8)}
{pt3dadd(-75.743,39.9,-24.56,0.8)}
{pt3dadd(-76.455,40.781,-24.56,0.8)}
{pt3dadd(-76.455,41.132,-24.8,0.8)}
{pt3dadd(-78.422,42.363,-27.92,0.8)}
{pt3dadd(-78.591,42.533,-28.56,0.8)}
{pt3dadd(-79.845,43.945,-33.44,0.8)}
{pt3dadd(-79.845,44.296,-33.44,0.8)}
{pt3dadd(-78.772,48.51,-47.28,0.8)}
{pt3dadd(-82.512,50.793,-49.36,0.8)}
{pt3dadd(-82.693,50.793,-49.76,0.8)}
{pt3dadd(-85.009,50.623,-52.72,0.8)}
{pt3dadd(-85.19,50.793,-53.28,0.8)}
{pt3dadd(-85.721,53.607,-57.6,0.8)}
{pt3dadd(-85.541,54.307,-57.84,0.8)}
{pt3dadd(-84.659,56.601,-62,0.8)}
{pt3dadd(-85.009,57.471,-62.48,0.8)}
{pt3dadd(-86.614,58.183,-62.48,0.8)}
{pt3dadd(-87.145,58.533,-63.28,0.8)}
{pt3dadd(-88.038,60.466,-69.6,0.8)}
{pt3dadd(-87.857,60.997,-69.6,0.8)}
{pt3dadd(-87.145,62.217,-69.6,0.8)}
{pt3dadd(-86.976,62.398,-69.6,0.8)}

} //topol1()

//---------------------------------
proc topol2() {

{dendrite[13] connect dendrite[15](0), 1}
{access dendrite[15]}
{pt3dclear()}
{pt3dadd(-40.103,20.385,49.36,0.8)}
{pt3dadd(-40.103,20.215,49.36,0.8)}
{pt3dadd(-42.589,19.153,69.84,0.8)}
{pt3dadd(-42.77,19.153,69.84,0.8)}
{pt3dadd(-44.194,18.633,69.84,0.8)}
{pt3dadd(-44.375,18.452,69.84,0.8)}
{pt3dadd(-44.555,18.102,69.84,0.8)}
{pt3dadd(-45.267,17.752,69.84,0.8)}
{pt3dadd(-45.448,17.752,69.84,0.8)}
{pt3dadd(-46.16,18.633,69.84,0.8)}
{pt3dadd(-46.16,18.803,69.84,0.8)}
{pt3dadd(-47.765,20.034,69.84,0.8)}
{pt3dadd(-47.945,20.215,69.84,0.8)}
{pt3dadd(-49.369,20.916,69.84,0.8)}
{pt3dadd(-49.55,20.916,69.84,0.8)}
{pt3dadd(-50.262,21.097,69.84,0.8)}
{pt3dadd(-50.431,21.097,69.84,0.8)}
{pt3dadd(-52.036,21.097,69.84,0.8)}
{pt3dadd(-52.217,21.097,69.84,0.8)}
{pt3dadd(-54.352,22.317,69.84,0.8)}
{pt3dadd(-54.533,22.317,69.84,0.8)}
{pt3dadd(-56.319,22.679,77.12,0.8)}
{pt3dadd(-56.85,22.498,77.28,0.8)}
{pt3dadd(-59.166,21.967,77.68,0.8)}
{pt3dadd(-59.166,21.797,77.68,0.8)}
{pt3dadd(-60.421,21.616,77.68,0.8)}
{pt3dadd(-60.59,21.616,77.68,0.8)}
{pt3dadd(-60.952,21.967,77.68,0.8)}
{pt3dadd(-62.195,22.848,78.32,0.8)}
{pt3dadd(-62.376,23.029,78.72,0.8)}
{pt3dadd(-63.98,23.379,78.72,0.8)}
{pt3dadd(-64.161,23.379,78.64,0.8)}
{pt3dadd(-65.223,23.549,78.64,0.8)}
{pt3dadd(-65.404,23.549,78.64,0.8)}
{pt3dadd(-66.297,24.261,79.28,0.8)}
{pt3dadd(-66.477,24.43,79.28,0.8)}
{pt3dadd(-66.828,26.012,80.16,0.8)}
{pt3dadd(-68.082,26.193,65.2,0.8)}
{pt3dadd(-68.263,26.193,65.28,0.8)}
{pt3dadd(-70.218,26.543,65.28,0.8)}
{pt3dadd(-70.398,26.713,65.28,0.8)}
{pt3dadd(-70.398,27.063,65.28,0.8)}
{pt3dadd(-71.461,28.295,63.04,0.8)}
{pt3dadd(-71.822,28.295,62.64,0.8)}
{pt3dadd(-74.139,29.007,59.52,0.8)}
{pt3dadd(-75.382,29.877,55.36,0.8)}
{pt3dadd(-76.274,31.108,55.12,0.8)}
{pt3dadd(-76.455,31.289,54.88,0.8)}
{pt3dadd(-77.348,32.69,51.44,0.8)}
{pt3dadd(-78.241,34.453,51.12,0.8)}
{pt3dadd(-78.422,34.453,51.12,0.8)}
{pt3dadd(-78.591,34.453,50.96,0.8)}
{pt3dadd(-80.015,33.922,47.44,0.8)}
{pt3dadd(-80.196,33.922,47.12,0.8)}
{pt3dadd(-81.088,33.753,46,0.8)}
{pt3dadd(-81.269,33.753,46,0.8)}
{pt3dadd(-83.586,34.103,46,0.8)}
{pt3dadd(-83.766,34.272,46,0.8)}
{pt3dadd(-84.478,34.803,64.8,0.8)}
{pt3dadd(-84.659,35.154,64.8,0.8)}
{pt3dadd(-85.371,35.685,65.28,0.8)}
{pt3dadd(-85.721,36.386,67.68,0.8)}
{pt3dadd(-85.721,36.555,67.6,0.8)}
{pt3dadd(-87.507,37.436,67.44,0.8)}
{pt3dadd(-87.507,37.617,67.44,0.8)}
{pt3dadd(-87.857,38.137,67.52,0.8)}
{pt3dadd(-88.038,38.668,67.44,0.8)}
{pt3dadd(-89.292,39.9,68.8,0.8)}
{pt3dadd(-89.462,39.9,69.52,0.8)}
{pt3dadd(-91.066,40.25,71.04,0.8)}
{pt3dadd(-93.383,40.951,46.32,0.8)}
{pt3dadd(-93.564,40.951,46.32,0.8)}
{pt3dadd(-95.168,41.663,42.16,0.8)}
{pt3dadd(-96.242,42.013,35.84,0.8)}
{pt3dadd(-96.592,42.013,35.92,0.8)}
{pt3dadd(-98.728,41.663,35.76,0.8)}
{pt3dadd(-100.332,41.663,32.08,0.8)}
{pt3dadd(-101.587,42.713,32.56,0.8)}
{pt3dadd(-101.767,42.883,32.56,0.8)}
{pt3dadd(-103.191,42.883,34.32,0.8)}
{pt3dadd(-103.372,42.883,34.96,0.8)}
{pt3dadd(-105.508,42.182,39.76,0.8)}
{pt3dadd(-106.039,41.832,40.64,0.8)}
{pt3dadd(-107.824,41.663,43.36,0.8)}
{pt3dadd(-108.005,41.482,36.24,0.8)}
{pt3dadd(-108.886,42.013,34.24,0.8)}
{pt3dadd(-108.886,42.363,30.24,0.8)}
{pt3dadd(-109.248,43.064,29.28,0.8)}
{pt3dadd(-109.429,43.245,28.32,0.8)}
{pt3dadd(-110.491,43.945,24.48,0.8)}
{pt3dadd(-114.593,44.465,24.24,0.8)}
{pt3dadd(-114.954,44.827,24.24,0.8)}
{pt3dadd(-117.271,46.047,24.24,0.8)}
{pt3dadd(-117.452,46.578,24.24,0.8)}
{pt3dadd(-119.226,47.629,24.24,0.8)}
{pt3dadd(-119.407,47.81,24.24,0.8)}
{pt3dadd(-119.587,47.991,24.24,0.8)}

{dendrite[0] connect dendrite[16](0), 1}
{access dendrite[16]}
{pt3dclear()}
{pt3dadd(-5.875,-0.531,25.44,1.1)}
{pt3dadd(-6.237,-0.531,25.44,1.1)}
{pt3dadd(-6.599,-0.7,25.44,1.1)}
{pt3dadd(-6.949,-1.401,25.44,1.1)}
{pt3dadd(-6.949,-1.581,25.44,1.1)}
{pt3dadd(-7.13,-3.344,15.12,1.1)}
{pt3dadd(-7.13,-3.514,14.32,1.1)}
{pt3dadd(-7.311,-4.395,12.8,1.1)}
{pt3dadd(-7.311,-4.746,12.72,1.1)}
{pt3dadd(-7.661,-4.746,25.84,1.1)}
{pt3dadd(-8.192,-4.565,25.76,1.1)}
{pt3dadd(-10.158,-3.695,25.76,1.1)}
{pt3dadd(-10.339,-3.695,25.76,1.1)}
{pt3dadd(-12.113,-2.813,5.2,1.1)}
{pt3dadd(-12.294,-2.632,5.2,1.1)}
{pt3dadd(-12.475,-2.632,4.16,1.1)}
{pt3dadd(-13.367,-2.463,0.56,1.1)}
{pt3dadd(-13.548,-2.463,-0.08,1.1)}
{pt3dadd(-14.441,-2.282,-1.44,1.1)}
{pt3dadd(-14.61,-2.282,-1.44,1.1)}
{pt3dadd(-14.791,-2.282,-1.76,1.1)}
{pt3dadd(-16.034,-1.932,-5.52,1.1)}
{pt3dadd(-16.577,-1.762,1.6,1.1)}
{pt3dadd(-19.605,-0.531,-4.24,1.1)}
{pt3dadd(-19.605,-0.35,-4.24,1.1)}
{pt3dadd(-19.786,-0.35,-4.24,1.1)}

}//topol2()

proc topol3() {

{soma[1] connect soma[3](0), 1}
{access soma[3]}
{pt3dclear()}
{pt3dadd(-0.531,1.932,16.16,12.46)}
{pt3dadd(-0.18,2.983,16.239,10.24)}
{pt3dadd(-0.361,4.214,16.239,8.36)}
{pt3dadd(0.361,6.327,16.16,5.2)}

{soma[3] connect soma[4](0), 1}
{access soma[4]}
{pt3dclear()}
{pt3dadd(0.361,6.327,16.16,5.2)}
{pt3dadd(0.468,6.305,16.779,1.662)}
{pt3dadd(0.485,7.311,17.6,1.42)}

{soma[4] connect dendrite[17](0), 1}
{access dendrite[17]}
{pt3dclear()}
{pt3dadd(0.485,7.311,17.6,1.42)}
{pt3dadd(0.666,7.277,17.6,1.42)}
{pt3dadd(0.87,7.424,17.36,1.42)}
{pt3dadd(1.457,7.672,17.04,1.42)}
{pt3dadd(2.248,8.068,14.88,1.42)}
{pt3dadd(2.282,8.237,14.56,1.42)}
{pt3dadd(1.525,9.085,14.56,1.42)}
{pt3dadd(1.378,9.288,14.48,1.42)}
{pt3dadd(0.621,10.136,13.04,1.42)}
{pt3dadd(0.655,10.316,12.16,1.42)}
{pt3dadd(0.689,10.486,12.48,1.42)}
{pt3dadd(3.062,10.599,15.12,1.42)}
{pt3dadd(3.231,10.576,14.4,1.42)}
{pt3dadd(3.932,10.452,14.08,1.42)}
{pt3dadd(3.909,10.271,14.08,1.42)}
{pt3dadd(2.87,9.559,13.84,1.42)}
{pt3dadd(2.666,9.424,13.2,1.42)}
{pt3dadd(2.497,9.458,13.04,1.42)}
{pt3dadd(2.282,9.311,11.12,1.42)}
{pt3dadd(2.147,10.588,11.28,1.42)}
{pt3dadd(2.214,10.927,9.76,1.42)}
{pt3dadd(2.305,11.446,8.56,1.42)}
{pt3dadd(2.339,11.627,9.36,1.42)}
{pt3dadd(4.373,13.944,14,1.42)}
{pt3dadd(4.429,14.283,13.92,1.42)}
{pt3dadd(2.124,15.582,12,1.1)}
{pt3dadd(2.158,15.763,8,1.1)}
{pt3dadd(2.406,17.142,10.48,1.1)}
{pt3dadd(2.226,17.176,11.84,1.1)}
{pt3dadd(-1.231,16,11.68,1.1)}
{pt3dadd(-1.649,15.718,11.52,1.1)}

{soma[3] connect dendrite[18](0), 1}
{access dendrite[18]}
{pt3dclear()}
{pt3dadd(0.361,6.327,16.16,5.2)}
{pt3dadd(0.378,6.182,17.047,1.48)}
{pt3dadd(-2.565,6.418,18.439,1.1)}
{pt3dadd(-2.892,6.655,18.4,1.1)}
{pt3dadd(-3.062,6.689,18.4,1.1)}

{dendrite[18] connect dendrite[19](0), 1}
{access dendrite[19]}
{pt3dclear()}
{pt3dadd(-3.062,6.689,18.4,1.1)}
{pt3dadd(-4.757,11.446,9.12,1.1)}

{dendrite[19] connect dendrite[20](0), 1}
{access dendrite[20]}
{pt3dclear()}
{pt3dadd(-4.757,11.446,9.12,1.1)}
{pt3dadd(-5.141,11.333,9.12,1.1)}
{pt3dadd(-6.192,11.525,9.6,1.1)}
{pt3dadd(-6.361,11.548,8.72,1.1)}
{pt3dadd(-6.892,11.65,8.16,1.1)}
{pt3dadd(-8.7,12.678,7.68,1.1)}
{pt3dadd(-9.13,13.288,7.68,1.1)}
{pt3dadd(-8.938,15.401,7.6,1.1)}
{pt3dadd(-8.915,15.571,6,1.1)}
{pt3dadd(-11.22,15.808,5.6,1.1)}
{pt3dadd(-12.158,15.616,5.6,1.1)}
{pt3dadd(-14.599,15.153,5.44,1.1)}
{pt3dadd(-14.769,15.175,5.36,1.1)}
{pt3dadd(-16.351,15.458,4.64,1.1)}
{pt3dadd(-16.531,15.492,4.72,1.1)}
{pt3dadd(-15.752,17.854,5.44,1.1)}
{pt3dadd(-15.921,17.887,4.72,1.1)}
{pt3dadd(-16.418,18.147,4,1.1)}
{pt3dadd(-19.232,18.645,6.88,1.1)}
{pt3dadd(-20.193,19.345,7.92,1.1)}
{pt3dadd(-20.08,22.012,4.56,1.1)}
{pt3dadd(-20.057,22.181,7.36,1.1)}
{pt3dadd(-20.26,22.034,6,1.1)}

{dendrite[19] connect dendrite[21](0), 1}
{access dendrite[21]}
{pt3dclear()}
{pt3dadd(-4.757,11.446,9.12,1.1)}
{pt3dadd(-4.723,11.616,9.12,1.1)}
{pt3dadd(-4.237,14.384,9.68,1.1)}
{pt3dadd(-3.966,14.882,10.64,1.1)}
{pt3dadd(0.361,8.441,46.96,1.74)}
{pt3dadd(0.361,8.61,46.96,1.74)}
{pt3dadd(0.18,9.311,47.04,1.74)}
{pt3dadd(0.18,9.492,49.36,1.74)}
{pt3dadd(0.361,10.373,60.64,1.74)}
{pt3dadd(0.531,10.373,60.64,1.74)}
{pt3dadd(0.892,11.254,60.64,1.74)}
{pt3dadd(1.073,11.424,60.64,1.74)}
{pt3dadd(1.604,12.305,60.64,1.74)}
{pt3dadd(1.954,12.836,60.64,1.74)}
{pt3dadd(2.847,14.057,60.64,1.74)}
{pt3dadd(2.497,13.706,60.4,1.74)}

{dendrite[21] connect dendrite[22](0), 1}
{access dendrite[22]}
{pt3dclear()}
{pt3dadd(2.497,13.706,60.4,1.74)}
{pt3dadd(2.497,13.706,60.44,0.8)}
{pt3dadd(3.74,15.469,64,0.8)}
{pt3dadd(6.418,17.221,61.6,0.8)}

{dendrite[22] connect dendrite[23](0), 1}
{access dendrite[23]}
{pt3dclear()}
{pt3dadd(6.418,17.221,61.6,0.8)}
{pt3dadd(6.418,17.221,61.64,1.1)}
{pt3dadd(6.599,17.221,61.6,1.1)}
{pt3dadd(6.237,20.735,72.72,1.1)}
{pt3dadd(6.237,20.916,74.8,1.1)}
{pt3dadd(7.48,23.549,79.12,1.1)}
{pt3dadd(7.661,24.08,79.28,1.1)}
{pt3dadd(8.554,26.894,78.4,1.1)}
{pt3dadd(8.554,27.244,78.56,1.1)}
{pt3dadd(8.373,27.775,78.96,1.1)}
{pt3dadd(8.554,30.058,80.08,1.1)}
{pt3dadd(8.192,30.408,80.32,1.1)}

{dendrite[23] connect dendrite[24](0), 1}
{access dendrite[24]}
{pt3dclear()}
{pt3dadd(8.192,30.408,80.32,1.1)}
{pt3dadd(9.977,31.459,80.32,0.8)}
{pt3dadd(10.339,34.272,70.48,0.8)}
{pt3dadd(10.52,34.272,70.64,0.8)}
{pt3dadd(13.548,36.386,70.64,0.8)}
{pt3dadd(13.548,36.917,70.64,0.8)}
{pt3dadd(13.367,37.617,70.56,0.8)}
{pt3dadd(13.367,39.719,70.32,0.8)}
{pt3dadd(13.187,40.431,70.32,0.8)}
{pt3dadd(12.475,43.414,59.92,0.8)}
{pt3dadd(15.322,50.092,72.64,0.8)}
{pt3dadd(13.006,53.256,72.4,0.8)}
{pt3dadd(12.655,53.788,72.24,0.8)}
{pt3dadd(10.339,56.601,64.8,0.8)}
{pt3dadd(10.158,56.601,64.56,0.8)}
{pt3dadd(12.113,58.884,53.44,0.8)}
{pt3dadd(12.294,59.053,53.44,0.8)}
{pt3dadd(12.655,63.099,47.92,0.8)}
{pt3dadd(12.655,63.279,47.92,0.8)}
{pt3dadd(12.655,63.449,47.92,0.8)}
} //topol3()

//---------------------------------
proc topol4() {

{dendrite[24] connect dendrite[25](0), 1}
{access dendrite[25]}
{pt3dclear()}
{pt3dadd(12.655,63.449,47.92,0.8)}
{pt3dadd(12.655,63.449,47.96,0.8)}
{pt3dadd(13.899,65.212,60.8,0.8)}
{pt3dadd(15.503,66.263,58.32,0.8)}
{pt3dadd(15.684,66.443,57.6,0.8)}
{pt3dadd(15.865,67.675,52.88,0.8)}
{pt3dadd(15.865,67.845,52.24,0.8)}
{pt3dadd(16.577,69.076,50.16,0.8)}
{pt3dadd(16.757,69.076,50.48,0.8)}
{pt3dadd(18,69.257,54.88,0.8)}
{pt3dadd(18.181,69.427,54.88,0.8)}
{pt3dadd(18.351,70.839,51.2,0.8)}
{pt3dadd(18.351,71.19,50.72,0.8)}
{pt3dadd(19.243,73.472,41.44,0.8)}
{pt3dadd(19.605,73.822,41.44,0.8)}
{pt3dadd(20.136,75.585,41.28,0.8)}
{pt3dadd(19.955,75.936,41.2,0.8)}
{pt3dadd(19.786,75.936,41.12,0.8)}
{pt3dadd(19.605,76.105,40.8,0.8)}
{pt3dadd(19.074,76.286,40.4,0.8)}
{pt3dadd(18.531,76.286,40,0.8)}
{pt3dadd(17.639,76.455,39.76,0.8)}
{pt3dadd(17.288,77.167,39.76,0.8)}
{pt3dadd(17.469,77.517,39.52,0.8)}
{pt3dadd(18.531,79.981,35.92,0.8)}
{pt3dadd(18.712,80.501,35.84,0.8)}
{pt3dadd(18,82.264,36.96,0.8)}
{pt3dadd(18,82.783,36.96,0.8)}
{pt3dadd(19.605,86.309,36.96,0.8)}
{pt3dadd(19.786,86.478,36.96,0.8)}
{pt3dadd(23.345,89.292,28.64,0.8)}
{pt3dadd(23.345,89.473,28.32,0.8)}
{pt3dadd(23.707,92.806,27.68,0.8)}
{pt3dadd(26.554,101.247,39.68,0.8)}
{pt3dadd(26.374,101.247,39.68,0.8)}
{pt3dadd(26.374,101.417,39.68,0.8)}

{dendrite[24] connect dendrite[26](0), 1}
{access dendrite[26]}
{pt3dclear()}
{pt3dadd(12.655,63.449,47.92,0.8)}
{pt3dadd(11.944,65.562,41.92,0.8)}
{pt3dadd(11.944,65.743,41.92,0.8)}
{pt3dadd(12.836,66.613,41.12,0.8)}
{pt3dadd(12.836,66.794,40.56,0.8)}
{pt3dadd(13.006,68.195,39.28,0.8)}
{pt3dadd(12.836,68.195,39.12,0.8)}
{pt3dadd(12.113,70.839,34.96,0.8)}
{pt3dadd(12.113,71.009,34.64,0.8)}
{pt3dadd(11.582,71.89,34.32,0.8)}
{pt3dadd(11.401,72.071,34.24,0.8)}
{pt3dadd(10.87,73.122,33.44,0.8)}
{pt3dadd(10.87,73.653,33.44,0.8)}
{pt3dadd(8.554,76.455,32,0.8)}
{pt3dadd(8.373,76.636,32.08,0.8)}
{pt3dadd(7.311,79.8,27.44,0.8)}
{pt3dadd(7.311,80.15,27.44,0.8)}
{pt3dadd(8.373,81.563,25.52,0.8)}
{pt3dadd(8.373,81.732,24.96,0.8)}
{pt3dadd(7.13,85.947,21.36,0.8)}
{pt3dadd(7.13,86.128,21.04,0.8)}
{pt3dadd(7.13,88.241,17.92,0.8)}
{pt3dadd(7.48,88.592,17.52,0.8)}
{pt3dadd(8.023,91.224,16.16,0.8)}
{pt3dadd(8.192,91.925,15.76,0.8)}
{pt3dadd(9.627,94.739,13.36,0.8)}
{pt3dadd(9.627,94.739,13.92,0.8)}

{dendrite[26] connect dendrite[27](0), 1}
{access dendrite[27]}
{pt3dclear()}
{pt3dadd(9.627,94.739,13.92,0.8)}
{pt3dadd(9.627,98.253,27.2,0.8)}
{pt3dadd(9.627,98.434,26.16,0.8)}
{pt3dadd(9.085,100.897,16.72,0.8)}
{pt3dadd(9.085,101.247,15.6,0.8)}
{pt3dadd(8.554,103.53,11.92,0.8)}
{pt3dadd(8.554,103.88,14,0.8)}
{pt3dadd(11.232,105.282,36.72,0.8)}
{pt3dadd(11.232,105.462,36.64,0.8)}
{pt3dadd(9.627,109.327,14.4,0.8)}
{pt3dadd(9.446,109.677,13.84,0.8)}
{pt3dadd(9.446,110.028,13.04,0.8)}
{pt3dadd(10.339,112.491,7.52,0.8)}
{pt3dadd(10.52,112.841,7.12,0.8)}
{pt3dadd(8.915,114.954,5.76,0.8)}
{pt3dadd(8.915,115.135,6.16,0.8)}
{pt3dadd(8.915,115.485,9.04,0.8)}

{dendrite[26] connect dendrite[28](0), 1}
{access dendrite[28]}
{pt3dclear()}
{pt3dadd(9.627,94.739,13.92,0.8)}
{pt3dadd(9.627,94.739,13.959,0.8)}
{pt3dadd(11.763,96.502,22.16,0.8)}
{pt3dadd(11.582,97.903,-1.36,0.8)}
{pt3dadd(11.582,98.083,-1.36,0.8)}
{pt3dadd(12.113,100.185,-8.88,0.8)}
{pt3dadd(12.294,100.536,-8.88,0.8)}
{pt3dadd(13.006,102.118,-13.2,0.8)}
{pt3dadd(13.187,102.649,-13.84,0.8)}
{pt3dadd(13.187,103.7,-13.84,0.8)}
{pt3dadd(12.836,104.231,-14.8,0.8)}
{pt3dadd(13.718,104.931,-17.68,0.8)}
{pt3dadd(13.899,105.112,-17.76,0.8)}
{pt3dadd(14.26,106.513,-21.36,0.8)}
{pt3dadd(14.26,106.864,-22.32,0.8)}
{pt3dadd(13.899,107.926,-24.24,0.8)}
{pt3dadd(13.718,108.276,-25.52,0.8)}
{pt3dadd(12.113,109.327,-34.16,0.8)}
{pt3dadd(12.113,109.508,-34.16,0.8)}
{pt3dadd(11.763,109.858,-35.6,0.8)}
{pt3dadd(11.763,110.028,-36.88,0.8)}
{pt3dadd(12.294,110.909,-38.32,0.8)}
{pt3dadd(12.475,111.44,-38.32,0.8)}
{pt3dadd(12.655,112.491,-44.32,0.8)}
{pt3dadd(12.475,112.672,-44.72,0.8)}
{pt3dadd(12.294,113.022,-44.4,0.8)}
{pt3dadd(12.294,113.192,-44.4,0.8)}
{pt3dadd(11.232,113.553,-46.32,0.8)}
{pt3dadd(11.051,113.553,-47.44,0.8)}
{pt3dadd(10.87,113.723,-48.08,0.8)}
{pt3dadd(10.87,114.073,-48.16,0.8)}
{pt3dadd(10.87,115.305,-48.4,0.8)}
{pt3dadd(10.689,115.655,-50.16,0.8)}
{pt3dadd(10.339,116.005,-51.92,0.8)}
{pt3dadd(10.158,116.005,-52.24,0.8)}
{pt3dadd(9.265,116.356,-53.36,0.8)}
{pt3dadd(9.265,116.536,-53.44,0.8)}
{pt3dadd(9.085,116.536,-54.56,0.8)}
{pt3dadd(8.915,116.536,-55.84,0.8)}
{pt3dadd(8.192,117.237,-61.6,0.8)}
{pt3dadd(8.023,117.418,-63.12,0.8)}
{pt3dadd(7.661,118.469,-66.88,0.8)}
{pt3dadd(7.661,118.649,-66.88,0.8)}
{pt3dadd(7.661,118.819,-66.88,0.8)}
{pt3dadd(7.842,119.35,-75.68,0.8)}
{pt3dadd(9.977,124.266,-88.64,0.8)}
{pt3dadd(10.158,124.797,-76.56,0.8)}

{dendrite[23] connect dendrite[29](0), 1}
{access dendrite[29]}
{pt3dclear()}
{pt3dadd(8.192,30.408,80.32,1.1)}
{pt3dadd(8.192,30.408,80.36,0.8)}
{pt3dadd(7.661,31.108,82.8,0.8)}
{pt3dadd(8.734,33.753,82.8,0.8)}
{pt3dadd(8.734,33.922,82.8,0.8)}
{pt3dadd(9.977,35.335,82.8,0.8)}
{pt3dadd(10.339,35.685,82.8,0.8)}
{pt3dadd(10.689,37.968,82.8,0.8)}
{pt3dadd(10.689,38.137,82.8,0.8)}
{pt3dadd(11.401,40.6,82.8,0.8)}
{pt3dadd(11.582,40.781,82.8,0.8)}
{pt3dadd(13.548,42.713,88.32,0.8)}
{pt3dadd(13.718,42.883,88.32,0.8)}
{pt3dadd(14.441,44.296,88.16,0.8)}
{pt3dadd(14.61,44.827,88.16,0.8)}
{pt3dadd(16.215,47.629,88.16,0.8)}
{pt3dadd(16.396,47.991,88.16,0.8)}
{pt3dadd(17.288,49.742,85.44,0.8)}
{pt3dadd(17.469,50.273,85.36,0.8)}
{pt3dadd(19.074,52.556,98.08,0.8)}
{pt3dadd(19.605,52.556,98.08,0.8)}
{pt3dadd(20.498,52.906,98.08,0.8)}
{pt3dadd(20.848,53.256,98.08,0.8)}
{pt3dadd(20.848,55.189,99.2,0.8)}
{pt3dadd(21.029,55.37,99.12,0.8)}
{pt3dadd(22.633,56.251,99.12,0.8)}
{pt3dadd(24.057,56.951,105.04,0.8)}
{pt3dadd(24.057,57.471,104.96,0.8)}
{pt3dadd(24.769,58.884,104.96,0.8)}
{pt3dadd(25.131,59.234,104.96,0.8)}
{pt3dadd(27.266,60.116,104.96,0.8)}
{pt3dadd(27.798,60.466,104.96,0.8)}
{pt3dadd(27.628,62.217,104.96,0.8)}
{pt3dadd(27.447,62.929,104.96,0.8)}
{pt3dadd(27.086,65.562,104.96,0.8)}
{pt3dadd(27.447,66.263,104.96,0.8)}
{pt3dadd(28.34,69.777,104.96,0.8)}
{pt3dadd(28.509,70.489,104.96,0.8)}
{pt3dadd(27.798,71.359,104.88,0.8)}
{pt3dadd(27.447,71.359,104.88,0.8)}
{pt3dadd(26.374,71.54,104.88,0.8)}
{pt3dadd(26.193,71.709,104.88,0.8)}
{pt3dadd(26.554,73.122,104.88,0.8)}
{pt3dadd(26.374,73.472,104.88,0.8)}
{pt3dadd(24.95,74.173,104.88,0.8)}
{pt3dadd(24.769,74.353,104.88,0.8)}
{pt3dadd(23.707,75.936,104.88,0.8)}
{pt3dadd(23.707,76.286,104.88,0.8)}
{pt3dadd(24.057,79.269,104.88,0.8)}
{pt3dadd(24.057,79.45,104.88,0.8)}
{pt3dadd(25.311,81.913,104.88,0.8)}
{pt3dadd(25.662,83.495,104.96,0.8)}
{pt3dadd(25.481,83.495,104.96,0.8)}
{pt3dadd(23.345,84.365,104.96,0.8)}
{pt3dadd(22.995,84.546,104.96,0.8)}
{pt3dadd(21.39,86.309,91.6,0.8)}
{pt3dadd(21.39,86.478,91.44,0.8)}
{pt3dadd(21.39,89.111,108.72,0.8)}
{pt3dadd(21.56,89.473,108.72,0.8)}
{pt3dadd(22.814,90.343,108.8,0.8)}
{pt3dadd(23.165,90.874,108.32,0.8)}
{pt3dadd(22.453,92.106,107.76,0.8)}
{pt3dadd(22.272,92.626,107.76,0.8)}
{pt3dadd(22.272,94.038,107.04,0.8)}
{pt3dadd(22.633,94.388,106.88,0.8)}
{pt3dadd(23.707,95.79,102.56,0.8)}
{pt3dadd(23.876,96.151,101.6,0.8)}
{pt3dadd(23.876,96.671,100.72,0.8)}
{pt3dadd(21.39,97.372,93.92,0.8)}
{pt3dadd(20.848,98.954,93.84,0.8)}
{pt3dadd(21.029,99.835,93.84,0.8)}
{pt3dadd(19.605,103.18,87.12,0.8)}
{pt3dadd(19.424,103.18,87.44,0.8)}
{pt3dadd(16.757,103.349,86.24,0.8)}
{pt3dadd(15.865,104.231,85.36,0.8)}
{pt3dadd(15.684,104.411,85.36,0.8)}
{pt3dadd(13.548,104.762,81.76,0.8)}
{pt3dadd(13.367,104.762,81.68,0.8)}
{pt3dadd(11.232,105.462,81.68,0.8)}
{pt3dadd(10.87,105.813,81.68,0.8)}
{pt3dadd(8.554,107.926,76.4,0.8)}
{pt3dadd(6.599,110.028,76.4,0.8)}
{pt3dadd(6.599,110.208,76.4,0.8)}
{pt3dadd(4.632,111.79,68.56,0.8)}
{pt3dadd(4.452,111.971,68.32,0.8)}
{pt3dadd(2.497,112.672,69.68,0.8)}
{pt3dadd(1.604,112.841,70.48,0.8)}
{pt3dadd(-0.18,113.553,73.76,0.8)}
{pt3dadd(-0.711,114.073,75.36,0.8)}
{pt3dadd(-2.497,116.005,80,0.8)}
{pt3dadd(-3.559,116.887,80.16,0.8)}
{pt3dadd(-5.706,117.768,72.4,0.8)}
{pt3dadd(-6.056,117.938,70.88,0.8)}
{pt3dadd(-6.949,119.35,68.16,0.8)}
{pt3dadd(-7.48,120.232,68.08,0.8)}
{pt3dadd(-7.661,120.401,68,0.8)}

} //topol4()

//---------------------------------
proc topol5() {

{dendrite[22] connect dendrite[30](0), 1}
{access dendrite[30]}
{pt3dclear()}
{pt3dadd(6.418,17.221,61.6,0.8)}
{pt3dadd(8.124,15.356,57.2,0.8)}
{pt3dadd(8.305,15.322,57.2,0.8)}
{pt3dadd(9.774,16.486,57.2,0.8)}
{pt3dadd(10.011,16.803,57.2,0.8)}
{pt3dadd(10.542,17.786,57.2,0.8)}
{pt3dadd(10.757,17.921,57.2,0.8)}
{pt3dadd(11.232,19.628,57.2,0.8)}
{pt3dadd(11.299,19.967,57.2,0.8)}
{pt3dadd(13.808,23.989,56.4,0.8)}
{pt3dadd(20.136,23.944,56.48,0.8)}
{pt3dadd(20.17,24.114,56.48,0.8)}
{pt3dadd(23.594,32.25,56.88,0.8)}
{pt3dadd(23.628,32.43,56.56,0.8)}
{pt3dadd(28.532,33.527,59.36,0.8)}
{pt3dadd(28.701,33.493,59.12,0.8)}
{pt3dadd(29.436,37.651,54.8,0.8)}
{pt3dadd(31.832,39.9,55.6,0.8)}
{pt3dadd(31.854,40.081,55.6,0.8)}
{pt3dadd(34.374,43.03,55.76,0.8)}
{pt3dadd(34.577,43.166,55.68,0.8)}
{pt3dadd(36.917,43.109,55.04,0.8)}
{pt3dadd(37.572,44.781,52.32,0.8)}
{pt3dadd(37.03,46.838,52.24,0.8)}
{pt3dadd(37.063,47.007,55.6,0.8)}
{pt3dadd(39.448,48.194,53.52,0.8)}
{pt3dadd(37.527,49.606,54.4,0.8)}
{pt3dadd(41.109,54.511,50.8,0.8)}
{pt3dadd(40.148,56.285,50.24,0.8)}
{pt3dadd(40.182,56.454,49.76,0.8)}
{pt3dadd(41.764,57.245,48.8,0.8)}
{pt3dadd(41.979,57.392,48.88,0.8)}
{pt3dadd(40.352,59.46,48,0.8)}
{pt3dadd(40.951,61.856,48.8,0.8)}
{pt3dadd(40.985,62.025,48.8,0.8)}
{pt3dadd(42.804,63.133,49.92,0.8)}
{pt3dadd(40.928,65.788,51.36,0.8)}
{pt3dadd(42.747,66.896,50.88,0.8)}
{pt3dadd(41.685,69.042,51.2,0.8)}
{pt3dadd(44.002,69.879,45.28,0.8)}
{pt3dadd(43.143,73.246,47.52,0.8)}
{pt3dadd(43.177,73.416,46.48,0.8)}
{pt3dadd(48.273,77.698,44.16,0.8)}
{pt3dadd(48.895,78.116,47.92,0.8)}
{pt3dadd(51.595,79.077,47.76,0.8)}
{pt3dadd(51.776,79.043,47.84,0.8)}
{pt3dadd(50.42,81.597,46.72,0.8)}
{pt3dadd(50.477,81.947,45.92,0.8)}
{pt3dadd(53.426,84.286,46.24,0.8)}
{pt3dadd(53.448,84.456,46.32,0.8)}
{pt3dadd(53.437,86.422,40.72,0.8)}
{pt3dadd(54.895,88.49,42.48,0.8)}
{pt3dadd(52.465,90.162,42.24,0.8)}
{pt3dadd(53.878,94.015,43.6,0.8)}
{pt3dadd(53.697,94.049,42.8,0.8)}
{pt3dadd(51.855,97.948,42.4,0.8)}
{pt3dadd(51.889,98.117,41.52,0.8)}
{pt3dadd(52.341,100.716,39.52,0.8)}
{pt3dadd(52.375,100.886,39.52,0.8)}
{pt3dadd(52.544,103.892,36.08,0.8)}
{pt3dadd(52.782,104.208,36.08,0.8)}
{pt3dadd(55.968,106.864,33.36,0.8)}
{pt3dadd(56.432,107.485,35.76,0.8)}
{pt3dadd(61.788,110.118,35.6,0.8)}
{pt3dadd(61.822,110.287,33.2,0.8)}
{pt3dadd(64.285,111.994,34.64,0.8)}
{pt3dadd(64.319,112.163,34.64,0.8)}
{pt3dadd(64.522,112.31,34.64,0.8)}
{pt3dadd(65.833,114.582,34.56,0.8)}
{pt3dadd(81.789,124.966,35.04,0.8)}
{pt3dadd(89.032,127.079,35.04,0.8)}
{pt3dadd(89.236,127.215,35.04,0.8)}
{pt3dadd(94.863,130.334,35.04,0.8)}
{pt3dadd(95.451,130.582,35.04,0.8)}
{pt3dadd(99.134,134.04,35.04,0.8)}
{pt3dadd(99.338,134.176,35.04,0.8)}
{pt3dadd(102.717,134.831,35.04,0.8)}
{pt3dadd(109.203,137.792,32.24,0.8)}
{pt3dadd(109.35,137.588,32.24,0.8)}
{pt3dadd(111.576,137.905,32.24,0.8)}
{pt3dadd(112.163,138.165,32.24,0.8)}
{pt3dadd(112.683,140.04,32.159,0.8)}
{pt3dadd(112.92,140.346,32.159,0.8)}

{dendrite[30] connect dendrite[31](0), 1}
{access dendrite[31]}
{pt3dclear()}
{pt3dadd(112.92,140.346,32.159,0.8)}
{pt3dadd(112.92,140.346,32.199,0.48)}
{pt3dadd(112.74,142.775,32.88,0.48)}
{pt3dadd(112.807,143.125,32.88,0.48)}
{pt3dadd(113.169,145.193,35.28,0.48)}
{pt3dadd(113.293,145.894,35.28,0.48)}
{pt3dadd(112.457,147.284,32.4,0.48)}
{pt3dadd(112.129,147.521,32.4,0.48)}
{pt3dadd(111.09,148.775,32.64,0.48)}
{pt3dadd(111.09,148.775,32.24,0.48)}

{dendrite[31] connect dendrite[32](0), 1}
{access dendrite[32]}
{pt3dclear()}
{pt3dadd(111.09,148.775,32.24,0.48)}
{pt3dadd(111.09,148.775,32.28,0.48)}
{pt3dadd(112.468,151.736,35.52,0.48)}
{pt3dadd(112.208,152.324,35.52,0.48)}
{pt3dadd(112.864,153.985,33.44,0.48)}
{pt3dadd(113.553,154.764,32.72,0.48)}
{pt3dadd(114.163,155.182,35.76,0.48)}
{pt3dadd(115.576,156.007,32.88,0.48)}
{pt3dadd(116.197,156.437,32.479,0.48)}
{pt3dadd(117.892,159.883,32.32,0.48)}
{pt3dadd(118.096,160.03,32.32,0.48)}
{pt3dadd(121.768,161.341,32.32,0.48)}
{pt3dadd(122.706,161.533,32.4,0.48)}
{pt3dadd(126.48,161.397,35.2,0.48)}
{pt3dadd(127.283,161.793,35.12,0.48)}
{pt3dadd(131.204,162.527,35.04,0.48)}
{pt3dadd(132.594,163.183,35.04,0.48)}
{pt3dadd(135.215,165.748,35.04,0.48)}
{pt3dadd(136.131,166.833,35.04,0.48)}
{pt3dadd(136.074,167.556,35.04,0.48)}

{dendrite[31] connect dendrite[33](0), 1}
{access dendrite[33]}
{pt3dclear()}
{pt3dadd(111.09,148.775,32.24,0.48)}
{pt3dadd(111.09,148.775,32.96,0.48)}
{pt3dadd(105.508,149.939,30.96,0.48)}
{pt3dadd(105.157,150.007,30.88,0.48)}
{pt3dadd(101.496,150.832,31.04,0.48)}
{pt3dadd(101.349,151.035,30.24,0.48)}
{pt3dadd(99.519,152.968,29.76,0.48)}
{pt3dadd(97.846,155.759,33.76,0.48)}
{pt3dadd(97.699,155.962,33.68,0.48)}
{pt3dadd(92.829,155.035,31.44,0.48)}
{pt3dadd(91.563,154.019,31.2,0.48)}
{pt3dadd(88.682,152.018,29.44,0.48)}
{pt3dadd(88.298,151.917,31.36,0.48)}
{pt3dadd(85.416,149.928,29.6,0.48)}
{pt3dadd(84.795,149.499,28.96,0.48)}
{pt3dadd(84.377,149.216,28.48,0.48)}
{pt3dadd(81.676,148.267,30.72,0.48)}
{pt3dadd(80.535,147.928,29.52,0.48)}
{pt3dadd(78.037,147.125,29.44,0.48)}
{pt3dadd(77.28,146.899,29.12,0.48)}
{pt3dadd(71.359,146.165,32.56,0.48)}
{pt3dadd(70.059,146.029,32.479,0.48)}
{pt3dadd(67.201,146.176,32.479,0.48)}
{pt3dadd(67.02,146.21,33.12,0.48)}
{pt3dadd(62.884,145.34,32.32,0.48)}
{pt3dadd(62.737,145.544,32.08,0.48)}
{pt3dadd(61.923,143.001,32,0.48)}
{pt3dadd(61.37,142.922,32,0.48)}
{pt3dadd(56.386,142.38,32.72,0.48)}
{pt3dadd(55.98,142.097,32.4,0.48)}
{pt3dadd(53.177,140.628,35.6,0.48)}
{pt3dadd(52.737,140.165,34.64,0.48)}
{pt3dadd(50.149,137.769,30.88,0.48)}
{pt3dadd(49.912,137.453,29.76,0.48)}

{dendrite[30] connect dendrite[34](0), 1}
{access dendrite[34]}
{pt3dclear()}
{pt3dadd(112.92,140.346,32.159,0.8)}
{pt3dadd(114.728,140.391,32,0.8)}
{pt3dadd(115.666,140.583,35.92,0.8)}
{pt3dadd(118.593,143.815,35.68,0.8)}
{pt3dadd(118.83,144.12,35.68,0.8)}
{pt3dadd(121.362,145.103,35.68,0.8)}
{pt3dadd(121.531,145.08,35.6,0.8)}
{pt3dadd(121.87,146.979,35.6,0.8)}
{pt3dadd(122.073,147.125,35.2,0.8)}
{pt3dadd(129.972,149.826,31.92,0.8)}
{pt3dadd(130.175,149.973,28,0.8)}
{pt3dadd(140.346,154.244,29.44,0.8)}
{pt3dadd(144.267,158.019,29.44,0.8)}
{pt3dadd(144.447,157.985,29.44,0.8)}
{pt3dadd(147.555,159.216,29.44,0.8)}
{pt3dadd(147.792,159.533,29.44,0.8)}
{pt3dadd(149.634,161.714,29.44,0.8)}
{pt3dadd(149.837,161.849,29.44,0.8)}
{pt3dadd(154.877,162.742,29.44,0.8)}
{pt3dadd(155.262,162.855,29.44,0.8)}
{pt3dadd(159.329,166.426,29.44,0.8)}
{pt3dadd(159.363,166.595,29.44,0.8)}
{pt3dadd(162.607,166.55,29.44,0.8)}
{pt3dadd(163.059,167.014,28.88,0.8)}
{pt3dadd(165.499,169.612,29.36,0.8)}
{pt3dadd(165.533,169.782,29.44,0.8)}
{pt3dadd(169.612,170.313,29.44,0.8)}
{pt3dadd(170.019,170.596,29.28,0.8)}
{pt3dadd(171.918,173.127,29.12,0.8)}
{pt3dadd(172.121,173.262,29.04,0.8)}
{pt3dadd(174.991,173.115,28.64,0.8)}
{pt3dadd(175.613,173.545,28.64,0.8)}
{pt3dadd(176.619,175.149,28.4,0.8)}
{pt3dadd(183.771,176.743,31.04,0.8)}
{pt3dadd(183.952,176.709,31.04,0.8)}
{pt3dadd(187.975,179.025,31.04,0.8)}
{pt3dadd(188.359,179.138,31.04,0.8)}
{pt3dadd(191.885,179.59,31.04,0.8)}
{pt3dadd(192.676,179.986,31.04,0.8)}
{pt3dadd(196.439,181.816,31.04,0.8)}
{pt3dadd(196.845,182.099,31.04,0.8)}
{pt3dadd(199.094,181.523,30.64,0.8)}
{pt3dadd(199.275,181.5,29.92,0.8)}
{pt3dadd(199.625,181.432,28.24,0.8)}
{pt3dadd(200.247,181.862,28.24,0.8)}
{pt3dadd(203.614,185.545,28.24,0.48)}
{pt3dadd(206.88,184.619,28.24,0.48)}
{pt3dadd(207.298,184.901,28.24,0.48)}
{pt3dadd(209.49,188.077,28.24,0.48)}
{pt3dadd(209.66,188.054,28.24,0.48)}
{pt3dadd(214.79,188.393,28.24,0.48)}
{pt3dadd(215.174,188.506,28.24,0.48)}
{pt3dadd(217.479,191.309,31.36,0.48)}
{pt3dadd(217.683,191.455,31.36,0.48)}
{pt3dadd(219.604,193.083,31.28,0.48)}
{pt3dadd(220.508,193.094,31.28,0.48)}
{pt3dadd(223.412,193.117,31.28,0.48)}
{pt3dadd(227.028,195.162,31.28,0.48)}
{pt3dadd(230,197.67,31.28,0.48)}
{pt3dadd(230.418,197.953,31.28,0.48)}
{pt3dadd(235.198,199.422,31.36,0.48)}
{pt3dadd(236.757,200.043,31.36,0.48)}
{pt3dadd(241.288,203.174,31.36,0.48)}
{pt3dadd(242.113,203.739,31.44,0.48)}
{pt3dadd(245.492,204.394,31.44,0.48)}
{pt3dadd(246.283,204.789,31.44,0.48)}
{pt3dadd(248.385,208.518,31.36,0.48)}
{pt3dadd(248.837,208.97,31.36,0.48)}
{pt3dadd(251.21,209.095,30.64,0.48)}
{pt3dadd(251.967,209.309,30.24,0.48)}
{pt3dadd(255.029,211.276,29.2,0.48)}
{pt3dadd(255.786,211.49,29.2,0.48)}
{pt3dadd(258.962,212.01,29.28,0.48)}
{pt3dadd(259.64,212.779,29.28,0.48)}
{pt3dadd(264.86,214.711,29.76,0.48)}
{pt3dadd(265.244,214.824,29.84,0.48)}
{pt3dadd(268.827,215.615,29.92,0.48)}
{pt3dadd(270.409,216.406,29.92,0.48)}
{pt3dadd(274.443,218.734,29.92,0.48)}
{pt3dadd(275.584,219.061,29.92,0.48)}
{pt3dadd(277.516,218.722,28.16,0.48)}
{pt3dadd(278.285,218.948,31.52,0.48)}
{pt3dadd(279.9,219.909,29.52,0.48)}
{pt3dadd(280.454,219.988,29.28,0.48)}
{pt3dadd(284.477,220.169,29.52,0.48)}
{pt3dadd(285.291,220.745,30.24,0.48)}
{pt3dadd(289.347,222.169,29.04,0.48)}
{pt3dadd(289.234,222.542,29.04,0.48)}

{dendrite[21] connect dendrite[35](0), 1}
{access dendrite[35]}
{pt3dclear()}
{pt3dadd(2.497,13.706,60.4,1.74)}
{pt3dadd(2.497,13.537,60.4,1.74)}
{pt3dadd(1.785,15.288,44.08,1.74)}
{pt3dadd(1.785,15.469,44,1.74)}
{pt3dadd(1.423,17.401,43.6,1.74)}
{pt3dadd(1.242,17.752,43.76,1.74)}

{dendrite[35] connect dendrite[36](0), 1}
{access dendrite[36]}
{pt3dclear()}
{pt3dadd(1.242,17.752,43.76,1.74)}
{pt3dadd(-1.423,16.87,52.64,1.1)}
{pt3dadd(-1.423,18.102,34.24,1.1)}
{pt3dadd(-1.423,18.283,34.24,1.1)}
{pt3dadd(-1.242,19.515,31.28,1.1)}
{pt3dadd(-1.242,19.684,30.88,1.1)}
{pt3dadd(-1.785,21.967,30.72,1.1)}
{pt3dadd(-1.785,22.148,30.72,1.1)}
{pt3dadd(-3.921,21.616,20.72,1.1)}
{pt3dadd(-4.101,21.616,20.72,1.1)}
{pt3dadd(-6.237,22.679,12.16,1.1)}
{pt3dadd(-6.237,22.848,12.08,1.1)}
{pt3dadd(-6.056,26.543,7.2,1.1)}
{pt3dadd(-6.056,26.713,7.12,1.1)}
{pt3dadd(-8.192,26.362,15.76,1.1)}
{pt3dadd(-8.192,27.063,15.76,1.1)}
{pt3dadd(-8.373,27.244,15.84,1.1)}

{dendrite[36] connect dendrite[37](0), 1}
{access dendrite[37]}
{pt3dclear()}
{pt3dadd(-8.373,27.244,15.84,1.1)}
{pt3dadd(-10.87,27.063,12.72,1.1)}
{pt3dadd(-11.051,26.894,12.16,1.1)}
{pt3dadd(-12.294,26.894,-8.88,1.1)}
{pt3dadd(-12.294,27.063,-8.72,1.1)}
{pt3dadd(-13.187,29.877,-9.12,1.1)}
{pt3dadd(-13.367,29.877,-9.12,1.1)}
{pt3dadd(-13.367,29.526,-9.12,1.1)}

{dendrite[37] connect dendrite[38](0), 1}
{access dendrite[38]}
{pt3dclear()}
{pt3dadd(-13.367,29.526,-9.12,1.1)}
{pt3dadd(-13.367,29.526,-9.08,1.1)}
{pt3dadd(-15.322,31.108,-6.48,1.1)}
{pt3dadd(-16.757,34.623,-10.72,1.1)}
{pt3dadd(-16.577,34.623,-10.72,1.1)}
{pt3dadd(-18.893,35.154,-27.52,1.1)}
{pt3dadd(-18.893,35.335,-27.6,1.1)}
{pt3dadd(-19.605,37.436,-35.36,1.1)}
{pt3dadd(-19.424,37.787,-35.36,1.1)}
{pt3dadd(-18.712,39.369,-37.76,1.1)}
{pt3dadd(-18.712,39.55,-38.64,1.1)}
{pt3dadd(-20.679,40.081,-40.08,1.1)}
{pt3dadd(-20.136,41.832,-41.76,1.1)}
{pt3dadd(-20.136,42.013,-42.16,1.1)}
{pt3dadd(-22.633,42.883,-49.04,1.1)}
{pt3dadd(-21.741,45.527,-49.92,1.1)}
{pt3dadd(-21.741,45.697,-50.64,1.1)}
{pt3dadd(-22.995,47.109,-52.8,1.1)}
{pt3dadd(-23.165,47.109,-53.12,1.1)}
{pt3dadd(-26.374,46.759,-54.08,1.1)}
{pt3dadd(-26.374,46.578,-55.04,1.1)}
{pt3dadd(-27.447,49.742,-69.68,1.1)}
{pt3dadd(-30.295,47.459,-78.16,1.1)}
{pt3dadd(-30.476,47.109,-78.16,1.1)}
{pt3dadd(-34.035,46.409,-64.8,1.1)}
{pt3dadd(-34.216,46.409,-65.44,1.1)}
{pt3dadd(-35.289,47.991,-84.08,1.1)}
{pt3dadd(-38.849,48.16,-84.16,1.1)}
{pt3dadd(-38.849,48.341,-84.16,1.1)}

} //topol5()

//---------------------------------
proc topol6() {

{dendrite[37] connect dendrite[39](0), 1}
{access dendrite[39]}
{pt3dclear()}
{pt3dadd(-13.367,29.526,-9.12,1.1)}
{pt3dadd(-16.215,29.357,-7.76,1.1)}
{pt3dadd(-16.396,29.357,-8.56,1.1)}
{pt3dadd(-18,30.589,-19.2,1.1)}
{pt3dadd(-18.181,30.758,-20.24,1.1)}
{pt3dadd(-20.679,29.877,-23.68,1.1)}
{pt3dadd(-20.848,29.707,-23.68,1.1)}
{pt3dadd(-22.453,31.459,-31.04,1.1)}
{pt3dadd(-23.526,31.639,-34.96,1.1)}
{pt3dadd(-24.057,31.459,-35.28,1.1)}
{pt3dadd(-25.481,31.108,-35.2,1.1)}
{pt3dadd(-25.843,31.108,-35.2,1.1)}
{pt3dadd(-28.69,32.171,-44.32,1.1)}
{pt3dadd(-28.69,32.34,-44.32,1.1)}
{pt3dadd(-30.656,31.289,-44.32,1.1)}
{pt3dadd(-30.656,31.108,-44.4,1.1)}
{pt3dadd(-32.611,32.871,-50,1.1)}
{pt3dadd(-32.792,32.871,-50,1.1)}
{pt3dadd(-38.137,33.221,-50.56,1.1)}
{pt3dadd(-38.318,33.753,-50.4,1.1)}

{dendrite[39] connect dendrite[40](0), 1}
{access dendrite[40]}
{pt3dclear()}
{pt3dadd(-38.318,33.753,-50.4,1.1)}
{pt3dadd(-39.561,32.521,-50.4,1.1)}
{pt3dadd(-39.561,32.34,-50.4,1.1)}
{pt3dadd(-42.058,32.871,-51.12,1.1)}
{pt3dadd(-42.058,33.041,-52.32,1.1)}
{pt3dadd(-42.239,33.041,-53.44,1.1)}
{pt3dadd(-45.086,34.272,-66.64,1.1)}
{pt3dadd(-45.448,34.272,-66.64,1.1)}
{pt3dadd(-49.72,33.753,-69.36,1.1)}
{pt3dadd(-50.081,33.572,-70.48,1.1)}
{pt3dadd(-57.742,28.826,-81.28,1.1)}
{pt3dadd(-57.923,28.826,-81.28,1.1)}
{pt3dadd(-61.302,29.707,-87.76,1.1)}
{pt3dadd(-61.483,29.707,-87.84,1.1)}
{pt3dadd(-62.195,32.34,-87.84,1.1)}
{pt3dadd(-65.946,33.572,-90.64,1.1)}
{pt3dadd(-66.116,33.572,-91.12,1.1)}
{pt3dadd(-71.822,34.973,-94,1.1)}
{pt3dadd(-72.715,35.154,-80.24,1.1)}
{pt3dadd(-73.777,38.849,-98.08,1.1)}
{pt3dadd(-73.958,38.849,-98.32,1.1)}
{pt3dadd(-75.924,40.081,-102.32,1.1)}
{pt3dadd(-76.274,40.25,-102.4,1.1)}
{pt3dadd(-77.529,40.781,-103.12,1.1)}
{pt3dadd(-78.241,40.781,-103.36,1.1)}
{pt3dadd(-80.196,40.25,-103.44,1.1)}
{pt3dadd(-81.269,42.533,-106.72,1.1)}
{pt3dadd(-81.8,42.533,-106.64,1.1)}
{pt3dadd(-82.874,41.663,-109.28,1.1)}
{pt3dadd(-83.054,41.482,-109.52,1.1)}
{pt3dadd(-84.478,42.533,-111.92,1.1)}
{pt3dadd(-84.659,42.713,-111.92,1.1)}
{pt3dadd(-86.795,44.115,-121.2,1.1)}
{pt3dadd(-86.976,44.115,-121.12,1.1)}
{pt3dadd(-88.931,44.827,-121.04,1.1)}
{pt3dadd(-88.931,44.996,-121.12,1.1)}
{pt3dadd(-89.462,46.047,-126.24,1.1)}
{pt3dadd(-89.292,46.228,-126.24,1.1)}
{pt3dadd(-90.004,47.279,-138.8,1.1)}
{pt3dadd(-94.818,47.629,-127.68,1.1)}
{pt3dadd(-95.168,47.629,-127.6,1.1)}
{pt3dadd(-100.694,48.16,-126.72,1.1)}
{pt3dadd(-100.875,48.16,-125.84,1.1)}
{pt3dadd(-101.225,48.16,-124.64,1.1)}
{pt3dadd(-104.253,48.341,-120.64,1.1)}
{pt3dadd(-107.112,49.211,-120.88,1.1)}
{pt3dadd(-107.462,49.392,-98.32,1.1)}

{dendrite[39] connect dendrite[41](0), 1}
{access dendrite[41]}
{pt3dclear()}
{pt3dadd(-38.318,33.753,-50.4,1.1)}
{pt3dadd(-38.318,33.753,-50.36,1.1)}
{pt3dadd(-40.103,35.685,-37.76,1.1)}
{pt3dadd(-40.273,35.685,-39.28,1.1)}
{pt3dadd(-41.708,35.335,-60.96,1.1)}
{pt3dadd(-44.736,36.035,-71.84,1.1)}
{pt3dadd(-44.906,36.205,-71.84,1.1)}
{pt3dadd(-46.872,35.854,-76.24,1.1)}
{pt3dadd(-47.053,35.854,-76.72,1.1)}
{pt3dadd(-49.55,36.555,-79.04,1.1)}
{pt3dadd(-49.72,36.555,-79.36,1.1)}
{pt3dadd(-51.143,35.504,-82.48,1.1)}
{pt3dadd(-51.143,35.335,-82.48,1.1)}
{pt3dadd(-54.352,37.267,-85.68,1.1)}
{pt3dadd(-54.183,40.431,-86.08,1.1)}
{pt3dadd(-54.352,40.431,-86.56,1.1)}
{pt3dadd(-56.669,39.9,-88.56,1.1)}
{pt3dadd(-56.85,39.9,-88.64,1.1)}
{pt3dadd(-58.986,41.482,-88.8,1.1)}
{pt3dadd(-58.986,41.832,-88.96,1.1)}
{pt3dadd(-59.166,43.245,-88.64,1.1)}
{pt3dadd(-61.132,42.533,-95.6,1.1)}
{pt3dadd(-64.161,45.527,-96.8,1.1)}
{pt3dadd(-64.161,45.697,-97.12,1.1)}
{pt3dadd(-65.946,45.346,-100.56,1.1)}
{pt3dadd(-66.116,45.346,-100.56,1.1)}
{pt3dadd(-67.901,47.109,-101.2,1.1)}
{pt3dadd(-68.082,47.279,-101.52,1.1)}
{pt3dadd(-69.144,48.691,-104.4,1.1)}
{pt3dadd(-69.144,48.861,-104.4,1.1)}
{pt3dadd(-68.794,51.674,-108.8,1.1)}
{pt3dadd(-73.608,52.025,-116.16,1.1)}
{pt3dadd(-73.777,52.025,-116.16,1.1)}
{pt3dadd(-73.777,52.205,-116.16,1.1)}

{dendrite[36] connect dendrite[42](0), 1}
{access dendrite[42]}
{pt3dclear()}
{pt3dadd(-8.373,27.244,15.84,1.1)}
{pt3dadd(-8.373,27.244,15.879,1.1)}
{pt3dadd(-8.915,29.707,20.4,1.1)}
{pt3dadd(-9.085,29.707,20.16,1.1)}

{dendrite[42] connect dendrite[43](0), 1}
{access dendrite[43]}
{pt3dclear()}
{pt3dadd(-9.085,29.707,20.16,1.1)}
{pt3dadd(-9.085,29.707,20.2,0.8)}
{pt3dadd(-9.446,31.108,-1.04,0.8)}

{dendrite[43] connect dendrite[44](0), 1}
{access dendrite[44]}
{pt3dclear()}
{pt3dadd(-9.446,31.108,-1.04,0.8)}
{pt3dadd(-9.446,31.108,-1,1.1)}
{pt3dadd(-9.797,32.69,-8.32,1.1)}
{pt3dadd(-9.797,32.871,-8.48,1.1)}
{pt3dadd(-8.554,37.787,-14.4,1.1)}
{pt3dadd(-10.689,38.849,-15.52,1.1)}
{pt3dadd(-10.52,38.849,-15.52,1.1)}
{pt3dadd(-10.52,39.199,-15.52,1.1)}

{dendrite[44] connect dendrite[45](0), 1}
{access dendrite[45]}
{pt3dclear()}
{pt3dadd(-10.52,39.199,-15.52,1.1)}
{pt3dadd(-10.52,39.199,-15.48,1.1)}
{pt3dadd(-10.52,41.663,-8.64,1.1)}
{pt3dadd(-9.977,43.764,-4.88,1.1)}
{pt3dadd(-10.158,43.764,-4.88,1.1)}
{pt3dadd(-10.87,45.177,-26.16,1.1)}
{pt3dadd(-10.87,45.697,-25.84,1.1)}

{dendrite[45] connect dendrite[46](0), 1}
{access dendrite[46]}
{pt3dclear()}
{pt3dadd(-10.87,45.697,-25.84,1.1)}
{pt3dadd(-9.627,47.279,-25.84,1.1)}
{pt3dadd(-8.915,48.861,-32.64,1.1)}
{pt3dadd(-8.915,49.211,-32.88,1.1)}
{pt3dadd(-8.915,49.923,-33.6,1.1)}
{pt3dadd(-9.446,52.025,-13.84,1.1)}
{pt3dadd(-9.446,52.375,-13.76,1.1)}
{pt3dadd(-8.554,55.72,-19.36,1.1)}
{pt3dadd(-8.023,57.652,-33.68,1.1)}
{pt3dadd(-7.661,58.002,-33.76,1.1)}
{pt3dadd(-7.13,59.053,-36.24,1.1)}
{pt3dadd(-7.13,59.415,-36.16,1.1)}
{pt3dadd(-7.48,60.816,-36.48,1.1)}
{pt3dadd(-7.48,61.166,-37.28,1.1)}
{pt3dadd(-7.48,62.579,-39.84,1.1)}
{pt3dadd(-7.661,62.748,-39.84,1.1)}
{pt3dadd(-9.085,64.33,-39.6,1.1)}
{pt3dadd(-9.265,64.681,-39.6,1.1)}
{pt3dadd(-9.446,65.031,-39.84,1.1)}
{pt3dadd(-9.446,66.794,-41.36,1.1)}
{pt3dadd(-9.627,68.195,-41.6,1.1)}
{pt3dadd(-9.797,68.545,-41.6,1.1)}
{pt3dadd(-10.158,69.607,-41.68,1.1)}
{pt3dadd(-10.339,69.607,-41.92,1.1)}
{pt3dadd(-10.52,69.607,-42.24,1.1)}
{pt3dadd(-11.763,69.257,-43.12,1.1)}
{pt3dadd(-11.944,69.076,-43.12,1.1)}
{pt3dadd(-11.944,71.19,-43.12,1.1)}
{pt3dadd(-12.836,71.19,-43.04,0.8)}
{pt3dadd(-13.006,71.19,-43.04,0.8)}
{pt3dadd(-13.899,71.89,-43.2,0.8)}
{pt3dadd(-13.718,72.24,-43.28,0.8)}
{pt3dadd(-14.61,74.003,-49.28,0.8)}
{pt3dadd(-14.972,74.003,-49.28,0.8)}
{pt3dadd(-16.215,77.167,-50.08,0.8)}
{pt3dadd(-16.215,77.517,-50.08,0.8)}
{pt3dadd(-16.215,78.037,-50.16,0.8)}
{pt3dadd(-17.82,79.45,-54.32,0.8)}
{pt3dadd(-18,79.45,-54.4,0.8)}
{pt3dadd(-19.074,80.331,-55.52,0.8)}
{pt3dadd(-18.893,80.501,-56,0.8)}
{pt3dadd(-18.893,80.851,-56.48,0.8)}
{pt3dadd(-18.181,82.964,-59.52,0.8)}
{pt3dadd(-18,83.145,-60.56,0.8)}
{pt3dadd(-18,83.314,-61.52,0.8)}
{pt3dadd(-18.531,84.896,-69.52,0.8)}
{pt3dadd(-18.712,85.247,-69.44,0.8)}
{pt3dadd(-18.893,85.947,-67.04,0.8)}
{pt3dadd(-18.531,86.309,-67.28,0.8)}
{pt3dadd(-18.351,87.529,-70.88,0.8)}
{pt3dadd(-18.531,87.891,-71.6,0.8)}
{pt3dadd(-18.712,88.06,-72.48,0.8)}
{pt3dadd(-19.424,88.761,-75.68,0.8)}
{pt3dadd(-19.786,88.942,-76.16,0.8)}
{pt3dadd(-19.955,89.292,-76.24,0.8)}
{pt3dadd(-20.136,89.823,-79.76,0.8)}
{pt3dadd(-19.955,90.874,-80.88,0.8)}
{pt3dadd(-19.955,91.055,-80.88,0.8)}
{pt3dadd(-19.243,91.925,-85.6,0.8)}
{pt3dadd(-19.243,92.106,-85.6,0.8)}
{pt3dadd(-20.136,92.275,-87.04,0.8)}
{pt3dadd(-20.317,92.275,-88.08,0.8)}
{pt3dadd(-20.498,93.157,-88.64,0.8)}
{pt3dadd(-20.317,93.507,-88.64,0.8)}
{pt3dadd(-19.424,94.739,-91.84,0.8)}
{pt3dadd(-19.605,95.089,-92.24,0.8)}
{pt3dadd(-20.679,96.151,-92.32,0.8)}
{pt3dadd(-20.679,96.321,-91.92,0.8)}
{pt3dadd(-19.605,97.202,-86.96,0.8)}
{pt3dadd(-19.424,97.733,-86.16,0.8)}
{pt3dadd(-19.605,99.485,-82.8,0.8)}
{pt3dadd(-19.605,100.185,-82.8,0.8)}
{pt3dadd(-21.029,102.118,-82.8,0.8)}
{pt3dadd(-22.102,102.649,-81.92,0.8)}
{pt3dadd(-24.95,105.993,-109.6,0.8)}
{pt3dadd(-24.95,106.344,-109.68,0.8)}
{pt3dadd(-25.131,106.513,-109.68,0.8)}
{pt3dadd(-26.374,107.044,-111.76,0.8)}
{pt3dadd(-26.916,107.044,-112.96,0.8)}
{pt3dadd(-27.447,107.044,-113.68,0.8)}
{pt3dadd(-28.159,107.044,-114,0.8)}
{pt3dadd(-28.34,107.044,-114,0.8)}
{pt3dadd(-29.052,107.576,-117.2,0.8)}
{pt3dadd(-29.052,107.926,-118,0.8)}
{pt3dadd(-29.233,108.446,-118,0.8)}
{pt3dadd(-28.871,109.508,-118.16,0.8)}
{pt3dadd(-28.69,109.858,-119.44,0.8)}
{pt3dadd(-28.69,110.028,-120.16,0.8)}
{pt3dadd(-28.509,110.389,-120.96,0.8)}
{pt3dadd(-28.34,110.389,-120.96,0.8)}
{pt3dadd(-28.34,110.559,-120.96,0.8)}
{pt3dadd(-27.978,110.559,-121.6,0.8)}
{pt3dadd(-27.798,110.559,-122.48,0.8)}
{pt3dadd(-27.266,110.559,-122.96,0.8)}
{pt3dadd(-26.916,110.028,-122.72,0.8)}
{pt3dadd(-26.023,109.157,-122.64,0.8)}
{pt3dadd(-25.843,108.446,-122.64,0.8)}
{pt3dadd(-24.769,107.576,-123.04,0.8)}
{pt3dadd(-24.419,107.225,-123.6,0.8)}
{pt3dadd(-23.707,106.694,-123.68,0.8)}
{pt3dadd(-23.707,106.513,-123.68,0.8)}
{pt3dadd(-23.526,106.344,-123.44,0.8)}

{dendrite[45] connect dendrite[47](0), 1}
{access dendrite[47]}
{pt3dclear()}
{pt3dadd(-10.87,45.697,-25.84,1.1)}
{pt3dadd(-10.87,45.697,-25.8,0.8)}
{pt3dadd(-10.689,48.51,-26.64,0.8)}
{pt3dadd(-10.87,49.211,-37.04,0.8)}
{pt3dadd(-11.232,49.392,-37.04,0.8)}
{pt3dadd(-11.401,49.573,-37.04,0.8)}
{pt3dadd(-12.475,49.923,-37.04,0.8)}
{pt3dadd(-12.655,49.923,-37.2,0.8)}
{pt3dadd(-12.655,50.273,-37.76,0.8)}
{pt3dadd(-12.655,53.256,-41.68,0.8)}
{pt3dadd(-12.836,53.256,-41.6,0.8)}
{pt3dadd(-14.26,53.437,-46,0.8)}
{pt3dadd(-14.441,53.437,-46.72,0.8)}
{pt3dadd(-15.153,53.607,-51.36,0.8)}
{pt3dadd(-15.322,53.607,-51.36,0.8)}
{pt3dadd(-15.322,53.788,-51.36,0.8)}
{pt3dadd(-15.153,54.838,-55.68,0.8)}
{pt3dadd(-14.972,54.838,-56.08,0.8)}
{pt3dadd(-14.26,55.889,-57.52,0.8)}
{pt3dadd(-14.441,56.42,-57.6,0.8)}
{pt3dadd(-14.791,57.121,-57.68,0.8)}
{pt3dadd(-15.503,58.353,-57.68,0.8)}
{pt3dadd(-15.684,58.353,-57.92,0.8)}
{pt3dadd(-15.684,58.533,-58.48,0.8)}
{pt3dadd(-17.108,58.884,-75.6,0.8)}

{dendrite[44] connect dendrite[48](0), 1}
{access dendrite[48]}
{pt3dclear()}
{pt3dadd(-10.52,39.199,-15.52,1.1)}
{pt3dadd(-12.655,40.25,-16,1.1)}
{pt3dadd(-12.836,40.25,-16.64,1.1)}
{pt3dadd(-13.718,42.883,-22.72,1.1)}
{pt3dadd(-13.718,43.064,-22.72,1.1)}
{pt3dadd(-13.548,46.047,-22.88,1.1)}
{pt3dadd(-13.548,46.228,-22.88,1.1)}
{pt3dadd(-16.034,47.459,-25.04,1.1)}
{pt3dadd(-13.718,50.443,-18.72,1.1)}
{pt3dadd(-13.899,50.443,-19.52,1.1)}
{pt3dadd(-15.684,51.155,-31.52,1.1)}
{pt3dadd(-14.61,54.669,-41.36,1.1)}
{pt3dadd(-16.034,56.07,-49.52,1.1)}
{pt3dadd(-16.215,56.07,-49.44,1.1)}
{pt3dadd(-17.288,58.353,-52.32,1.1)}
{pt3dadd(-17.288,58.533,-52.64,1.1)}
{pt3dadd(-20.498,59.053,-55.28,1.1)}
{pt3dadd(-21.741,61.347,-56.24,1.1)}
{pt3dadd(-22.102,63.98,-56.24,1.1)}
{pt3dadd(-22.102,64.161,-56.24,1.1)}
{pt3dadd(-23.345,65.381,-63.84,1.1)}
{pt3dadd(-23.345,65.562,-64,1.1)}
{pt3dadd(-25.662,66.443,-64,1.1)}
{pt3dadd(-25.843,66.794,-64,1.1)}
{pt3dadd(-27.266,70.308,-64,1.1)}
{pt3dadd(-26.554,74.003,-64.56,1.1)}
{pt3dadd(-26.554,74.173,-64.64,1.1)}
{pt3dadd(-29.052,74.873,-66.56,1.1)}
{pt3dadd(-29.233,75.054,-66.56,1.1)}
{pt3dadd(-30.476,78.568,-72.32,1.1)}
{pt3dadd(-31.188,79.981,-71.68,1.1)}
{pt3dadd(-31.188,80.501,-72.4,1.1)}
{pt3dadd(-31.368,81.913,-79.76,1.1)}
{pt3dadd(-31.188,82.264,-79.76,1.1)}
{pt3dadd(-32.08,84.727,-89.36,1.1)}
{pt3dadd(-32.261,85.077,-89.36,1.1)}
{pt3dadd(-33.504,87.529,-95.52,1.1)}
{pt3dadd(-33.323,90.874,-86.24,1.1)}
{pt3dadd(-32.261,93.507,-91.28,1.1)}
{pt3dadd(-32.261,93.688,-91.28,1.1)}

} //topol6()

//---------------------------------
proc topol7() {


{dendrite[43] connect dendrite[49](0), 1}
{access dendrite[49]}
{pt3dclear()}
{pt3dadd(-9.446,31.108,-1.04,0.8)}
{pt3dadd(-12.124,33.278,5.44,0.8)}
{pt3dadd(-12.689,35.165,5.44,0.8)}
{pt3dadd(-12.802,35.538,5.44,0.8)}
{pt3dadd(-14.486,37.267,6.32,0.8)}
{pt3dadd(-14.633,37.47,6.32,0.8)}
{pt3dadd(-15.413,43.312,6.16,0.8)}
{pt3dadd(-15.492,43.866,6.16,0.8)}
{pt3dadd(-17.616,46.205,5.84,0.8)}
{pt3dadd(-18.26,46.68,5.84,0.8)}
{pt3dadd(-20.532,48.149,5.92,0.8)}
{pt3dadd(-20.961,48.759,5.92,0.8)}
{pt3dadd(-22.441,51.697,5.92,0.8)}
{pt3dadd(-22.814,52.657,6.72,0.8)}
{pt3dadd(-23.763,54.432,4.16,0.8)}
{pt3dadd(-24.227,54.872,4.16,0.8)}
{pt3dadd(-25.865,55.878,7.36,0.8)}
{pt3dadd(-26.295,56.488,7.2,0.8)}
{pt3dadd(-27.278,58.081,7.2,0.8)}
{pt3dadd(-27.447,59.189,7.04,0.8)}
{pt3dadd(-29.153,62.884,6.16,0.8)}
{pt3dadd(-29.877,63.901,5.6,0.8)}
{pt3dadd(-32.939,66.048,5.6,0.8)}
{pt3dadd(-33.052,66.421,4.48,0.8)}
{pt3dadd(-33.368,66.658,6.48,0.8)}
{pt3dadd(-33.312,67.008,7.28,0.8)}

{dendrite[42] connect dendrite[50](0), 1}
{access dendrite[50]}
{pt3dclear()}
{pt3dadd(-9.085,29.707,20.16,1.1)}
{pt3dadd(-8.938,31.82,22.48,0.8)}
{pt3dadd(-8.949,33.786,18.32,0.8)}
{pt3dadd(-8.927,33.956,18.88,0.8)}
{pt3dadd(-9.966,35.21,21.84,0.8)}
{pt3dadd(-13.706,36.589,18.4,0.8)}
{pt3dadd(-13.876,36.623,18.08,0.8)}
{pt3dadd(-14.509,38.16,16.4,0.8)}
{pt3dadd(-14.486,38.329,19.12,0.8)}
{pt3dadd(-14.463,40.476,13.52,0.8)}
{pt3dadd(-14.644,40.499,13.6,0.8)}
{pt3dadd(-16.746,41.945,14.16,0.8)}
{pt3dadd(-17.063,42.182,13.04,0.8)}
{pt3dadd(-17.842,42.849,8.56,0.8)}
{pt3dadd(-17.967,43.233,8.56,0.8)}
{pt3dadd(-20.407,45.81,11.36,0.8)}
{pt3dadd(-21.018,46.443,11.12,0.8)}
{pt3dadd(-21.955,49.29,8.08,0.8)}
{pt3dadd(-22.396,49.9,11.44,0.8)}
{pt3dadd(-24.294,53.46,5.04,0.8)}
{pt3dadd(-24.475,53.482,7.76,0.8)}
{pt3dadd(-26.193,55.042,9.84,0.8)}
{pt3dadd(-26.837,55.505,9.84,0.8)}
{pt3dadd(-28.905,57.121,10.4,0.8)}
{pt3dadd(-28.543,58.127,11.76,0.8)}
{pt3dadd(-29.052,60.364,11.92,0.8)}
{pt3dadd(-29.221,61.46,8.08,0.8)}
{pt3dadd(-29.764,63.528,8,0.8)}
{pt3dadd(-29.73,63.698,8,0.8)}

{dendrite[35] connect dendrite[51](0), 1}
{access dendrite[51]}
{pt3dclear()}
{pt3dadd(1.242,17.752,43.76,1.74)}
{pt3dadd(1.242,17.752,43.8,0.8)}
{pt3dadd(2.497,18.283,44.08,0.8)}
{pt3dadd(2.678,18.283,44.08,0.8)}
{pt3dadd(3.389,18.283,44.08,0.8)}
{pt3dadd(3.559,18.803,44.08,0.8)}
{pt3dadd(3.74,20.215,44,0.8)}
{pt3dadd(3.921,20.566,44,0.8)}
{pt3dadd(5.875,21.447,45.6,0.8)}
{pt3dadd(5.875,21.616,45.2,0.8)}
{pt3dadd(6.056,21.797,44.56,0.8)}
{pt3dadd(5.875,23.899,39.52,0.8)}
{pt3dadd(5.875,24.08,39.6,0.8)}
{pt3dadd(8.734,24.961,36.8,0.8)}
{pt3dadd(8.734,25.131,36.8,0.8)}
{pt3dadd(9.446,27.594,34.08,1.1)}
{pt3dadd(9.446,27.775,33.92,1.1)}
{pt3dadd(9.627,27.775,33.84,1.1)}
{pt3dadd(11.051,30.589,46.64,1.1)}
{pt3dadd(11.401,30.758,44.72,1.1)}
{pt3dadd(11.944,31.108,43.12,1.1)}
{pt3dadd(13.718,32.871,32.479,1.1)}
{pt3dadd(13.899,32.871,32.479,1.1)}
{pt3dadd(14.43,34.803,18.48,1.1)}
{pt3dadd(14.26,35.154,32.72,1.1)}

{dendrite[51] connect dendrite[52](0), 1}
{access dendrite[52]}
{pt3dclear()}
{pt3dadd(14.26,35.154,32.72,1.1)}
{pt3dadd(14.26,35.154,32.759,1.1)}
{pt3dadd(16.034,37.086,40.24,1.1)}
{pt3dadd(15.865,37.086,39.76,1.1)}
{pt3dadd(19.074,39.018,30.56,1.1)}
{pt3dadd(19.243,39.018,30,1.1)}
{pt3dadd(20.498,42.013,27.44,1.1)}
{pt3dadd(20.498,42.182,27.12,1.1)}
{pt3dadd(21.56,45.346,23.68,1.1)}
{pt3dadd(21.56,45.527,23.68,1.1)}
{pt3dadd(23.165,46.228,14.64,1.1)}
{pt3dadd(23.345,46.409,14.56,1.1)}
{pt3dadd(25.662,50.273,13.84,1.1)}
{pt3dadd(25.843,50.443,13.84,1.1)}
{pt3dadd(29.583,54.488,13.04,1.1)}
{pt3dadd(29.764,54.669,12.64,1.1)}
{pt3dadd(31.007,55.019,11.52,1.1)}
{pt3dadd(31.188,55.189,11.52,1.1)}
{pt3dadd(30.656,58.183,6.08,1.1)}
{pt3dadd(30.656,58.533,5.92,1.1)}
{pt3dadd(34.577,62.217,21.92,1.1)}
{pt3dadd(35.64,66.613,1.76,1.1)}
{pt3dadd(39.561,68.195,1.76,1.1)}
{pt3dadd(39.742,68.907,1.76,1.1)}
{pt3dadd(39.391,71.89,1.52,1.1)}
{pt3dadd(38.849,72.591,1.52,1.1)}
{pt3dadd(38.318,73.653,1.6,1.1)}
{pt3dadd(38.849,74.003,1.6,1.1)}
{pt3dadd(40.273,75.585,0.88,1.1)}
{pt3dadd(40.273,76.286,0.8,1.1)}
{pt3dadd(39.922,78.399,0.8,1.1)}
{pt3dadd(39.922,78.749,0.8,1.1)}
{pt3dadd(40.453,80.851,0.56,1.1)}
{pt3dadd(40.815,81.201,0.56,1.1)}
{pt3dadd(42.058,82.264,0.4,1.1)}
{pt3dadd(41.346,83.665,0.08,1.1)}
{pt3dadd(41.527,84.196,0,1.1)}
{pt3dadd(43.312,86.659,-0.16,1.1)}
{pt3dadd(43.482,86.829,-0.32,1.1)}
{pt3dadd(42.42,88.241,-0.32,1.1)}
{pt3dadd(43.312,89.993,-0.16,0.8)}
{pt3dadd(43.312,90.173,-0.16,0.8)}
{pt3dadd(43.482,94.038,11.2,0.8)}
{pt3dadd(43.663,94.208,11.28,0.8)}
{pt3dadd(44.194,100.366,11.76,0.8)}
{pt3dadd(44.194,100.716,11.76,0.8)}
{pt3dadd(44.906,103.88,11.76,0.8)}
{pt3dadd(44.906,104.061,12,0.8)}

{dendrite[51] connect dendrite[53](0), 1}
{access dendrite[53]}
{pt3dclear()}
{pt3dadd(14.26,35.154,32.72,1.1)}
{pt3dadd(14.26,34.973,32.72,1.1)}
{pt3dadd(13.548,36.205,39.04,1.1)}
{pt3dadd(13.548,36.386,37.36,1.1)}
{pt3dadd(13.899,37.617,23.52,1.1)}
{pt3dadd(15.153,39.719,6.08,1.1)}
{pt3dadd(15.153,39.9,5.76,1.1)}
{pt3dadd(13.367,44.996,2.24,1.1)}
{pt3dadd(18.181,47.109,-2.16,1.1)}
{pt3dadd(18.351,47.109,-2.64,1.1)}
{pt3dadd(18.351,47.279,-3.04,1.1)}
{pt3dadd(18.712,49.392,-7.68,1.1)}
{pt3dadd(18.893,49.742,-7.84,1.1)}
{pt3dadd(21.39,52.025,-18.16,1.1)}
{pt3dadd(21.56,52.205,-18.32,1.1)}
{pt3dadd(21.741,55.37,-25.12,1.1)}
{pt3dadd(22.272,55.889,-25.12,1.1)}
{pt3dadd(23.707,58.002,-26.08,1.1)}
{pt3dadd(23.876,58.183,-26.32,1.1)}
{pt3dadd(25.311,60.285,-32.56,1.1)}
{pt3dadd(25.662,60.635,-32.64,1.1)}
{pt3dadd(27.086,62.048,-32.8,1.1)}
{pt3dadd(27.086,62.217,-34.08,1.1)}
{pt3dadd(27.086,65.562,-34.48,1.1)}
{pt3dadd(26.916,65.743,-34.48,1.1)}
{pt3dadd(26.916,66.093,-34.48,1.1)}

{dendrite[18] connect dendrite[54](0), 1}
{access dendrite[54]}
{pt3dclear()}
{pt3dadd(-3.062,6.689,18.4,1.1)}
{pt3dadd(-3.875,7.186,18.4,1.1)}
{pt3dadd(-5.921,7.909,19.84,1.1)}
{pt3dadd(-6.101,7.932,19.92,1.1)}
{pt3dadd(-6.972,8.09,17.44,1.1)}
{pt3dadd(-7.186,7.943,17.52,1.1)}
{pt3dadd(-9.175,7.943,16.8,1.1)}
{pt3dadd(-9.345,7.977,19.36,1.1)}
{pt3dadd(-11.107,8.282,17.6,1.1)}
{pt3dadd(-11.277,8.316,14.24,1.1)}
{pt3dadd(-13.593,8.542,16.4,1.1)}
{pt3dadd(-13.559,8.723,19.6,1.1)}

{dendrite[54] connect dendrite[55](0), 1}
{access dendrite[55]}
{pt3dclear()}
{pt3dadd(-13.559,8.723,19.6,1.1)}
{pt3dadd(-15.345,8.859,13.36,1.1)}
{pt3dadd(-16.226,9.006,13.44,1.1)}
{pt3dadd(-16.43,8.87,13.44,1.1)}
{pt3dadd(-16.87,8.407,13.44,1.1)}
{pt3dadd(-16.904,8.237,13.44,1.1)}
{pt3dadd(-16.938,8.068,13.52,1.1)}

{dendrite[55] connect dendrite[56](0), 1}
{access dendrite[56]}
{pt3dclear()}
{pt3dadd(-16.938,8.068,13.52,1.1)}
{pt3dadd(-16.43,5.83,15.12,0.8)}
{pt3dadd(-16.452,5.661,15.12,0.8)}
{pt3dadd(-17.82,4.113,15.2,0.8)}
{pt3dadd(-21.345,5.627,15.36,0.8)}
{pt3dadd(-23.051,5.22,15.68,0.8)}
{pt3dadd(-23.255,5.073,12.24,0.8)}
{pt3dadd(-24.905,6.972,14.48,0.8)}
{pt3dadd(-25.402,7.243,13.68,0.8)}
{pt3dadd(-27.119,8.791,15.04,0.8)}
{pt3dadd(-27.097,8.972,14.64,0.8)}
{pt3dadd(-27.481,11.887,12.24,0.8)}
{pt3dadd(-27.628,12.09,12,0.8)}
{pt3dadd(-29.029,12.339,12.96,0.8)}
{pt3dadd(-29.854,11.774,15.28,0.8)}
{pt3dadd(-30.442,11.525,13.92,0.8)}
{pt3dadd(-31.82,10.87,15.92,0.8)}
{pt3dadd(-32.205,10.768,12.16,0.8)}
{pt3dadd(-34.227,10.588,15.44,0.8)}
{pt3dadd(-34.193,10.757,15.44,0.8)}
{pt3dadd(-34.724,10.847,15.44,0.8)}

{dendrite[55] connect dendrite[57](0), 1}
{access dendrite[57]}
{pt3dclear()}
{pt3dadd(-16.938,8.068,13.52,1.1)}
{pt3dadd(-16.938,8.068,13.559,0.8)}
{pt3dadd(-16.667,8.554,14.56,0.8)}
{pt3dadd(-17.164,8.825,14.56,0.8)}
{pt3dadd(-19.006,9.684,14.56,0.8)}
{pt3dadd(-18.023,11.119,11.84,0.8)}
{pt3dadd(-17.967,11.458,11.84,0.8)}
{pt3dadd(-19.221,12.576,12.4,0.8)}
{pt3dadd(-20.091,12.723,14.16,0.8)}
{pt3dadd(-19.921,12.701,13.44,0.8)}
{pt3dadd(-19.684,13.017,14.64,0.8)}
{pt3dadd(-19.198,14.712,14.24,0.8)}
{pt3dadd(-19.379,14.746,15.92,0.8)}
{pt3dadd(-19.661,15.153,15.12,0.8)}
{pt3dadd(-19.978,16.452,15.12,0.8)}
{pt3dadd(-19.944,16.633,12,0.8)}
{pt3dadd(-20.125,16.656,15.12,0.8)}
{pt3dadd(-21.39,18.667,11.04,0.8)}
{pt3dadd(-21.707,19.978,8.4,0.8)}
{pt3dadd(-21.616,20.498,8.24,0.8)}
{pt3dadd(-22.803,21.955,10.08,0.8)}
{pt3dadd(-22.95,22.159,8.96,0.8)}
{pt3dadd(-23.244,22.566,12.8,0.8)}
{pt3dadd(-23.21,22.735,12.8,0.8)}
{pt3dadd(-23.786,23.56,17.04,0.8)}
{pt3dadd(-23.583,23.696,16.96,0.8)}

{dendrite[54] connect dendrite[58](0), 1}
{access dendrite[58]}
{pt3dclear()}
{pt3dadd(-13.559,8.723,19.6,1.1)}
{pt3dadd(-13.559,8.723,19.64,0.8)}
{pt3dadd(-14.079,9.887,18.48,0.8)}
{pt3dadd(-14.26,9.91,19.6,0.8)}
{pt3dadd(-14.418,11.017,17.68,0.8)}
{pt3dadd(-13.695,11.062,16.239,0.8)}
{pt3dadd(-11.989,11.48,18.96,0.8)}
{pt3dadd(-11.718,11.966,18.96,0.8)}
{pt3dadd(-12.192,12.407,19.28,0.8)}
{pt3dadd(-14.204,13.3,16.72,0.8)}
{pt3dadd(-14.904,13.424,19.04,0.8)}
{pt3dadd(-16.249,14.011,17.28,0.8)}
{pt3dadd(-16.418,14.045,18.72,0.8)}
{pt3dadd(-17.582,15.673,22,0.8)}
{pt3dadd(-17.729,15.876,22,0.8)}
{pt3dadd(-19.616,17.469,23.2,0.8)}
{pt3dadd(-19.91,17.876,21.52,0.8)}
{pt3dadd(-21.752,18.735,19.36,0.8)}
{pt3dadd(-21.718,18.904,19.44,0.8)}
{pt3dadd(-23.198,20.769,16.56,0.8)}
{pt3dadd(-23.345,20.972,19.6,0.8)}
{pt3dadd(-24.238,23.097,18.96,0.8)}
{pt3dadd(-24.351,23.481,18.96,0.8)}
{pt3dadd(-25.504,26.182,17.2,0.8)}
{pt3dadd(-25.436,26.521,19.28,0.8)}
{pt3dadd(-26.509,27.605,17.68,0.8)}
{pt3dadd(-26.69,27.639,17.52,0.8)}
{pt3dadd(-26.86,27.673,17.52,0.8)}
{pt3dadd(-31.063,29.481,17.84,0.8)}
{pt3dadd(-31.244,29.515,18.96,0.8)}
{pt3dadd(-33.549,30.815,16.239,0.8)}
{pt3dadd(-35.764,32.634,16.239,0.8)}
{pt3dadd(-35.9,32.837,16.239,0.8)}
{pt3dadd(-36.08,32.871,16.239,0.8)}
{pt3dadd(-38.205,35.572,14.24,0.8)}
{pt3dadd(-38.702,35.843,14.24,0.8)}
{pt3dadd(-42.058,37.323,14.24,0.8)}
{pt3dadd(-42.928,37.482,14.32,0.8)}
{pt3dadd(-46.736,38.51,14.4,0.8)}
{pt3dadd(-46.906,38.544,14.4,0.8)}
{pt3dadd(-51.03,42.838,12.96,0.8)}
{pt3dadd(-51.29,43.425,14.4,0.8)}
{pt3dadd(-54.669,46.872,14.08,0.8)}
{pt3dadd(-55.211,47.866,14.08,0.8)}
{pt3dadd(-57.98,50.669,12.08,0.8)}
{pt3dadd(-58.149,50.703,13.68,0.8)}
{pt3dadd(-65.076,53.528,9.92,0.8)}
{pt3dadd(-65.89,54.036,9.92,0.8)}
{pt3dadd(-69.155,56.036,8.56,0.8)}
{pt3dadd(-70.048,57.087,11.6,0.8)}
{pt3dadd(-73.337,61.053,9.36,0.8)}
{pt3dadd(-73.935,62.771,9.36,0.8)}
{pt3dadd(-78.444,66.963,9.84,0.8)}
{pt3dadd(-79.201,67.811,8.72,0.8)}
{pt3dadd(-81.122,69.212,11.04,0.8)}
{pt3dadd(-81.823,69.336,11.04,0.8)}

{soma[0] connect apical_dendrite[0](0), 1}
{access apical_dendrite[0]}
{pt3dclear()}
{pt3dadd(2.497,-13.006,11.12,4.58)}
{pt3dadd(3.209,-14.938,11.12,4.58)}
{pt3dadd(4.632,-17.051,8.88,4.26)}
{pt3dadd(4.632,-17.221,9.12,4.26)}
{pt3dadd(6.056,-18.633,9.04,3.62)}
{pt3dadd(7.48,-20.034,20.24,3.62)}
{pt3dadd(9.977,-20.735,37.2,3.62)}
{pt3dadd(11.582,-22.317,41.28,3.62)}
{pt3dadd(12.294,-23.549,58.56,3.62)}
{pt3dadd(13.006,-25.311,58.72,3.62)}
{pt3dadd(12.475,-27.244,67.76,3.62)}
{pt3dadd(11.232,-28.826,67.44,3.62)}
{pt3dadd(9.446,-30.227,72.8,3.62)}
{pt3dadd(7.661,-30.939,72.72,3.32)}
{pt3dadd(7.661,-31.108,72.8,3.32)}
{pt3dadd(6.949,-31.99,59.6,3.32)}
{pt3dadd(6.949,-32.171,59.68,3.32)}
{pt3dadd(5.875,-34.103,59.92,3.32)}
{pt3dadd(5.344,-37.787,62.72,3.32)}
{pt3dadd(5.344,-37.968,62.72,3.32)}
{pt3dadd(5.344,-37.787,65.44,3.32)}

} //topol7()

//---------------------------------
proc topol8() {

{apical_dendrite[0] connect apical_dendrite[1](0), 1}
{access apical_dendrite[1]}
{pt3dclear()}
{pt3dadd(5.344,-37.787,65.44,3.32)}
{pt3dadd(5.344,-37.787,65.48,0.8)}
{pt3dadd(9.446,-35.335,122.4,0.8)}
{pt3dadd(9.627,-35.335,122.4,0.8)}
{pt3dadd(11.232,-34.803,122.16,0.8)}
{pt3dadd(11.401,-34.803,122.08,0.8)}
{pt3dadd(14.61,-35.504,128.32,0.8)}
{pt3dadd(16.396,-34.973,128.24,0.8)}
{pt3dadd(16.577,-35.154,128.24,0.8)}
{pt3dadd(18,-36.035,124.64,0.8)}
{pt3dadd(18.181,-36.205,124.64,0.8)}
{pt3dadd(20.136,-36.035,127.12,0.8)}
{pt3dadd(20.317,-36.035,132.48,0.8)}
{pt3dadd(21.741,-36.555,113.68,0.8)}
{pt3dadd(21.741,-36.736,113.68,0.8)}
{pt3dadd(26.193,-36.736,113.76,0.8)}

{apical_dendrite[1] connect apical_dendrite[2](0), 1}
{access apical_dendrite[2]}
{pt3dclear()}
{pt3dadd(26.193,-36.736,113.76,0.8)}
{pt3dadd(26.193,-36.736,113.8,0.8)}
{pt3dadd(26.374,-36.736,112.4,0.8)}
{pt3dadd(30.476,-35.335,132.56,0.8)}
{pt3dadd(30.295,-35.335,132.56,0.8)}
{pt3dadd(35.64,-35.854,132.56,0.8)}
{pt3dadd(35.64,-36.035,132.56,0.8)}
{pt3dadd(39.561,-33.922,132.56,0.8)}
{pt3dadd(39.922,-33.753,132.56,0.8)}
{pt3dadd(42.42,-34.272,132.56,0.8)}
{pt3dadd(42.589,-34.272,132.56,0.8)}
{pt3dadd(46.16,-32.171,144.16,0.8)}
{pt3dadd(49.369,-33.753,148.56,0.8)}
{pt3dadd(49.55,-33.753,148.64,0.8)}
{pt3dadd(51.866,-35.854,148.8,0.8)}
{pt3dadd(59.697,-36.205,148.8,0.8)}
{pt3dadd(59.878,-36.205,148.8,0.8)}
{pt3dadd(66.477,-39.199,148.8,0.8)}
{pt3dadd(70.398,-40.6,148.8,0.8)}
{pt3dadd(70.579,-40.6,149.36,0.8)}
{pt3dadd(72.353,-43.245,138,0.8)}
{pt3dadd(75.382,-44.827,152.16,0.8)}
{pt3dadd(75.563,-44.827,152.32,0.8)}
{pt3dadd(78.241,-45.878,152.4,0.8)}
{pt3dadd(78.422,-45.878,152.4,0.8)}
{pt3dadd(81.088,-46.759,154.96,0.8)}
{pt3dadd(81.45,-46.928,154.96,0.8)}
{pt3dadd(84.829,-46.928,155.44,0.8)}
{pt3dadd(85.009,-46.759,156,0.8)}
{pt3dadd(86.252,-46.228,157.84,0.8)}
{pt3dadd(86.433,-46.047,157.84,0.8)}
{pt3dadd(89.111,-46.228,157.84,0.8)}
{pt3dadd(89.642,-46.228,157.84,0.8)}

{apical_dendrite[1] connect apical_dendrite[3](0), 1}
{access apical_dendrite[3]}
{pt3dclear()}
{pt3dadd(26.193,-36.736,113.76,0.8)}
{pt3dadd(30.611,-38.306,165.6,1.1)}
{pt3dadd(31.662,-38.069,165.6,1.1)}
{pt3dadd(31.73,-38.239,165.6,1.1)}
{pt3dadd(34.6,-39.177,165.92,1.1)}
{pt3dadd(34.826,-39.278,166.88,1.1)}
{pt3dadd(34.95,-40.544,177.28,1.1)}
{pt3dadd(35.018,-40.713,177.28,1.1)}
{pt3dadd(38.34,-42.793,178.72,1.1)}
{pt3dadd(38.566,-42.894,178.88,1.1)}
{pt3dadd(40.996,-45.143,179.2,1.1)}
{pt3dadd(41.064,-45.312,179.44,1.1)}
{pt3dadd(41.516,-47.403,190.4,1.1)}
{pt3dadd(41.572,-47.561,190.4,1.1)}
{pt3dadd(43.753,-48.205,190,1.1)}
{pt3dadd(45.019,-50.917,196.64,1.1)}
{pt3dadd(49.347,-51.663,200.96,0.8)}
{pt3dadd(52.782,-50.669,201.28,0.8)}
{pt3dadd(56.161,-53.867,214.56,0.8)}
{pt3dadd(60.387,-54.838,220.96,0.8)}
{pt3dadd(60.952,-54.804,220.96,0.8)}

{apical_dendrite[0] connect apical_dendrite[4](0), 1}
{access apical_dendrite[4]}
{pt3dclear()}
{pt3dadd(5.344,-37.787,65.44,3.32)}
{pt3dadd(10.52,-39.199,56.64,3)}
{pt3dadd(10.87,-39.199,71.76,3)}

{apical_dendrite[4] connect apical_dendrite[5](0), 1}
{access apical_dendrite[5]}
{pt3dclear()}
{pt3dadd(10.87,-39.199,71.76,3)}
{pt3dadd(10.87,-39.199,71.8,0.8)}
{pt3dadd(12.113,-37.267,127.28,0.8)}
{pt3dadd(13.006,-36.917,126.56,0.8)}
{pt3dadd(13.187,-36.917,126.56,0.8)}
{pt3dadd(14.791,-37.267,118.88,0.8)}
{pt3dadd(14.791,-37.436,116.8,0.8)}
{pt3dadd(16.757,-37.968,139.84,0.8)}
{pt3dadd(19.243,-38.499,115.92,0.8)}
{pt3dadd(20.498,-38.499,150.56,0.8)}
{pt3dadd(21.21,-38.668,150.56,0.8)}
{pt3dadd(21.921,-38.849,150.24,0.8)}
{pt3dadd(22.453,-39.199,150.16,0.8)}
{pt3dadd(22.633,-39.199,149.12,0.8)}
{pt3dadd(23.165,-40.781,140.72,0.8)}
{pt3dadd(23.165,-41.132,140.56,0.8)}
{pt3dadd(21.741,-41.832,140.48,0.8)}
{pt3dadd(21.56,-41.832,140.48,0.8)}
{pt3dadd(22.453,-42.533,140.48,0.8)}
{pt3dadd(22.633,-42.533,140.48,0.8)}
{pt3dadd(24.588,-42.182,139.68,0.8)}
{pt3dadd(24.769,-42.013,139.68,0.8)}
{pt3dadd(26.193,-42.182,161.6,0.8)}
{pt3dadd(26.374,-42.363,161.6,0.8)}
{pt3dadd(29.052,-44.115,169.84,0.8)}
{pt3dadd(29.233,-44.115,170,0.8)}
{pt3dadd(30.295,-44.996,169.92,0.8)}
{pt3dadd(30.476,-44.996,169.92,0.8)}
{pt3dadd(31.188,-45.697,170.8,0.8)}
{pt3dadd(31.368,-45.878,170.8,0.8)}
{pt3dadd(31.719,-46.578,171.12,0.8)}
{pt3dadd(31.719,-46.928,171.84,0.8)}
{pt3dadd(31.549,-47.991,174.48,0.8)}
{pt3dadd(31.368,-48.16,174.8,0.8)}
{pt3dadd(30.656,-48.861,173.84,0.8)}
{pt3dadd(30.114,-48.861,173.92,0.8)}
{pt3dadd(29.944,-49.041,173.92,0.8)}
{pt3dadd(30.114,-48.861,174.8,0.8)}
{pt3dadd(30.826,-48.861,177.12,0.8)}
{pt3dadd(31.007,-48.861,178.08,0.8)}
{pt3dadd(32.611,-49.392,178.56,0.8)}
{pt3dadd(32.792,-49.392,178.48,0.8)}
{pt3dadd(33.866,-49.742,178.32,0.8)}
{pt3dadd(34.035,-49.923,179.12,0.8)}
{pt3dadd(35.821,-50.974,182.16,0.8)}
{pt3dadd(36.352,-51.324,182.48,0.8)}
{pt3dadd(36.352,-51.505,182.4,0.8)}
{pt3dadd(36.894,-51.855,184.96,0.8)}
{pt3dadd(37.244,-51.855,194.32,0.8)}
{pt3dadd(37.425,-51.855,194.24,0.8)}
{pt3dadd(37.787,-52.025,194.24,0.8)}
{pt3dadd(37.956,-52.025,194.24,0.8)}
{pt3dadd(37.956,-52.205,195.04,0.8)}
{pt3dadd(37.606,-52.737,196,0.8)}
{pt3dadd(37.244,-53.256,197.52,0.8)}
{pt3dadd(37.075,-53.437,198.08,0.8)}
{pt3dadd(36.894,-54.669,198.64,0.8)}
{pt3dadd(36.894,-54.838,198.64,0.8)}
{pt3dadd(37.606,-55.189,198.64,0.8)}
{pt3dadd(38.137,-55.189,199.52,0.8)}
{pt3dadd(38.668,-55.019,202.08,0.8)}
{pt3dadd(38.849,-54.838,202.8,0.8)}
{pt3dadd(40.103,-53.788,204.08,0.8)}
{pt3dadd(40.273,-53.788,204.08,0.8)}
{pt3dadd(40.634,-53.607,208,0.8)}
{pt3dadd(40.985,-53.957,208.08,0.8)}
{pt3dadd(43.132,-55.901,208.08,0.8)}
{pt3dadd(43.312,-55.901,208.24,0.8)}
{pt3dadd(44.375,-56.951,209.28,0.8)}
{pt3dadd(44.555,-56.951,210.08,0.8)}
{pt3dadd(46.16,-56.771,213.44,0.8)}
{pt3dadd(46.16,-56.601,213.36,0.8)}
{pt3dadd(47.584,-57.471,213.36,0.8)}
{pt3dadd(47.765,-57.471,213.44,0.8)}
{pt3dadd(49.72,-58.002,220.64,0.8)}
{pt3dadd(49.9,-58.002,220.8,0.8)}
{pt3dadd(50.793,-58.533,220.72,0.8)}
{pt3dadd(50.793,-58.703,221.36,0.8)}
{pt3dadd(52.398,-59.765,221.84,0.8)}
{pt3dadd(52.578,-59.935,221.76,0.8)}
{pt3dadd(53.641,-62.217,221.12,0.8)}
{pt3dadd(53.641,-62.398,222,0.8)}
{pt3dadd(56.499,-63.279,229.44,0.8)}
{pt3dadd(56.669,-63.279,229.44,0.8)}
{pt3dadd(58.635,-64.161,230.72,0.8)}
{pt3dadd(59.878,-65.562,236.8,0.8)}
{pt3dadd(60.059,-65.562,236.8,0.8)}
{pt3dadd(62.556,-67.675,236.56,0.8)}
{pt3dadd(62.737,-67.675,236.56,0.8)}

{apical_dendrite[4] connect apical_dendrite[6](0), 1}
{access apical_dendrite[6]}
{pt3dclear()}
{pt3dadd(10.87,-39.199,71.76,3)}
{pt3dadd(14.26,-38.849,63.52,2.68)}
{pt3dadd(14.26,-39.018,68.48,2.68)}

{apical_dendrite[6] connect apical_dendrite[7](0), 1}
{access apical_dendrite[7]}
{pt3dclear()}
{pt3dadd(14.26,-39.018,68.48,2.68)}
{pt3dadd(14.26,-39.018,68.52,0.8)}
{pt3dadd(14.441,-41.482,97.12,0.8)}
{pt3dadd(14.26,-41.482,97.12,0.8)}

{apical_dendrite[7] connect apical_dendrite[8](0), 1}
{access apical_dendrite[8]}
{pt3dclear()}
{pt3dadd(14.26,-41.482,97.12,0.8)}
{pt3dadd(14.26,-41.482,97.16,0.8)}
{pt3dadd(16.215,-41.301,83.52,0.8)}
{pt3dadd(17.288,-41.832,82.56,0.8)}
{pt3dadd(18,-42.182,82.4,0.8)}
{pt3dadd(18.181,-42.363,82.56,0.8)}
{pt3dadd(18,-43.414,82.56,0.8)}
{pt3dadd(17.82,-43.414,82.56,0.8)}
{pt3dadd(18.351,-44.296,82.56,0.8)}
{pt3dadd(19.074,-44.646,82.56,0.8)}
{pt3dadd(20.317,-45.346,81.68,0.8)}
{pt3dadd(20.498,-45.527,81.12,0.8)}
{pt3dadd(21.39,-46.759,76.4,0.8)}
{pt3dadd(21.39,-47.459,76.4,0.8)}
{pt3dadd(21.39,-49.392,76.48,0.8)}
{pt3dadd(21.21,-49.742,76.48,0.8)}
{pt3dadd(21.921,-50.273,76.48,0.8)}
{pt3dadd(22.102,-50.443,76.48,0.8)}
{pt3dadd(24.419,-50.793,76.48,0.8)}
{pt3dadd(24.769,-50.623,76.48,0.8)}
{pt3dadd(26.916,-50.273,76.4,0.8)}
{pt3dadd(26.916,-50.443,76.4,0.8)}
{pt3dadd(26.735,-53.087,73.6,0.8)}
{pt3dadd(26.735,-53.437,73.36,0.8)}
{pt3dadd(26.735,-55.189,73.28,0.8)}
{pt3dadd(26.735,-55.539,72.32,0.8)}
{pt3dadd(27.447,-57.302,69.84,0.8)}
{pt3dadd(29.052,-58.533,67.76,0.8)}
{pt3dadd(29.052,-58.703,67.68,0.8)}
{pt3dadd(30.826,-59.765,66.24,0.8)}
{pt3dadd(30.826,-59.935,66.16,0.8)}
{pt3dadd(31.188,-60.285,66.16,0.8)}

{apical_dendrite[7] connect apical_dendrite[9](0), 1}
{access apical_dendrite[9]}
{pt3dclear()}
{pt3dadd(14.26,-41.482,97.12,0.8)}
{pt3dadd(12.475,-41.132,116.72,0.8)}
{pt3dadd(12.113,-41.132,116.8,0.8)}
{pt3dadd(10.689,-40.781,117.68,0.8)}
{pt3dadd(10.52,-40.781,119.2,0.8)}
{pt3dadd(9.797,-42.013,140.72,0.8)}
{pt3dadd(9.627,-42.363,140.72,0.8)}
{pt3dadd(9.085,-43.414,141.36,0.8)}
{pt3dadd(8.915,-43.764,141.76,0.8)}
{pt3dadd(7.13,-43.414,148.48,0.8)}
{pt3dadd(7.13,-43.245,148.48,0.8)}
{pt3dadd(5.344,-41.482,157.68,0.8)}
{pt3dadd(5.164,-41.482,157.68,0.8)}
{pt3dadd(4.101,-42.182,160,0.8)}
{pt3dadd(4.994,-42.883,167.84,0.8)}
{pt3dadd(5.164,-42.883,167.84,0.8)}
{pt3dadd(5.164,-44.115,167.76,0.8)}
{pt3dadd(4.813,-44.296,167.76,0.8)}
{pt3dadd(4.101,-44.827,167.92,0.8)}
{pt3dadd(3.559,-45.527,168.16,0.8)}
{pt3dadd(3.028,-46.409,169.84,0.8)}
{pt3dadd(3.028,-46.578,170.4,0.8)}
{pt3dadd(4.282,-47.629,174.24,0.8)}
{pt3dadd(4.282,-47.459,175.04,0.8)}
{pt3dadd(4.101,-46.047,178.64,0.8)}
{pt3dadd(3.921,-46.047,179.36,0.8)}
{pt3dadd(3.921,-45.878,179.92,0.8)}
{pt3dadd(0.531,-44.296,160.16,0.8)}
{pt3dadd(0.361,-44.296,160.16,0.8)}
{pt3dadd(-1.954,-42.533,184.72,0.8)}
{pt3dadd(-1.954,-42.363,184.72,0.8)}
{pt3dadd(-2.316,-39.369,178.24,0.8)}
{pt3dadd(-2.316,-39.199,177.6,0.8)}
{pt3dadd(-3.028,-37.436,171.36,0.8)}
{pt3dadd(-3.209,-37.267,170.32,0.8)}
{pt3dadd(-5.344,-36.555,167.28,0.8)}
{pt3dadd(-5.525,-36.555,167.2,0.8)}

{apical_dendrite[9] connect apical_dendrite[10](0), 1}
{access apical_dendrite[10]}
{pt3dclear()}
{pt3dadd(-5.525,-36.555,167.2,0.8)}
{pt3dadd(-5.525,-36.555,167.239,0.8)}
{pt3dadd(-6.768,-37.968,188.8,0.8)}
{pt3dadd(-6.949,-38.318,188.8,0.8)}
{pt3dadd(-7.48,-39.199,188.72,0.8)}
{pt3dadd(-7.661,-39.369,190.72,0.8)}
{pt3dadd(-8.192,-39.55,194.56,0.8)}
{pt3dadd(-8.373,-39.55,195.44,0.8)}
{pt3dadd(-9.265,-39.199,195.68,0.8)}
{pt3dadd(-9.446,-39.199,195.68,0.8)}
{pt3dadd(-11.051,-38.318,207.04,0.8)}
{pt3dadd(-11.763,-38.318,207.2,0.8)}
{pt3dadd(-14.61,-38.318,207.28,0.8)}
{pt3dadd(-14.791,-38.318,207.28,0.8)}
{pt3dadd(-16.577,-38.499,208,0.8)}
{pt3dadd(-16.757,-38.499,208.8,0.8)}
{pt3dadd(-19.786,-38.849,221.36,0.8)}
{pt3dadd(-20.136,-38.849,221.36,0.8)}
{pt3dadd(-20.679,-38.849,221.36,0.8)}
{pt3dadd(-22.272,-39.719,221.36,0.8)}
{pt3dadd(-22.453,-40.081,221.36,0.8)}
{pt3dadd(-24.057,-41.301,226.24,0.8)}
{pt3dadd(-24.419,-41.482,227.92,0.8)}
{pt3dadd(-27.086,-41.663,235.04,0.8)}
{pt3dadd(-27.447,-41.663,234.56,0.8)}
{pt3dadd(-30.476,-42.533,231.52,0.8)}
{pt3dadd(-30.656,-43.245,230.08,0.8)}
{pt3dadd(-31.549,-44.465,215.52,0.8)}
{pt3dadd(-32.08,-44.996,214.64,0.8)}
{pt3dadd(-36.894,-48.691,230.8,0.8)}
{pt3dadd(-37.075,-48.691,230.8,0.8)}

} //topol8()

//---------------------------------
proc topol9() {



{apical_dendrite[10] connect apical_dendrite[11](0), 1}
{access apical_dendrite[11]}
{pt3dclear()}
{pt3dadd(-37.075,-48.691,230.8,0.8)}
{pt3dadd(-37.075,-48.691,230.84,0.8)}
{pt3dadd(-41.346,-50.273,230.8,0.8)}
{pt3dadd(-42.589,-51.155,230.8,0.8)}
{pt3dadd(-45.979,-53.437,242,0.8)}
{pt3dadd(-46.691,-53.957,241.44,0.8)}
{pt3dadd(-50.974,-57.652,213.12,0.8)}
{pt3dadd(-51.324,-58.183,213.04,0.8)}
{pt3dadd(-53.821,-60.116,211.2,0.8)}
{pt3dadd(-55.064,-60.997,211.12,0.8)}
{pt3dadd(-60.059,-63.63,211.36,0.8)}
{pt3dadd(-61.132,-64.33,211.36,0.8)}
{pt3dadd(-65.223,-66.263,199.12,0.8)}
{pt3dadd(-65.585,-66.794,199.44,0.8)}
{pt3dadd(-66.116,-67.494,201.84,0.8)}
{pt3dadd(-68.975,-70.308,217.2,0.8)}
{pt3dadd(-69.144,-70.489,217.2,0.8)}
{pt3dadd(-72.715,-72.24,217.2,0.8)}
{pt3dadd(-73.246,-72.421,217.2,0.8)}
{pt3dadd(-73.246,-72.591,217.2,0.8)}
{pt3dadd(-73.608,-73.291,217.12,0.8)}
{pt3dadd(-73.608,-73.472,217.12,0.8)}

{apical_dendrite[10] connect apical_dendrite[12](0), 1}
{access apical_dendrite[12]}
{pt3dclear()}
{pt3dadd(-37.075,-48.691,230.8,0.8)}
{pt3dadd(-38.216,-51.279,150.48,0.8)}
{pt3dadd(-38.646,-52.59,150.72,0.8)}
{pt3dadd(-38.589,-52.748,151.44,0.8)}
{pt3dadd(-39.154,-53.731,157.92,0.8)}
{pt3dadd(-39.357,-54.183,157.92,0.8)}
{pt3dadd(-40.216,-54.906,157.92,0.8)}
{pt3dadd(-40.883,-55.177,157.92,0.8)}
{pt3dadd(-43.391,-55.607,157.92,0.8)}
{pt3dadd(-43.561,-55.675,157.92,0.8)}
{pt3dadd(-44.996,-57.381,154.48,0.8)}
{pt3dadd(-45.154,-57.437,153.52,0.8)}
{pt3dadd(-51.991,-57.132,173.6,0.8)}
{pt3dadd(-55.652,-56.127,181.2,0.8)}
{pt3dadd(-55.821,-56.194,181.36,0.8)}
{pt3dadd(-58.07,-56.33,153.12,0.8)}
{pt3dadd(-59.969,-54.443,186.64,0.8)}
{pt3dadd(-60.036,-54.273,186.48,0.8)}
{pt3dadd(-61.652,-54.545,194.56,0.8)}
{pt3dadd(-61.89,-54.443,194.64,0.8)}
{pt3dadd(-62.907,-53.336,194.72,0.8)}
{pt3dadd(-63.325,-52.748,194.64,0.8)}

{apical_dendrite[9] connect apical_dendrite[13](0), 1}
{access apical_dendrite[13]}
{pt3dclear()}
{pt3dadd(-5.525,-36.555,167.2,0.8)}
{pt3dadd(-7.254,-35.775,143.6,0.8)}
{pt3dadd(-9.492,-34.013,158.96,0.8)}
{pt3dadd(-9.729,-33.911,159.36,0.8)}
{pt3dadd(-10.339,-32.837,159.52,0.8)}
{pt3dadd(-10.407,-32.679,159.52,0.8)}
{pt3dadd(-11.492,-31.402,161.6,0.8)}
{pt3dadd(-11.616,-31.074,162.32,0.8)}
{pt3dadd(-11.582,-29.741,170,0.8)}
{pt3dadd(-11.412,-29.673,170.08,0.8)}
{pt3dadd(-10.881,-29.074,175.44,0.8)}
{pt3dadd(-10.847,-28.69,175.84,0.8)}
{pt3dadd(-10.633,-27.278,178.4,0.8)}
{pt3dadd(-10.87,-27.187,178.64,0.8)}
{pt3dadd(-11.492,-27.052,178.56,0.8)}
{pt3dadd(-11.729,-26.961,178.96,0.8)}
{pt3dadd(-13.514,-27.289,183.68,0.8)}
{pt3dadd(-13.74,-27.187,183.68,0.8)}
{pt3dadd(-13.91,-27.255,183.76,0.8)}
{pt3dadd(-14.305,-27.221,183.68,0.8)}

{apical_dendrite[6] connect apical_dendrite[14](0), 1}
{access apical_dendrite[14]}
{pt3dclear()}
{pt3dadd(14.26,-39.018,68.48,2.68)}
{pt3dadd(16.577,-40.781,71.2,2.68)}
{pt3dadd(16.396,-43.064,81.68,2.68)}
{pt3dadd(16.215,-42.182,81.36,2.68)}
{pt3dadd(14.26,-45.697,70.96,2.68)}
{pt3dadd(13.899,-45.697,71.12,2.68)}

{apical_dendrite[14] connect apical_dendrite[15](0), 1}
{access apical_dendrite[15]}
{pt3dclear()}
{pt3dadd(13.899,-45.697,71.12,2.68)}
{pt3dadd(13.548,-47.991,89.36,2.36)}
{pt3dadd(14.26,-49.573,89.36,2.36)}
{pt3dadd(14.441,-49.742,79.12,2.36)}

{apical_dendrite[15] connect apical_dendrite[16](0), 1}
{access apical_dendrite[16]}
{pt3dclear()}
{pt3dadd(14.441,-49.742,79.12,2.36)}
{pt3dadd(19.955,-54.488,96.4,2.36)}
{pt3dadd(21.029,-55.901,96.72,2.36)}
{pt3dadd(21.39,-59.234,82.72,2.36)}
{pt3dadd(21.56,-59.415,82.72,2.36)}

{apical_dendrite[16] connect apical_dendrite[17](0), 1}
{access apical_dendrite[17]}
{pt3dclear()}
{pt3dadd(21.56,-59.415,82.72,2.36)}
{pt3dadd(21.56,-59.415,82.76,0.8)}
{pt3dadd(23.526,-59.935,119.92,0.8)}
{pt3dadd(23.707,-60.116,120.16,0.8)}

{apical_dendrite[17] connect apical_dendrite[18](0), 1}
{access apical_dendrite[18]}
{pt3dclear()}
{pt3dadd(23.707,-60.116,120.16,0.8)}
{pt3dadd(24.95,-58.884,144.4,0.8)}
{pt3dadd(25.131,-58.884,144.4,0.8)}
{pt3dadd(25.662,-58.884,144.48,0.8)}
{pt3dadd(25.662,-59.053,144.48,0.8)}
{pt3dadd(26.193,-60.816,153.12,0.8)}
{pt3dadd(26.193,-60.997,153.28,0.8)}
{pt3dadd(27.628,-61.867,154.24,0.8)}
{pt3dadd(27.628,-62.048,154.32,0.8)}
{pt3dadd(28.69,-62.748,154.32,0.8)}
{pt3dadd(28.69,-62.929,154.32,0.8)}
{pt3dadd(29.583,-63.449,160.56,0.8)}
{pt3dadd(29.764,-63.449,160.72,0.8)}
{pt3dadd(29.944,-63.449,160.8,0.8)}
{pt3dadd(29.944,-61.867,163.12,0.8)}
{pt3dadd(29.764,-61.697,163.2,0.8)}
{pt3dadd(29.402,-61.517,164.64,0.8)}
{pt3dadd(29.233,-61.517,165.12,0.8)}
{pt3dadd(29.052,-61.697,165.12,0.8)}
{pt3dadd(28.509,-62.748,155.92,0.8)}
{pt3dadd(28.34,-62.929,155.92,0.8)}
{pt3dadd(28.34,-63.98,155.92,0.8)}
{pt3dadd(28.34,-64.161,155.92,0.8)}
{pt3dadd(27.798,-64.681,154.88,0.8)}
{pt3dadd(27.628,-64.681,154.64,0.8)}
{pt3dadd(27.266,-65.031,154.56,0.8)}
{pt3dadd(26.916,-65.381,154.96,0.8)}
{pt3dadd(26.735,-65.381,156.88,0.8)}
{pt3dadd(26.554,-65.562,159.04,0.8)}
{pt3dadd(26.554,-65.743,160.24,0.8)}
{pt3dadd(26.374,-65.743,165.12,0.8)}
{pt3dadd(26.374,-65.912,177.44,0.8)}
{pt3dadd(26.374,-66.093,178.16,0.8)}
{pt3dadd(26.023,-66.963,178.56,0.8)}
{pt3dadd(26.023,-67.325,178.56,0.8)}
{pt3dadd(26.193,-68.026,180.32,0.8)}
{pt3dadd(26.374,-68.195,180.56,0.8)}
{pt3dadd(27.447,-68.907,183.04,0.8)}
{pt3dadd(27.978,-69.076,185.2,0.8)}
{pt3dadd(27.978,-69.257,185.6,0.8)}
{pt3dadd(27.798,-70.127,184.16,0.8)}
{pt3dadd(27.628,-70.489,184.56,0.8)}
{pt3dadd(27.447,-70.489,186,0.8)}
{pt3dadd(27.086,-71.009,190.88,0.8)}
{pt3dadd(26.916,-71.19,191.12,0.8)}
{pt3dadd(28.509,-72.941,177.12,0.8)}
{pt3dadd(28.69,-72.941,177.12,0.8)}
{pt3dadd(30.826,-72.772,177.52,0.8)}
{pt3dadd(31.007,-72.772,177.68,0.8)}
{pt3dadd(32.43,-74.353,196.88,0.8)}
{pt3dadd(32.43,-74.523,196.88,0.8)}
{pt3dadd(32.43,-75.054,196.88,0.8)}
{pt3dadd(32.973,-76.636,197.28,0.8)}
{pt3dadd(32.973,-76.817,197.92,0.8)}
{pt3dadd(32.973,-77.167,199.2,0.8)}
{pt3dadd(33.866,-79.1,202.56,0.8)}
{pt3dadd(34.035,-79.619,202.88,0.8)}
{pt3dadd(34.747,-81.563,200.88,0.8)}
{pt3dadd(34.747,-81.732,202,0.8)}
{pt3dadd(36.894,-83.495,195.68,0.8)}
{pt3dadd(36.713,-84.365,197.44,0.8)}
{pt3dadd(36.713,-84.546,197.84,0.8)}
{pt3dadd(37.956,-85.427,202.4,0.8)}
{pt3dadd(37.956,-85.597,203.36,0.8)}
{pt3dadd(38.137,-85.597,204.16,0.8)}
{pt3dadd(40.453,-87.36,209.2,0.8)}
{pt3dadd(40.634,-87.529,209.12,0.8)}
{pt3dadd(40.634,-88.06,217.92,0.8)}
{pt3dadd(40.634,-88.241,218,0.8)}
{pt3dadd(39.742,-89.111,219.52,0.8)}
{pt3dadd(40.985,-88.942,219.84,0.8)}
{pt3dadd(41.165,-89.111,219.84,0.8)}
{pt3dadd(41.527,-90.343,227.12,0.8)}
{pt3dadd(41.527,-90.524,227.52,0.8)}
{pt3dadd(40.985,-91.055,216,0.8)}
{pt3dadd(40.985,-91.224,214.32,0.8)}
{pt3dadd(40.815,-92.456,213.12,0.8)}
{pt3dadd(40.815,-92.987,212.64,0.8)}
{pt3dadd(40.985,-94.219,212.64,0.8)}
{pt3dadd(40.815,-94.739,212.72,0.8)}
{pt3dadd(41.346,-96.151,212.96,0.8)}
{pt3dadd(41.527,-96.321,213.04,0.8)}
{pt3dadd(42.77,-96.852,213.28,0.8)}
{pt3dadd(42.951,-96.852,213.44,0.8)}
{pt3dadd(43.482,-97.021,213.44,0.8)}

{apical_dendrite[17] connect apical_dendrite[19](0), 1}
{access apical_dendrite[19]}
{pt3dclear()}
{pt3dadd(23.707,-60.116,120.16,0.8)}
{pt3dadd(23.707,-60.116,120.2,0.8)}
{pt3dadd(25.311,-57.471,133.04,0.8)}
{pt3dadd(25.311,-57.302,133.2,0.8)}
{pt3dadd(29.233,-55.019,141.44,0.8)}
{pt3dadd(29.233,-54.838,141.6,0.8)}
{pt3dadd(34.747,-51.324,149.36,0.8)}
{pt3dadd(34.928,-51.324,149.36,0.8)}
{pt3dadd(37.425,-50.092,138.24,0.8)}
{pt3dadd(37.425,-49.923,138.24,0.8)}
{pt3dadd(39.391,-47.279,138.24,0.8)}
{pt3dadd(39.561,-47.279,138.24,0.8)}
{pt3dadd(39.561,-47.109,138.24,0.8)}
{pt3dadd(39.391,-46.759,138.24,0.8)}

{apical_dendrite[19] connect apical_dendrite[20](0), 1}
{access apical_dendrite[20]}
{pt3dclear()}
{pt3dadd(39.391,-46.759,138.24,0.8)}
{pt3dadd(39.391,-46.759,138.28,0.8)}
{pt3dadd(42.951,-42.883,138.16,0.8)}
{pt3dadd(43.132,-42.883,138.16,0.8)}
{pt3dadd(45.629,-40.951,138.16,0.8)}
{pt3dadd(45.798,-40.781,138.16,0.8)}
{pt3dadd(45.629,-37.968,138.16,0.8)}
{pt3dadd(45.798,-37.617,138.16,0.8)}
{pt3dadd(48.827,-34.272,138.16,0.8)}
{pt3dadd(49.188,-33.922,138.16,0.8)}
{pt3dadd(49.9,-31.108,138.16,0.8)}
{pt3dadd(50.081,-30.939,138.16,0.8)}
{pt3dadd(51.866,-29.707,138.16,0.8)}
{pt3dadd(52.036,-29.357,138.16,0.8)}
{pt3dadd(51.324,-27.944,150.56,0.8)}
{pt3dadd(51.324,-27.775,150.56,0.8)}
{pt3dadd(52.036,-27.063,150.56,0.8)}
{pt3dadd(52.217,-26.894,150.56,0.8)}
{pt3dadd(52.398,-25.131,150.56,0.8)}
{pt3dadd(52.578,-24.78,150.56,0.8)}
{pt3dadd(53.46,-22.679,150.56,0.8)}
{pt3dadd(53.641,-22.148,150.56,0.8)}
{pt3dadd(52.929,-20.215,155.36,0.8)}
{pt3dadd(52.929,-20.034,155.36,0.8)}
{pt3dadd(54.714,-17.051,155.36,0.8)}
{pt3dadd(54.714,-16.701,155.36,0.8)}
{pt3dadd(54.352,-12.655,146.8,0.8)}
{pt3dadd(54.352,-12.475,148.16,0.8)}
{pt3dadd(54.714,-9.311,158.16,0.8)}
{pt3dadd(54.714,-9.141,158.8,0.8)}
{pt3dadd(54.533,-8.791,158.96,0.8)}
{pt3dadd(55.064,-4.214,159.28,0.8)}
{pt3dadd(54.895,-3.864,159.28,0.8)}
{pt3dadd(59.166,0.881,159.36,0.8)}
{pt3dadd(59.697,1.05,159.36,0.8)}
{pt3dadd(59.878,1.581,159.44,0.8)}

{apical_dendrite[19] connect apical_dendrite[21](0), 1}
{access apical_dendrite[21]}
{pt3dclear()}
{pt3dadd(39.391,-46.759,138.24,0.8)}
{pt3dadd(40.453,-40.431,138.24,0.8)}
{pt3dadd(40.634,-40.431,138.24,0.8)}
{pt3dadd(39.391,-37.267,138.24,0.8)}
{pt3dadd(41.708,-35.335,156.24,0.8)}
{pt3dadd(41.527,-35.335,156.24,0.8)}
{pt3dadd(42.058,-33.922,165.36,0.8)}
{pt3dadd(42.239,-33.922,165.52,0.8)}
{pt3dadd(44.555,-32.871,165.84,0.8)}
{pt3dadd(44.736,-32.871,166.4,0.8)}
{pt3dadd(49.188,-29.357,169.28,0.8)}
{pt3dadd(49.188,-29.176,169.2,0.8)}
{pt3dadd(50.612,-21.967,176.48,0.8)}
{pt3dadd(50.612,-21.797,176.4,0.8)}
{pt3dadd(49.55,-19.334,176.4,0.8)}
{pt3dadd(49.55,-19.164,176.32,0.8)}
{pt3dadd(51.866,-12.475,182.48,0.8)}
{pt3dadd(51.866,-12.305,182.56,0.8)}
{pt3dadd(53.29,-11.774,187.28,0.8)}
{pt3dadd(53.46,-11.774,187.2,0.8)}
{pt3dadd(53.109,-10.192,186.56,0.8)}
{pt3dadd(52.929,-9.842,186.48,0.8)}
{pt3dadd(52.398,-8.791,186.32,0.8)}
{pt3dadd(52.578,-8.61,186.56,0.8)}
{pt3dadd(54.352,-6.859,196.64,0.8)}
{pt3dadd(54.533,-6.508,196.72,0.8)}
{pt3dadd(54.533,-5.977,196.56,0.8)}
{pt3dadd(53.46,-4.395,197.76,0.8)}
{pt3dadd(53.46,-4.214,197.76,0.8)}
{pt3dadd(53.821,-3.695,196.96,0.8)}
{pt3dadd(53.821,-2.463,196.96,0.8)}
{pt3dadd(54.002,-2.282,197.12,0.8)}
{pt3dadd(53.821,-1.05,200.64,0.8)}
{pt3dadd(53.46,-0.7,201.6,0.8)}
{pt3dadd(52.748,-0.18,204.24,0.8)}
{pt3dadd(52.398,0,204.32,0.8)}
{pt3dadd(51.324,0.881,206,0.8)}
{pt3dadd(51.324,1.231,206.32,0.8)}
{pt3dadd(51.324,1.581,206.56,0.8)}
{pt3dadd(52.398,3.344,207.52,0.8)}
{pt3dadd(52.578,3.514,207.04,0.8)}

{apical_dendrite[16] connect apical_dendrite[22](0), 1}
{access apical_dendrite[22]}
{pt3dclear()}
{pt3dadd(21.56,-59.415,82.72,2.36)}
{pt3dadd(20.848,-61.347,84.24,2.36)}

{apical_dendrite[22] connect apical_dendrite[23](0), 1}
{access apical_dendrite[23]}
{pt3dclear()}
{pt3dadd(20.848,-61.347,84.24,2.36)}
{pt3dadd(20.848,-62.929,84.16,2.36)}
{pt3dadd(20.848,-63.099,84.16,2.36)}

} //topol9()

//---------------------------------
proc topol10() {

{apical_dendrite[23] connect apical_dendrite[24](0), 1}
{access apical_dendrite[24]}
{pt3dclear()}
{pt3dadd(20.848,-63.099,84.16,2.36)}
{pt3dadd(20.848,-63.099,84.2,0.8)}
{pt3dadd(21.921,-65.912,109.28,0.8)}
{pt3dadd(22.453,-68.545,109.28,0.8)}
{pt3dadd(22.272,-68.726,109.2,0.8)}
{pt3dadd(22.102,-69.076,108.96,0.8)}
{pt3dadd(21.56,-71.89,120.72,0.8)}
{pt3dadd(23.165,-74.873,120.72,0.8)}
{pt3dadd(26.023,-77.687,120.72,0.8)}
{pt3dadd(26.023,-77.868,120.72,0.8)}
{pt3dadd(27.447,-80.682,120.72,0.8)}
{pt3dadd(27.447,-80.851,120.72,0.8)}
{pt3dadd(26.554,-85.247,104.56,0.8)}
{pt3dadd(26.554,-85.427,104.56,0.8)}
{pt3dadd(26.023,-89.111,105.44,0.8)}
{pt3dadd(26.023,-89.292,105.44,0.8)}
{pt3dadd(25.843,-90.693,121.36,0.8)}
{pt3dadd(27.798,-91.575,121.36,0.8)}
{pt3dadd(27.978,-94.739,121.36,0.8)}
{pt3dadd(27.978,-94.919,121.36,0.8)}
{pt3dadd(28.159,-97.733,111.76,0.8)}
{pt3dadd(28.159,-97.903,111.76,0.8)}
{pt3dadd(29.233,-99.485,111.76,0.8)}
{pt3dadd(29.402,-99.666,111.76,0.8)}
{pt3dadd(29.583,-100.536,111.76,0.8)}
{pt3dadd(29.764,-103.349,110.8,0.8)}
{pt3dadd(33.866,-105.112,110.8,0.8)}
{pt3dadd(36.001,-106.163,126.16,0.8)}
{pt3dadd(36.182,-106.163,126.16,0.8)}
{pt3dadd(39.211,-106.694,126.16,0.8)}
{pt3dadd(39.391,-106.694,126.16,0.8)}
{pt3dadd(40.928,-105.248,182.4,0.8)}
{pt3dadd(42.363,-103.541,189.6,0.8)}
{pt3dadd(42.533,-103.474,191.28,0.8)}
{pt3dadd(42.476,-102.366,161.28,0.8)}
{pt3dadd(42.567,-102.129,160.64,0.8)}
{pt3dadd(42.68,-100.954,156.48,0.8)}
{pt3dadd(42.781,-100.728,156.48,0.8)}
{pt3dadd(42.329,-99.586,144.72,0.8)}
{pt3dadd(42.261,-99.417,143.36,0.8)}
{pt3dadd(40.103,-100.276,140.72,0.8)}
{pt3dadd(39.945,-100.344,140.96,0.8)}
{pt3dadd(38.261,-100.445,173.12,0.8)}
{pt3dadd(38.419,-100.377,173.12,0.8)}
{pt3dadd(38.453,-100.931,171.76,0.8)}

{apical_dendrite[23] connect apical_dendrite[25](0), 1}
{access apical_dendrite[25]}
{pt3dclear()}
{pt3dadd(20.848,-63.099,84.16,2.36)}
{pt3dadd(22.633,-65.562,89.68,2.06)}
{pt3dadd(25.481,-66.443,101.04,2.06)}
{pt3dadd(27.447,-67.325,99.76,2.06)}
{pt3dadd(27.628,-67.325,99.52,2.06)}
{pt3dadd(28.34,-69.076,99.36,2.06)}
{pt3dadd(26.023,-72.071,111.92,2.06)}
{pt3dadd(25.843,-72.071,111.92,2.06)}
{pt3dadd(23.707,-73.653,111.2,2.06)}
{pt3dadd(23.707,-73.472,111.12,2.06)}

{apical_dendrite[25] connect apical_dendrite[26](0), 1}
{access apical_dendrite[26]}
{pt3dclear()}
{pt3dadd(23.707,-73.472,111.12,2.06)}
{pt3dadd(22.995,-75.755,111.12,2.06)}
{pt3dadd(23.526,-78.749,112,2.06)}

{apical_dendrite[26] connect apical_dendrite[27](0), 1}
{access apical_dendrite[27]}
{pt3dclear()}
{pt3dadd(23.526,-78.749,112,2.06)}
{pt3dadd(23.526,-78.749,112.04,2.06)}
{pt3dadd(26.193,-81.913,120.64,2.06)}
{pt3dadd(30.826,-86.128,110.08,1.74)}
{pt3dadd(31.007,-86.309,110.08,1.74)}
{pt3dadd(34.928,-90.343,110.16,1.74)}
{pt3dadd(35.47,-92.806,110.24,1.74)}
{pt3dadd(35.47,-92.987,110.24,1.74)}
{pt3dadd(34.577,-94.388,110.32,1.74)}
{pt3dadd(34.397,-94.388,110.32,1.74)}
{pt3dadd(31.368,-95.439,110.32,1.74)}
{pt3dadd(31.188,-95.439,110.32,1.74)}
{pt3dadd(30.826,-97.202,127.84,1.74)}
{pt3dadd(34.216,-98.603,119.12,1.74)}
{pt3dadd(34.035,-98.603,119.2,1.74)}
{pt3dadd(34.397,-98.603,119.2,1.74)}

{apical_dendrite[27] connect apical_dendrite[28](0), 1}
{access apical_dendrite[28]}
{pt3dclear()}
{pt3dadd(34.397,-98.603,119.2,1.74)}
{pt3dadd(34.397,-98.603,119.24,0.8)}
{pt3dadd(35.109,-98.083,154.88,0.8)}
{pt3dadd(35.289,-97.903,154.88,0.8)}

{apical_dendrite[28] connect apical_dendrite[29](0), 1}
{access apical_dendrite[29]}
{pt3dclear()}
{pt3dadd(35.289,-97.903,154.88,0.8)}
{pt3dadd(35.289,-97.903,154.92,0.8)}
{pt3dadd(36.352,-99.666,155.6,0.8)}
{pt3dadd(36.001,-99.134,155.6,0.8)}

{apical_dendrite[29] connect apical_dendrite[30](0), 1}
{access apical_dendrite[30]}
{pt3dclear()}
{pt3dadd(36.001,-99.134,155.6,0.8)}
{pt3dadd(36.001,-99.134,155.64,0.8)}
{pt3dadd(40.815,-100.716,156.64,0.8)}
{pt3dadd(43.843,-104.581,165.76,0.8)}
{pt3dadd(43.843,-104.762,165.76,0.8)}
{pt3dadd(47.222,-106.864,165.68,0.8)}
{pt3dadd(49.188,-107.044,165.76,0.8)}
{pt3dadd(50.431,-109.327,166.48,0.8)}
{pt3dadd(53.821,-111.259,166.72,0.8)}
{pt3dadd(54.002,-111.259,166.72,0.8)}
{pt3dadd(57.381,-113.192,166.72,0.8)}
{pt3dadd(57.381,-113.372,166.72,0.8)}
{pt3dadd(59.347,-114.954,149.6,0.8)}
{pt3dadd(63.98,-116.186,149.6,0.8)}
{pt3dadd(66.297,-119.52,147.76,0.8)}
{pt3dadd(66.477,-119.52,148.16,0.8)}
{pt3dadd(70.037,-123.045,148.8,0.8)}
{pt3dadd(70.218,-123.045,148.8,0.8)}
{pt3dadd(72.534,-126.209,150.8,0.8)}
{pt3dadd(75.743,-127.26,146.8,0.8)}
{pt3dadd(77.167,-127.961,140.56,0.8)}
{pt3dadd(77.348,-127.961,140.64,0.8)}
{pt3dadd(77.529,-128.142,140.72,0.8)}
{pt3dadd(78.422,-128.311,141.12,0.8)}
{pt3dadd(80.376,-132.707,138.24,0.8)}
{pt3dadd(80.557,-132.707,138.32,0.8)}
{pt3dadd(82.693,-134.82,136.88,0.8)}
{pt3dadd(86.083,-140.266,136.96,0.8)}
{pt3dadd(88.75,-142.549,136.96,0.8)}
{pt3dadd(88.75,-142.73,136.96,0.8)}
{pt3dadd(90.897,-143.6,126.64,0.8)}
{pt3dadd(91.066,-143.781,126.72,0.8)}
{pt3dadd(91.066,-146.764,119.52,0.8)}
{pt3dadd(91.066,-146.945,119.6,0.8)}
{pt3dadd(91.066,-147.125,119.6,0.8)}
{pt3dadd(90.354,-148.707,115.2,0.8)}
{pt3dadd(90.173,-148.877,114.96,0.8)}
{pt3dadd(89.823,-149.408,115.2,0.8)}
{pt3dadd(89.823,-149.578,115.12,0.8)}
{pt3dadd(91.247,-150.64,112.72,0.8)}
{pt3dadd(91.247,-150.809,112.32,0.8)}
{pt3dadd(91.066,-152.922,111.92,0.8)}
{pt3dadd(91.066,-153.092,111.92,0.8)}
{pt3dadd(91.609,-153.623,107.28,0.8)}
{pt3dadd(91.959,-153.623,107.04,0.8)}
{pt3dadd(94.275,-153.623,105.68,0.8)}
{pt3dadd(94.275,-153.804,104.8,0.8)}
{pt3dadd(94.095,-155.205,104.4,0.8)}
{pt3dadd(93.925,-155.555,104.4,0.8)}
{pt3dadd(94.275,-156.787,104.4,0.8)}
{pt3dadd(94.456,-157.137,104.4,0.8)}
{pt3dadd(95.168,-157.488,104.32,0.8)}
{pt3dadd(96.061,-157.668,103.04,0.8)}
{pt3dadd(97.485,-158.369,101.28,0.8)}
{pt3dadd(98.377,-158.55,101.28,0.8)}
{pt3dadd(99.451,-158.9,100.96,0.8)}
{pt3dadd(99.62,-158.9,100.72,0.8)}
{pt3dadd(100.875,-160.132,97.84,0.8)}
{pt3dadd(100.875,-160.301,97.92,0.8)}
{pt3dadd(101.055,-162.584,93.68,0.8)}
{pt3dadd(100.875,-162.584,93.68,0.8)}
{pt3dadd(100.875,-162.945,93.68,0.8)}

{apical_dendrite[29] connect apical_dendrite[31](0), 1}
{access apical_dendrite[31]}
{pt3dclear()}
{pt3dadd(36.001,-99.134,155.6,0.8)}
{pt3dadd(39.211,-103.53,144.32,0.8)}
{pt3dadd(39.211,-103.7,144.32,0.8)}
{pt3dadd(41.708,-105.643,144.32,0.8)}
{pt3dadd(41.708,-105.813,144.32,0.8)}
{pt3dadd(41.527,-105.462,144.32,0.8)}

{apical_dendrite[31] connect apical_dendrite[32](0), 1}
{access apical_dendrite[32]}
{pt3dclear()}
{pt3dadd(41.527,-105.462,144.32,0.8)}
{pt3dadd(41.527,-105.462,144.359,0.8)}
{pt3dadd(41.708,-111.79,148,0.8)}
{pt3dadd(41.877,-112.141,148,0.8)}
{pt3dadd(42.239,-117.237,148.08,0.8)}
{pt3dadd(42.239,-117.418,148.08,0.8)}
{pt3dadd(42.239,-119.881,148.08,0.8)}
{pt3dadd(42.239,-120.232,148.08,0.8)}
{pt3dadd(42.42,-120.932,148.08,0.8)}
{pt3dadd(42.951,-122.514,148.16,0.8)}
{pt3dadd(43.132,-122.514,148.16,0.8)}
{pt3dadd(46.341,-124.266,139.76,0.8)}
{pt3dadd(48.477,-130.243,136.16,0.8)}
{pt3dadd(50.793,-129.893,129.44,0.8)}
{pt3dadd(50.612,-133.057,126.16,0.8)}
{pt3dadd(50.612,-133.238,126,0.8)}
{pt3dadd(51.505,-135.52,127.76,0.8)}
{pt3dadd(51.686,-135.69,127.76,0.8)}
{pt3dadd(50.081,-141.498,127.04,0.8)}
{pt3dadd(50.081,-141.668,126.4,0.8)}
{pt3dadd(52.748,-148.176,119.36,0.8)}
{pt3dadd(52.578,-148.176,130.32,0.8)}

{apical_dendrite[32] connect apical_dendrite[33](0), 1}
{access apical_dendrite[33]}
{pt3dclear()}
{pt3dadd(52.578,-148.176,130.32,0.8)}
{pt3dadd(52.578,-148.176,130.359,0.8)}
{pt3dadd(53.46,-150.109,130.24,0.8)}
{pt3dadd(53.109,-153.623,130.24,0.8)}
{pt3dadd(52.929,-154.855,117.12,0.8)}
{pt3dadd(52.748,-155.035,117.12,0.8)}
{pt3dadd(52.578,-157.488,115.68,0.8)}
{pt3dadd(52.578,-157.668,114.88,0.8)}
{pt3dadd(54.002,-159.601,114.32,0.8)}
{pt3dadd(54.002,-159.781,114.32,0.8)}
{pt3dadd(53.29,-165.929,124.88,0.8)}
{pt3dadd(53.29,-166.109,124.88,0.8)}
{pt3dadd(53.29,-168.912,124.96,0.8)}
{pt3dadd(53.29,-169.093,124.96,0.8)}
{pt3dadd(56.319,-174.72,124.96,0.8)}
{pt3dadd(56.499,-174.89,124.96,0.8)}
{pt3dadd(58.635,-178.935,124.96,0.8)}
{pt3dadd(58.816,-179.285,124.96,0.8)}
{pt3dadd(59.528,-180.336,124.96,0.8)}
{pt3dadd(60.24,-183.15,125.2,0.8)}
{pt3dadd(60.24,-183.331,125.44,0.8)}
{pt3dadd(60.24,-183.5,125.76,0.8)}
{pt3dadd(59.878,-187.026,110.8,0.8)}
{pt3dadd(58.986,-192.642,111.2,0.8)}
{pt3dadd(58.986,-192.472,111.2,0.8)}

{apical_dendrite[32] connect apical_dendrite[34](0), 1}
{access apical_dendrite[34]}
{pt3dclear()}
{pt3dadd(52.578,-148.176,130.32,0.8)}
{pt3dadd(51.866,-151.16,130.32,0.8)}
{pt3dadd(51.866,-151.34,130.32,0.8)}
{pt3dadd(52.217,-153.623,130.32,0.8)}
{pt3dadd(52.578,-154.154,130.32,0.8)}
{pt3dadd(52.748,-155.736,130.32,0.8)}
{pt3dadd(52.748,-156.086,130.32,0.8)}
{pt3dadd(53.821,-158.2,130.72,0.8)}
{pt3dadd(53.821,-158.369,131.76,0.8)}
{pt3dadd(55.245,-161.533,118.56,0.8)}
{pt3dadd(55.245,-161.714,118.72,0.8)}
{pt3dadd(55.245,-162.064,118.88,0.8)}
{pt3dadd(55.607,-164.528,118.88,0.8)}
{pt3dadd(55.607,-164.697,118.88,0.8)}
{pt3dadd(58.986,-169.793,119.44,0.8)}
{pt3dadd(58.986,-169.974,119.44,0.8)}
{pt3dadd(62.025,-173.839,119.44,0.8)}
{pt3dadd(62.195,-173.839,119.44,0.8)}
{pt3dadd(63.449,-175.07,119.44,0.8)}
{pt3dadd(63.618,-175.771,119.44,0.8)}
{pt3dadd(64.342,-178.935,119.44,0.8)}
{pt3dadd(65.765,-180.698,125.68,0.8)}
{pt3dadd(65.946,-180.698,125.68,0.8)}
{pt3dadd(67.901,-182.28,125.68,0.8)}
{pt3dadd(68.082,-182.449,125.68,0.8)}
{pt3dadd(69.506,-192.992,112.48,0.8)}
{pt3dadd(69.506,-193.173,112.56,0.8)}
{pt3dadd(69.506,-193.523,112.56,0.8)}

{apical_dendrite[31] connect apical_dendrite[35](0), 1}
{access apical_dendrite[35]}
{pt3dclear()}
{pt3dadd(41.527,-105.462,144.32,0.8)}
{pt3dadd(47.584,-109.858,159.12,0.8)}
{pt3dadd(47.765,-110.028,159.12,0.8)}
{pt3dadd(51.866,-112.141,166,0.8)}
{pt3dadd(52.036,-112.322,165.92,0.8)}
{pt3dadd(54.183,-113.723,165.84,0.8)}
{pt3dadd(54.352,-113.903,165.84,0.8)}
{pt3dadd(56.319,-115.485,167.04,0.8)}
{pt3dadd(56.669,-115.655,166.96,0.8)}
{pt3dadd(57.742,-117.237,171.28,0.8)}
{pt3dadd(58.454,-117.768,171.28,0.8)}
{pt3dadd(59.697,-118.299,171.36,0.8)}
{pt3dadd(62.737,-119.169,171.12,0.8)}
{pt3dadd(62.907,-119.169,171.04,0.8)}
{pt3dadd(63.618,-121.633,170.88,0.8)}
{pt3dadd(63.618,-121.813,170.88,0.8)}
{pt3dadd(67.37,-124.627,158.32,1.1)}

} //topol10()

//---------------------------------
proc topol11() {

{apical_dendrite[35] connect apical_dendrite[36](0), 1}
{access apical_dendrite[36]}
{pt3dclear()}
{pt3dadd(67.37,-124.627,158.32,1.1)}
{pt3dadd(67.37,-124.627,158.359,0.8)}
{pt3dadd(67.901,-127.26,157.84,0.8)}
{pt3dadd(70.037,-128.842,165.92,0.8)}
{pt3dadd(70.579,-129.012,166,0.8)}
{pt3dadd(72.184,-131.125,159.92,0.8)}
{pt3dadd(72.184,-131.305,159.92,0.8)}
{pt3dadd(76.455,-137.272,159.92,0.8)}
{pt3dadd(76.455,-137.453,159.92,0.8)}
{pt3dadd(79.303,-144.312,175.84,0.8)}
{pt3dadd(80.738,-149.408,175.52,0.8)}
{pt3dadd(80.907,-149.578,175.6,0.8)}
{pt3dadd(83.766,-152.041,176,0.8)}
{pt3dadd(83.766,-152.222,176.16,0.8)}
{pt3dadd(84.478,-155.035,180.24,0.8)}
{pt3dadd(84.478,-155.386,180.24,0.8)}
{pt3dadd(85.371,-160.301,180.24,0.8)}
{pt3dadd(85.541,-160.301,180.24,0.8)}
{pt3dadd(87.857,-163.465,181.92,0.8)}
{pt3dadd(88.038,-163.646,181.92,0.8)}
{pt3dadd(88.58,-166.81,181.92,0.8)}
{pt3dadd(88.58,-169.274,182.24,0.8)}
{pt3dadd(88.75,-169.443,182.24,0.8)}
{pt3dadd(91.066,-171.206,182.24,0.8)}
{pt3dadd(91.428,-171.556,182.24,0.8)}
{pt3dadd(93.925,-176.472,182.24,0.8)}
{pt3dadd(93.744,-176.472,182.24,0.8)}
{pt3dadd(95.168,-181.398,171.2,0.8)}
{pt3dadd(95.349,-181.568,171.2,0.8)}
{pt3dadd(96.773,-185.263,171.28,0.8)}
{pt3dadd(96.954,-185.444,170.16,0.8)}
{pt3dadd(99.27,-188.427,170,0.8)}
{pt3dadd(99.451,-188.777,170.16,0.8)}
{pt3dadd(99.801,-190.009,170.24,0.8)}
{pt3dadd(99.982,-192.823,170.56,0.8)}
{pt3dadd(100.163,-193.354,170.56,0.8)}
{pt3dadd(101.406,-195.806,178.64,0.8)}
{pt3dadd(101.937,-196.337,188.64,0.8)}
{pt3dadd(102.118,-196.868,188.64,0.8)}
{pt3dadd(102.649,-199.32,188.16,0.8)}
{pt3dadd(106.4,-203.366,190.96,0.8)}
{pt3dadd(106.4,-203.546,190.96,0.8)}
{pt3dadd(107.643,-207.061,194.08,0.8)}
{pt3dadd(107.643,-207.23,194.32,0.8)}
{pt3dadd(109.429,-207.411,199.92,0.8)}
{pt3dadd(109.609,-207.411,199.52,0.8)}
{pt3dadd(113.169,-211.976,202.4,0.8)}
{pt3dadd(113.169,-211.807,200.64,0.8)}
{pt3dadd(112.988,-213.558,194.72,0.8)}
{pt3dadd(112.988,-213.739,195.28,0.8)}
{pt3dadd(115.666,-217.434,210.48,0.8)}
{pt3dadd(115.847,-217.604,210.16,0.8)}
{pt3dadd(116.378,-218.654,210.16,0.8)}
{pt3dadd(117.452,-221.299,211.2,0.8)}
{pt3dadd(117.621,-221.468,211.44,0.8)}
{pt3dadd(119.587,-225.514,217.68,0.8)}
{pt3dadd(119.587,-225.694,217.92,0.8)}
{pt3dadd(123.147,-232.892,197.68,0.8)}
{pt3dadd(123.328,-232.892,197.68,0.8)}

{apical_dendrite[35] connect apical_dendrite[37](0), 1}
{access apical_dendrite[37]}
{pt3dclear()}
{pt3dadd(67.37,-124.627,158.32,1.1)}
{pt3dadd(70.206,-126.582,208.24,1.1)}
{pt3dadd(70.387,-126.582,208.24,1.1)}
{pt3dadd(73.246,-127.983,208.16,1.1)}
{pt3dadd(73.246,-128.164,208.16,1.1)}
{pt3dadd(76.094,-132.56,208.16,1.1)}
{pt3dadd(76.274,-132.56,208.16,1.1)}
{pt3dadd(81.258,-137.125,216.08,1.1)}
{pt3dadd(81.619,-137.656,216.08,1.1)}
{pt3dadd(84.286,-142.221,216.08,1.1)}
{pt3dadd(84.648,-142.402,216.08,1.1)}
{pt3dadd(89.462,-147.329,218.4,1.1)}
{pt3dadd(93.552,-148.911,218.4,1.1)}
{pt3dadd(96.761,-155.759,208.96,1.1)}
{pt3dadd(99.44,-160.685,226.32,1.1)}
{pt3dadd(99.44,-160.855,226.48,1.1)}
{pt3dadd(101.937,-166.833,230.48,1.1)}
{pt3dadd(102.287,-167.364,230.48,1.1)}
{pt3dadd(104.784,-171.579,230.8,1.1)}
{pt3dadd(104.965,-171.579,230.72,1.1)}
{pt3dadd(109.067,-172.81,230.72,1.1)}
{pt3dadd(109.417,-172.81,231.2,1.1)}
{pt3dadd(115.305,-174.392,236.96,1.1)}
{pt3dadd(115.655,-174.392,236.96,1.1)}
{pt3dadd(121.362,-177.025,242.72,1.1)}
{pt3dadd(121.542,-177.025,242.72,1.1)}
{pt3dadd(128.492,-180.37,243.44,1.1)}
{pt3dadd(128.661,-180.37,243.52,1.1)}
{pt3dadd(134.729,-184.415,243.76,1.1)}
{pt3dadd(139.713,-187.579,245.2,1.1)}
{pt3dadd(139.893,-187.579,245.2,1.1)}
{pt3dadd(141.442,-189.817,149.36,0.8)}
{pt3dadd(141.611,-189.749,149.36,0.8)}
{pt3dadd(143.317,-191.162,149.36,0.8)}
{pt3dadd(145.611,-193.083,149.36,0.8)}
{pt3dadd(150.877,-196.665,162.64,0.8)}
{pt3dadd(151.103,-196.755,162.64,0.8)}
{pt3dadd(154.346,-201.524,162.64,0.8)}
{pt3dadd(154.403,-201.693,162.64,0.8)}
{pt3dadd(158.053,-204.586,162.64,0.8)}
{pt3dadd(158.12,-204.755,162.72,0.8)}
{pt3dadd(160.618,-207.162,170.24,0.8)}
{pt3dadd(160.844,-207.264,170.32,0.8)}
{pt3dadd(163.635,-208.993,173.12,0.8)}
{pt3dadd(164.03,-209.027,173.12,0.8)}
{pt3dadd(165.612,-210.1,177.76,0.8)}
{pt3dadd(169.149,-214.18,160.56,0.8)}
{pt3dadd(169.217,-214.338,160.56,0.8)}

{apical_dendrite[28] connect apical_dendrite[38](0), 1}
{access apical_dendrite[38]}
{pt3dclear()}
{pt3dadd(35.289,-97.903,154.88,0.8)}
{pt3dadd(39.03,-98.083,137.84,0.8)}
{pt3dadd(39.211,-98.083,137.84,0.8)}
{pt3dadd(48.115,-92.106,131.039,0.8)}
{pt3dadd(48.296,-92.106,131.039,0.8)}
{pt3dadd(52.578,-89.292,130.96,0.8)}
{pt3dadd(54.533,-89.473,130.639,0.8)}
{pt3dadd(54.714,-89.473,130.639,0.8)}
{pt3dadd(56.499,-86.128,125.04,0.8)}
{pt3dadd(58.454,-84.896,124.24,0.8)}
{pt3dadd(58.635,-84.896,123.92,0.8)}
{pt3dadd(59.528,-81.032,120.88,0.8)}
{pt3dadd(59.528,-80.851,120.88,0.8)}
{pt3dadd(62.556,-80.15,131.92,0.8)}
{pt3dadd(63.449,-80.331,119.84,0.8)}
{pt3dadd(63.618,-80.331,119.76,0.8)}
{pt3dadd(64.342,-81.382,119.6,0.8)}
{pt3dadd(64.342,-81.563,119.6,0.8)}
{pt3dadd(64.692,-81.563,118.72,0.8)}
{pt3dadd(64.873,-81.563,118.4,0.8)}
{pt3dadd(65.223,-81.032,117.6,0.8)}
{pt3dadd(65.404,-79.45,111.12,0.8)}
{pt3dadd(65.404,-79.269,110.8,0.8)}
{pt3dadd(64.873,-77.337,110.64,0.8)}
{pt3dadd(64.692,-77.337,108.56,0.8)}
{pt3dadd(63.98,-76.455,103.68,0.8)}
{pt3dadd(63.98,-76.286,103.68,0.8)}
{pt3dadd(64.161,-75.755,98.8,0.8)}
{pt3dadd(64.342,-75.585,93.84,0.8)}
{pt3dadd(64.511,-75.585,93.84,0.8)}
{pt3dadd(65.585,-74.873,93.2,0.8)}
{pt3dadd(66.297,-74.173,96.64,0.8)}
{pt3dadd(66.116,-73.122,94.8,0.8)}
{pt3dadd(65.946,-73.122,94.8,0.8)}
{pt3dadd(65.946,-72.941,91.84,0.8)}
{pt3dadd(65.765,-72.941,91.52,0.8)}
{pt3dadd(65.223,-72.941,91.52,0.8)}
{pt3dadd(65.054,-72.941,91.6,0.8)}
{pt3dadd(64.342,-73.472,88.64,0.8)}
{pt3dadd(64.161,-73.472,87.76,0.8)}
{pt3dadd(63.98,-73.472,86.08,0.8)}
{pt3dadd(63.799,-73.472,86.08,0.8)}
{pt3dadd(63.98,-73.122,85.84,0.8)}

{apical_dendrite[38] connect apical_dendrite[39](0), 1}
{access apical_dendrite[39]}
{pt3dclear()}
{pt3dadd(63.98,-73.122,85.84,0.8)}
{pt3dadd(63.98,-73.122,85.88,0.8)}
{pt3dadd(64.161,-72.941,84.88,0.8)}
{pt3dadd(64.511,-72.591,81.68,0.8)}
{pt3dadd(64.692,-72.421,81.2,0.8)}
{pt3dadd(64.873,-71.89,81.2,0.8)}
{pt3dadd(64.873,-71.709,81.2,0.8)}
{pt3dadd(64.511,-71.009,80.4,0.8)}
{pt3dadd(64.342,-70.839,79.6,0.8)}
{pt3dadd(63.618,-70.489,75.44,0.8)}
{pt3dadd(63.449,-70.489,74.24,0.8)}
{pt3dadd(62.737,-69.958,74.24,0.8)}
{pt3dadd(62.737,-69.777,73.36,0.8)}
{pt3dadd(62.737,-69.076,62.16,0.8)}
{pt3dadd(62.907,-68.726,55.52,0.8)}
{pt3dadd(62.907,-68.545,55.52,0.8)}
{pt3dadd(63.087,-68.545,54.64,0.8)}
{pt3dadd(63.087,-68.026,87.04,0.8)}
{pt3dadd(62.907,-67.845,86.88,0.8)}
{pt3dadd(62.907,-67.675,86.88,0.8)}
{pt3dadd(63.268,-67.494,88.64,0.8)}
{pt3dadd(63.449,-67.494,88.96,0.8)}
{pt3dadd(63.98,-67.494,89.36,0.8)}
{pt3dadd(64.161,-67.494,89.76,0.8)}
{pt3dadd(64.342,-67.325,90.32,0.8)}
{pt3dadd(64.342,-67.144,91.2,0.8)}
{pt3dadd(63.799,-66.263,60.4,0.8)}
{pt3dadd(63.449,-66.093,59.04,0.8)}
{pt3dadd(62.025,-65.912,56.56,0.8)}
{pt3dadd(61.664,-65.562,51.04,0.8)}
{pt3dadd(61.483,-65.562,50.96,0.8)}
{pt3dadd(61.483,-65.381,50.96,0.8)}

{apical_dendrite[38] connect apical_dendrite[40](0), 1}
{access apical_dendrite[40]}
{pt3dclear()}
{pt3dadd(63.98,-73.122,85.84,0.8)}
{pt3dadd(62.251,-72.071,156.48,0.8)}
{pt3dadd(62.183,-71.901,156.48,0.8)}
{pt3dadd(61.132,-71.19,156.72,0.8)}
{pt3dadd(61.065,-71.02,156.72,0.8)}
{pt3dadd(60.149,-69.687,156.72,0.8)}
{pt3dadd(59.889,-69.031,164.32,0.8)}

{apical_dendrite[27] connect apical_dendrite[41](0), 1}
{access apical_dendrite[41]}
{pt3dclear()}
{pt3dadd(34.397,-98.603,119.2,1.74)}
{pt3dadd(34.577,-102.298,135.68,1.74)}
{pt3dadd(37.075,-107.576,135.68,1.74)}
{pt3dadd(38.849,-111.09,123.6,1.74)}
{pt3dadd(37.606,-114.073,121.36,1.74)}
{pt3dadd(36.001,-117.938,134.32,1.74)}
{pt3dadd(36.001,-117.587,134.4,1.74)}

{apical_dendrite[41] connect apical_dendrite[42](0), 1}
{access apical_dendrite[42]}
{pt3dclear()}
{pt3dadd(36.001,-117.587,134.4,1.74)}
{pt3dadd(35.64,-120.051,133.12,1.74)}
{pt3dadd(35.64,-120.232,122.56,1.74)}

{apical_dendrite[42] connect apical_dendrite[43](0), 1}
{access apical_dendrite[43]}
{pt3dclear()}
{pt3dadd(35.64,-120.232,122.56,1.74)}
{pt3dadd(35.64,-120.232,122.6,1.1)}
{pt3dadd(38.499,-121.983,162.48,1.1)}
{pt3dadd(38.318,-121.813,162.48,1.1)}

{apical_dendrite[43] connect apical_dendrite[44](0), 1}
{access apical_dendrite[44]}
{pt3dclear()}
{pt3dadd(38.318,-121.813,162.48,1.1)}
{pt3dadd(38.318,-121.813,162.519,0.8)}
{pt3dadd(40.815,-126.559,166.4,0.8)}
{pt3dadd(40.815,-126.729,166.4,0.8)}
{pt3dadd(41.346,-128.492,166.4,0.8)}
{pt3dadd(41.527,-128.661,166.4,0.8)}
{pt3dadd(44.024,-129.893,166.48,0.8)}
{pt3dadd(44.555,-129.723,166.32,0.8)}
{pt3dadd(46.16,-129.893,166.96,0.8)}
{pt3dadd(46.16,-130.074,167.04,0.8)}
{pt3dadd(47.584,-130.774,167.04,0.8)}
{pt3dadd(47.765,-130.955,167.12,0.8)}
{pt3dadd(48.296,-132.356,169.36,0.8)}
{pt3dadd(48.296,-133.057,169.52,0.8)}
{pt3dadd(48.657,-134.639,169.6,0.8)}
{pt3dadd(48.827,-134.989,169.6,0.8)}
{pt3dadd(51.324,-134.82,154.64,0.8)}
{pt3dadd(51.505,-134.639,153.84,0.8)}
{pt3dadd(51.686,-134.47,153.04,0.8)}
{pt3dadd(52.929,-134.289,190.08,0.8)}
{pt3dadd(53.109,-134.289,190.08,0.8)}
{pt3dadd(55.064,-135.52,190.4,0.8)}
{pt3dadd(55.245,-135.871,190.4,0.8)}
{pt3dadd(56.669,-137.272,190.4,0.8)}
{pt3dadd(56.85,-137.634,190.56,0.8)}
{pt3dadd(57.742,-139.035,190.88,0.8)}
{pt3dadd(57.923,-139.385,190.88,0.8)}
{pt3dadd(60.59,-142.018,190.88,0.8)}
{pt3dadd(63.449,-142.199,196.48,0.8)}
{pt3dadd(63.449,-142.38,196.48,0.8)}
{pt3dadd(65.054,-145.363,196.96,0.8)}
{pt3dadd(65.054,-145.544,196.96,0.8)}
{pt3dadd(68.794,-146.594,198.48,0.8)}
{pt3dadd(69.144,-147.295,198.48,0.8)}
{pt3dadd(72.003,-151.872,198.56,0.8)}
{pt3dadd(72.184,-152.041,198.64,0.8)}
{pt3dadd(72.353,-152.222,198.72,0.8)}
{pt3dadd(73.608,-153.973,198.72,0.8)}
{pt3dadd(73.777,-153.973,198.72,0.8)}
{pt3dadd(75.924,-154.674,202.88,0.8)}
{pt3dadd(75.924,-154.855,202.88,0.8)}
{pt3dadd(76.094,-155.035,202.88,0.8)}
{pt3dadd(77.698,-156.968,202.8,0.8)}
{pt3dadd(76.986,-159.601,207.36,0.8)}
{pt3dadd(79.303,-161.533,211.6,0.8)}
{pt3dadd(79.303,-161.714,211.6,0.8)}
{pt3dadd(79.303,-164.697,211.6,0.8)}
{pt3dadd(81.981,-166.98,211.6,0.8)}
{pt3dadd(81.981,-167.16,211.6,0.8)}
{pt3dadd(84.829,-171.726,212.96,0.8)}
{pt3dadd(84.829,-171.906,213.36,0.8)}
{pt3dadd(88.219,-175.421,215.6,0.8)}
{pt3dadd(88.219,-175.59,215.68,0.8)}
{pt3dadd(91.066,-178.754,219.84,0.8)}
{pt3dadd(91.066,-178.935,219.84,0.8)}
{pt3dadd(94.987,-184.382,221.44,0.8)}
{pt3dadd(95.168,-184.382,221.44,0.8)}
{pt3dadd(97.53,-187.263,158.8,0.8)}
{pt3dadd(100.253,-189.772,158.24,0.8)}
{pt3dadd(100.31,-189.941,158.24,0.8)}
{pt3dadd(101.327,-191.998,158.24,0.8)}
{pt3dadd(101.587,-192.642,158.24,0.8)}
{pt3dadd(103.282,-194.992,158.4,0.8)}
{pt3dadd(103.745,-195.196,158.4,0.8)}
{pt3dadd(109.666,-198.507,158.48,0.8)}
{pt3dadd(111.745,-203.739,172.8,0.8)}
{pt3dadd(111.813,-203.897,172.48,0.8)}
{pt3dadd(113.146,-207.727,179.92,0.8)}
{pt3dadd(111.779,-209.592,181.28,0.8)}
{pt3dadd(111.677,-209.818,182.08,0.8)}
{pt3dadd(112.276,-212.801,197.6,0.8)}
{pt3dadd(112.74,-213.942,174.56,0.8)}
{pt3dadd(112.468,-214.236,174.56,0.8)}

} //topol11()

//---------------------------------
proc topol12() {

{apical_dendrite[43] connect apical_dendrite[45](0), 1}
{access apical_dendrite[45]}
{pt3dclear()}
{pt3dadd(38.318,-121.813,162.48,1.1)}
{pt3dadd(39.922,-123.045,151.44,0.8)}
{pt3dadd(39.922,-123.215,151.44,0.8)}
{pt3dadd(41.877,-125.147,151.44,0.8)}
{pt3dadd(41.877,-125.328,151.44,0.8)}
{pt3dadd(45.448,-130.424,171.44,0.8)}
{pt3dadd(45.448,-130.594,171.44,0.8)}
{pt3dadd(47.403,-133.407,156.8,0.8)}
{pt3dadd(47.584,-133.588,156.8,0.8)}
{pt3dadd(52.398,-135.69,169.12,0.8)}
{pt3dadd(52.578,-135.69,168.64,0.8)}
{pt3dadd(56.138,-138.153,167.36,0.8)}
{pt3dadd(56.138,-138.334,167.68,0.8)}
{pt3dadd(56.669,-141.148,189.92,0.8)}
{pt3dadd(56.85,-141.498,190,0.8)}
{pt3dadd(57.381,-143.781,196.56,0.8)}
{pt3dadd(61.302,-146.244,206.96,0.8)}
{pt3dadd(61.483,-146.244,206.96,0.8)}
{pt3dadd(64.342,-148.176,209.2,0.8)}
{pt3dadd(64.511,-148.176,209.28,0.8)}
{pt3dadd(65.765,-152.041,210.32,0.8)}
{pt3dadd(65.765,-152.222,210.4,0.8)}
{pt3dadd(67.008,-156.968,210.56,0.8)}
{pt3dadd(67.189,-157.318,210.56,0.8)}
{pt3dadd(67.246,-158.38,163.6,1.1)}
{pt3dadd(67.506,-159.985,167.52,1.1)}
{pt3dadd(68.026,-161.296,156.88,1.1)}
{pt3dadd(69.178,-160.832,154.64,1.1)}
{pt3dadd(70.749,-162.855,175.6,1.1)}
{pt3dadd(70.591,-162.923,175.68,1.1)}
{pt3dadd(71.28,-163.217,175.68,1.1)}
{pt3dadd(72.207,-162.652,175.68,1.1)}
{pt3dadd(73.506,-161.567,175.68,1.1)}
{pt3dadd(73.608,-161.341,175.76,1.1)}
{pt3dadd(74.885,-162.154,182.24,1.1)}
{pt3dadd(74.58,-163.793,186.56,1.1)}
{pt3dadd(74.478,-164.019,186.56,1.1)}
{pt3dadd(74.014,-164.776,186.56,1.1)}
{pt3dadd(73.845,-164.844,186.56,1.1)}
{pt3dadd(74.014,-164.776,189.84,1.1)}
{pt3dadd(75.563,-164.347,191.6,1.1)}
{pt3dadd(75.732,-164.279,191.92,1.1)}
{pt3dadd(76.625,-164.109,191.68,1.1)}
{pt3dadd(76.794,-164.053,191.68,1.1)}
{pt3dadd(77.246,-164.245,191.84,1.1)}
{pt3dadd(77.416,-164.177,193.12,1.1)}
{pt3dadd(76.941,-165.884,204.16,0.8)}
{pt3dadd(76.772,-165.94,204.16,0.8)}
{pt3dadd(76.342,-167.251,206.88,0.8)}
{pt3dadd(76.241,-167.488,207.2,0.8)}
{pt3dadd(76.557,-168.302,207.6,0.8)}
{pt3dadd(76.523,-168.697,207.68,0.8)}
{pt3dadd(76.06,-169.443,208.08,0.8)}
{pt3dadd(75.924,-170.065,208.32,0.8)}
{pt3dadd(77.099,-171.115,208.16,0.8)}
{pt3dadd(77.732,-171.24,208.16,0.8)}
{pt3dadd(77.89,-172.121,208.16,0.8)}
{pt3dadd(77.619,-172.415,208.4,0.8)}
{pt3dadd(75.936,-173.466,212.96,0.8)}
{pt3dadd(75.8,-174.087,213.36,0.8)}
{pt3dadd(78.862,-174.573,218.16,0.8)}
{pt3dadd(78.93,-174.731,218.16,0.8)}
{pt3dadd(77.924,-177.025,228.64,0.8)}
{pt3dadd(77.89,-177.421,228.72,0.8)}
{pt3dadd(76.546,-180.788,228.72,0.8)}
{pt3dadd(76.67,-181.116,228.72,0.8)}
{pt3dadd(78.953,-185.885,234.08,0.8)}
{pt3dadd(79.02,-186.054,235.2,0.8)}
{pt3dadd(78.862,-188.563,235.44,0.8)}
{pt3dadd(78.67,-189.026,235.44,0.8)}
{pt3dadd(78.094,-190.958,235.44,0.8)}
{pt3dadd(80.806,-194.416,243.6,0.8)}
{pt3dadd(80.489,-197.953,233.6,0.8)}
{pt3dadd(80.614,-198.281,233.6,0.8)}
{pt3dadd(82.93,-202.654,255.76,0.8)}
{pt3dadd(83.1,-202.586,255.92,0.8)}
{pt3dadd(83.066,-202.981,256.16,0.8)}

{apical_dendrite[42] connect apical_dendrite[46](0), 1}
{access apical_dendrite[46]}
{pt3dclear()}
{pt3dadd(35.64,-120.232,122.56,1.74)}
{pt3dadd(35.821,-120.232,122.96,1.74)}
{pt3dadd(35.47,-124.096,143.2,1.74)}
{pt3dadd(35.64,-124.266,143.2,1.74)}
{pt3dadd(37.425,-127.961,143.2,1.74)}
{pt3dadd(37.606,-127.791,143.2,1.74)}
{pt3dadd(37.425,-127.791,143.2,1.74)}

{apical_dendrite[46] connect apical_dendrite[47](0), 1}
{access apical_dendrite[47]}
{pt3dclear()}
{pt3dadd(37.425,-127.791,143.2,1.74)}
{pt3dadd(37.425,-127.791,143.239,1.1)}
{pt3dadd(39.561,-131.305,158.8,1.1)}
{pt3dadd(40.815,-134.989,172,1.1)}
{pt3dadd(45.448,-138.334,179.44,1.1)}
{pt3dadd(45.448,-138.504,179.44,1.1)}
{pt3dadd(46.691,-140.086,179.44,1.1)}
{pt3dadd(46.691,-140.436,179.44,1.1)}
{pt3dadd(46.51,-143.962,179.44,1.1)}
{pt3dadd(46.51,-144.131,179.44,1.1)}
{pt3dadd(50.612,-144.662,186.48,1.1)}
{pt3dadd(50.793,-144.662,186.48,1.1)}
{pt3dadd(51.324,-146.414,194.16,1.1)}
{pt3dadd(51.143,-146.594,194.16,1.1)}
{pt3dadd(51.324,-148.527,198.72,1.1)}
{pt3dadd(51.505,-148.707,198,1.1)}
{pt3dadd(54.352,-152.041,199.36,1.1)}
{pt3dadd(54.895,-154.674,202.08,1.1)}
{pt3dadd(56.319,-155.736,206.24,1.1)}
{pt3dadd(56.319,-155.906,206.24,1.1)}
{pt3dadd(57.031,-161.533,209.52,1.1)}
{pt3dadd(57.031,-161.714,209.52,1.1)}
{pt3dadd(59.166,-162.414,214.32,1.1)}
{pt3dadd(59.166,-162.584,214.32,1.1)}
{pt3dadd(60.059,-169.974,221.04,1.1)}
{pt3dadd(60.24,-169.974,221.04,1.1)}
{pt3dadd(63.517,-173.149,155.68,1.1)}
{pt3dadd(63.347,-173.217,155.52,1.1)}
{pt3dadd(62.929,-176.031,166.96,1.1)}
{pt3dadd(64.782,-181.161,166.88,1.1)}
{pt3dadd(64.941,-181.093,166.96,1.1)}
{pt3dadd(66.127,-181.195,177.28,1.1)}
{pt3dadd(66.195,-181.353,177.28,1.1)}
{pt3dadd(67.404,-183.907,177.28,1.1)}
{pt3dadd(67.472,-184.065,177.28,1.1)}
{pt3dadd(66.929,-185.602,177.28,1.1)}
{pt3dadd(67.155,-185.704,177.28,1.1)}
{pt3dadd(70.579,-188.506,178.8,0.8)}
{pt3dadd(74.15,-192.19,180.96,0.8)}
{pt3dadd(77.517,-196.337,184.64,0.8)}
{pt3dadd(77.585,-196.495,184.64,0.8)}
{pt3dadd(80.422,-202.179,190.96,0.8)}
{pt3dadd(80.489,-202.349,190.96,0.8)}
{pt3dadd(81.28,-206.756,191.04,0.8)}
{pt3dadd(85.597,-208.439,194.16,0.8)}
{pt3dadd(89.123,-214.417,201.04,0.8)}
{pt3dadd(91.213,-218.7,205.12,0.8)}
{pt3dadd(91.439,-218.79,205.12,0.8)}
{pt3dadd(94.106,-220.191,205.12,0.8)}
{pt3dadd(93.699,-222.056,207.52,0.8)}
{pt3dadd(95.823,-224.994,207.52,0.48)}
{pt3dadd(96.117,-225.254,207.52,0.48)}
{pt3dadd(98.931,-229.435,209.2,0.48)}
{pt3dadd(98.999,-229.604,209.2,0.48)}
{pt3dadd(100.095,-233.322,209.52,0.48)}
{pt3dadd(100.457,-233.751,209.76,0.48)}
{pt3dadd(101.801,-234.723,208,0.48)}
{pt3dadd(101.937,-235.051,206.72,0.48)}
{pt3dadd(102.298,-238.881,197.04,0.48)}
{pt3dadd(102.536,-238.972,199.12,0.48)}
{pt3dadd(102.976,-241.062,222.32,0.48)}
{pt3dadd(102.875,-241.3,222.8,0.48)}
{pt3dadd(102.683,-245.153,227.84,0.48)}
{pt3dadd(102.852,-246.034,228,0.48)}
{pt3dadd(104.423,-248.057,229.92,0.48)}
{pt3dadd(104.513,-248.78,229.92,0.48)}
{pt3dadd(103.948,-253.165,238.56,0.48)}
{pt3dadd(104.016,-253.323,238.56,0.48)}

{apical_dendrite[46] connect apical_dendrite[48](0), 1}
{access apical_dendrite[48]}
{pt3dclear()}
{pt3dadd(37.425,-127.791,143.2,1.74)}
{pt3dadd(37.075,-130.774,134.32,1.74)}
{pt3dadd(35.64,-134.108,134.16,1.74)}
{pt3dadd(35.64,-134.289,134.16,1.74)}
{pt3dadd(34.928,-136.752,134.16,1.74)}
{pt3dadd(35.64,-138.153,134.16,1.74)}
{pt3dadd(35.821,-138.334,134.16,1.74)}

{apical_dendrite[48] connect apical_dendrite[49](0), 1}
{access apical_dendrite[49]}
{pt3dclear()}
{pt3dadd(35.821,-138.334,134.16,1.74)}
{pt3dadd(35.821,-138.334,134.2,1.1)}
{pt3dadd(42.239,-142.199,160.8,1.1)}
{pt3dadd(42.239,-142.38,160.8,1.1)}
{pt3dadd(42.589,-143.25,160.8,1.1)}
{pt3dadd(43.843,-144.131,160.8,1.1)}
{pt3dadd(45.267,-148.877,177.28,1.1)}
{pt3dadd(47.945,-150.459,172.32,1.1)}
{pt3dadd(49.72,-152.572,184.48,1.1)}
{pt3dadd(49.9,-152.572,184.32,1.1)}

{apical_dendrite[49] connect apical_dendrite[50](0), 1}
{access apical_dendrite[50]}
{pt3dclear()}
{pt3dadd(49.9,-152.572,184.32,1.1)}
{pt3dadd(49.188,-154.154,194.8,1.1)}
{pt3dadd(49.008,-153.804,194.8,1.1)}

{apical_dendrite[50] connect apical_dendrite[51](0), 1}
{access apical_dendrite[51]}
{pt3dclear()}
{pt3dadd(49.008,-153.804,194.8,1.1)}
{pt3dadd(49.008,-153.804,194.84,1.1)}
{pt3dadd(50.974,-157.668,197.2,1.1)}
{pt3dadd(50.974,-157.838,197.2,1.1)}
{pt3dadd(52.217,-160.132,181.76,1.1)}
{pt3dadd(52.217,-160.301,181.84,1.1)}
{pt3dadd(50.974,-164.528,194.64,1.1)}
{pt3dadd(53.46,-167.33,204.24,1.1)}
{pt3dadd(53.46,-167.511,204.32,1.1)}
{pt3dadd(53.29,-173.308,209.2,1.1)}
{pt3dadd(53.109,-173.488,209.52,1.1)}
{pt3dadd(52.036,-178.234,212,1.1)}
{pt3dadd(52.036,-178.404,212.16,1.1)}
{pt3dadd(51.143,-181.568,219.76,1.1)}
{pt3dadd(51.324,-184.031,220.72,1.1)}
{pt3dadd(51.324,-184.031,208.48,1.1)}
{pt3dadd(50.544,-187.071,149.2,1.1)}
{pt3dadd(50.296,-189.817,141.44,1.1)}
{pt3dadd(49.154,-191.783,166.96,1.1)}
{pt3dadd(49.222,-191.941,165.76,1.1)}
{pt3dadd(48.341,-194.563,151.6,1.1)}
{pt3dadd(48.409,-194.721,151.28,1.1)}
{pt3dadd(47.143,-196.36,148,1.1)}
{pt3dadd(46.974,-196.427,148.16,1.1)}
{pt3dadd(47.878,-199.659,169.68,1.1)}
{pt3dadd(47.945,-199.829,170.4,1.1)}
{pt3dadd(44.499,-200.823,178.32,1.1)}
{pt3dadd(44.341,-200.88,179.12,1.1)}
{pt3dadd(42.951,-200.303,185.2,1.1)}
{pt3dadd(42.826,-199.976,185.76,1.1)}
{pt3dadd(39.787,-199.094,186.48,1.1)}
{pt3dadd(39.629,-199.162,186.48,1.1)}
{pt3dadd(39.459,-199.23,188,1.1)}
{pt3dadd(39.188,-200.473,194.88,1.1)}
{pt3dadd(39.312,-200.8,195.12,1.1)}
{pt3dadd(40.261,-201.75,205.04,1.1)}
{pt3dadd(40.431,-201.682,206.08,1.1)}
{pt3dadd(41.12,-201.976,208.16,1.1)}
{pt3dadd(41.29,-201.908,209.04,1.1)}
{pt3dadd(41.866,-199.976,214,1.1)}
{pt3dadd(41.73,-199.648,215.68,1.1)}
{pt3dadd(41.674,-199.49,216.88,1.1)}
{pt3dadd(40.352,-199.06,219.2,1.1)}
{pt3dadd(40.182,-199.128,220.64,1.1)}
{pt3dadd(40.047,-199.75,222.16,1.1)}
{pt3dadd(40.103,-201.806,227.76,1.1)}
{pt3dadd(40.363,-202.462,227.76,1.1)}
{pt3dadd(40.431,-202.631,227.92,1.1)}
{pt3dadd(41.764,-204.552,209.12,0.8)}
{pt3dadd(41.922,-205.434,209.36,0.8)}
{pt3dadd(43.177,-206.643,210.16,0.8)}
{pt3dadd(43.233,-206.801,210.96,0.8)}
{pt3dadd(42.103,-207.818,231.36,0.8)}
{pt3dadd(41.911,-208.281,231.6,0.8)}
{pt3dadd(43.55,-209.524,231.6,0.8)}
{pt3dadd(43.674,-209.84,232,0.8)}
{pt3dadd(43.007,-211.061,241.6,0.8)}
{pt3dadd(42.578,-211.422,242.16,0.8)}
{pt3dadd(42.216,-211.942,242.72,0.8)}
{pt3dadd(41.448,-212.439,238.72,0.8)}
{pt3dadd(41.222,-212.338,237.44,0.8)}
{pt3dadd(38.555,-209.987,259.279,0.8)}
{pt3dadd(38.453,-210.225,262.16,0.8)}
{pt3dadd(37.787,-211.434,265.76,0.8)}
{pt3dadd(37.979,-211.92,265.36,0.8)}
{pt3dadd(38.137,-213.75,266.08,0.8)}
{pt3dadd(38.16,-214.304,267.6,0.8)}
{pt3dadd(37.968,-214.767,268,0.8)}
{pt3dadd(36.476,-215.355,267.28,0.8)}
{pt3dadd(36.306,-215.423,267.28,0.8)}
{pt3dadd(35.685,-215.298,267.92,0.8)}
{pt3dadd(34.137,-214.779,272.48,0.8)}
{pt3dadd(33.9,-214.677,272.72,0.8)}
{pt3dadd(31.854,-214.36,244.88,0.8)}
{pt3dadd(31.786,-214.191,244.88,0.8)}
{pt3dadd(31.628,-214.259,244.88,0.8)}

{apical_dendrite[50] connect apical_dendrite[52](0), 1}
{access apical_dendrite[52]}
{pt3dclear()}
{pt3dadd(49.008,-153.804,194.8,1.1)}
{pt3dadd(48.115,-154.674,178.64,1.1)}
{pt3dadd(48.115,-154.855,178.64,1.1)}
{pt3dadd(47.403,-155.035,172.64,1.1)}
{pt3dadd(46.51,-154.855,185.68,1.1)}
{pt3dadd(46.341,-154.855,187.92,1.1)}
{pt3dadd(46.341,-154.674,188.4,1.1)}

{apical_dendrite[52] connect apical_dendrite[53](0), 1}
{access apical_dendrite[53]}
{pt3dclear()}
{pt3dadd(46.341,-154.674,188.4,1.1)}
{pt3dadd(46.341,-154.674,188.44,1.1)}
{pt3dadd(45.979,-154.324,214.24,1.1)}
{pt3dadd(45.979,-154.154,214.72,1.1)}
{pt3dadd(44.736,-152.922,214.96,1.1)}
{pt3dadd(43.663,-152.391,215.12,1.1)}
{pt3dadd(43.663,-152.222,216.08,1.1)}
{pt3dadd(43.132,-152.041,216.48,1.1)}
{pt3dadd(42.951,-152.041,216.56,1.1)}
{pt3dadd(41.165,-151.691,216.64,1.1)}
{pt3dadd(40.453,-151.34,216.64,1.1)}
{pt3dadd(40.273,-151.34,216.64,1.1)}
{pt3dadd(39.561,-150.99,216.64,1.1)}
{pt3dadd(39.391,-151.34,216.16,1.1)}

} //topol12()

//---------------------------------
proc topol13() {

{apical_dendrite[52] connect apical_dendrite[54](0), 1}
{access apical_dendrite[54]}
{pt3dclear()}
{pt3dadd(46.341,-154.674,188.4,1.1)}
{pt3dadd(45.109,-155.86,146.64,0.8)}
{pt3dadd(42.906,-154.651,166.96,0.8)}
{pt3dadd(42.747,-154.719,166.96,0.8)}
{pt3dadd(41.256,-155.318,167.04,0.8)}
{pt3dadd(41.086,-155.386,167.04,0.8)}
{pt3dadd(40.544,-157.872,170,0.8)}
{pt3dadd(37.086,-156.403,171.28,0.8)}
{pt3dadd(36.917,-156.471,171.92,0.8)}
{pt3dadd(34.318,-159.589,175.12,0.8)}
{pt3dadd(33.99,-159.714,175.04,0.8)}
{pt3dadd(31.719,-162.697,181.2,0.8)}
{pt3dadd(31.685,-163.092,181.2,0.8)}
{pt3dadd(29.379,-166.46,187.92,0.8)}
{pt3dadd(29.12,-166.765,187.92,0.8)}
{pt3dadd(28.204,-169.771,192.64,0.8)}
{pt3dadd(28.001,-170.234,192.64,0.8)}
{pt3dadd(27.978,-173.07,193.12,0.8)}
{pt3dadd(27.877,-173.308,193.68,0.8)}
{pt3dadd(28.035,-175.138,194.4,0.8)}
{pt3dadd(28.103,-175.296,194.4,0.8)}
{pt3dadd(28.125,-175.85,194.4,0.8)}

{apical_dendrite[49] connect apical_dendrite[55](0), 1}
{access apical_dendrite[55]}
{pt3dclear()}
{pt3dadd(49.9,-152.572,184.32,1.1)}
{pt3dadd(49.9,-152.572,184.359,1.1)}
{pt3dadd(49.72,-152.572,170.96,1.1)}

{apical_dendrite[48] connect apical_dendrite[56](0), 1}
{access apical_dendrite[56]}
{pt3dclear()}
{pt3dadd(35.821,-138.334,134.16,1.74)}
{pt3dadd(37.787,-141.668,131.84,1.74)}
{pt3dadd(40.634,-143.962,131.12,1.74)}
{pt3dadd(41.708,-146.945,131.28,1.74)}
{pt3dadd(41.877,-147.125,131.28,1.74)}
{pt3dadd(41.708,-151.34,144,1.74)}
{pt3dadd(41.877,-151.34,144,1.74)}
{pt3dadd(41.527,-151.34,144,1.74)}

{apical_dendrite[56] connect apical_dendrite[57](0), 1}
{access apical_dendrite[57]}
{pt3dclear()}
{pt3dadd(41.527,-151.34,144,1.74)}
{pt3dadd(41.527,-151.34,144.04,0.8)}
{pt3dadd(45.798,-152.742,148.16,0.8)}
{pt3dadd(50.974,-158.719,159.92,0.8)}
{pt3dadd(50.974,-158.9,159.92,0.8)}
{pt3dadd(59.347,-165.228,159.92,0.8)}
{pt3dadd(59.347,-165.398,159.92,0.8)}
{pt3dadd(64.342,-169.793,159.92,0.8)}
{pt3dadd(64.511,-169.793,159.92,0.8)}
{pt3dadd(67.54,-170.675,159.92,0.8)}
{pt3dadd(67.72,-170.675,159.92,0.8)}
{pt3dadd(72.184,-174.008,166.16,0.8)}
{pt3dadd(74.32,-176.121,155.84,0.8)}
{pt3dadd(75.032,-178.935,156,0.8)}
{pt3dadd(78.953,-179.466,163.12,0.8)}
{pt3dadd(78.953,-179.636,163.2,0.8)}
{pt3dadd(81.981,-183.862,153.44,0.8)}
{pt3dadd(85.371,-185.444,153.44,0.8)}
{pt3dadd(85.541,-185.444,153.44,0.8)}
{pt3dadd(88.75,-188.608,153.44,0.8)}
{pt3dadd(88.75,-188.777,153.44,0.8)}
{pt3dadd(90.897,-191.241,153.44,0.8)}
{pt3dadd(90.897,-191.41,153.44,0.8)}
{pt3dadd(92.852,-196.687,162.4,0.8)}
{pt3dadd(92.852,-196.868,162.4,0.8)}
{pt3dadd(96.954,-205.648,162.4,0.8)}
{pt3dadd(96.954,-206.01,162.4,0.8)}
{pt3dadd(99.801,-215.14,162.4,0.8)}
{pt3dadd(99.801,-215.321,162.4,0.8)}
{pt3dadd(102.298,-220.948,162.4,0.8)}
{pt3dadd(104.434,-226.745,162.4,0.8)}
{pt3dadd(106.039,-230.96,151.44,0.8)}
{pt3dadd(105.858,-230.96,151.6,0.8)}
{pt3dadd(107.643,-234.655,161.68,0.8)}
{pt3dadd(107.824,-234.655,163.68,0.8)}
{pt3dadd(111.564,-239.051,173.04,0.8)}
{pt3dadd(111.745,-239.22,173.04,0.8)}
{pt3dadd(114.062,-242.215,173.44,0.8)}
{pt3dadd(114.242,-242.215,173.44,0.8)}
{pt3dadd(117.452,-245.729,175.76,0.8)}
{pt3dadd(117.452,-245.91,175.84,0.8)}
{pt3dadd(117.802,-250.826,178.72,0.8)}
{pt3dadd(123.689,-253.289,178.48,0.8)}
{pt3dadd(123.689,-253.458,178.48,0.8)}
{pt3dadd(126.356,-261.368,163.52,0.8)}
{pt3dadd(129.384,-268.408,163.52,0.8)}
{pt3dadd(129.565,-268.578,163.52,0.8)}
{pt3dadd(130.458,-273.324,163.52,0.8)}
{pt3dadd(130.639,-273.855,163.52,0.8)}
{pt3dadd(132.063,-277.188,163.52,0.8)}
{pt3dadd(132.243,-277.188,163.52,0.8)}
{pt3dadd(133.837,-279.121,163.52,0.8)}
{pt3dadd(134.017,-279.833,163.52,0.8)}
{pt3dadd(134.729,-284.748,163.52,0.8)}
{pt3dadd(134.729,-284.929,163.52,0.8)}
{pt3dadd(135.984,-288.613,163.52,0.8)}
{pt3dadd(135.984,-288.794,163.52,0.8)}
{pt3dadd(135.803,-290.025,163.52,0.8)}
{pt3dadd(135.622,-290.025,163.6,0.8)}
{pt3dadd(135.622,-290.195,163.6,0.8)}
{pt3dadd(136.515,-292.489,177.12,0.8)}
{pt3dadd(136.515,-292.658,177.2,0.8)}
{pt3dadd(136.515,-293.189,177.28,0.8)}
{pt3dadd(136.165,-296.003,177.28,0.8)}
{pt3dadd(137.588,-299.336,177.28,0.8)}
{pt3dadd(137.758,-299.517,177.28,0.8)}
{pt3dadd(139.193,-305.145,161.76,0.8)}
{pt3dadd(139.193,-305.314,161.76,0.8)}
{pt3dadd(139.724,-309.891,177.44,0.8)}
{pt3dadd(139.724,-310.06,177.6,0.8)}
{pt3dadd(139.543,-313.575,180.8,0.8)}
{pt3dadd(139.543,-313.755,180.8,0.8)}
{pt3dadd(140.436,-315.688,180.8,0.8)}
{pt3dadd(140.436,-315.857,180.64,0.8)}
{pt3dadd(140.797,-316.038,180.64,0.8)}

{apical_dendrite[56] connect apical_dendrite[58](0), 1}
{access apical_dendrite[58]}
{pt3dclear()}
{pt3dadd(41.527,-151.34,144,1.74)}
{pt3dadd(41.708,-151.872,144,1.74)}

{apical_dendrite[58] connect apical_dendrite[59](0), 1}
{access apical_dendrite[59]}
{pt3dclear()}
{pt3dadd(41.708,-151.872,144,1.74)}
{pt3dadd(41.708,-151.872,144.04,0.8)}
{pt3dadd(36.894,-158.369,162.32,0.8)}
{pt3dadd(34.397,-161.533,151.2,0.8)}
{pt3dadd(34.397,-161.714,151.2,0.8)}
{pt3dadd(34.216,-161.883,151.2,0.8)}
{pt3dadd(29.583,-163.646,151.12,0.8)}
{pt3dadd(29.402,-163.646,151.12,0.8)}
{pt3dadd(26.916,-167.16,151.12,0.8)}
{pt3dadd(26.916,-167.511,151.12,0.8)}
{pt3dadd(26.023,-169.624,151.12,0.8)}
{pt3dadd(26.023,-169.793,151.12,0.8)}
{pt3dadd(24.419,-169.793,151.12,0.8)}
{pt3dadd(19.605,-177.703,151.12,0.8)}
{pt3dadd(15.684,-183.331,165.68,0.8)}
{pt3dadd(15.153,-186.845,165.68,0.8)}
{pt3dadd(15.153,-187.026,165.68,0.8)}
{pt3dadd(12.836,-191.41,165.68,0.8)}
{pt3dadd(12.836,-191.591,165.68,0.8)}
{pt3dadd(7.13,-197.919,150.56,0.8)}
{pt3dadd(6.418,-204.428,152,0.8)}
{pt3dadd(9.085,-207.411,141.28,0.8)}
{pt3dadd(9.085,-207.761,141.28,0.8)}
{pt3dadd(9.085,-211.106,141.28,0.8)}
{pt3dadd(11.232,-217.604,141.28,0.8)}
{pt3dadd(11.232,-217.784,141.36,0.8)}
{pt3dadd(10.689,-222.35,141.84,0.8)}
{pt3dadd(11.401,-231.672,134.24,0.8)}
{pt3dadd(11.763,-233.955,141.2,0.8)}
{pt3dadd(11.763,-234.124,141.2,0.8)}
{pt3dadd(11.401,-240.452,141.2,0.8)}
{pt3dadd(11.401,-240.633,141.2,0.8)}
{pt3dadd(11.232,-242.746,128.56,0.8)}
{pt3dadd(11.232,-242.916,128.479,0.8)}
{pt3dadd(11.401,-245.548,123.52,0.8)}
{pt3dadd(11.401,-245.729,123.52,0.8)}
{pt3dadd(12.655,-247.842,122.96,0.8)}
{pt3dadd(12.836,-247.842,122.08,0.8)}
{pt3dadd(13.899,-248.543,120.32,0.8)}
{pt3dadd(13.187,-251.526,115.04,0.8)}
{pt3dadd(15.865,-253.289,111.12,0.8)}
{pt3dadd(16.034,-253.108,111.12,0.8)}
{pt3dadd(16.034,-253.289,111.12,0.8)}

{apical_dendrite[58] connect apical_dendrite[60](0), 1}
{access apical_dendrite[60]}
{pt3dclear()}
{pt3dadd(41.708,-151.872,144,1.74)}
{pt3dadd(42.77,-155.205,132.48,1.74)}
{pt3dadd(42.77,-155.386,132.48,1.74)}
{pt3dadd(43.482,-157.668,132.56,1.74)}
{pt3dadd(42.42,-161.883,147.52,1.74)}
{pt3dadd(44.194,-168.562,151.44,1.74)}
{pt3dadd(44.375,-168.562,151.44,1.74)}
{pt3dadd(46.691,-172.607,142.56,1.74)}
{pt3dadd(46.691,-172.788,142.56,1.74)}
{pt3dadd(48.115,-176.822,142.48,1.74)}
{pt3dadd(48.477,-179.816,142.48,1.74)}
{pt3dadd(49.9,-183.681,142.48,1.74)}
{pt3dadd(50.262,-183.331,142.48,1.74)}

{apical_dendrite[60] connect apical_dendrite[61](0), 1}
{access apical_dendrite[61]}
{pt3dclear()}
{pt3dadd(50.262,-183.331,142.48,1.74)}
{pt3dadd(50.262,-183.331,142.519,1.42)}
{pt3dadd(49.008,-185.444,168.96,1.42)}
{pt3dadd(47.403,-186.845,171.44,1.42)}
{pt3dadd(45.798,-187.026,153.68,1.42)}
{pt3dadd(45.629,-187.026,153.68,1.42)}
{pt3dadd(42.058,-186.144,153.44,1.1)}
{pt3dadd(38.668,-188.777,149.84,1.1)}
{pt3dadd(40.453,-192.292,148.56,1.1)}
{pt3dadd(40.453,-192.472,148.24,1.1)}
{pt3dadd(39.211,-197.218,144.48,1.1)}
{pt3dadd(39.211,-197.388,144.4,1.1)}
{pt3dadd(39.391,-200.733,144.08,1.1)}
{pt3dadd(39.391,-200.902,144.08,1.1)}
{pt3dadd(38.499,-204.597,141.92,1.1)}
{pt3dadd(38.668,-204.778,141.84,1.1)}
{pt3dadd(38.668,-207.942,140.64,1.1)}
{pt3dadd(38.668,-208.292,140.72,1.1)}
{pt3dadd(38.668,-211.456,140.24,1.1)}
{pt3dadd(38.668,-211.626,139.68,1.1)}
{pt3dadd(39.561,-218.304,148.08,1.1)}
{pt3dadd(39.561,-218.485,148.08,1.1)}
{pt3dadd(38.318,-223.231,148.08,0.8)}
{pt3dadd(37.063,-226.745,134.08,0.8)}
{pt3dadd(37.787,-229.559,133.68,0.8)}
{pt3dadd(37.787,-229.728,133.68,0.8)}
{pt3dadd(38.137,-232.723,129.52,0.8)}
{pt3dadd(34.747,-235.706,129.44,0.8)}
{pt3dadd(34.577,-235.706,129.039,0.8)}
{pt3dadd(34.577,-235.887,128.8,0.8)}
{pt3dadd(33.504,-239.401,126.4,0.8)}
{pt3dadd(33.504,-239.582,126.4,0.8)}
{pt3dadd(30.826,-243.096,123.44,0.8)}
{pt3dadd(30.826,-243.266,123.44,0.8)}
{pt3dadd(29.052,-248.012,121.2,0.8)}
{pt3dadd(27.447,-250.125,121.36,0.8)}
{pt3dadd(27.447,-250.295,121.04,0.8)}
{pt3dadd(26.735,-254.521,121.44,0.8)}
{pt3dadd(27.978,-261.018,121.44,0.8)}
{pt3dadd(27.978,-261.199,121.44,0.8)}
{pt3dadd(27.086,-268.578,121.28,0.8)}
{pt3dadd(26.916,-268.759,121.28,0.8)}
{pt3dadd(24.769,-274.025,120.88,0.8)}
{pt3dadd(24.769,-274.205,120.88,0.8)}
{pt3dadd(21.56,-277.188,136.56,0.8)}
{pt3dadd(19.955,-278.951,132.8,0.8)}
{pt3dadd(19.955,-279.121,132.72,0.8)}
{pt3dadd(21.029,-285.099,137.52,0.8)}
{pt3dadd(21.029,-285.279,137.52,0.8)}
{pt3dadd(25.662,-291.257,137.52,0.8)}
{pt3dadd(27.447,-294.24,141.44,0.8)}
{pt3dadd(27.447,-294.421,141.52,0.8)}
{pt3dadd(29.233,-300.218,147.68,0.8)}
{pt3dadd(29.052,-300.218,147.68,0.8)}
{pt3dadd(27.447,-304.263,150.72,0.8)}
{pt3dadd(27.266,-304.433,150.72,0.8)}

{apical_dendrite[60] connect apical_dendrite[62](0), 1}
{access apical_dendrite[62]}
{pt3dclear()}
{pt3dadd(50.262,-183.331,142.48,1.74)}
{pt3dadd(50.081,-183.5,142.48,1.74)}
{pt3dadd(52.929,-188.077,157.2,1.74)}
{pt3dadd(55.064,-190.009,157.12,1.74)}
{pt3dadd(55.064,-190.19,157.04,1.74)}
{pt3dadd(54.895,-190.359,157.04,1.74)}

} //topol13()

//---------------------------------
proc topol14() {

{apical_dendrite[62] connect apical_dendrite[63](0), 1}
{access apical_dendrite[63]}
{pt3dclear()}
{pt3dadd(54.895,-190.359,157.04,1.74)}
{pt3dadd(54.895,-190.359,157.079,1.1)}
{pt3dadd(54.183,-195.286,153.92,1.1)}
{pt3dadd(54.352,-195.286,153.92,1.1)}
{pt3dadd(54.352,-195.456,153.92,1.1)}
{pt3dadd(54.002,-199.32,146.72,1.1)}
{pt3dadd(54.002,-199.501,146.72,1.1)}
{pt3dadd(54.533,-200.552,145.92,1.1)}
{pt3dadd(55.957,-200.382,141.2,0.8)}
{pt3dadd(56.138,-200.552,141.12,0.8)}
{pt3dadd(55.957,-201.784,157.04,0.8)}
{pt3dadd(54.352,-204.247,145.2,0.8)}
{pt3dadd(54.352,-204.597,144.48,0.8)}
{pt3dadd(54.352,-205.479,143.76,0.8)}
{pt3dadd(54.533,-207.592,142.4,0.8)}
{pt3dadd(54.714,-208.112,142.48,0.8)}
{pt3dadd(57.211,-209.343,140.56,0.8)}
{pt3dadd(57.381,-209.343,140.72,0.8)}
{pt3dadd(55.957,-212.858,146.72,0.8)}
{pt3dadd(55.788,-212.858,146.88,0.8)}
{pt3dadd(55.788,-213.038,147.12,0.8)}
{pt3dadd(57.031,-214.79,147.28,0.8)}
{pt3dadd(57.211,-214.971,147.28,0.8)}
{pt3dadd(57.742,-215.49,147.52,0.8)}
{pt3dadd(58.104,-217.434,151.2,0.8)}
{pt3dadd(57.923,-217.784,152.24,0.8)}
{pt3dadd(57.923,-217.954,152.72,0.8)}
{pt3dadd(57.562,-219.366,130.24,0.8)}
{pt3dadd(57.562,-219.536,130.32,0.8)}
{pt3dadd(57.562,-221.118,130.32,0.8)}
{pt3dadd(57.562,-221.819,130.32,0.8)}
{pt3dadd(58.274,-223.4,130.32,0.8)}
{pt3dadd(58.274,-223.762,130.32,0.8)}
{pt3dadd(57.381,-225.514,130.32,0.8)}
{pt3dadd(57.381,-225.694,130.32,0.8)}
{pt3dadd(58.104,-228.327,130.32,0.8)}
{pt3dadd(57.923,-228.327,130.32,0.8)}
{pt3dadd(52.929,-233.254,125.12,0.8)}
{pt3dadd(52.578,-235.887,124.16,0.8)}
{pt3dadd(50.431,-237.819,124.16,0.8)}
{pt3dadd(50.431,-238,124.16,0.8)}
{pt3dadd(46.872,-247.13,120.8,0.8)}
{pt3dadd(46.872,-247.311,120.8,0.8)}
{pt3dadd(45.979,-253.639,120.8,0.8)}
{pt3dadd(47.222,-255.922,115.52,0.8)}
{pt3dadd(47.584,-256.453,115.68,0.8)}
{pt3dadd(47.584,-258.736,115.76,0.8)}
{pt3dadd(47.584,-258.916,115.76,0.8)}
{pt3dadd(49.188,-260.668,113.84,0.8)}
{pt3dadd(49.369,-260.849,113.68,0.8)}
{pt3dadd(50.081,-263.662,109.68,0.8)}
{pt3dadd(50.081,-263.832,109.84,0.8)}
{pt3dadd(50.793,-266.114,108.72,0.8)}
{pt3dadd(51.866,-269.99,105.28,0.8)}
{pt3dadd(51.866,-270.16,105.28,0.8)}
{pt3dadd(47.584,-273.154,103.2,0.8)}
{pt3dadd(47.403,-273.324,102.4,0.8)}
{pt3dadd(44.194,-274.906,98.88,0.8)}
{pt3dadd(44.024,-274.906,98.64,0.8)}
{pt3dadd(41.708,-276.138,95.92,0.8)}
{pt3dadd(41.165,-276.318,95.92,0.8)}
{pt3dadd(39.211,-277.188,90.56,0.8)}
{pt3dadd(39.03,-277.188,90.56,0.8)}
{pt3dadd(37.956,-277.539,90.56,0.8)}
{pt3dadd(37.787,-277.9,90.56,0.8)}
{pt3dadd(37.606,-278.77,88.64,0.8)}
{pt3dadd(37.425,-278.951,88.32,0.8)}
{pt3dadd(36.352,-279.482,86.96,0.8)}
{pt3dadd(36.001,-279.482,86.88,0.8)}
{pt3dadd(34.216,-280.002,83.76,0.8)}
{pt3dadd(34.216,-280.183,83.68,0.8)}

{apical_dendrite[62] connect apical_dendrite[64](0), 1}
{access apical_dendrite[64]}
{pt3dclear()}
{pt3dadd(54.895,-190.359,157.04,1.74)}
{pt3dadd(56.138,-194.054,146.4,1.74)}
{pt3dadd(56.138,-194.224,146.4,1.74)}
{pt3dadd(57.211,-197.738,146.4,1.74)}
{pt3dadd(57.211,-197.919,146.4,1.74)}
{pt3dadd(60.59,-200.902,146.56,1.74)}
{pt3dadd(60.771,-201.083,146.56,1.74)}
{pt3dadd(62.025,-203.196,148.72,1.74)}
{pt3dadd(62.195,-203.196,148.72,1.74)}

{apical_dendrite[64] connect apical_dendrite[65](0), 1}
{access apical_dendrite[65]}
{pt3dclear()}
{pt3dadd(62.195,-203.196,148.72,1.74)}
{pt3dadd(63.268,-209.524,168.96,2.06)}
{pt3dadd(63.268,-213.208,166,2.06)}
{pt3dadd(63.618,-217.072,166,2.06)}
{pt3dadd(63.618,-217.253,166,2.06)}
{pt3dadd(63.799,-217.784,166,2.06)}
{pt3dadd(63.449,-217.604,166,2.06)}

{apical_dendrite[65] connect apical_dendrite[66](0), 1}
{access apical_dendrite[66]}
{pt3dclear()}
{pt3dadd(63.449,-217.604,166,2.06)}
{pt3dadd(63.449,-217.604,166.04,1.1)}
{pt3dadd(63.268,-222.18,165.84,1.1)}
{pt3dadd(63.268,-222.35,166.64,1.1)}
{pt3dadd(64.511,-229.209,171.04,1.1)}
{pt3dadd(62.025,-231.672,174.88,1.1)}
{pt3dadd(62.737,-236.768,178.88,1.1)}
{pt3dadd(62.907,-236.768,178.88,1.1)}
{pt3dadd(59.697,-245.198,178.96,1.1)}
{pt3dadd(59.528,-245.198,178.96,1.1)}
{pt3dadd(58.104,-246.611,193.44,1.1)}
{pt3dadd(57.562,-246.78,193.44,1.1)}

{apical_dendrite[66] connect apical_dendrite[67](0), 1}
{access apical_dendrite[67]}
{pt3dclear()}
{pt3dadd(57.562,-246.78,193.44,1.1)}
{pt3dadd(57.562,-246.78,193.48,0.8)}
{pt3dadd(58.274,-248.193,178.32,0.8)}
{pt3dadd(59.697,-249.424,179.84,0.8)}
{pt3dadd(59.878,-249.594,180.48,0.8)}
{pt3dadd(59.697,-250.125,203.04,0.8)}
{pt3dadd(59.528,-250.125,203.04,0.8)}
{pt3dadd(58.274,-249.944,201.36,0.8)}
{pt3dadd(58.104,-249.944,200.4,0.8)}
{pt3dadd(57.381,-249.944,197.44,0.8)}
{pt3dadd(57.211,-250.125,196.48,0.8)}
{pt3dadd(57.381,-250.826,192.32,0.8)}
{pt3dadd(57.562,-251.176,191.44,0.8)}
{pt3dadd(57.562,-251.707,189.84,0.8)}
{pt3dadd(57.562,-252.057,189.36,0.8)}
{pt3dadd(57.742,-252.588,188.88,0.8)}
{pt3dadd(57.923,-253.108,188.88,0.8)}
{pt3dadd(58.104,-254.34,189.44,0.8)}
{pt3dadd(58.104,-254.521,189.52,0.8)}
{pt3dadd(58.081,-256.408,158.4,1.1)}
{pt3dadd(57.675,-258.272,158.4,1.1)}
{pt3dadd(57.562,-259.447,158.4,1.1)}
{pt3dadd(57.584,-260.95,158.4,1.1)}
{pt3dadd(56.714,-262.623,147.28,1.1)}
{pt3dadd(55.844,-264.295,172.64,1.1)}
{pt3dadd(55.11,-266.284,176.64,1.1)}
{pt3dadd(55.008,-266.521,176.24,1.1)}
{pt3dadd(54.85,-269.99,166,1.1)}
{pt3dadd(54.748,-270.216,166,1.1)}
{pt3dadd(54.974,-272.205,176,1.1)}
{pt3dadd(55.392,-272.793,175.92,1.1)}
{pt3dadd(57.302,-274.691,176.08,1.1)}
{pt3dadd(57.426,-275.019,176.08,1.1)}
{pt3dadd(57.313,-277.143,176.32,1.1)}
{pt3dadd(57.211,-277.369,176.32,1.1)}
{pt3dadd(53.81,-282.319,176.32,1.1)}
{pt3dadd(53.641,-282.387,176.32,1.1)}
{pt3dadd(53.833,-288.172,176.88,1.1)}
{pt3dadd(54.307,-296.116,188.4,1.1)}
{pt3dadd(55.901,-303.992,188.4,0.8)}
{pt3dadd(56.161,-309.947,198.8,0.8)}
{pt3dadd(57.098,-312.784,200.4,0.8)}
{pt3dadd(59.923,-316.015,202.56,0.8)}
{pt3dadd(59.98,-316.185,202.48,0.8)}
{pt3dadd(63.607,-321.925,183.44,0.8)}
{pt3dadd(67.517,-330.773,183.52,0.8)}
{pt3dadd(68.263,-336.536,200.24,0.8)}
{pt3dadd(68.331,-336.694,200.24,0.8)}
{pt3dadd(69.506,-343.034,202.72,0.8)}
{pt3dadd(69.574,-343.203,203.44,0.8)}
{pt3dadd(71.868,-350.424,204.56,0.8)}
{pt3dadd(72.399,-350.774,204.64,0.8)}
{pt3dadd(74.399,-356.786,204.96,0.8)}
{pt3dadd(75.834,-359.43,204.96,0.48)}
{pt3dadd(74.692,-363.294,206.08,0.48)}
{pt3dadd(74.613,-364.085,206.08,0.48)}
{pt3dadd(74.681,-365.193,206.08,0.48)}
{pt3dadd(75.19,-367.453,206.08,0.48)}
{pt3dadd(75.676,-368.199,206.08,0.48)}
{pt3dadd(80.173,-368.877,206.08,0.48)}
{pt3dadd(80.568,-368.911,206.08,0.48)}
{pt3dadd(80.794,-369.001,206,0.48)}

{apical_dendrite[66] connect apical_dendrite[68](0), 1}
{access apical_dendrite[68]}
{pt3dclear()}
{pt3dadd(57.562,-246.78,193.44,1.1)}
{pt3dadd(54.895,-245.548,176.24,0.8)}
{pt3dadd(54.895,-245.379,176.24,0.8)}
{pt3dadd(52.217,-245.91,176.32,0.8)}
{pt3dadd(52.036,-245.91,176.32,0.8)}
{pt3dadd(45.629,-245.198,176.32,0.8)}
{pt3dadd(41.877,-247.492,176.32,0.8)}
{pt3dadd(41.708,-247.662,176.32,0.8)}
{pt3dadd(39.561,-251.006,175.04,0.8)}
{pt3dadd(39.561,-251.176,175.04,0.8)}
{pt3dadd(39.742,-254.34,175.12,0.8)}
{pt3dadd(39.742,-255.04,175.12,0.8)}
{pt3dadd(38.137,-259.267,175.2,0.8)}
{pt3dadd(37.956,-259.617,175.2,0.8)}
{pt3dadd(37.787,-260.137,175.2,0.8)}
{pt3dadd(37.425,-268.228,171.12,0.8)}
{pt3dadd(37.606,-271.392,171.12,0.8)}
{pt3dadd(38.668,-272.623,171.12,0.8)}
{pt3dadd(38.668,-272.793,171.12,0.8)}
{pt3dadd(37.425,-277.188,171.12,0.8)}
{pt3dadd(37.425,-277.539,171.12,0.8)}
{pt3dadd(39.391,-281.064,171.12,0.8)}
{pt3dadd(39.391,-281.234,171.12,0.8)}
{pt3dadd(39.742,-283.867,171.12,0.8)}
{pt3dadd(39.561,-284.048,171.12,0.8)}
{pt3dadd(39.561,-284.228,170.72,0.8)}
{pt3dadd(38.318,-284.929,184.72,0.8)}
{pt3dadd(37.787,-285.099,185.44,0.8)}
{pt3dadd(35.289,-286.33,167.52,0.8)}
{pt3dadd(35.289,-286.511,167.36,0.8)}
{pt3dadd(34.216,-288.093,187.44,0.8)}
{pt3dadd(34.216,-288.263,187.68,0.8)}
{pt3dadd(33.866,-292.489,188.96,0.8)}
{pt3dadd(33.866,-292.658,188.96,0.8)}
{pt3dadd(33.685,-293.008,189.04,0.8)}

{apical_dendrite[65] connect apical_dendrite[69](0), 1}
{access apical_dendrite[69]}
{pt3dclear()}
{pt3dadd(63.449,-217.604,166,2.06)}
{pt3dadd(67.901,-224.282,166.16,2.06)}
{pt3dadd(68.082,-224.463,166.16,2.06)}
{pt3dadd(70.749,-235.706,166.16,2.06)}
{pt3dadd(70.749,-235.887,166.16,2.06)}
{pt3dadd(72.184,-240.802,174.24,2.06)}
{pt3dadd(75.032,-244.147,177.68,2.06)}
{pt3dadd(76.274,-248.193,179.36,2.06)}
{pt3dadd(76.274,-248.362,179.76,2.06)}
{pt3dadd(76.986,-249.594,186.16,2.06)}
{pt3dadd(76.636,-249.775,186.08,2.06)}

{apical_dendrite[69] connect apical_dendrite[70](0), 1}
{access apical_dendrite[70]}
{pt3dclear()}
{pt3dadd(76.636,-249.775,186.08,2.06)}
{pt3dadd(76.636,-249.775,186.12,1.1)}
{pt3dadd(74.851,-251.357,173.92,1.1)}
{pt3dadd(72.715,-253.639,173.92,1.1)}
{pt3dadd(71.461,-256.803,173.52,1.1)}
{pt3dadd(68.794,-259.267,173.52,1.1)}
{pt3dadd(68.794,-259.436,173.52,1.1)}
{pt3dadd(68.613,-266.465,173.44,1.1)}
{pt3dadd(66.116,-268.047,173.44,1.1)}
{pt3dadd(65.054,-272.793,173.44,0.8)}
{pt3dadd(65.054,-272.974,173.44,0.8)}
{pt3dadd(65.946,-275.437,173.44,0.8)}
{pt3dadd(66.116,-275.437,173.44,0.8)}
{pt3dadd(65.054,-282.816,173.44,0.8)}
{pt3dadd(65.946,-286.161,173.44,0.8)}
{pt3dadd(63.087,-294.941,171.44,0.8)}
{pt3dadd(62.376,-296.353,181.44,0.8)}
{pt3dadd(62.195,-296.353,181.44,0.8)}
{pt3dadd(61.302,-299.336,181.44,0.8)}
{pt3dadd(61.483,-301.619,181.44,0.8)}
{pt3dadd(61.483,-301.8,181.44,0.8)}
{pt3dadd(61.132,-303.563,167.6,0.8)}
{pt3dadd(59.697,-304.433,167.68,0.8)}
{pt3dadd(59.528,-304.433,167.68,0.8)}
{pt3dadd(61.302,-309.179,167.68,0.8)}
{pt3dadd(61.302,-309.36,167.68,0.8)}
{pt3dadd(61.302,-309.529,167.68,0.8)}
{pt3dadd(60.421,-313.224,167.6,0.8)}
{pt3dadd(60.24,-313.405,167.6,0.8)}
{pt3dadd(60.059,-313.925,167.68,0.8)}
{pt3dadd(58.986,-317.801,167.68,0.8)}
{pt3dadd(58.986,-317.97,167.76,0.8)}
{pt3dadd(60.771,-323.247,167.76,0.8)}
{pt3dadd(60.952,-323.247,167.84,0.8)}
{pt3dadd(61.132,-323.767,168.24,0.8)}
{pt3dadd(62.376,-328.163,163.68,0.8)}
{pt3dadd(63.449,-330.095,169.28,0.8)}
{pt3dadd(64.511,-330.445,169.28,0.8)}
{pt3dadd(64.692,-330.626,169.28,0.8)}
{pt3dadd(64.511,-331.858,169.28,0.8)}
{pt3dadd(64.342,-332.027,169.28,0.8)}
{pt3dadd(63.087,-333.609,160.48,0.8)}
{pt3dadd(64.161,-335.191,157.76,0.8)}
{pt3dadd(64.161,-335.372,157.92,0.8)}
{pt3dadd(59.697,-336.773,151.6,0.8)}
{pt3dadd(59.697,-336.954,151.52,0.8)}
{pt3dadd(60.952,-342.231,146.32,0.8)}
{pt3dadd(61.132,-342.231,146.4,0.8)}
{pt3dadd(62.195,-348.209,145.92,0.8)}
{pt3dadd(62.195,-348.378,145.92,0.8)}
{pt3dadd(61.664,-355.238,145.52,0.8)}
{pt3dadd(61.664,-355.407,145.6,0.8)}
{pt3dadd(62.556,-358.752,145.76,0.8)}
{pt3dadd(64.342,-363.148,144.96,0.8)}
{pt3dadd(64.342,-363.317,145.04,0.8)}
{pt3dadd(64.161,-365.611,145.04,0.8)}
{pt3dadd(64.161,-365.43,145.04,0.8)}
{pt3dadd(64.873,-366.662,145.04,0.8)}
{pt3dadd(64.873,-367.012,145.04,0.8)}
{pt3dadd(64.873,-371.058,144.88,0.8)}
{pt3dadd(64.873,-371.227,145.2,0.8)}


} //topol14()

//---------------------------------
proc topol15() {

{apical_dendrite[69] connect apical_dendrite[71](0), 1}
{access apical_dendrite[71]}
{pt3dclear()}
{pt3dadd(76.636,-249.775,186.08,2.06)}
{pt3dadd(76.455,-255.221,179.04,2.06)}
{pt3dadd(76.455,-255.391,179.12,2.06)}
{pt3dadd(79.664,-260.137,179.12,2.06)}
{pt3dadd(79.664,-260.318,179.12,2.06)}
{pt3dadd(79.664,-264.013,179.12,2.06)}
{pt3dadd(79.845,-264.182,179.12,2.06)}
{pt3dadd(79.845,-264.363,179.12,2.06)}
{pt3dadd(80.738,-270.341,179.12,2.06)}
{pt3dadd(80.738,-270.51,179.12,2.06)}
{pt3dadd(84.297,-277.369,179.12,2.06)}
{pt3dadd(87.857,-281.584,188.48,2.06)}
{pt3dadd(87.857,-281.584,188.08,2.06)}

{apical_dendrite[71] connect apical_dendrite[72](0), 1}
{access apical_dendrite[72]}
{pt3dclear()}
{pt3dadd(87.857,-281.584,188.08,2.06)}
{pt3dadd(87.857,-281.584,188.12,1.74)}
{pt3dadd(91.066,-283.347,171.76,1.74)}
{pt3dadd(91.066,-283.166,171.76,1.74)}

{apical_dendrite[72] connect apical_dendrite[73](0), 1}
{access apical_dendrite[73]}
{pt3dclear()}
{pt3dadd(91.066,-283.166,171.76,1.74)}
{pt3dadd(91.066,-283.166,171.799,1.1)}
{pt3dadd(90.716,-285.63,185.2,1.1)}
{pt3dadd(90.897,-287.392,184.72,1.1)}
{pt3dadd(91.066,-287.562,184.72,1.1)}
{pt3dadd(91.609,-289.844,184.72,0.8)}
{pt3dadd(91.609,-290.025,184.72,0.8)}
{pt3dadd(91.959,-291.426,184.72,0.8)}
{pt3dadd(92.14,-291.777,184.72,0.8)}
{pt3dadd(92.49,-293.89,184.72,0.8)}
{pt3dadd(92.49,-294.071,184.64,0.8)}
{pt3dadd(92.49,-294.24,173.68,0.8)}
{pt3dadd(92.671,-294.421,173.68,0.8)}
{pt3dadd(92.852,-295.291,173.68,0.8)}
{pt3dadd(94.637,-299.517,173.68,0.8)}
{pt3dadd(94.637,-299.687,173.68,0.8)}
{pt3dadd(94.456,-299.868,173.68,0.8)}
{pt3dadd(92.671,-304.082,173.68,0.8)}
{pt3dadd(92.671,-304.263,173.68,0.8)}
{pt3dadd(92.671,-304.614,173.68,0.8)}
{pt3dadd(92.49,-306.727,173.52,0.8)}
{pt3dadd(92.49,-306.896,175.2,0.8)}
{pt3dadd(92.49,-307.077,176.88,0.8)}
{pt3dadd(92.852,-309.009,180.56,0.8)}
{pt3dadd(92.852,-309.179,180.56,0.8)}
{pt3dadd(90.173,-311.993,180.56,0.8)}
{pt3dadd(90.004,-311.993,180.56,0.8)}
{pt3dadd(88.399,-315.337,186.32,0.8)}
{pt3dadd(88.399,-315.688,186.32,0.8)}
{pt3dadd(89.462,-318.501,186.32,0.8)}
{pt3dadd(90.004,-319.202,186.32,0.8)}
{pt3dadd(91.609,-320.603,186.32,0.8)}
{pt3dadd(91.778,-320.784,186.32,0.8)}
{pt3dadd(90.897,-322.716,186.32,0.8)}
{pt3dadd(89.823,-323.767,174.4,0.8)}
{pt3dadd(90.716,-324.999,174.72,0.8)}
{pt3dadd(89.642,-327.112,187.84,0.8)}
{pt3dadd(89.642,-327.281,187.84,0.8)}
{pt3dadd(91.066,-328.513,169.52,0.8)}
{pt3dadd(91.959,-328.513,169.44,0.8)}
{pt3dadd(91.959,-328.694,169.44,0.8)}
{pt3dadd(91.778,-331.858,162.24,0.8)}
{pt3dadd(96.411,-336.604,162.16,0.8)}
{pt3dadd(96.592,-336.604,162.16,0.8)}
{pt3dadd(98.377,-336.073,160.16,0.8)}
{pt3dadd(102.479,-339.587,160.16,0.8)}
{pt3dadd(102.649,-339.587,160.16,0.8)}
{pt3dadd(102.829,-339.587,160.16,0.8)}

{apical_dendrite[72] connect apical_dendrite[74](0), 1}
{access apical_dendrite[74]}
{pt3dclear()}
{pt3dadd(91.066,-283.166,171.76,1.74)}
{pt3dadd(92.49,-285.449,171.2,1.42)}
{pt3dadd(92.49,-285.63,171.04,1.42)}
{pt3dadd(92.49,-288.263,170.96,1.42)}
{pt3dadd(92.671,-288.263,170.96,1.42)}
{pt3dadd(95.699,-287.031,164.56,1.42)}
{pt3dadd(97.304,-287.381,168.32,1.42)}
{pt3dadd(96.411,-289.675,162.16,1.42)}
{pt3dadd(96.411,-289.844,162.08,1.42)}
{pt3dadd(96.592,-291.777,158.64,1.42)}
{pt3dadd(102.479,-293.89,158.96,1.1)}
{pt3dadd(103.541,-297.585,158.08,0.8)}
{pt3dadd(106.039,-299.167,158,0.8)}
{pt3dadd(106.4,-299.167,158,0.8)}
{pt3dadd(108.886,-300.919,158,0.8)}
{pt3dadd(109.067,-300.919,157.92,0.8)}
{pt3dadd(110.491,-301.981,157.92,0.8)}
{pt3dadd(110.852,-302.331,157.92,0.8)}
{pt3dadd(112.988,-303.032,157.92,0.8)}
{pt3dadd(114.062,-303.032,157.92,0.8)}
{pt3dadd(116.909,-303.563,157.92,0.8)}
{pt3dadd(117.09,-303.563,157.92,0.8)}
{pt3dadd(119.045,-304.614,156,0.8)}
{pt3dadd(119.587,-304.783,156.08,0.8)}
{pt3dadd(121.723,-305.145,156.24,0.8)}
{pt3dadd(122.616,-305.314,156.24,0.8)}
{pt3dadd(128.322,-313.224,170.56,0.8)}
{pt3dadd(132.774,-314.456,170.56,0.8)}
{pt3dadd(135.622,-315.857,170.56,0.8)}
{pt3dadd(135.622,-316.038,170.56,0.8)}
{pt3dadd(137.046,-319.021,170.56,0.8)}
{pt3dadd(137.046,-319.202,170.56,0.8)}
{pt3dadd(136.696,-323.948,161.52,0.8)}
{pt3dadd(136.696,-324.129,161.52,0.8)}
{pt3dadd(137.408,-327.993,161.52,0.8)}
{pt3dadd(137.408,-328.163,161.52,0.8)}
{pt3dadd(138.65,-330.276,161.52,0.8)}
{pt3dadd(138.65,-330.445,161.52,0.8)}
{pt3dadd(141.86,-330.445,161.52,0.8)}
{pt3dadd(142.221,-330.445,161.52,0.8)}
{pt3dadd(144.357,-331.157,161.52,0.8)}
{pt3dadd(144.538,-331.327,161.52,0.8)}
{pt3dadd(145.6,-332.208,161.52,0.8)}
{pt3dadd(147.205,-334.14,161.52,0.8)}
{pt3dadd(147.205,-334.321,161.52,0.8)}
{pt3dadd(147.917,-335.022,161.52,0.8)}
{pt3dadd(149.521,-337.655,161.52,0.8)}
{pt3dadd(150.956,-340.469,161.52,0.8)}
{pt3dadd(151.307,-342.231,161.44,0.8)}
{pt3dadd(152.38,-343.101,161.44,0.8)}
{pt3dadd(152.38,-343.282,161.44,0.8)}
{pt3dadd(152.561,-345.045,161.44,0.8)}
{pt3dadd(152.561,-345.215,161.44,0.8)}
{pt3dadd(152.561,-345.395,161.44,0.8)}
{pt3dadd(152.73,-345.565,161.44,0.8)}
{pt3dadd(152.73,-345.565,162,1.1)}
{pt3dadd(154.064,-344.955,169.6,1.1)}
{pt3dadd(153.883,-345.305,169.6,1.1)}
{pt3dadd(153.883,-346.887,169.6,1.1)}
{pt3dadd(153.883,-347.068,169.6,1.1)}
{pt3dadd(154.776,-348.469,169.6,1.1)}
{pt3dadd(154.776,-348.65,169.6,1.1)}
{pt3dadd(155.487,-349.35,169.6,1.1)}
{pt3dadd(155.487,-349.531,169.84,1.1)}
{pt3dadd(155.487,-349.881,170.96,1.1)}
{pt3dadd(153.34,-351.283,170.8,1.1)}
{pt3dadd(153.171,-351.463,170.48,1.1)}
{pt3dadd(155.657,-352.514,164.4,1.1)}
{pt3dadd(155.838,-352.514,164.4,1.1)}
{pt3dadd(156.73,-353.045,164.4,1.1)}
{pt3dadd(156.73,-353.215,164.4,1.1)}
{pt3dadd(157.262,-354.096,167.12,1.1)}
{pt3dadd(157.262,-354.277,167.12,1.1)}
{pt3dadd(156.73,-355.509,167.04,1.1)}
{pt3dadd(156.55,-355.509,167.04,1.1)}
{pt3dadd(156.911,-356.209,167.04,1.1)}
{pt3dadd(157.442,-356.379,166.96,1.1)}
{pt3dadd(159.759,-355.859,166.08,1.1)}
{pt3dadd(159.94,-355.859,166,1.1)}
{pt3dadd(161.013,-356.379,164.88,1.1)}
{pt3dadd(161.183,-356.56,164.8,1.1)}
{pt3dadd(161.183,-357.091,164.72,1.1)}
{pt3dadd(160.832,-358.492,167.92,1.1)}
{pt3dadd(160.832,-358.842,167.76,1.1)}
{pt3dadd(161.013,-360.605,166.64,1.1)}
{pt3dadd(162.256,-362.006,166.64,1.1)}

{apical_dendrite[74] connect apical_dendrite[75](0), 1}
{access apical_dendrite[75]}
{pt3dclear()}
{pt3dadd(162.256,-362.006,166.64,1.1)}
{pt3dadd(162.256,-362.187,166.64,1.1)}
{pt3dadd(162.787,-362.707,166.64,1.1)}
{pt3dadd(162.968,-362.707,166.64,1.1)}
{pt3dadd(164.934,-363.588,166.64,1.1)}
{pt3dadd(165.646,-365.521,165.6,1.1)}
{pt3dadd(165.816,-365.871,165.84,1.1)}
{pt3dadd(167.42,-365.871,167.36,1.1)}
{pt3dadd(167.601,-365.871,167.36,1.1)}
{pt3dadd(169.025,-367.634,167.36,1.1)}
{pt3dadd(169.025,-367.803,167.36,1.1)}
{pt3dadd(169.025,-367.283,167.36,1.1)}

{apical_dendrite[75] connect apical_dendrite[76](0), 1}
{access apical_dendrite[76]}
{pt3dclear()}
{pt3dadd(169.025,-367.283,167.36,1.1)}
{pt3dadd(169.025,-367.283,167.4,0.8)}
{pt3dadd(169.737,-369.747,165.52,0.8)}
{pt3dadd(174.2,-372.549,164.4,0.8)}
{pt3dadd(173.839,-377.826,164.32,0.8)}
{pt3dadd(173.658,-377.826,164.32,0.8)}
{pt3dadd(175.805,-383.103,164.72,0.8)}
{pt3dadd(175.805,-383.454,164.72,0.8)}
{pt3dadd(176.155,-389.081,167.92,0.8)}
{pt3dadd(176.336,-389.431,167.84,0.8)}
{pt3dadd(174.37,-396.991,167.6,0.8)}
{pt3dadd(174.551,-397.161,167.6,0.8)}
{pt3dadd(175.262,-403.319,167.52,0.8)}
{pt3dadd(174.551,-407.884,164.32,0.8)}
{pt3dadd(175.443,-416.495,164.32,0.8)}
{pt3dadd(175.443,-416.676,164.32,0.8)}
{pt3dadd(172.596,-424.405,164.32,0.8)}
{pt3dadd(172.596,-424.586,164.32,0.8)}
{pt3dadd(172.946,-430.563,164.24,0.8)}
{pt3dadd(173.127,-430.733,164.24,0.8)}
{pt3dadd(172.415,-435.66,164.24,0.8)}
{pt3dadd(169.918,-438.643,165.28,0.8)}
{pt3dadd(169.737,-438.824,165.28,0.8)}
{pt3dadd(168.132,-442.858,167.76,0.8)}
{pt3dadd(168.132,-443.039,164.8,0.8)}
{pt3dadd(166.539,-447.084,165.36,0.8)}
{pt3dadd(166.539,-447.253,165.76,0.8)}
{pt3dadd(164.573,-451.129,167.04,0.8)}
{pt3dadd(164.573,-451.48,166.96,0.8)}
{pt3dadd(161.544,-456.045,166.88,0.8)}
{pt3dadd(161.364,-456.045,166.88,0.8)}
{pt3dadd(161.364,-456.576,167.28,0.8)}

{apical_dendrite[75] connect apical_dendrite[77](0), 1}
{access apical_dendrite[77]}
{pt3dclear()}
{pt3dadd(169.025,-367.283,167.36,1.1)}
{pt3dadd(170.991,-367.803,167.2,1.1)}
{pt3dadd(171.172,-367.803,167.2,1.1)}
{pt3dadd(172.946,-368.165,166.96,1.1)}
{pt3dadd(172.946,-368.334,165.6,1.1)}
{pt3dadd(175.093,-368.685,164.64,1.1)}
{pt3dadd(175.262,-368.685,164.56,1.1)}
{pt3dadd(178.291,-367.283,164.24,1.1)}
{pt3dadd(178.472,-367.283,164.08,1.1)}
{pt3dadd(179.726,-369.916,167.92,1.1)}
{pt3dadd(180.076,-370.097,167.92,1.1)}
{pt3dadd(186.133,-366.752,167.28,1.1)}
{pt3dadd(186.314,-366.752,167.2,1.1)}
{pt3dadd(191.309,-367.283,166.96,1.1)}
{pt3dadd(191.489,-367.283,166.96,1.1)}
{pt3dadd(196.292,-367.103,166.72,1.1)}
{pt3dadd(197.184,-366.933,166.32,1.1)}
{pt3dadd(198.077,-366.933,167.84,1.1)}
{pt3dadd(198.077,-367.103,167.84,1.1)}
{pt3dadd(197.365,-370.798,164.72,1.1)}
{pt3dadd(197.896,-370.267,164.32,1.1)}

{apical_dendrite[77] connect apical_dendrite[78](0), 1}
{access apical_dendrite[78]}
{pt3dclear()}
{pt3dadd(197.896,-370.267,164.32,1.1)}
{pt3dadd(197.896,-370.267,164.359,0.8)}
{pt3dadd(200.213,-370.798,164.08,0.8)}
{pt3dadd(199.863,-374.131,167.28,0.8)}
{pt3dadd(202.36,-374.312,164.32,0.8)}
{pt3dadd(202.71,-374.131,164.32,0.8)}
{pt3dadd(204.315,-373.781,165.04,0.8)}
{pt3dadd(204.496,-373.781,164.16,0.8)}
{pt3dadd(204.676,-375.013,165.12,0.8)}
{pt3dadd(204.676,-375.193,165.12,0.8)}
{pt3dadd(204.496,-376.425,166.48,0.8)}
{pt3dadd(204.315,-376.425,165.6,0.8)}
{pt3dadd(204.134,-376.775,165.04,0.8)}
{pt3dadd(204.134,-377.295,165.76,0.8)}
{pt3dadd(204.134,-377.476,165.28,0.8)}
{pt3dadd(206.812,-378.007,165.76,0.8)}
{pt3dadd(206.993,-378.007,165.76,0.8)}
{pt3dadd(208.417,-376.595,167.92,0.8)}
{pt3dadd(208.597,-376.595,166.16,0.8)}
{pt3dadd(210.552,-375.363,164.88,0.8)}
{pt3dadd(210.733,-375.363,164.88,0.8)}
{pt3dadd(212.338,-375.894,164.8,0.8)}
{pt3dadd(212.519,-375.894,164.8,0.8)}
{pt3dadd(216.259,-373.08,166.4,0.8)}
{pt3dadd(216.259,-372.911,165.76,0.8)}
{pt3dadd(217.683,-373.611,167.76,0.8)}
{pt3dadd(217.864,-373.781,167.84,0.8)}
{pt3dadd(220.18,-372.911,165.04,0.8)}
{pt3dadd(220.711,-372.73,165.04,0.8)}
{pt3dadd(226.768,-371.329,164.72,0.8)}
{pt3dadd(226.949,-371.148,164.4,0.8)}
{pt3dadd(232.474,-367.984,167.68,0.8)}
{pt3dadd(232.655,-367.803,167.84,0.8)}
{pt3dadd(235.684,-365.521,166,0.8)}
{pt3dadd(236.215,-365.521,166.24,0.8)}
{pt3dadd(240.317,-364.82,164,0.8)}
{pt3dadd(241.029,-364.639,167.92,0.8)}
{pt3dadd(242.995,-364.119,167.68,0.8)}
{pt3dadd(243.345,-363.939,167.6,0.8)}
{pt3dadd(246.023,-363.769,167.6,0.8)}
{pt3dadd(246.373,-363.588,167.6,0.8)}


} //topol15()

//---------------------------------
proc topol16() {

{apical_dendrite[77] connect apical_dendrite[79](0), 1}
{access apical_dendrite[79]}
{pt3dclear()}
{pt3dadd(197.896,-370.267,164.32,1.1)}
{pt3dadd(197.004,-373.431,164.08,0.8)}
{pt3dadd(198.789,-376.425,167.52,0.8)}
{pt3dadd(198.97,-376.945,167.52,0.8)}
{pt3dadd(200.213,-379.058,164.48,0.8)}
{pt3dadd(200.213,-379.228,165.04,0.8)}
{pt3dadd(204.846,-379.939,167.36,0.8)}
{pt3dadd(205.207,-379.939,167.12,0.8)}
{pt3dadd(210.914,-378.177,166.16,0.8)}
{pt3dadd(213.4,-377.295,164.16,0.8)}
{pt3dadd(213.762,-377.295,164.16,0.8)}
{pt3dadd(215.366,-378.007,164,0.8)}
{pt3dadd(215.547,-378.007,164,0.8)}
{pt3dadd(218.575,-375.193,166.08,0.8)}
{pt3dadd(218.756,-375.193,164,0.8)}
{pt3dadd(221.604,-376.425,167.28,0.8)}
{pt3dadd(222.135,-376.425,166.72,0.8)}
{pt3dadd(228.022,-373.962,166.96,0.8)}
{pt3dadd(228.553,-373.611,167.04,0.8)}
{pt3dadd(233.186,-371.679,166.64,0.8)}
{pt3dadd(233.367,-371.679,166.56,0.8)}
{pt3dadd(235.503,-371.498,165.36,0.8)}
{pt3dadd(235.864,-371.148,165.28,0.8)}
{pt3dadd(239.424,-368.515,165.44,0.8)}
{pt3dadd(240.136,-368.334,165.28,0.8)}
{pt3dadd(243.345,-367.634,164.72,0.8)}
{pt3dadd(243.526,-367.453,164.4,0.8)}
{pt3dadd(245.481,-364.82,166.8,0.8)}
{pt3dadd(246.193,-364.47,166.8,0.8)}
{pt3dadd(252.611,-361.837,166.72,0.8)}
{pt3dadd(252.973,-361.656,166.72,0.8)}
{pt3dadd(257.244,-360.424,166.56,0.8)}
{pt3dadd(259.21,-358.842,166.32,0.8)}
{pt3dadd(259.391,-358.673,166.32,0.8)}
{pt3dadd(259.391,-358.142,166.32,0.8)}

{apical_dendrite[74] connect apical_dendrite[80](0), 1}
{access apical_dendrite[80]}
{pt3dclear()}
{pt3dadd(162.256,-362.006,166.64,1.1)}
{pt3dadd(162.256,-362.006,166.679,0.8)}
{pt3dadd(159.94,-364.119,167.04,0.8)}
{pt3dadd(156.55,-365.521,167.04,0.8)}
{pt3dadd(156.38,-365.521,167.04,0.8)}
{pt3dadd(152.809,-368.685,167.04,0.8)}
{pt3dadd(152.459,-372.38,167.12,0.8)}
{pt3dadd(152.459,-372.549,167.12,0.8)}
{pt3dadd(148.357,-377.295,167.12,0.8)}
{pt3dadd(148.357,-377.476,167.12,0.8)}
{pt3dadd(147.996,-377.826,167.12,0.8)}
{pt3dadd(146.933,-383.454,167.12,0.8)}
{pt3dadd(146.933,-383.623,167.12,0.8)}
{pt3dadd(145.148,-384.685,167.12,0.8)}
{pt3dadd(144.967,-384.855,167.12,0.8)}
{pt3dadd(143.905,-386.787,167.12,0.8)}
{pt3dadd(143.905,-386.968,167.12,0.8)}
{pt3dadd(144.786,-390.482,167.6,0.8)}
{pt3dadd(144.786,-390.663,167.6,0.8)}
{pt3dadd(144.786,-390.833,167.6,0.8)}
{pt3dadd(145.679,-392.064,167.52,0.8)}
{pt3dadd(145.329,-393.296,166.4,0.8)}
{pt3dadd(145.329,-393.465,165.68,0.8)}
{pt3dadd(143.905,-394.528,164.64,0.8)}
{pt3dadd(143.905,-394.697,164.48,0.8)}
{pt3dadd(144.436,-397.511,164.72,0.8)}
{pt3dadd(144.436,-397.692,164.48,0.8)}
{pt3dadd(141.939,-400.856,165.36,0.8)}
{pt3dadd(141.939,-401.206,164.96,0.8)}
{pt3dadd(143.905,-402.257,164.88,0.8)}
{pt3dadd(144.075,-403.138,164.24,0.8)}
{pt3dadd(141.758,-405.071,165.28,0.8)}
{pt3dadd(141.758,-405.251,165.28,0.8)}
{pt3dadd(140.515,-408.415,166.88,0.8)}
{pt3dadd(140.334,-408.585,166.56,0.8)}
{pt3dadd(139.622,-412.28,165.92,0.8)}
{pt3dadd(139.442,-412.981,165.92,0.8)}
{pt3dadd(137.837,-416.495,165.92,0.8)}
{pt3dadd(137.837,-416.676,165.92,0.8)}
{pt3dadd(134.989,-418.077,164.72,0.8)}
{pt3dadd(134.628,-421.241,165.2,0.8)}
{pt3dadd(133.385,-423.704,164,0.8)}
{pt3dadd(133.204,-423.704,164,0.8)}
{pt3dadd(133.385,-424.405,167.04,0.8)}
{pt3dadd(133.204,-424.586,166.96,0.8)}
{pt3dadd(130.537,-427.569,166.72,0.8)}
{pt3dadd(130.537,-427.75,166.64,0.8)}
{pt3dadd(130.887,-429.682,165.68,0.8)}
{pt3dadd(127.147,-437.761,165.36,0.8)}
{pt3dadd(127.509,-438.824,165.28,0.8)}
{pt3dadd(125.181,-439.694,164.24,0.8)}
{pt3dadd(125.181,-440.055,164.16,0.8)}
{pt3dadd(126.254,-442.688,166.08,0.8)}
{pt3dadd(126.435,-442.688,165.92,0.8)}
{pt3dadd(124.65,-444.44,165.68,0.8)}
{pt3dadd(123.588,-444.801,165.68,0.8)}
{pt3dadd(122.864,-445.321,165.68,0.8)}
{pt3dadd(120.909,-446.022,165.44,0.8)}
{pt3dadd(120.378,-446.203,164.8,0.8)}
{pt3dadd(119.836,-446.203,164.56,0.8)}
{pt3dadd(120.017,-446.203,164.56,0.8)}

{apical_dendrite[71] connect apical_dendrite[81](0), 1}
{access apical_dendrite[81]}
{pt3dclear()}
{pt3dadd(87.857,-281.584,188.08,2.06)}
{pt3dadd(91.609,-292.489,196.64,2.06)}
{pt3dadd(92.253,-295.189,180.24,2.06)}
{pt3dadd(93.484,-299.246,177.2,2.06)}
{pt3dadd(93.552,-299.404,177.2,2.06)}
{pt3dadd(95.134,-303.879,177.12,2.06)}
{pt3dadd(95.36,-303.981,177.12,2.06)}
{pt3dadd(96.468,-307.698,177.12,2.06)}

{apical_dendrite[81] connect apical_dendrite[82](0), 1}
{access apical_dendrite[82]}
{pt3dclear()}
{pt3dadd(96.468,-307.698,177.12,2.06)}
{pt3dadd(96.468,-307.698,177.16,1.42)}
{pt3dadd(95.123,-310.128,179.6,1.42)}
{pt3dadd(93.688,-312.784,179.6,1.42)}
{pt3dadd(93.518,-312.84,177.92,1.42)}
{pt3dadd(94.095,-316.207,178.88,1.42)}
{pt3dadd(93.202,-316.377,207.52,1.42)}
{pt3dadd(95.53,-317.902,186.8,1.42)}
{pt3dadd(93.823,-321.801,214.72,1.42)}
{pt3dadd(98.321,-320.58,222.08,1.42)}
{pt3dadd(98.434,-323.756,208.8,1.42)}
{pt3dadd(98.626,-324.242,208.64,1.42)}
{pt3dadd(100.841,-324.502,220.16,1.42)}
{pt3dadd(101.134,-324.761,221.68,1.42)}
{pt3dadd(104.863,-329.327,222.48,1.1)}
{pt3dadd(103.168,-332.276,237.36,1.1)}
{pt3dadd(103.293,-332.604,237.52,1.1)}
{pt3dadd(103.078,-334.954,236.4,1.1)}
{pt3dadd(103.146,-335.124,233.6,1.1)}
{pt3dadd(102.298,-338.299,241.36,1.1)}
{pt3dadd(102.197,-338.525,241.36,1.1)}
{pt3dadd(100.637,-339.904,241.68,1.1)}
{pt3dadd(100.366,-340.197,242.48,1.1)}
{pt3dadd(99.462,-342.265,228.32,1.1)}
{pt3dadd(99.293,-342.322,228.32,1.1)}
{pt3dadd(99.033,-342.615,228.32,1.1)}

{apical_dendrite[81] connect apical_dendrite[83](0), 1}
{access apical_dendrite[83]}
{pt3dclear()}
{pt3dadd(96.468,-307.698,177.12,2.06)}
{pt3dadd(96.524,-307.868,177.12,2.06)}
{pt3dadd(96.468,-307.698,177.12,2.06)}
{pt3dadd(96.965,-311.857,177.12,2.06)}
{pt3dadd(97.733,-315.71,177.12,2.06)}
{pt3dadd(98.174,-318.75,172.8,2.06)}
{pt3dadd(98.197,-319.304,172.8,2.06)}
{pt3dadd(98.14,-319.145,172.8,2.06)}
{pt3dadd(98.038,-319.371,173.44,2.06)}
{pt3dadd(99.055,-324.829,180.96,2.06)}
{pt3dadd(100.671,-329.858,180.48,2.06)}
{pt3dadd(100.57,-330.095,180.48,2.06)}
{pt3dadd(102.016,-336.141,180.4,2.06)}
{pt3dadd(103.338,-340.909,180.32,2.06)}
{pt3dadd(103.406,-341.067,180.32,2.06)}
{pt3dadd(106.355,-348.028,180.32,2.06)}
{pt3dadd(106.197,-348.096,180.32,2.06)}

{apical_dendrite[83] connect apical_dendrite[84](0), 1}
{access apical_dendrite[84]}
{pt3dclear()}
{pt3dadd(106.197,-348.096,180.32,2.06)}
{pt3dadd(106.197,-348.028,180.359,1.74)}
{pt3dadd(104.129,-348.537,180.32,1.74)}
{pt3dadd(103.903,-349.576,180.32,1.74)}

{apical_dendrite[84] connect apical_dendrite[85](0), 1}
{access apical_dendrite[85]}
{pt3dclear()}
{pt3dadd(103.903,-349.576,180.32,1.74)}
{pt3dadd(103.903,-349.576,180.359,1.1)}
{pt3dadd(101.541,-355.159,171.92,1.1)}
{pt3dadd(100.117,-357.972,167.12,1.1)}
{pt3dadd(99.937,-357.972,167.2,1.1)}
{pt3dadd(96.196,-356.921,167.52,1.1)}
{pt3dadd(96.016,-356.921,167.44,1.1)}
{pt3dadd(94.773,-357.803,167.12,1.1)}
{pt3dadd(95.123,-358.323,167.12,1.1)}
{pt3dadd(96.016,-360.085,167.04,1.1)}
{pt3dadd(96.016,-360.616,167.04,1.1)}
{pt3dadd(94.773,-362.198,166.8,1.1)}
{pt3dadd(94.773,-362.368,166.8,1.1)}
{pt3dadd(91.202,-362.549,166.48,1.1)}
{pt3dadd(91.032,-362.549,165.6,1.1)}
{pt3dadd(91.383,-364.831,166.32,1.1)}
{pt3dadd(91.383,-365.362,166.24,1.1)}
{pt3dadd(91.563,-366.413,166.08,1.1)}
{pt3dadd(93.349,-368.346,166.08,1.1)}
{pt3dadd(93.88,-368.877,166,1.1)}
{pt3dadd(93.88,-372.391,165.6,1.1)}
{pt3dadd(93.88,-372.561,165.6,1.1)}
{pt3dadd(89.959,-373.792,165.36,1.1)}
{pt3dadd(89.778,-373.792,165.28,1.1)}
{pt3dadd(88.885,-374.843,165.12,1.1)}
{pt3dadd(87.462,-379.239,164.8,1.1)}
{pt3dadd(87.462,-379.42,164.48,1.1)}
{pt3dadd(88.354,-384.516,166.88,1.1)}
{pt3dadd(88.354,-384.697,166.88,1.1)}
{pt3dadd(85.857,-386.279,165.76,1.1)}
{pt3dadd(84.614,-385.917,165.76,1.1)}
{pt3dadd(84.433,-385.917,165.76,1.1)}
{pt3dadd(84.433,-391.025,164.8,1.1)}
{pt3dadd(84.614,-391.025,164.64,1.1)}

{apical_dendrite[85] connect apical_dendrite[86](0), 1}
{access apical_dendrite[86]}
{pt3dclear()}
{pt3dadd(84.614,-391.025,164.64,1.1)}
{pt3dadd(84.614,-391.025,164.679,0.8)}
{pt3dadd(86.75,-391.725,166.96,0.8)}
{pt3dadd(87.462,-391.375,165.36,0.8)}
{pt3dadd(87.462,-391.194,166.96,0.8)}
{pt3dadd(88.173,-390.143,164.24,0.8)}
{pt3dadd(88.354,-390.143,164.24,0.8)}
{pt3dadd(88.885,-390.844,166.64,0.8)}
{pt3dadd(88.885,-391.375,165.92,0.8)}
{pt3dadd(88.885,-391.895,164.8,0.8)}
{pt3dadd(89.428,-392.245,166.8,0.8)}
{pt3dadd(89.597,-392.245,167.12,0.8)}
{pt3dadd(91.032,-391.375,166.88,0.8)}
{pt3dadd(91.202,-391.194,166.16,0.8)}
{pt3dadd(91.383,-391.194,165.84,0.8)}
{pt3dadd(91.744,-391.895,165.36,0.8)}
{pt3dadd(91.744,-392.245,165.84,0.8)}
{pt3dadd(91.744,-392.426,165.76,0.8)}
{pt3dadd(92.456,-393.307,164.48,0.8)}
{pt3dadd(92.456,-393.477,164,0.8)}
{pt3dadd(92.806,-394.189,166.48,0.8)}
{pt3dadd(92.806,-394.358,165.92,0.8)}
{pt3dadd(92.094,-395.409,165.36,0.8)}
{pt3dadd(91.914,-395.59,165.28,0.8)}
{pt3dadd(92.094,-394.709,165.04,0.8)}
{pt3dadd(92.275,-394.539,165.12,0.8)}
{pt3dadd(94.592,-392.957,164.4,0.8)}
{pt3dadd(94.773,-392.607,167.6,0.8)}
{pt3dadd(95.665,-391.895,165.84,0.8)}
{pt3dadd(95.665,-392.076,165.68,0.8)}
{pt3dadd(96.558,-393.477,167.28,0.8)}
{pt3dadd(96.727,-393.658,167.12,0.8)}
{pt3dadd(98.694,-393.126,164.4,0.8)}
{pt3dadd(99.225,-394.539,166.4,0.8)}
{pt3dadd(99.225,-394.709,166.16,0.8)}
{pt3dadd(99.756,-396.121,166.24,0.8)}
{pt3dadd(99.756,-396.471,166.24,0.8)}
{pt3dadd(98.874,-398.053,165.36,0.8)}
{pt3dadd(98.874,-398.223,165.36,0.8)}
{pt3dadd(99.044,-399.635,165.44,0.8)}
{pt3dadd(99.044,-399.986,165.04,0.8)}
{pt3dadd(100.117,-401.036,167.04,0.8)}
{pt3dadd(100.117,-401.217,167.04,0.8)}
{pt3dadd(98.332,-403.5,167.12,0.8)}
{pt3dadd(98.151,-403.5,167.12,0.8)}
{pt3dadd(97.439,-404.901,167.36,0.8)}
{pt3dadd(97.62,-405.082,166.72,0.8)}
{pt3dadd(98.874,-406.314,165.12,0.8)}
{pt3dadd(98.874,-406.483,165.04,0.8)}
{pt3dadd(99.756,-407.364,165.04,0.8)}
{pt3dadd(99.756,-407.545,164.72,0.8)}
{pt3dadd(98.874,-409.297,166,0.8)}
{pt3dadd(98.694,-409.478,166.16,0.8)}
{pt3dadd(97.27,-410.359,166,0.8)}
{pt3dadd(97.089,-410.529,165.04,0.8)}
{pt3dadd(97.089,-410.879,167.92,0.8)}
{pt3dadd(97.439,-412.291,167.28,0.8)}
{pt3dadd(97.62,-412.992,167.28,0.8)}
{pt3dadd(98.513,-414.224,167.28,0.8)}
{pt3dadd(98.513,-414.574,166.88,0.8)}
{pt3dadd(98.151,-415.625,166.96,0.8)}
{pt3dadd(97.982,-415.975,166.4,0.8)}
{pt3dadd(98.694,-417.388,164.24,0.8)}
{pt3dadd(98.694,-417.738,164.48,0.8)}
{pt3dadd(98.694,-419.67,164.32,0.8)}
{pt3dadd(98.694,-420.02,167.44,0.8)}
{pt3dadd(98.513,-421.953,166.48,0.8)}
{pt3dadd(98.332,-422.134,166.64,0.8)}
{pt3dadd(98.513,-423.015,166.64,0.8)}
{pt3dadd(98.513,-423.184,166.32,0.8)}
{pt3dadd(99.586,-424.066,166.8,0.8)}
{pt3dadd(99.756,-424.066,166.72,0.8)}
{pt3dadd(100.298,-425.298,165.12,0.8)}
{pt3dadd(100.298,-425.648,164.56,0.8)}
{pt3dadd(99.756,-426.179,164.48,0.8)}
{pt3dadd(99.756,-426.349,164.4,0.8)}
{pt3dadd(100.468,-427.049,167.6,0.8)}
{pt3dadd(100.649,-427.049,167.6,0.8)}
{pt3dadd(101.722,-427.58,167.92,0.8)}
{pt3dadd(101.903,-427.58,167.92,0.8)}
{pt3dadd(101.903,-428.462,167.92,0.8)}
{pt3dadd(101.903,-429.162,166.88,0.8)}
{pt3dadd(102.072,-429.513,166.48,0.8)}
{pt3dadd(103.146,-430.563,166.32,0.8)}
{pt3dadd(104.219,-431.094,164.8,0.8)}
{pt3dadd(104.75,-432.507,165.44,0.8)}
{pt3dadd(104.75,-432.676,165.52,0.8)}
{pt3dadd(106.355,-433.908,165.52,0.8)}
{pt3dadd(106.536,-433.908,164.88,0.8)}
{pt3dadd(108.491,-432.857,166.08,0.8)}
{pt3dadd(109.745,-434.79,166.32,0.8)}
{pt3dadd(109.915,-434.959,166.32,0.8)}
{pt3dadd(111.881,-436.541,166.24,0.8)}
{pt3dadd(112.062,-436.541,166.24,0.8)}


} //topol16()

//---------------------------------
proc topol17() {



{apical_dendrite[85] connect apical_dendrite[87](0), 1}
{access apical_dendrite[87]}
{pt3dclear()}
{pt3dadd(84.614,-391.025,164.64,1.1)}
{pt3dadd(80.512,-399.104,167.84,1.1)}
{pt3dadd(80.693,-399.285,167.84,1.1)}
{pt3dadd(81.586,-401.036,167.92,1.1)}
{pt3dadd(81.755,-401.737,164.08,1.1)}
{pt3dadd(83.36,-405.963,164.08,1.1)}
{pt3dadd(83.36,-406.133,164.08,1.1)}
{pt3dadd(85.676,-410.359,164.16,1.1)}
{pt3dadd(85.676,-410.529,164.16,1.1)}
{pt3dadd(85.676,-415.105,164.8,1.1)}
{pt3dadd(85.676,-415.275,164.88,1.1)}
{pt3dadd(87.462,-418.088,164.88,1.1)}
{pt3dadd(87.642,-418.088,164.88,1.1)}
{pt3dadd(87.823,-418.269,164.88,1.1)}

{apical_dendrite[87] connect apical_dendrite[88](0), 1}
{access apical_dendrite[88]}
{pt3dclear()}
{pt3dadd(87.823,-418.269,164.88,1.1)}
{pt3dadd(87.823,-418.269,164.92,0.8)}
{pt3dadd(88.716,-422.484,164.96,0.8)}
{pt3dadd(88.716,-425.298,165.04,0.8)}
{pt3dadd(90.14,-426.349,167.04,0.8)}
{pt3dadd(90.32,-426.529,165.28,0.8)}
{pt3dadd(93.349,-433.208,166.88,0.8)}
{pt3dadd(93.349,-433.377,166.64,0.8)}
{pt3dadd(94.773,-437.423,164.48,0.8)}
{pt3dadd(94.773,-437.253,164.48,0.8)}
{pt3dadd(94.953,-437.603,164.48,0.8)}

{apical_dendrite[88] connect apical_dendrite[89](0), 1}
{access apical_dendrite[89]}
{pt3dclear()}
{pt3dadd(94.953,-437.603,164.48,0.8)}
{pt3dadd(94.953,-437.603,164.519,0.8)}
{pt3dadd(93.699,-439.886,164.08,0.8)}
{pt3dadd(93.699,-440.055,167.68,0.8)}
{pt3dadd(92.806,-442.169,165.6,0.8)}
{pt3dadd(92.806,-442.349,164.96,0.8)}
{pt3dadd(92.275,-442.869,165.44,0.8)}
{pt3dadd(92.094,-442.869,166.24,0.8)}
{pt3dadd(90.49,-442.869,164,0.8)}
{pt3dadd(90.309,-442.869,164.08,0.8)}
{pt3dadd(89.959,-441.999,165.92,0.8)}
{pt3dadd(89.959,-441.637,165.92,0.8)}
{pt3dadd(91.032,-440.586,164.72,0.8)}
{pt3dadd(91.202,-440.586,164.08,0.8)}
{pt3dadd(92.637,-440.417,167.12,0.8)}
{pt3dadd(92.806,-440.417,166.48,0.8)}
{pt3dadd(92.806,-441.637,164.96,0.8)}
{pt3dadd(92.637,-442.169,165.04,0.8)}
{pt3dadd(91.202,-443.219,165.04,0.8)}
{pt3dadd(91.032,-443.4,165.04,0.8)}
{pt3dadd(90.671,-444.282,167.12,0.8)}
{pt3dadd(90.671,-444.451,166.4,0.8)}
{pt3dadd(91.202,-444.632,166.8,0.8)}
{pt3dadd(91.383,-444.632,166.8,0.8)}
{pt3dadd(92.987,-444.632,167.84,0.8)}
{pt3dadd(93.168,-444.451,164.24,0.8)}
{pt3dadd(94.592,-444.282,166.48,0.8)}
{pt3dadd(94.773,-444.282,164.88,0.8)}
{pt3dadd(95.665,-444.632,165.36,0.8)}
{pt3dadd(96.016,-444.801,165.36,0.8)}
{pt3dadd(96.908,-445.163,165.36,0.8)}
{pt3dadd(97.27,-445.163,165.04,0.8)}
{pt3dadd(98.874,-444.101,165.12,0.8)}
{pt3dadd(99.044,-444.101,166.16,0.8)}
{pt3dadd(100.649,-444.632,166.16,0.8)}
{pt3dadd(100.829,-444.632,164.56,0.8)}
{pt3dadd(102.072,-445.332,164.24,0.8)}
{pt3dadd(102.965,-445.513,164.24,0.8)}
{pt3dadd(103.146,-445.513,167.12,0.8)}
{pt3dadd(105.282,-447.796,164.64,0.8)}
{pt3dadd(105.824,-447.965,164.16,0.8)}
{pt3dadd(109.745,-447.965,167.28,0.8)}
{pt3dadd(109.915,-447.965,167.28,0.8)}
{pt3dadd(110.095,-449.728,165.52,0.8)}
{pt3dadd(110.276,-449.728,165.12,0.8)}
{pt3dadd(112.943,-449.028,164.64,0.8)}
{pt3dadd(115.09,-449.728,165.76,0.8)}
{pt3dadd(115.983,-449.728,165.84,0.8)}
{pt3dadd(120.073,-450.429,165.12,0.8)}
{pt3dadd(121.328,-450.61,164.72,0.8)}
{pt3dadd(124.175,-451.129,166.88,0.8)}
{pt3dadd(125.068,-451.48,166.88,0.8)}
{pt3dadd(127.204,-452.192,166.64,0.8)}
{pt3dadd(127.384,-452.192,166.48,0.8)}
{pt3dadd(129.882,-455.175,167.92,0.8)}
{pt3dadd(130.062,-455.175,167.6,0.8)}
{pt3dadd(132.379,-454.474,166.64,0.8)}
{pt3dadd(132.548,-454.474,166.16,0.8)}
{pt3dadd(133.984,-454.824,166.56,0.8)}
{pt3dadd(135.046,-453.943,166.8,0.8)}
{pt3dadd(135.227,-453.943,166.8,0.8)}
{pt3dadd(135.227,-453.774,166.8,0.8)}
{pt3dadd(135.758,-453.943,165.44,0.8)}
{pt3dadd(135.939,-454.293,164.8,0.8)}
{pt3dadd(135.046,-456.056,165.44,0.8)}
{pt3dadd(134.865,-456.226,164.88,0.8)}
{pt3dadd(134.696,-456.757,164.32,0.8)}
{pt3dadd(134.153,-457.989,167.36,0.8)}
{pt3dadd(134.153,-458.169,167.36,0.8)}
{pt3dadd(134.334,-458.52,167.84,0.8)}
{pt3dadd(135.227,-459.921,167.04,0.8)}
{pt3dadd(135.577,-460.102,166.88,0.8)}
{pt3dadd(136.65,-460.271,165.12,0.8)}
{pt3dadd(136.65,-460.452,164.8,0.8)}
{pt3dadd(137.182,-462.203,167.12,0.8)}
{pt3dadd(137.182,-462.384,167.2,0.8)}
{pt3dadd(136.47,-463.785,167.44,0.8)}
{pt3dadd(136.47,-463.966,167.44,0.8)}
{pt3dadd(136.47,-464.136,167.36,0.8)}
{pt3dadd(136.47,-464.497,166.88,0.8)}
{pt3dadd(136.3,-464.667,166.88,0.8)}
{pt3dadd(136.47,-465.718,166.64,0.8)}
{pt3dadd(136.47,-465.898,166.4,0.8)}
{pt3dadd(136.831,-466.249,165.92,0.8)}
{pt3dadd(136.831,-466.599,165.36,0.8)}
{pt3dadd(136.119,-468.012,167.6,0.8)}
{pt3dadd(135.939,-468.181,167.52,0.8)}
{pt3dadd(134.696,-469.944,167.36,0.8)}
{pt3dadd(134.515,-470.464,167.36,0.8)}
{pt3dadd(133.622,-471.876,167.36,0.8)}
{pt3dadd(133.803,-471.876,167.44,0.8)}
{pt3dadd(133.622,-471.876,167.44,0.8)}

{apical_dendrite[88] connect apical_dendrite[90](0), 1}
{access apical_dendrite[90]}
{pt3dclear()}
{pt3dadd(94.953,-437.603,164.48,0.8)}
{pt3dadd(96.016,-440.417,164.48,0.8)}
{pt3dadd(96.016,-440.937,164.48,0.8)}
{pt3dadd(96.727,-445.332,167.36,0.8)}
{pt3dadd(96.727,-445.513,164.8,0.8)}
{pt3dadd(97.27,-446.383,167.36,0.8)}
{pt3dadd(99.225,-448.496,165.92,0.8)}
{pt3dadd(102.965,-448.847,165.76,0.8)}
{pt3dadd(103.327,-448.847,165.76,0.8)}
{pt3dadd(107.779,-447.615,165.76,0.8)}
{pt3dadd(108.14,-447.265,165.76,0.8)}
{pt3dadd(109.033,-445.513,166.48,0.8)}
{pt3dadd(109.383,-445.332,166.48,0.8)}
{pt3dadd(110.988,-445.332,166.48,0.8)}
{pt3dadd(111.881,-444.982,166.48,0.8)}
{pt3dadd(115.271,-444.451,164.24,0.8)}
{pt3dadd(116.864,-445.332,166.64,0.8)}
{pt3dadd(117.045,-445.332,166.56,0.8)}
{pt3dadd(120.616,-442.869,167.04,0.8)}
{pt3dadd(124.537,-443.931,164.32,0.8)}
{pt3dadd(124.706,-443.931,164.56,0.8)}
{pt3dadd(126.853,-448.146,164.56,0.8)}
{pt3dadd(127.565,-447.446,164.64,0.8)}
{pt3dadd(127.746,-447.265,164.64,0.8)}
{pt3dadd(128.096,-447.095,164.56,0.8)}
{pt3dadd(128.277,-447.095,164.32,0.8)}
{pt3dadd(128.458,-447.095,164.08,0.8)}
{pt3dadd(128.458,-447.446,167.84,0.8)}
{pt3dadd(128.458,-447.796,167.76,0.8)}
{pt3dadd(128.277,-448.316,166.88,0.8)}
{pt3dadd(128.277,-448.496,166.96,0.8)}
{pt3dadd(128.096,-449.028,166.96,0.8)}
{pt3dadd(128.096,-449.197,166.96,0.8)}
{pt3dadd(128.277,-449.728,166.88,0.8)}
{pt3dadd(128.277,-449.898,166.72,0.8)}
{pt3dadd(128.808,-450.259,165.68,0.8)}
{pt3dadd(128.808,-450.429,165.28,0.8)}
{pt3dadd(130.413,-449.547,166.16,0.8)}
{pt3dadd(130.594,-449.378,166.16,0.8)}
{pt3dadd(131.305,-449.197,166.16,0.8)}
{pt3dadd(131.667,-449.197,166.16,0.8)}
{pt3dadd(133.091,-449.378,166.24,0.8)}
{pt3dadd(133.26,-449.378,166.24,0.8)}
{pt3dadd(134.153,-448.496,167.36,0.8)}
{pt3dadd(134.515,-448.146,167.28,0.8)}
{pt3dadd(135.577,-447.095,164.88,0.8)}
{pt3dadd(135.577,-446.914,164.24,0.8)}
{pt3dadd(135.939,-446.734,165.2,0.8)}
{pt3dadd(135.939,-446.914,165.2,0.8)}
{pt3dadd(136.119,-448.316,165.44,0.8)}
{pt3dadd(136.3,-448.847,165.44,0.8)}
{pt3dadd(136.831,-449.378,165.44,0.8)}
{pt3dadd(137.362,-449.898,165.36,0.8)}
{pt3dadd(138.436,-450.61,165.04,0.8)}
{pt3dadd(139.148,-450.96,167.12,0.8)}
{pt3dadd(139.328,-451.129,167.12,0.8)}
{pt3dadd(140.572,-451.66,167.2,0.8)}
{pt3dadd(140.572,-451.841,167.2,0.8)}
{pt3dadd(141.283,-452.011,167.2,0.8)}
{pt3dadd(141.826,-452.011,167.2,0.8)}
{pt3dadd(143.069,-452.361,167.28,0.8)}
{pt3dadd(143.781,-452.542,167.28,0.8)}
{pt3dadd(144.854,-452.361,167.2,0.8)}
{pt3dadd(145.024,-452.192,167.04,0.8)}
{pt3dadd(146.628,-451.129,166.88,0.8)}
{pt3dadd(147.34,-450.429,166.8,0.8)}
{pt3dadd(148.233,-448.496,166,0.8)}
{pt3dadd(150.199,-450.078,165.52,0.8)}
{pt3dadd(150.38,-450.078,164.72,0.8)}
{pt3dadd(152.335,-448.496,164.64,0.8)}
{pt3dadd(152.516,-448.496,164.64,0.8)}
{pt3dadd(154.301,-449.728,166.8,0.8)}
{pt3dadd(154.301,-449.898,166.88,0.8)}
{pt3dadd(156.968,-449.547,164.16,0.8)}
{pt3dadd(157.149,-450.779,164.08,0.8)}
{pt3dadd(156.968,-450.96,164,0.8)}
{pt3dadd(157.499,-452.542,167.76,0.8)}
{pt3dadd(157.149,-453.943,167.52,0.8)}
{pt3dadd(157.149,-454.124,167.52,0.8)}
{pt3dadd(159.815,-454.293,164.96,0.8)}
{pt3dadd(159.996,-454.293,164.96,0.8)}
{pt3dadd(161.42,-455.525,167.44,0.8)}
{pt3dadd(161.601,-455.525,166.72,0.8)}
{pt3dadd(161.601,-455.706,166.56,0.8)}
{pt3dadd(161.962,-457.288,166.8,0.8)}
{pt3dadd(162.132,-457.457,166.8,0.8)}
{pt3dadd(164.098,-456.757,166.8,0.8)}
{pt3dadd(164.279,-456.757,166.16,0.8)}
{pt3dadd(165.884,-457.638,167.92,0.8)}
{pt3dadd(165.884,-457.808,164,0.8)}
{pt3dadd(165.341,-459.039,164,0.8)}
{pt3dadd(164.629,-461.333,164.4,0.8)}
{pt3dadd(166.776,-463.966,164.8,0.8)}
{pt3dadd(166.776,-464.136,164.8,0.8)}
{pt3dadd(168.912,-467.48,164.8,0.8)}
{pt3dadd(169.624,-467.48,164.8,0.8)}
{pt3dadd(171.228,-469.063,164.72,0.8)}
{pt3dadd(171.228,-469.243,164.72,0.8)}
{pt3dadd(173.183,-470.113,164.72,0.8)}
{pt3dadd(173.364,-470.113,164.72,0.8)}

} //topol17()

//---------------------------------
proc topol18() {


{apical_dendrite[87] connect apical_dendrite[91](0), 1}
{access apical_dendrite[91]}
{pt3dclear()}
{pt3dadd(87.823,-418.269,164.88,1.1)}
{pt3dadd(87.823,-418.438,164.88,1.1)}
{pt3dadd(86.569,-422.484,167.28,1.1)}
{pt3dadd(85.326,-424.766,166.56,0.8)}
{pt3dadd(85.145,-424.766,166.56,0.8)}
{pt3dadd(83.54,-425.998,166.56,0.8)}
{pt3dadd(83.54,-426.179,166.56,0.8)}
{pt3dadd(83.19,-426.529,166.56,0.8)}
{pt3dadd(82.648,-431.626,166.56,0.8)}
{pt3dadd(82.648,-431.795,166.56,0.8)}
{pt3dadd(81.224,-435.49,166.56,0.8)}
{pt3dadd(77.834,-437.954,164.88,0.8)}
{pt3dadd(77.834,-438.123,164.4,0.8)}
{pt3dadd(76.952,-440.417,167.6,0.8)}
{pt3dadd(76.952,-440.586,167.68,0.8)}
{pt3dadd(75.879,-441.118,167.68,0.8)}
{pt3dadd(75.879,-441.287,167.68,0.8)}
{pt3dadd(75.348,-444.632,167.68,0.8)}
{pt3dadd(75.348,-444.801,166.72,0.8)}
{pt3dadd(73.562,-448.677,164.64,0.8)}
{pt3dadd(73.382,-448.677,164.64,0.8)}
{pt3dadd(71.065,-454.474,164.64,0.8)}
{pt3dadd(70.003,-458.169,165.52,0.8)}
{pt3dadd(70.003,-458.339,167.68,0.8)}
{pt3dadd(70.715,-462.384,166.08,0.8)}
{pt3dadd(70.715,-462.554,166.16,0.8)}
{pt3dadd(67.325,-466.949,166.16,0.8)}
{pt3dadd(67.325,-467.13,166.16,0.8)}
{pt3dadd(67.506,-469.944,166.16,0.8)}
{pt3dadd(67.506,-470.113,166.16,0.8)}
{pt3dadd(65.359,-473.108,166.16,0.8)}
{pt3dadd(62.873,-478.204,164.88,0.8)}
{pt3dadd(60.375,-483.3,164.96,0.8)}
{pt3dadd(60.195,-483.3,164.96,0.8)}
{pt3dadd(58.952,-486.465,164.96,0.8)}
{pt3dadd(58.771,-489.798,164.32,0.8)}
{pt3dadd(58.771,-489.979,164.32,0.8)}
{pt3dadd(56.635,-494.194,164.24,0.8)}
{pt3dadd(56.454,-494.544,164.24,0.8)}
{pt3dadd(56.273,-496.488,164.24,0.8)}
{pt3dadd(56.273,-496.657,164.24,0.8)}
{pt3dadd(51.821,-501.403,164.08,0.8)}
{pt3dadd(51.821,-501.584,164.08,0.8)}
{pt3dadd(48.251,-504.567,164.08,0.8)}
{pt3dadd(48.251,-504.917,164.08,0.8)}
{pt3dadd(48.612,-507.562,164.08,0.8)}
{pt3dadd(48.612,-507.731,164.08,0.8)}
{pt3dadd(46.476,-511.776,164.08,0.8)}
{pt3dadd(46.296,-511.946,164.08,0.8)}
{pt3dadd(41.482,-517.404,164.08,0.8)}
{pt3dadd(41.301,-517.404,164.08,0.8)}
{pt3dadd(40.951,-517.573,164.08,0.8)}

{apical_dendrite[84] connect apical_dendrite[92](0), 1}
{access apical_dendrite[92]}
{pt3dclear()}
{pt3dadd(103.903,-349.576,180.32,1.74)}
{pt3dadd(104.378,-352.22,180.32,1.74)}
{pt3dadd(104.818,-356.209,180.32,1.74)}
{pt3dadd(105.191,-359.091,180.32,1.74)}
{pt3dadd(105.259,-359.249,180.32,1.74)}
{pt3dadd(105.666,-361.735,167.6,1.74)}
{pt3dadd(104.479,-365.984,167.6,1.74)}
{pt3dadd(104.389,-366.221,167.6,1.74)}
{pt3dadd(106.581,-370.865,164.56,1.1)}
{pt3dadd(108.4,-374.933,166.72,1.1)}
{pt3dadd(107.745,-376.606,166.96,1.1)}
{pt3dadd(107.711,-376.775,167.04,1.1)}
{pt3dadd(109.395,-378.504,149.36,1.1)}
{pt3dadd(108.999,-380.753,149.36,1.1)}
{pt3dadd(108.965,-380.934,149.36,1.1)}
{pt3dadd(109.847,-385.194,138.72,1.1)}
{pt3dadd(110.016,-385.216,138.72,1.1)}
{pt3dadd(112.887,-385.375,138.72,1.1)}
{pt3dadd(112.92,-385.194,138.4,1.1)}
{pt3dadd(113.395,-388.674,138.24,1.1)}
{pt3dadd(117.293,-391.149,137.28,1.1)}
{pt3dadd(117.271,-391.318,137.2,1.1)}
{pt3dadd(120.65,-393.703,137.44,1.1)}
{pt3dadd(120.616,-393.872,138.56,1.1)}
{pt3dadd(122.582,-397.081,138.4,1.1)}
{pt3dadd(122.559,-397.251,138.4,1.1)}
{pt3dadd(121.079,-399.488,128.96,1.1)}
{pt3dadd(122.254,-402.02,128.88,1.1)}
{pt3dadd(122.22,-402.189,128.88,1.1)}
{pt3dadd(122.322,-404.709,128.16,1.1)}
{pt3dadd(122.503,-404.743,128.08,1.1)}
{pt3dadd(125.814,-404.426,120.24,1.1)}
{pt3dadd(127.226,-406.641,120.32,1.1)}
{pt3dadd(127.904,-406.946,117.52,1.1)}
{pt3dadd(127.577,-406.709,117.44,1.1)}

{apical_dendrite[92] connect apical_dendrite[93](0), 1}
{access apical_dendrite[93]}
{pt3dclear()}
{pt3dadd(127.577,-406.709,117.44,1.1)}
{pt3dadd(127.577,-406.709,117.48,0.8)}
{pt3dadd(128.062,-412.144,147.36,0.8)}
{pt3dadd(128.04,-412.325,147.36,0.8)}
{pt3dadd(127.769,-416.913,147.44,0.8)}
{pt3dadd(127.531,-417.229,147.68,0.8)}
{pt3dadd(127.61,-421.885,152.96,0.8)}
{pt3dadd(127.26,-422.891,154.16,0.8)}
{pt3dadd(127.091,-425.896,158,0.8)}
{pt3dadd(126.831,-429.422,158,0.8)}
{pt3dadd(126.254,-430.575,158.48,0.8)}
{pt3dadd(125.972,-434.27,163.12,0.8)}
{pt3dadd(125.667,-434.925,163.28,0.8)}
{pt3dadd(126.379,-438.089,163.36,0.8)}
{pt3dadd(126.345,-438.259,163.36,0.8)}
{pt3dadd(126.458,-438.643,163.36,0.8)}

{apical_dendrite[92] connect apical_dendrite[94](0), 1}
{access apical_dendrite[94]}
{pt3dclear()}
{pt3dadd(127.577,-406.709,117.44,1.1)}
{pt3dadd(129.339,-405.952,117.44,0.8)}
{pt3dadd(129.52,-405.975,117.44,0.8)}
{pt3dadd(130.311,-405.579,117.44,0.8)}
{pt3dadd(130.277,-405.76,117.36,0.8)}
{pt3dadd(130.65,-406.72,108.64,0.8)}
{pt3dadd(130.831,-406.743,109.6,0.8)}
{pt3dadd(131.972,-407.478,123.68,0.8)}
{pt3dadd(132.108,-407.692,124.16,0.8)}
{pt3dadd(134.492,-410.608,125.36,0.8)}
{pt3dadd(134.458,-410.777,124.96,0.8)}
{pt3dadd(137.159,-409.828,102.08,0.8)}
{pt3dadd(137.487,-410.065,102.16,0.8)}
{pt3dadd(143.408,-412.359,99.84,0.8)}
{pt3dadd(147.544,-411.489,122.4,0.8)}
{pt3dadd(156.493,-410.031,91.52,0.8)}
{pt3dadd(156.844,-410.088,91.12,0.8)}
{pt3dadd(163.002,-409.037,84.64,0.8)}
{pt3dadd(164.121,-408.879,84.08,0.8)}
{pt3dadd(172.155,-410.483,82.88,0.8)}
{pt3dadd(174.901,-412.393,82.8,0.8)}
{pt3dadd(174.867,-412.563,82.8,0.8)}
{pt3dadd(175.127,-413.139,82.8,0.8)}

{apical_dendrite[83] connect apical_dendrite[95](0), 1}
{access apical_dendrite[95]}
{pt3dclear()}
{pt3dadd(106.197,-348.096,180.32,2.06)}
{pt3dadd(110.886,-352.661,180.32,2.06)}
{pt3dadd(116.141,-356.243,192,2.06)}
{pt3dadd(116.209,-356.413,192,2.06)}
{pt3dadd(120.887,-358.526,192,2.06)}
{pt3dadd(124.865,-356.944,192,2.06)}
{pt3dadd(132.074,-364.481,177.44,2.06)}
{pt3dadd(131.916,-364.538,177.2,2.06)}
{pt3dadd(138.594,-368.312,176.72,2.06)}
{pt3dadd(138.526,-368.154,176.72,2.06)}

{apical_dendrite[95] connect apical_dendrite[96](0), 1}
{access apical_dendrite[96]}
{pt3dclear()}
{pt3dadd(138.526,-368.154,176.72,2.06)}
{pt3dadd(138.526,-368.154,176.76,1.1)}
{pt3dadd(139.521,-367.758,182.4,1.1)}
{pt3dadd(139.973,-368.899,175.52,1.1)}
{pt3dadd(139.871,-369.137,175.76,1.1)}
{pt3dadd(136.809,-372.052,189.2,1.1)}
{pt3dadd(136.65,-372.12,189.68,1.1)}
{pt3dadd(138.052,-375.148,196.48,1.1)}
{pt3dadd(138.108,-375.318,196.64,1.1)}
{pt3dadd(141.747,-374.82,197.2,1.1)}
{pt3dadd(140.775,-376.719,199.2,1.1)}
{pt3dadd(140.583,-377.171,199.76,1.1)}
{pt3dadd(140.436,-377.792,201.44,1.1)}

{apical_dendrite[96] connect apical_dendrite[97](0), 1}
{access apical_dendrite[97]}
{pt3dclear()}
{pt3dadd(140.436,-377.792,201.44,1.1)}
{pt3dadd(140.436,-377.792,201.48,0.8)}
{pt3dadd(140.978,-386.855,190.96,0.8)}
{pt3dadd(143.08,-388.29,199.12,0.8)}
{pt3dadd(143.204,-388.618,199.12,0.8)}
{pt3dadd(143.645,-392.607,204.96,0.8)}
{pt3dadd(143.702,-392.765,204.96,0.8)}
{pt3dadd(145.928,-396.426,186.8,0.8)}
{pt3dadd(145.826,-396.652,186.8,0.8)}
{pt3dadd(146.719,-400.833,187.12,0.8)}
{pt3dadd(146.787,-401.003,187.12,0.8)}
{pt3dadd(145.781,-404.234,187.2,0.8)}
{pt3dadd(143.702,-407.715,187.28,0.8)}
{pt3dadd(141.283,-413.207,200.64,0.8)}
{pt3dadd(141.351,-413.376,200.64,0.8)}
{pt3dadd(138.176,-418.416,207.2,0.8)}
{pt3dadd(138.244,-418.585,207.2,0.8)}
{pt3dadd(137.984,-422.28,207.28,0.8)}
{pt3dadd(136.424,-424.608,209.04,0.8)}
{pt3dadd(131.644,-431.422,209.04,0.8)}
{pt3dadd(131.486,-431.479,209.04,0.8)}
{pt3dadd(129.271,-436.53,196.48,0.8)}
{pt3dadd(129.17,-436.756,196.4,0.8)}
{pt3dadd(128.458,-439.31,196.24,0.8)}
{pt3dadd(128.288,-439.377,196.24,0.8)}
{pt3dadd(126.887,-441.637,188,0.8)}
{pt3dadd(126.955,-441.796,188,0.8)}
{pt3dadd(127.407,-443.886,188.48,0.8)}
{pt3dadd(127.43,-444.44,188.48,0.8)}
{pt3dadd(126.107,-449.321,188.88,0.8)}
{pt3dadd(126.684,-451.74,183.12,0.8)}
{pt3dadd(124.853,-454.361,183.12,0.8)}
{pt3dadd(124.752,-454.587,183.12,0.8)}
{pt3dadd(127.339,-457.717,183.12,0.8)}
{pt3dadd(128.605,-460.429,183.12,0.8)}
{pt3dadd(131.588,-460.192,182.8,0.8)}
{pt3dadd(134.345,-467.616,176,0.8)}
{pt3dadd(134.402,-467.774,175.92,0.8)}
{pt3dadd(132.424,-471.967,175.52,0.8)}
{pt3dadd(132.266,-472.034,175.36,0.8)}
{pt3dadd(133.385,-476.317,174.24,0.8)}
{pt3dadd(133.554,-476.249,174.24,0.8)}
{pt3dadd(136.131,-480.329,172.72,0.8)}
{pt3dadd(136.481,-482.645,172.8,0.8)}
{pt3dadd(136.65,-482.577,172.8,0.8)}
{pt3dadd(135.803,-484.803,172.8,0.8)}
{pt3dadd(135.939,-485.131,172.8,0.8)}
{pt3dadd(137.645,-486.532,172.8,0.8)}
{pt3dadd(137.871,-486.634,172.8,0.8)}
{pt3dadd(138.232,-487.063,172.8,0.8)}

{apical_dendrite[96] connect apical_dendrite[98](0), 1}
{access apical_dendrite[98]}
{pt3dclear()}
{pt3dadd(140.436,-377.792,201.44,1.1)}
{pt3dadd(144.888,-378.911,201.36,1.1)}
{pt3dadd(144.572,-380.55,215.68,1.1)}
{pt3dadd(144.414,-380.617,215.84,1.1)}
{pt3dadd(146.244,-382.346,215.92,1.1)}
{pt3dadd(146.481,-382.448,216.16,1.1)}
{pt3dadd(149.261,-381.714,199.76,1.1)}
{pt3dadd(150.018,-381.228,199.76,1.1)}
{pt3dadd(153.566,-379.058,199.76,1.1)}
{pt3dadd(153.34,-378.956,199.76,1.1)}

{apical_dendrite[98] connect apical_dendrite[99](0), 1}
{access apical_dendrite[99]}
{pt3dclear()}
{pt3dadd(153.34,-378.956,199.76,1.1)}
{pt3dadd(153.34,-378.956,199.799,1.1)}
{pt3dadd(152.821,-378.606,170.96,1.1)}
{pt3dadd(154.267,-379.352,183.84,0.8)}
{pt3dadd(154.098,-379.42,184.24,0.8)}
{pt3dadd(154.064,-379.804,184.88,0.8)}
{pt3dadd(152.086,-383.047,184.88,0.8)}
{pt3dadd(152.154,-383.216,184.32,0.8)}
{pt3dadd(156.267,-385.363,177.36,0.8)}
{pt3dadd(156.109,-385.431,176.48,0.8)}
{pt3dadd(154.753,-385.397,209.6,0.8)}
{pt3dadd(154.516,-385.296,210.08,0.8)}
{pt3dadd(151.386,-384.651,212.96,0.8)}
{pt3dadd(151.216,-384.719,213.2,0.8)}
{pt3dadd(151.996,-386.686,217.92,0.8)}
{pt3dadd(152.064,-386.844,217.92,0.8)}
{pt3dadd(148.142,-386.132,222.64,0.8)}
{pt3dadd(145.487,-387.183,239.12,0.8)}
{pt3dadd(145.385,-387.42,239.2,0.8)}
{pt3dadd(145.103,-386.211,236.64,0.8)}
{pt3dadd(144.866,-386.109,236.64,0.8)}

{apical_dendrite[98] connect apical_dendrite[100](0), 1}
{access apical_dendrite[100]}
{pt3dclear()}
{pt3dadd(153.34,-378.956,199.76,1.1)}
{pt3dadd(157.103,-378.787,198.72,0.8)}
{pt3dadd(161.533,-378.346,197.2,0.8)}
{pt3dadd(161.872,-378.222,196.24,0.8)}
{pt3dadd(169.047,-376.493,195.36,0.8)}
{pt3dadd(169.375,-376.369,195.36,0.8)}
{pt3dadd(172.697,-378.448,177.52,0.8)}
{pt3dadd(175.997,-379.024,162.96,0.8)}
{pt3dadd(176.065,-379.194,162.88,0.8)}
{pt3dadd(182.009,-378.719,162,0.8)}
{pt3dadd(182.574,-378.685,161.92,0.8)}
{pt3dadd(187.76,-379.657,158.96,0.8)}
{pt3dadd(187.918,-380.538,158.88,0.8)}
{pt3dadd(194.676,-381.623,190,0.8)}
{pt3dadd(194.845,-381.567,190.08,0.8)}
{pt3dadd(204.597,-379.578,170.8,0.8)}
{pt3dadd(204.541,-379.408,170.8,0.8)}

} //topol18()

//---------------------------------
proc topol19() {



{apical_dendrite[100] connect apical_dendrite[101](0), 1}
{access apical_dendrite[101]}
{pt3dclear()}
{pt3dadd(204.541,-379.408,170.8,0.8)}
{pt3dadd(207.987,-377.476,174.08,0.48)}
{pt3dadd(208.315,-377.34,174.08,0.48)}
{pt3dadd(216.191,-375.917,174,0.48)}
{pt3dadd(216.417,-376.007,174,0.48)}
{pt3dadd(223.954,-371.318,174,0.48)}
{pt3dadd(232.147,-370.707,173.92,0.48)}
{pt3dadd(239.672,-371.306,187.76,0.48)}
{pt3dadd(239.842,-371.238,187.76,0.48)}
{pt3dadd(243.966,-370.538,187.76,0.48)}
{pt3dadd(244.136,-370.481,187.76,0.48)}
{pt3dadd(244.746,-372.504,187.92,0.48)}
{pt3dadd(246.102,-372.527,188,0.48)}
{pt3dadd(253.628,-373.137,214.32,0.48)}
{pt3dadd(253.696,-373.295,214.08,0.48)}
{pt3dadd(260.069,-373.408,214,0.48)}
{pt3dadd(260.634,-373.374,214,0.48)}
{pt3dadd(267.052,-372.154,214,0.48)}
{pt3dadd(268.171,-372.075,214,0.48)}
{pt3dadd(276.262,-368.3,214,0.48)}
{pt3dadd(284.477,-363.893,214,0.48)}
{pt3dadd(284.68,-363.441,214,0.48)}
{pt3dadd(289.63,-359.012,212.64,0.48)}
{pt3dadd(289.573,-358.842,213.28,0.48)}
{pt3dadd(295.98,-357.622,217.28,0.48)}
{pt3dadd(297.144,-357.159,217.28,0.48)}
{pt3dadd(303.495,-355.769,217.36,0.48)}
{pt3dadd(303.664,-355.701,217.36,0.48)}
{pt3dadd(310.456,-357.351,222.72,0.48)}
{pt3dadd(310.625,-357.283,222.8,0.48)}
{pt3dadd(311.224,-356.854,222.72,0.48)}

{apical_dendrite[100] connect apical_dendrite[102](0), 1}
{access apical_dendrite[102]}
{pt3dclear()}
{pt3dadd(204.541,-379.408,170.8,0.8)}
{pt3dadd(204.541,-379.408,170.84,0.48)}
{pt3dadd(209.038,-378.188,173.36,0.48)}
{pt3dadd(209.208,-378.12,173.52,0.48)}
{pt3dadd(212.078,-378.12,202.8,0.48)}
{pt3dadd(212.801,-378.018,202.88,0.48)}
{pt3dadd(217.728,-377.386,207.76,0.48)}
{pt3dadd(218.157,-377.024,207.44,0.48)}
{pt3dadd(221.898,-377.239,200.96,0.48)}
{pt3dadd(222.225,-377.103,202.56,0.48)}
{pt3dadd(225.344,-375.306,211.76,0.48)}
{pt3dadd(232.542,-375.08,198.96,0.48)}
{pt3dadd(232.712,-375.024,198.96,0.48)}
{pt3dadd(238.305,-377.521,218.16,0.48)}
{pt3dadd(239.254,-378.47,218.16,0.48)}
{pt3dadd(243.661,-381.826,218.96,0.48)}
{pt3dadd(243.831,-381.759,219.44,0.48)}
{pt3dadd(244.961,-385.092,226.32,0.48)}
{pt3dadd(245.029,-385.25,226.4,0.48)}
{pt3dadd(246.961,-387.703,225.28,0.48)}
{pt3dadd(247.424,-387.895,225.28,0.48)}
{pt3dadd(252.148,-387.725,228,0.48)}
{pt3dadd(252.306,-387.657,228.08,0.48)}
{pt3dadd(252.374,-387.816,228.08,0.48)}

{apical_dendrite[95] connect apical_dendrite[103](0), 1}
{access apical_dendrite[103]}
{pt3dclear()}
{pt3dadd(138.526,-368.154,176.72,2.06)}
{pt3dadd(140.764,-369.916,176.72,1.74)}
{pt3dadd(140.99,-370.007,176.72,1.74)}
{pt3dadd(144.176,-371.77,170.08,1.74)}
{pt3dadd(144.244,-371.928,175.68,1.74)}

{apical_dendrite[103] connect apical_dendrite[104](0), 1}
{access apical_dendrite[104]}
{pt3dclear()}
{pt3dadd(144.244,-371.928,175.68,1.74)}
{pt3dadd(146.086,-378.007,173.52,1.74)}
{pt3dadd(145.216,-379.679,171.68,1.74)}
{pt3dadd(145.046,-379.747,171.68,1.74)}
{pt3dadd(145.408,-381.115,167.92,1.74)}
{pt3dadd(145.928,-381.476,166.16,1.74)}
{pt3dadd(146.052,-382.753,155.04,1.74)}
{pt3dadd(145.95,-382.979,153.6,1.74)}
{pt3dadd(145.544,-384.844,152.72,1.74)}
{pt3dadd(145.51,-385.239,150.96,1.74)}
{pt3dadd(144.798,-387.793,149.44,1.74)}
{pt3dadd(144.866,-387.951,149.84,1.74)}

{apical_dendrite[103] connect apical_dendrite[105](0), 1}
{access apical_dendrite[105]}
{pt3dclear()}
{pt3dadd(144.244,-371.928,175.68,1.74)}
{pt3dadd(144.244,-371.928,175.72,1.1)}
{pt3dadd(148.47,-371.95,171.68,1.1)}
{pt3dadd(149.984,-372.866,171.68,1.1)}
{pt3dadd(150.222,-372.967,171.68,1.1)}
{pt3dadd(153.691,-371.577,171.6,1.1)}
{pt3dadd(162.527,-369.204,171.76,1.1)}
{pt3dadd(162.629,-368.967,171.76,1.1)}
{pt3dadd(167.138,-367.747,171.76,1.1)}
{pt3dadd(166.968,-367.814,171.76,1.1)}
{pt3dadd(167.895,-371.611,171.76,1.1)}
{pt3dadd(167.963,-371.77,171.76,1.1)}
{pt3dadd(167.296,-377.329,171.84,1.1)}
{pt3dadd(167.364,-377.499,171.84,1.1)}
{pt3dadd(167.047,-380.075,171.84,1.1)}
{pt3dadd(167.183,-380.403,171.84,1.1)}
{pt3dadd(168.336,-385.239,169.84,1.1)}
{pt3dadd(168.302,-385.635,169.84,1.1)}
{pt3dadd(168.562,-386.29,169.84,1.1)}
{pt3dadd(169.183,-391.714,187.6,1.1)}
{pt3dadd(169.375,-392.211,187.52,1.1)}
{pt3dadd(169.466,-393.872,187.52,1.1)}
{pt3dadd(169.533,-394.042,187.52,1.1)}
{pt3dadd(168.121,-396.302,187.52,1.1)}
{pt3dadd(168.03,-396.528,187.52,1.1)}
{pt3dadd(169.963,-398.969,196.48,1.1)}
{pt3dadd(171.036,-401.195,196.24,1.1)}
{pt3dadd(171.839,-403.715,196.24,1.1)}
{pt3dadd(172.076,-403.805,196.24,1.1)}
{pt3dadd(176.619,-405.59,196.24,1.1)}
{pt3dadd(181.195,-406.992,205.36,1.1)}
{pt3dadd(181.364,-406.924,205.44,1.1)}
{pt3dadd(185.037,-406.031,206,1.1)}
{pt3dadd(185.365,-405.895,206,1.1)}
{pt3dadd(189.806,-403.568,207.2,1.1)}
{pt3dadd(189.975,-403.5,207.36,1.1)}
{pt3dadd(193.783,-402.935,211.28,1.1)}
{pt3dadd(193.941,-402.867,211.28,1.1)}
{pt3dadd(198.213,-402.494,211.04,1.1)}
{pt3dadd(198.371,-402.426,211.04,1.1)}
{pt3dadd(201.648,-401.5,211.12,1.1)}
{pt3dadd(201.817,-401.443,211.6,1.1)}
{pt3dadd(204.914,-402.483,214.72,1.1)}
{pt3dadd(205.083,-402.415,214.64,1.1)}
{pt3dadd(208.79,-401.127,214.4,1.1)}
{pt3dadd(208.891,-400.901,214.4,1.1)}
{pt3dadd(213.423,-400.234,222.08,1.1)}
{pt3dadd(214.315,-400.065,222,1.1)}
{pt3dadd(219.31,-398.641,222,1.1)}
{pt3dadd(223.785,-396.867,235.6,1.1)}
{pt3dadd(231.333,-398.031,230,0.8)}
{pt3dadd(231.729,-398.053,230,0.8)}
{pt3dadd(236.203,-396.279,234.64,0.8)}
{pt3dadd(238.881,-396.731,225.36,0.8)}
{pt3dadd(239.435,-396.697,225.28,0.8)}
{pt3dadd(242.543,-396.788,225.36,0.8)}
{pt3dadd(243.368,-396.46,225.52,0.8)}
{pt3dadd(247.967,-395.002,226.24,0.8)}
{pt3dadd(248.136,-394.934,226.32,0.8)}
{pt3dadd(248.633,-394.742,226.24,0.8)}

{apical_dendrite[64] connect apical_dendrite[106](0), 1}
{access apical_dendrite[106]}
{pt3dclear()}
{pt3dadd(62.195,-203.196,148.72,1.74)}
{pt3dadd(62.195,-203.196,148.76,1.1)}
{pt3dadd(64.161,-204.778,155.76,1.1)}
{pt3dadd(64.342,-204.778,155.76,1.1)}
{pt3dadd(64.511,-207.23,155.76,1.1)}
{pt3dadd(64.511,-207.761,155.76,1.1)}
{pt3dadd(64.692,-208.643,155.76,1.1)}
{pt3dadd(65.054,-210.925,155.76,1.1)}
{pt3dadd(65.223,-211.106,155.76,1.1)}
{pt3dadd(71.291,-218.835,155.76,1.1)}
{pt3dadd(71.291,-219.016,155.76,1.1)}
{pt3dadd(70.218,-222.881,155.76,1.1)}
{pt3dadd(70.218,-223.4,155.76,1.1)}
{pt3dadd(70.579,-224.463,155.76,1.1)}
{pt3dadd(72.896,-229.909,149.92,1.1)}
{pt3dadd(73.958,-234.836,149.92,0.8)}
{pt3dadd(73.958,-235.006,149.92,0.8)}
{pt3dadd(73.777,-235.356,149.92,0.8)}
{pt3dadd(73.777,-236.237,149.92,0.8)}
{pt3dadd(75.924,-239.22,149.92,0.8)}
{pt3dadd(76.094,-239.22,149.92,0.8)}
{pt3dadd(79.303,-242.034,149.92,0.8)}
{pt3dadd(79.664,-245.548,149.92,0.8)}
{pt3dadd(83.936,-250.125,149.92,0.8)}
{pt3dadd(84.117,-250.295,149.92,0.8)}
{pt3dadd(85.721,-255.391,149.92,0.8)}
{pt3dadd(85.541,-255.391,149.92,0.8)}
{pt3dadd(85.19,-258.385,158.08,0.8)}
{pt3dadd(87.326,-261.9,158.08,0.8)}
{pt3dadd(87.507,-261.9,158.08,0.8)}
{pt3dadd(90.354,-271.041,158.08,0.8)}
{pt3dadd(91.609,-276.318,163.84,0.8)}
{pt3dadd(94.275,-286.511,153.28,0.8)}
{pt3dadd(94.456,-286.681,153.28,0.8)}
{pt3dadd(96.411,-290.195,153.28,0.8)}
{pt3dadd(96.411,-290.376,153.28,0.8)}
{pt3dadd(97.304,-292.489,153.28,0.8)}
{pt3dadd(97.304,-292.658,153.28,0.8)}
{pt3dadd(97.485,-296.704,153.28,0.8)}
{pt3dadd(97.665,-297.235,153.28,0.8)}
{pt3dadd(101.055,-303.732,153.28,0.8)}
{pt3dadd(101.055,-303.913,153.28,0.8)}
{pt3dadd(105.146,-307.778,167.68,0.8)}
{pt3dadd(105.146,-307.947,167.68,0.8)}
{pt3dadd(105.508,-308.128,167.68,0.8)}
{pt3dadd(111.564,-313.755,168.64,0.8)}
{pt3dadd(114.062,-314.637,160.4,0.8)}
{pt3dadd(119.768,-311.111,179.28,0.8)}
{pt3dadd(119.938,-310.942,179.28,0.8)}

{apical_dendrite[41] connect apical_dendrite[107](0), 1}
{access apical_dendrite[107]}
{pt3dclear()}
{pt3dadd(36.001,-117.587,134.4,1.74)}
{pt3dadd(36.001,-117.587,134.44,0.8)}
{pt3dadd(43.312,-119.35,144.24,0.8)}
{pt3dadd(42.42,-121.282,142.24,0.8)}
{pt3dadd(42.589,-121.463,142.16,0.8)}
{pt3dadd(42.77,-121.983,142.16,0.8)}
{pt3dadd(43.482,-122.864,142.16,0.8)}
{pt3dadd(43.482,-123.045,142.08,0.8)}
{pt3dadd(43.843,-123.215,142.16,0.8)}
{pt3dadd(46.872,-122.514,139.84,0.8)}
{pt3dadd(47.053,-122.514,140.08,0.8)}
{pt3dadd(47.765,-122.864,145.12,0.8)}
{pt3dadd(47.945,-122.864,145.04,0.8)}
{pt3dadd(49.9,-124.096,145.84,0.8)}
{pt3dadd(50.081,-124.096,145.84,0.8)}
{pt3dadd(53.821,-123.565,145.92,0.8)}
{pt3dadd(56.499,-123.746,145.92,0.8)}
{pt3dadd(56.669,-123.746,145.92,0.8)}
{pt3dadd(58.986,-122.514,145.92,0.8)}
{pt3dadd(58.986,-122.333,145.52,0.8)}
{pt3dadd(62.025,-124.446,132.72,0.8)}
{pt3dadd(62.195,-124.446,132.56,0.8)}
{pt3dadd(66.297,-124.977,125.84,0.8)}
{pt3dadd(66.477,-124.977,125.84,0.8)}
{pt3dadd(76.094,-126.91,125.84,0.8)}
{pt3dadd(76.274,-126.91,125.84,0.8)}
{pt3dadd(78.591,-127.43,125.84,0.8)}
{pt3dadd(78.772,-127.26,125.84,0.8)}
{pt3dadd(85.541,-123.215,125.84,0.8)}
{pt3dadd(90.004,-125.147,119.12,0.8)}
{pt3dadd(95.349,-124.627,113.12,0.8)}
{pt3dadd(100.332,-125.147,118.56,0.8)}
{pt3dadd(103.01,-123.915,121.52,0.8)}
{pt3dadd(103.191,-123.915,122.08,0.8)}
{pt3dadd(103.372,-123.746,122.72,0.8)}
{pt3dadd(105.688,-122.164,96.56,0.8)}
{pt3dadd(105.688,-121.983,96.4,0.8)}
{pt3dadd(109.067,-120.932,95.6,0.8)}
{pt3dadd(109.248,-120.932,95.68,0.8)}
{pt3dadd(114.593,-124.446,91.12,0.8)}
{pt3dadd(115.124,-124.446,91.12,0.8)}

{apical_dendrite[26] connect apical_dendrite[108](0), 1}
{access apical_dendrite[108]}
{pt3dclear()}
{pt3dadd(23.526,-78.749,112,2.06)}
{pt3dadd(22.724,-81.676,114.88,1.6)}
{pt3dadd(22.746,-81.506,114.88,1.6)}
{pt3dadd(23.831,-82.591,114.88,1.6)}
{pt3dadd(23.944,-82.964,114.88,1.6)}
{pt3dadd(24.814,-84.196,114.88,1.6)}
{pt3dadd(24.746,-84.535,114.88,1.6)}
{pt3dadd(23.967,-86.896,120.4,1.6)}
{pt3dadd(23.944,-87.066,121.2,1.6)}
{pt3dadd(26.328,-88.919,93.6,1.6)}
{pt3dadd(26.125,-89.066,93.6,1.6)}
{pt3dadd(26.17,-90.852,93.6,1.6)}
{pt3dadd(26.396,-91.609,93.44,1.6)}
{pt3dadd(26.362,-91.778,92.96,1.6)}
{pt3dadd(26.125,-92.094,92.72,1.6)}
{pt3dadd(24.181,-93.902,85.52,1.6)}
{pt3dadd(23.978,-94.038,85.44,1.6)}
{pt3dadd(24.735,-94.886,81.84,1.6)}
{pt3dadd(24.905,-94.919,80.64,1.6)}
{pt3dadd(28.995,-96.355,69.28,1.6)}
{pt3dadd(27.73,-100.411,65.36,1.6)}
{pt3dadd(27.526,-100.558,65.2,1.6)}
{pt3dadd(30.555,-103.948,64.72,1.6)}
{pt3dadd(30.724,-103.982,64.64,1.6)}
{pt3dadd(31.176,-109.587,64.64,1.6)}
{pt3dadd(32.43,-110.706,64.8,1.6)}
{pt3dadd(34.408,-116.943,64.4,1.6)}
{pt3dadd(34.205,-117.09,63.84,1.6)}
{pt3dadd(33.334,-118.898,60.8,1.6)}
{pt3dadd(33.278,-119.248,61.28,1.6)}
{pt3dadd(34.318,-120.503,60.64,1.6)}
{pt3dadd(34.295,-120.672,59.68,1.6)}
{pt3dadd(33.809,-122.367,57.52,1.6)}
{pt3dadd(33.775,-122.548,57.52,1.6)}
{pt3dadd(35.312,-125.136,52.24,1.6)}
{pt3dadd(35.278,-125.305,49.92,1.6)}
{pt3dadd(36.092,-126.876,50.32,1.6)}
{pt3dadd(36.205,-127.26,50.32,1.6)}
{pt3dadd(35.956,-129.712,68.24,1.6)}
{pt3dadd(35.775,-129.678,68.24,1.6)}
{pt3dadd(35.267,-130.481,68.24,1.6)}


} //topol19()

//---------------------------------
proc topol20() {


{apical_dendrite[25] connect apical_dendrite[109](0), 1}
{access apical_dendrite[109]}
{pt3dclear()}
{pt3dadd(23.707,-73.472,111.12,2.06)}
{pt3dadd(23.707,-73.472,111.16,0.8)}
{pt3dadd(21.029,-74.523,139.12,0.8)}
{pt3dadd(20.848,-74.704,139.12,0.8)}
{pt3dadd(18.181,-77.167,139.12,0.8)}
{pt3dadd(18,-77.167,139.2,0.8)}
{pt3dadd(16.396,-79.45,122.96,0.8)}
{pt3dadd(16.396,-79.619,122.96,0.8)}
{pt3dadd(16.215,-79.8,123.04,0.8)}
{pt3dadd(15.865,-80.501,123.04,0.8)}
{pt3dadd(15.684,-80.15,122.96,0.8)}

{apical_dendrite[109] connect apical_dendrite[110](0), 1}
{access apical_dendrite[110]}
{pt3dclear()}
{pt3dadd(15.684,-80.15,122.96,0.8)}
{pt3dadd(14.61,-82.433,120,0.8)}
{pt3dadd(12.294,-83.845,114.08,0.8)}
{pt3dadd(12.113,-83.845,114,0.8)}
{pt3dadd(7.842,-84.365,113.84,0.8)}
{pt3dadd(7.48,-84.546,113.92,0.8)}
{pt3dadd(4.101,-85.247,113.68,0.8)}
{pt3dadd(3.559,-85.427,113.52,0.8)}
{pt3dadd(2.135,-87.891,106.48,0.8)}
{pt3dadd(2.135,-88.06,106.48,0.8)}
{pt3dadd(2.135,-88.241,106.48,0.8)}
{pt3dadd(1.785,-88.942,106.56,0.8)}
{pt3dadd(1.604,-89.292,106.16,0.8)}
{pt3dadd(1.423,-89.292,105.76,0.8)}
{pt3dadd(1.423,-89.473,105.52,0.8)}
{pt3dadd(0.711,-89.823,107.6,0.8)}
{pt3dadd(-0.531,-88.761,105.36,0.8)}
{pt3dadd(-2.316,-88.411,101.12,0.8)}
{pt3dadd(-2.847,-88.411,100.64,0.8)}
{pt3dadd(-4.994,-89.642,117.76,0.8)}
{pt3dadd(-8.023,-86.478,99.36,0.8)}
{pt3dadd(-8.023,-86.309,99.44,0.8)}
{pt3dadd(-12.655,-87.36,90.8,0.8)}
{pt3dadd(-13.187,-87.36,90.64,0.8)}
{pt3dadd(-17.639,-89.111,85.28,0.8)}
{pt3dadd(-18,-89.473,85.28,0.8)}
{pt3dadd(-21.21,-90.524,84.24,0.8)}
{pt3dadd(-22.995,-92.637,85.76,0.8)}
{pt3dadd(-23.165,-92.806,85.76,0.8)}
{pt3dadd(-24.057,-94.569,85.44,0.8)}
{pt3dadd(-24.057,-95.089,85.28,0.8)}
{pt3dadd(-24.057,-98.083,73.92,0.8)}
{pt3dadd(-24.238,-98.083,73.92,0.8)}
{pt3dadd(-27.086,-101.417,71.12,0.8)}
{pt3dadd(-27.086,-101.598,71.12,0.8)}
{pt3dadd(-29.764,-104.931,70.24,0.8)}
{pt3dadd(-29.764,-105.112,70.24,0.8)}
{pt3dadd(-31.368,-104.931,70.24,0.8)}
{pt3dadd(-31.549,-104.931,70.08,0.8)}
{pt3dadd(-31.549,-105.112,69.84,0.8)}
{pt3dadd(-32.43,-107.576,67.36,0.8)}
{pt3dadd(-32.43,-107.745,67.36,0.8)}
{pt3dadd(-35.64,-108.977,64.48,0.8)}
{pt3dadd(-36.001,-109.157,64.4,0.8)}

{apical_dendrite[109] connect apical_dendrite[111](0), 1}
{access apical_dendrite[111]}
{pt3dclear()}
{pt3dadd(15.684,-80.15,122.96,0.8)}
{pt3dadd(15.684,-80.15,123,0.8)}
{pt3dadd(16.577,-83.314,140.16,0.8)}
{pt3dadd(16.577,-83.495,138.96,0.8)}
{pt3dadd(16.034,-85.077,124.48,0.8)}
{pt3dadd(16.034,-85.247,124.48,0.8)}
{pt3dadd(15.153,-85.947,124.48,0.8)}
{pt3dadd(14.61,-85.947,124.48,0.8)}
{pt3dadd(12.475,-86.128,117.04,0.8)}
{pt3dadd(12.475,-85.947,117.04,0.8)}
{pt3dadd(12.475,-85.778,142.08,0.8)}
{pt3dadd(12.475,-85.597,142.88,0.8)}
{pt3dadd(13.006,-85.247,161.04,0.8)}
{pt3dadd(13.187,-85.247,160.96,0.8)}
{pt3dadd(12.836,-86.309,139.52,0.8)}
{pt3dadd(12.655,-87.009,139.52,0.8)}
{pt3dadd(11.763,-88.942,136.88,0.8)}
{pt3dadd(11.582,-89.111,136.16,0.8)}
{pt3dadd(11.763,-90.524,158.4,0.8)}
{pt3dadd(11.763,-90.874,158.4,0.8)}
{pt3dadd(11.232,-92.275,158.8,0.8)}
{pt3dadd(11.051,-92.806,159.04,0.8)}
{pt3dadd(11.232,-93.507,164.88,0.8)}
{pt3dadd(11.401,-93.688,164.88,0.8)}
{pt3dadd(11.582,-94.219,165.04,0.8)}
{pt3dadd(11.763,-95.439,166.16,0.8)}
{pt3dadd(11.763,-95.79,166.64,0.8)}
{pt3dadd(10.689,-98.083,170.32,0.8)}
{pt3dadd(10.52,-98.784,170.4,0.8)}
{pt3dadd(10.158,-99.315,170.4,0.8)}
{pt3dadd(8.915,-101.598,180.88,0.8)}
{pt3dadd(8.915,-101.767,181.36,0.8)}
{pt3dadd(6.599,-104.061,186.72,0.8)}
{pt3dadd(6.237,-104.411,186.72,0.8)}
{pt3dadd(4.994,-106.694,186.96,0.8)}
{pt3dadd(4.994,-106.864,186.96,0.8)}
{pt3dadd(4.813,-108.977,188.64,0.8)}
{pt3dadd(0.892,-108.626,192.48,0.8)}
{pt3dadd(0.892,-108.807,192.72,0.8)}
{pt3dadd(0.711,-109.157,193.2,0.8)}
{pt3dadd(0,-110.74,195.12,0.8)}
{pt3dadd(-0.18,-111.09,195.12,0.8)}
{pt3dadd(-0.531,-111.44,195.12,0.8)}
{pt3dadd(-2.497,-112.491,198.32,0.8)}
{pt3dadd(-2.678,-112.491,198.64,0.8)}
{pt3dadd(-2.678,-114.604,200.08,0.8)}
{pt3dadd(-2.497,-114.774,200.16,0.8)}
{pt3dadd(-2.497,-115.305,200.32,0.8)}
{pt3dadd(-2.316,-116.717,202.16,0.8)}
{pt3dadd(-2.316,-117.067,202.4,0.8)}
{pt3dadd(-2.135,-117.237,202.8,0.8)}
{pt3dadd(-0.711,-118.118,210.96,0.8)}
{pt3dadd(-0.361,-118.299,210.96,0.8)}
{pt3dadd(1.423,-119.881,211.12,0.8)}
{pt3dadd(1.423,-120.051,212.64,0.8)}
{pt3dadd(1.423,-121.102,213.76,0.8)}
{pt3dadd(1.423,-121.282,214.08,0.8)}
{pt3dadd(3.921,-123.395,215.12,0.8)}
{pt3dadd(4.101,-123.746,215.12,0.8)}

{apical_dendrite[22] connect apical_dendrite[112](0), 1}
{access apical_dendrite[112]}
{pt3dclear()}
{pt3dadd(20.848,-61.347,84.24,2.36)}
{pt3dadd(20.848,-61.347,84.28,0.8)}
{pt3dadd(27.447,-64.33,133.44,0.8)}
{pt3dadd(29.052,-65.562,135.84,0.8)}
{pt3dadd(29.402,-66.794,154.24,0.8)}
{pt3dadd(29.583,-67.144,154.16,0.8)}
{pt3dadd(29.583,-67.675,154.16,0.8)}
{pt3dadd(29.583,-69.607,156.8,0.8)}
{pt3dadd(32.08,-70.658,165.6,0.8)}
{pt3dadd(32.08,-70.839,165.6,0.8)}
{pt3dadd(36.182,-71.359,166.56,0.8)}
{pt3dadd(38.137,-77.868,173.76,0.8)}
{pt3dadd(38.137,-78.037,173.76,0.8)}
{pt3dadd(42.589,-79.269,173.84,0.8)}
{pt3dadd(42.589,-79.45,174.32,0.8)}
{pt3dadd(45.798,-81.563,184.24,0.8)}
{pt3dadd(46.872,-82.433,184.24,0.8)}
{pt3dadd(46.872,-85.597,174.24,0.8)}
{pt3dadd(48.115,-87.009,173.2,0.8)}
{pt3dadd(48.296,-87.009,173.2,0.8)}
{pt3dadd(50.793,-86.659,172.72,0.8)}
{pt3dadd(52.036,-87.71,173.68,0.8)}
{pt3dadd(52.036,-87.891,175.92,0.8)}
{pt3dadd(52.036,-90.693,194.96,0.8)}
{pt3dadd(52.036,-90.874,194.96,0.8)}
{pt3dadd(55.607,-92.987,194.96,0.8)}
{pt3dadd(55.788,-93.157,194.96,0.8)}
{pt3dadd(59.528,-95.62,194.96,0.8)}
{pt3dadd(59.528,-95.79,194.96,0.8)}
{pt3dadd(61.844,-97.021,194.96,0.8)}
{pt3dadd(62.025,-97.202,194.96,0.8)}
{pt3dadd(66.116,-98.253,194.96,0.8)}
{pt3dadd(66.297,-98.253,194.96,0.8)}
{pt3dadd(68.082,-100.897,205.2,0.8)}
{pt3dadd(68.263,-101.067,205.2,0.8)}
{pt3dadd(70.218,-106.513,205.2,0.8)}
{pt3dadd(70.398,-106.513,205.2,0.8)}
{pt3dadd(73.427,-108.807,205.2,0.8)}
{pt3dadd(74.67,-109.157,205.2,0.8)}
{pt3dadd(74.851,-109.327,205.2,0.8)}
{pt3dadd(78.06,-112.141,213.04,0.8)}
{pt3dadd(78.241,-112.141,213.04,0.8)}
{pt3dadd(85.721,-112.141,194.8,0.8)}
{pt3dadd(94.987,-117.067,194.8,0.8)}
{pt3dadd(94.987,-117.237,194.8,0.8)}
{pt3dadd(101.225,-120.582,194.8,0.8)}
{pt3dadd(101.406,-120.582,194.8,0.8)}
{pt3dadd(109.609,-125.848,194.8,0.8)}
{pt3dadd(109.779,-125.848,194.8,0.8)}
{pt3dadd(114.412,-132.176,205.44,0.8)}
{pt3dadd(114.412,-132.356,205.44,0.8)}
{pt3dadd(117.802,-137.272,205.44,0.8)}
{pt3dadd(118.164,-137.803,205.44,0.8)}
{pt3dadd(120.83,-143.25,205.44,0.8)}
{pt3dadd(121.011,-143.25,205.44,0.8)}
{pt3dadd(125.463,-145.713,210.24,0.8)}
{pt3dadd(125.463,-145.894,210.24,0.8)}
{pt3dadd(129.565,-148.527,210.24,0.8)}
{pt3dadd(129.746,-148.527,210.48,0.8)}
{pt3dadd(132.594,-149.408,215.68,0.8)}
{pt3dadd(134.198,-150.109,215.6,0.8)}
{pt3dadd(134.198,-150.29,215.6,0.8)}
{pt3dadd(134.379,-150.29,215.6,0.8)}

{apical_dendrite[15] connect apical_dendrite[113](0), 1}
{access apical_dendrite[113]}
{pt3dclear()}
{pt3dadd(14.441,-49.742,79.12,2.36)}
{pt3dadd(14.441,-49.742,79.16,0.8)}
{pt3dadd(17.288,-50.273,129.44,0.8)}
{pt3dadd(19.605,-50.974,111.6,0.8)}
{pt3dadd(19.786,-50.974,114.88,0.8)}
{pt3dadd(21.39,-50.273,110.64,0.8)}
{pt3dadd(24.769,-52.205,112.08,0.8)}
{pt3dadd(24.95,-52.375,112.16,0.8)}
{pt3dadd(25.843,-52.906,114.24,0.8)}
{pt3dadd(28.509,-53.607,105.36,1.1)}
{pt3dadd(29.764,-54.488,105.2,1.1)}
{pt3dadd(29.944,-54.838,105.12,1.1)}
{pt3dadd(30.295,-55.539,105.12,1.1)}
{pt3dadd(30.656,-56.771,105.12,1.1)}
{pt3dadd(30.826,-57.302,105.12,1.1)}
{pt3dadd(31.007,-57.833,105.12,1.1)}
{pt3dadd(31.188,-58.183,105.12,1.1)}
{pt3dadd(31.188,-58.353,105.12,1.1)}
{pt3dadd(32.08,-59.415,116.56,1.1)}
{pt3dadd(32.261,-59.415,116.56,1.1)}
{pt3dadd(34.397,-59.765,116.64,1.1)}
{pt3dadd(35.821,-60.285,116.72,0.8)}
{pt3dadd(35.821,-60.466,116.72,0.8)}
{pt3dadd(37.075,-62.929,116.72,0.8)}
{pt3dadd(37.075,-63.099,116.72,0.8)}
{pt3dadd(39.03,-65.031,120.64,0.8)}
{pt3dadd(39.391,-65.031,120.64,0.8)}
{pt3dadd(42.239,-66.443,120.64,0.8)}
{pt3dadd(42.239,-66.613,120.64,0.8)}
{pt3dadd(44.024,-68.545,120.64,0.8)}
{pt3dadd(44.555,-68.907,120.64,0.8)}
{pt3dadd(46.872,-70.127,120.56,0.8)}
{pt3dadd(47.584,-75.235,124.72,0.8)}

{apical_dendrite[113] connect apical_dendrite[114](0), 1}
{access apical_dendrite[114]}
{pt3dclear()}
{pt3dadd(47.584,-75.235,124.72,0.8)}
{pt3dadd(47.584,-75.235,124.76,0.8)}
{pt3dadd(47.765,-75.404,124.64,0.8)}
{pt3dadd(50.612,-77.337,124.64,0.8)}
{pt3dadd(50.793,-77.337,124.64,0.8)}
{pt3dadd(55.245,-78.037,124.64,0.8)}
{pt3dadd(55.426,-78.037,124.64,0.8)}
{pt3dadd(56.499,-79.1,124.64,0.8)}
{pt3dadd(57.923,-81.032,124.64,0.8)}
{pt3dadd(57.923,-81.201,124.64,0.8)}
{pt3dadd(59.528,-81.201,124.64,0.8)}
{pt3dadd(61.664,-85.597,124.64,0.8)}
{pt3dadd(64.161,-87.891,124.64,0.8)}
{pt3dadd(64.342,-88.06,124.64,0.8)}
{pt3dadd(66.297,-91.055,124.64,0.8)}
{pt3dadd(66.477,-91.224,124.64,0.8)}
{pt3dadd(67.901,-91.925,112.88,0.8)}
{pt3dadd(70.749,-96.852,112.96,0.8)}
{pt3dadd(71.11,-97.202,112.88,0.8)}
{pt3dadd(71.822,-98.083,112.56,0.8)}
{pt3dadd(72.715,-99.666,110.88,0.8)}
{pt3dadd(72.896,-99.666,110.88,0.8)}
{pt3dadd(74.67,-101.598,110.88,0.8)}
{pt3dadd(74.67,-101.767,110.88,0.8)}
{pt3dadd(74.851,-102.118,110.88,0.8)}
{pt3dadd(75.212,-103.349,110.88,0.8)}
{pt3dadd(75.212,-103.53,110.88,0.8)}
{pt3dadd(77.167,-104.411,110.64,0.8)}
{pt3dadd(77.167,-104.581,110.56,0.8)}
{pt3dadd(77.348,-106.694,110.32,0.8)}
{pt3dadd(77.529,-106.864,110.32,0.8)}
{pt3dadd(79.303,-107.926,110.32,0.8)}
{pt3dadd(79.303,-108.095,110.32,0.8)}
{pt3dadd(79.484,-110.208,110.32,0.8)}
{pt3dadd(79.484,-110.389,110.32,0.8)}
{pt3dadd(80.738,-113.372,110.48,0.8)}
{pt3dadd(80.907,-113.723,110.48,0.8)}
{pt3dadd(81.269,-114.254,110.48,0.8)}
{pt3dadd(86.083,-124.627,126.32,0.8)}
{pt3dadd(86.083,-124.797,126.32,0.8)}
{pt3dadd(86.252,-124.977,136.8,0.8)}


} //topol20()

//---------------------------------
proc topol21() {

{apical_dendrite[113] connect apical_dendrite[115](0), 1}
{access apical_dendrite[115]}
{pt3dclear()}
{pt3dadd(47.584,-75.235,124.72,0.8)}
{pt3dadd(47.211,-76.433,147.6,0.8)}
{pt3dadd(47.177,-76.602,147.6,0.8)}
{pt3dadd(47.957,-78.354,147.6,0.8)}
{pt3dadd(48.104,-78.557,147.6,0.8)}
{pt3dadd(48.827,-79.574,147.6,0.8)}
{pt3dadd(48.702,-80.263,147.6,0.8)}
{pt3dadd(48.782,-81.891,147.6,0.8)}
{pt3dadd(48.725,-82.23,147.6,0.8)}
{pt3dadd(50.443,-83.789,147.6,0.8)}
{pt3dadd(50.612,-83.812,147.6,0.8)}
{pt3dadd(56.161,-86.219,147.6,0.8)}
{pt3dadd(56.307,-86.422,147.6,0.8)}
{pt3dadd(62.308,-94.445,131.6,0.8)}
{pt3dadd(62.488,-94.479,131.6,0.8)}
{pt3dadd(69.845,-96.852,123.36,0.8)}
{pt3dadd(70.173,-97.089,123.36,0.8)}
{pt3dadd(72.534,-98.038,117.44,0.8)}
{pt3dadd(72.964,-98.648,117.28,0.8)}
{pt3dadd(74.918,-99.892,131.12,0.8)}
{pt3dadd(75.404,-101.225,120.32,0.8)}
{pt3dadd(79.416,-102.118,109.84,0.8)}
{pt3dadd(79.382,-102.287,109.84,0.8)}
{pt3dadd(81.845,-105.756,108.24,0.8)}
{pt3dadd(81.992,-105.96,107.28,0.8)}
{pt3dadd(84.569,-106.773,101.92,0.8)}
{pt3dadd(84.738,-106.796,102,0.8)}
{pt3dadd(90.546,-112.83,101.52,0.8)}
{pt3dadd(90.727,-112.853,101.52,0.8)}
{pt3dadd(95.665,-114.627,100,0.48)}
{pt3dadd(95.835,-114.649,100,0.48)}
{pt3dadd(98.807,-117.316,99.92,0.48)}
{pt3dadd(99.157,-117.384,99.92,0.48)}
{pt3dadd(104.05,-117.35,95.6,0.48)}
{pt3dadd(104.366,-117.587,95.76,0.48)}
{pt3dadd(109.632,-119.587,96.24,0.48)}
{pt3dadd(109.802,-119.621,96.24,0.48)}
{pt3dadd(110.152,-119.678,96.16,0.48)}

{apical_dendrite[14] connect apical_dendrite[116](0), 1}
{access apical_dendrite[116]}
{pt3dclear()}
{pt3dadd(13.899,-45.697,71.12,2.68)}
{pt3dadd(13.899,-45.697,71.16,1.1)}
{pt3dadd(12.294,-48.16,107.12,1.1)}
{pt3dadd(11.944,-49.742,107.12,1.1)}
{pt3dadd(11.763,-50.092,107.12,1.1)}
{pt3dadd(11.582,-50.623,107.12,1.1)}
{pt3dadd(11.582,-52.025,107.12,1.1)}
{pt3dadd(11.582,-52.375,107.12,1.1)}
{pt3dadd(11.401,-52.205,110.48,1.1)}

{apical_dendrite[116] connect apical_dendrite[117](0), 1}
{access apical_dendrite[117]}
{pt3dclear()}
{pt3dadd(11.401,-52.205,110.48,1.1)}
{pt3dadd(11.944,-52.375,110.48,1.1)}
{pt3dadd(12.113,-52.375,110.48,1.1)}
{pt3dadd(13.548,-52.556,110.48,1.1)}
{pt3dadd(11.051,-54.488,98.96,1.1)}
{pt3dadd(10.87,-54.488,99.2,1.1)}
{pt3dadd(9.627,-55.72,100.32,1.1)}
{pt3dadd(9.446,-55.72,100.32,1.1)}
{pt3dadd(9.627,-56.601,76.64,1.1)}
{pt3dadd(9.627,-56.771,76.32,1.1)}
{pt3dadd(10.339,-58.703,72.56,1.1)}
{pt3dadd(8.554,-61.166,66.88,1.1)}
{pt3dadd(8.373,-61.347,66.88,1.1)}
{pt3dadd(8.023,-61.697,66.88,1.1)}
{pt3dadd(7.311,-63.279,66.88,1.1)}
{pt3dadd(9.085,-65.212,61.12,1.1)}
{pt3dadd(9.265,-65.381,61.12,1.1)}
{pt3dadd(9.265,-68.545,58.32,1.1)}
{pt3dadd(9.085,-68.726,58.32,1.1)}

{apical_dendrite[116] connect apical_dendrite[118](0), 1}
{access apical_dendrite[118]}
{pt3dclear()}
{pt3dadd(11.401,-52.205,110.48,1.1)}
{pt3dadd(11.401,-52.205,110.52,0.8)}
{pt3dadd(11.401,-54.838,105.44,0.8)}
{pt3dadd(11.232,-54.838,106.16,0.8)}
{pt3dadd(11.232,-55.019,107.28,0.8)}
{pt3dadd(9.797,-57.121,119.36,0.8)}
{pt3dadd(9.797,-57.652,119.36,0.8)}
{pt3dadd(9.627,-58.183,119.36,0.8)}
{pt3dadd(8.915,-59.765,119.36,0.8)}
{pt3dadd(8.734,-60.116,119.36,0.8)}
{pt3dadd(8.023,-61.517,120.32,0.8)}
{pt3dadd(7.842,-61.697,120.96,0.8)}
{pt3dadd(7.13,-62.929,101.92,0.8)}
{pt3dadd(6.949,-63.099,102,0.8)}
{pt3dadd(6.237,-64.511,102,0.8)}
{pt3dadd(6.056,-65.031,102,0.8)}
{pt3dadd(4.813,-67.325,102,0.8)}
{pt3dadd(4.632,-67.845,102,0.8)}
{pt3dadd(3.209,-70.489,119.28,0.8)}
{pt3dadd(3.028,-70.658,119.2,0.8)}
{pt3dadd(2.847,-71.009,119.12,0.8)}
{pt3dadd(2.316,-74.353,124.64,0.8)}
{pt3dadd(2.316,-74.523,124.88,0.8)}
{pt3dadd(1.954,-75.235,125.2,0.8)}
{pt3dadd(-0.18,-78.037,126.4,0.8)}
{pt3dadd(-0.531,-78.399,126.4,0.8)}
{pt3dadd(-2.497,-80.851,132,0.8)}
{pt3dadd(-2.497,-81.032,132.08,0.8)}
{pt3dadd(-2.497,-81.732,132.08,0.8)}
{pt3dadd(-3.028,-85.427,137.2,0.8)}
{pt3dadd(-3.028,-88.241,131.52,0.8)}
{pt3dadd(-3.028,-88.942,131.52,0.8)}
{pt3dadd(-2.497,-91.055,140.64,0.8)}
{pt3dadd(-2.497,-91.224,140.72,0.8)}
{pt3dadd(-0.18,-92.987,147.84,0.8)}
{pt3dadd(0,-93.157,147.92,0.8)}
{pt3dadd(1.604,-94.388,147.84,0.8)}
{pt3dadd(1.785,-94.388,147.84,0.8)}
{pt3dadd(2.678,-95.97,147.84,0.8)}
{pt3dadd(2.678,-96.321,147.84,0.8)}
{pt3dadd(2.497,-98.603,151.92,0.8)}
{pt3dadd(3.74,-99.666,153.92,0.8)}
{pt3dadd(3.921,-99.666,154.08,0.8)}
{pt3dadd(2.678,-102.298,159.68,0.8)}
{pt3dadd(2.497,-102.649,159.68,0.8)}
{pt3dadd(1.954,-105.112,162.08,0.8)}
{pt3dadd(1.785,-105.462,162.48,0.8)}
{pt3dadd(0.892,-108.807,163.12,0.8)}
{pt3dadd(0.892,-109.677,162.56,0.8)}
{pt3dadd(1.242,-111.61,159.52,0.8)}
{pt3dadd(1.242,-112.141,159.36,0.8)}
{pt3dadd(2.316,-116.717,159.28,0.8)}
{pt3dadd(2.316,-116.887,159.44,0.8)}
{pt3dadd(2.497,-117.418,159.52,0.8)}


}


//-------------------------------------------------
//map-segments-to-3d.hoc
//-------------------------------------------------


// For each section location, define x,y,z coordinates so it can be
// displayed in 3-D

proc endpt() {
  P=(n3d()-1)*$1

  x_d3($1)=x3d(P)
  y_d3($1)=y3d(P)
  z_d3($1)=z3d(P)

}
proc fracpt() { local posn, A
  A=$1
  posn=$2
  x_d3(posn)=x3d(i-1) + (x3d(i) - x3d(i-1))*A
  y_d3(posn)=y3d(i-1) + (y3d(i) - y3d(i-1))*A
  z_d3(posn)=z3d(i-1) + (z3d(i) - z3d(i-1))*A

}
proc map_segments_to_3d() {

    forall {
    
    insert d3
    i=0
    endpt(0)

    for (x) if (x > 0 && x < 1) {

      while (arc3d(i)/L < x) {
        i += 1
      }
      D=arc3d(i) - arc3d(i-1)
      if (D <= 0) {
      printf("\t\t * %s had a D < 0\n", secname())
      }
      alpha = (x*L - arc3d(i-1))/D
      fracpt(alpha,x)

    }
    endpt(1)

  }
}



//------------------------------------------------
//vector-distance.hoc
//------------------------------------------------


// Given a reference point (ie, soma), an apex point, and a point of
// interest, (POI), this function returns the distance from the reference point to
// the POI. These three points are vectors with x,y,z as their values
// written by Terrence Brannon, last modified by Yiota Poirazi, July 2001, poirazi@LNC.usc.edu

objref RP, POI, APEX

proc pvec() {
  printf("%s: \t", $s1)
  $o2.printf("%f ")
}

proc pvecs() {
  pvec("RP", RP)
  pvec("APEX",APEX)
  pvec("POI",POI)
}

proc clear_vecs() {
  RP=new Vector()
  APEX=new Vector()
  POI=new Vector()
}

objref vhold
vhold=new Vector()


func vector_distance() { local adjustment
//  print "func vector_distance() {"

  clear_vecs()
  
  RP=$o1.c
  APEX=$o2.c
  POI=$o3.c
  adjustment = $4

//  pvecs()

  // Subtract Psoma: Qapex = Papex - Psoma. Therefore Qsoma=0,0,0

  APEX.sub(RP)
  POI.sub(RP)
    RP.sub(RP)

//    pvecs()

  // Normalize Qapex, Creating Uapex

  vhold=APEX.c
  vhold.mul(vhold)
  APEX_BAR=sqrt(vhold.sum())

//  printf("APEX_BAR: %f\n", APEX_BAR)

  APEX.div(APEX_BAR)

//  pvec("UAPEX", APEX)

  // Find length of projection of Qdend onto Uapex

  H = POI.dot(APEX) + adjustment
  
  H=abs(H)

  return(H)
}

objref fvd_vec
strdef fvd_str
func find_vector_distance() {

  fvd_vec=new Vector()
  sprint(fvd_str, "access %s", $s1)
  execute1(fvd_str)
  
  vcreate2(fvd_vec,0)
  
  return(vector_distance(vRP,vAPEX,fvd_vec,adjustment))
}

func find_vector_distance_precise() {

  fvd_vec=new Vector()
  sprint(fvd_str, "access %s", $s1)
  execute1(fvd_str)
  
  vcreate3(fvd_vec,$2)
  
  return(vector_distance(vRP,vAPEX,fvd_vec,adjustment))
}

proc vcreate() {
  $o1.append(x3d(0))
  $o1.append(y3d(0))
  $o1.append(z3d(0))
}

proc vcreate2() {
  $o1.append(x3d($2))
  $o1.append(y3d($2))
  $o1.append(z3d($2))
}

proc vcreate3() {
  $o1.append(x_d3($2))
  $o1.append(y_d3($2))
  $o1.append(z_d3($2))
}


//--------------------------------------------
//current-balance.hoc
//--------------------------------------------


// This function is used to balance the membrane potential to v_init (= -70 mV)
// written by Yiota Poirazi, July 2001, poirazi@LNC.usc.edu

proc current_balance() {

 
  finitialize(-70)
  
  fcurrent()



  //printf("Balancing each compartment to %d mV\n", $1)

  forall {
      for (x) {
        if (ismembrane("na_ion") && ismembrane("ca_ion") && ismembrane("Ca_ion") && (ismembrane("k_ion"))) {
            e_pas(x)=(ina(x)+ik(x)+ica(x)+iCa(x)+g_pas(x)*v(x))/g_pas(x) 
        } else if (ismembrane("na_ion") && ismembrane("ca_ion") && (ismembrane("k_ion"))){
            e_pas(x)=(ina(x)+ik(x)+ica(x)+g_pas(x)*v(x))/g_pas(x) 
        } else if (ismembrane("na_ion") && (ismembrane("k_ion"))) {
            e_pas(x)=(ina(x)+ik(x)+g_pas(x)*v(x))/g_pas(x)
          //printf("Section %s ina: %g ik: %g\n", secname(), ina(x), ik(x))
          //psection()
        } else {
          print "simply assigning v(x)"
          e_pas(x)=v(x)
        }
      fcurrent()
    }
  }
}








//------------------------------------------------------
// SR spine on apical_dendrite[41]
//------------------------------------------------------

proc add_spine41() {

{apical_dendrite[41] connect spine_neck41 (0), 0.5}
{access spine_neck41}
{pt3dclear()}
{pt3dadd(37.075,-107.576,135.68,0.2)} 
{pt3dadd(37.075,-108.576,135.68,0.2)} 

{spine_neck41 connect spine_head41 (0), 0.5}
{access spine_head41}
{pt3dclear()}
{pt3dadd(37.075,-108.576,135.68,0.5)} 
{pt3dadd(37.075,-109.076,135.68,0.5)} 

access apical_dendrite[41]
insert cad 

spine_neck41 { 
    
    nseg=10
    L=1
    diam=0.2
    Ra=46.815

    //parameters as in apical_dendrite[41]
    cm=1
    insert h { K_h=8.5 gbar_h=2.80564e-05 vhalf_h=-90}
    insert car { gcabar_car=3e-05}
    insert calH { gcalbar_calH=0.00145521}
    insert cat { gcatbar_cat=0.0001651}
    insert Ca_ion {}
    insert kca { gbar_kca=0.0005 gk_kca=2.78092e-11}
    insert mykca { gkbar_mykca=0.033}
    insert ca_ion { eca=140}
    insert km { gbar_km=0.06}
    insert kap { gkabar_kap=0}
    insert kad { gkabar_kad=0.0200894}
    insert hha_old { ar2_hha_old=0.574396 W_hha_old=0.016 gnabar_hha_old=0.007 gkbar_hha_old=0.000868 gl_hha_old=0 el_hha_old=-70}
    insert na_ion { ena=50}
    insert k_ion { ek=-77}
    insert pas { g_pas=6.51779e-06 e_pas=-79.8552}
    insert cad {}
}

spine_head41 { 
    nseg=5
    L=0.5 
    diam=0.5 
    Ra=46.815

    //parameters as in apical_dendrite[41]       
    cm=1
    insert h { K_h=8.5 gbar_h=2.80564e-05 vhalf_h=-90}
    insert car { gcabar_car=3e-05}
    insert calH { gcalbar_calH=0.00145521}
    insert cat { gcatbar_cat=0.0001651}
    insert Ca_ion {}
    insert kca { gbar_kca=0.0005 gk_kca=2.78092e-11}
    insert mykca { gkbar_mykca=0.033}
    insert ca_ion { eca=140}
    insert km { gbar_km=0.06}
    insert kap { gkabar_kap=0}
    insert kad { gkabar_kad=0.0200894}
    insert hha_old { ar2_hha_old=0.574396 W_hha_old=0.016 gnabar_hha_old=0.007 gkbar_hha_old=0.000868 gl_hha_old=0 el_hha_old=-70}
    insert na_ion { ena=50}
    insert k_ion { ek=-77}
    insert pas { g_pas=6.51779e-06 e_pas=-79.8552}
    insert ca_ion { eca=140} 
    insert cad {}      
}


}



//------------------------------------------------------
// spine on apical_dendrite[95]
//------------------------------------------------------

proc add_spine95() {

access apical_dendrite[95]

insert cad

{apical_dendrite[95] connect spine_neck95 (0), 0.5}
{access spine_neck95}
{pt3dclear()}
{pt3dadd(120.887,-358.526,192,0.2)}
{pt3dadd(120.887,-359.526,192,0.2)} //spine_neck L=1, increase in y by 1

{spine_neck95 connect spine_head95 (0), 0.5}
{access spine_head95}
{pt3dclear()}
{pt3dadd(120.887,-359.526,192,0.5)}
{pt3dadd(120.887,-360.026,192,0.5)} //spine_head L=0.5, increase in y by 0.5


spine_neck95 { 
    nseg=10
    L=1
    diam=0.2
    Ra=35.254

    //parameters as in apical_dendrite[95]
    cm=1
    insert h { K_h=8.5 gbar_h=0.000158699 vhalf_h=-90}
    
    //Original channels (Poirazi model)
    //insert calH { gcalbar_calH=0.00145521} //original 
    //insert cat { gcatbar_cat=0.000472061}
    //insert car { gcabar_car=3e-5}

    //no VGCC
    insert calH { gcalbar_calH=0} 
    insert cat { gcatbar_cat=0}
    insert car { gcabar_car=0}

    insert Ca_ion {}
    insert kca { gbar_kca=5e-05 gk_kca=3.19996e-21}
    insert mykca { gkbar_mykca=0.004125}
    insert km { gbar_km=0.06}
    insert kap { gkabar_kap=0}
    insert kad { gkabar_kad=0.048672}
    insert hha_old { ar2_hha_old=0.3 W_hha_old=0.016 gnabar_hha_old=0.007 gkbar_hha_old=0.000868 gl_hha_old=0 el_hha_old=-70}
    insert na_ion { ena=50}
    insert k_ion { ek=-77}
    insert pas { g_pas=6.84217e-05 e_pas=-79.2517}
    insert ca_ion { eca=140} 
    insert cad 
        
}

spine_head95 { 
    nseg=5
    L=0.5
    diam=0.5
    Ra=35.254

    //parameters as in apical_dendrite[95]
    cm=1
    insert h { K_h=8.5 gbar_h=0.000158699 vhalf_h=-90}
    
    //Original channels (Poirazi model)
    //insert calH { gcalbar_calH=0.00145521} //original 
    //insert cat { gcatbar_cat=0.000472061}
    //insert car { gcabar_car=3e-5}

    //no VGCC
    insert calH { gcalbar_calH=0} 
    insert cat { gcatbar_cat=0}
    insert car { gcabar_car=0}

    insert Ca_ion {}
    insert kca { gbar_kca=5e-05 gk_kca=3.19996e-21}
    insert mykca { gkbar_mykca=0.004125}
    insert km { gbar_km=0.06}
    insert kap { gkabar_kap=0}
    insert kad { gkabar_kad=0.048672}
    insert hha_old { ar2_hha_old=0.3 W_hha_old=0.016 gnabar_hha_old=0.007 gkbar_hha_old=0.000868 gl_hha_old=0 el_hha_old=-70}
    insert na_ion { ena=50}
    insert k_ion { ek=-77}
    insert pas { g_pas=6.84217e-05 e_pas=-79.2517}
    insert ca_ion { eca=140} 
    insert cad 

}
}


//------------------------------------------------------------
//spine SO5
//------------------------------------------------------------

proc add_spineSO5() {

{dendrite[5] connect spine_neckSO5 (0), 0.5}
{access spine_neckSO5}
{pt3dclear()}

{pt3dadd(26.374,-42.363,161.6,0.2)} //spine_neck d=0.2
{pt3dadd(26.374,-43.363,161.6,0.2)} //spine_neck L=1, decrease in y by 1

{spine_neckSO5 connect spine_headSO5 (0), 0.5}
{access spine_headSO5}
{pt3dclear()}

{pt3dadd(26.374,-43.363,161.6,0.5)} //spine_head d=0.5 
{pt3dadd(26.374,-43.863,161.6,0.5)} //spine_neck L=1, decrease in y by 0.5


access dendrite[5]
insert cad 

spine_neckSO5 { 
    nseg=10
    L=1
    diam=0.2
    Ra=50

    //parameters as in dendrite[5]
    cm=1
    insert ca_ion { eca=140}
    insert hha_old { ar2_hha_old=1 W_hha_old=0.016 gnabar_hha_old=0.007 gkbar_hha_old=0.000868 gl_hha_old=0 el_hha_old=-70}
    insert pas { g_pas=5.24538e-06 e_pas=-82.2171}
    insert kap { gkabar_kap=0.012}
    insert kad { gkabar_kad=0}
    insert k_ion { ek=-77}
    insert h { K_h=8.5 gbar_h=1.872e-05 vhalf_h=-90}
    insert na_ion { ena=50}
    insert cad 
}

// spine headSO5

spine_headSO5 { 
    nseg=5
    L=0.5 
    diam=0.5 
    Ra=50
    
    //parameters as in dendrite[5]
    cm=1
    insert ca_ion { eca=140}
    insert hha_old { ar2_hha_old=1 W_hha_old=0.016 gnabar_hha_old=0.007 gkbar_hha_old=0.000868 gl_hha_old=0 el_hha_old=-70}
    insert pas { g_pas=5.24538e-06 e_pas=-82.2171}
    insert kap { gkabar_kap=0.012}
    insert kad { gkabar_kad=0}
    insert k_ion { ek=-77}
    insert h { K_h=8.5 gbar_h=1.872e-05 vhalf_h=-90}
    insert na_ion { ena=50}
    insert cad 

}

}


//-------------------------------------------------------------
// Synapses
//-------------------------------------------------------------

obfunc connect2target() { localobj nc //$o1 target point process, optional $o2 returned NetCon
  soma nc = new NetCon(&v(1), $o1)
  nc.threshold = -10
  if (numarg() == 2) { $o2 = nc } // for backward compatibility
  return nc
}

objref syn_
objref syn

proc synapses(){ local nsynEC, nsynCA3 localobj SectionEC, SectionCA3, SectionBS, randomize_location 
	/* E0 */
        apical_dendrite[85] syn_ = new MyExp2Syn(0.5) 
        pre_list.append(syn_)	// AMPA		EC input
        syn_.tau1 = 0.5
    	syn_.tau2 = 3
    	syn_.e = 0

        /* E1 */   	
        apical_dendrite[95] syn_ = new MyExp2Syn(0.5)  pre_list.append(syn_)	// AMPA		EC input
        syn_.tau1 = 0.5
    	syn_.tau2 = 3
    	syn_.e = 0

        /* E2 */   	
        apical_dendrite[48] syn_ = new MyExp2Syn(0.5)  pre_list.append(syn_)	// AMPA		CA3 Schaffer collaterals
        syn_.tau1 = 0.5
    	syn_.tau2 = 3
    	syn_.e = 0

        /* E3 */   
	apical_dendrite[48] syn_ = new NMDA(0.5)  pre_list.append(syn_)		// NMDA		CA3 Schaffer collaterals
    	syn_.tcon = 2.3	
    	syn_.tcoff = 100
    	syn_.gNMDAmax = 1	// use connection weight to determine max cond
  	
        /* E4 */  
        apical_dendrite[6]  syn_ = new MyExp2Syn(0.5)  pre_list.append(syn_)	// AMPA		PC recurrent input
    	syn_.tau1 = 0.5
    	syn_.tau2 = 3
    	syn_.e = 0
  	
        /* I5 */   	
        soma[3] syn_ = new MyExp2Syn(0.5)  pre_list.append(syn_)		// GABA-A	B cell
    	syn_.tau1 = 1
    	syn_.tau2 = 8
    	syn_.e = -75

  	/* I6 */   	
        dendrite[18] syn_ = new MyExp2Syn(0.1)  pre_list.append(syn_)		// GABA-A	AA cell
    	syn_.tau1 = 1
    	syn_.tau2 = 8
    	syn_.e = -75

  	/* I7 */
	apical_dendrite[85]  syn_ = new MyExp2Syn(0.5) pre_list.append(syn_)	// GABA-A	OLM cells
    	syn_.tau1 = 1
    	syn_.tau2 = 8
    	syn_.e = -75

  	/* I8 */
	apical_dendrite[95]  syn_ = new MyExp2Syn(0.5) pre_list.append(syn_)	// GABA-A	OLM cells
    	syn_.tau1 = 1
    	syn_.tau2 = 8
    	syn_.e = -75

  	/* I9 */
	apical_dendrite[85]  syn_ = new MyExp2Syn(0.5) pre_list.append(syn_)	// GABA-B	OLM cells
    	syn_.tau1 = 35
    	syn_.tau2 = 100
    	syn_.e = -75

  	/* I10 */
	apical_dendrite[95] syn_ = new MyExp2Syn(0.5) pre_list.append(syn_)	// GABA-B	OLM cells
    	syn_.tau1 = 35
    	syn_.tau2 = 100
    	syn_.e = -75

  	/* I11 */
   	apical_dendrite[64] syn_ = new MyExp2Syn(0.5)  pre_list.append(syn_)	// GABA-A	BS cells
    	syn_.tau1 = 1
    	syn_.tau2 = 8
    	syn_.e = -75

  	/* I12 */
        apical_dendrite[60] syn_ = new MyExp2Syn(0.5)  pre_list.append(syn_)	// GABA-A	BS cells
    	syn_.tau1 = 1
    	syn_.tau2 = 8
    	syn_.e = -75

  	/* I13 */
   	apical_dendrite[46] syn_ = new MyExp2Syn(0.5)  pre_list.append(syn_)	// GABA-A	BS cells
    	syn_.tau1 = 1
    	syn_.tau2 = 8
    	syn_.e = -75

  	/* I14 */ 
  	apical_dendrite[16] syn_ = new MyExp2Syn(0.4)  pre_list.append(syn_)	// GABA-A	BS cells
   	syn_.tau1 = 1
    	syn_.tau2 = 8
    	syn_.e = -75

  	/* I15 */ 
  	apical_dendrite[14] syn_ = new MyExp2Syn(0.5)  pre_list.append(syn_)	// GABA-A	BS cells
    	syn_.tau1 = 1
    	syn_.tau2 = 8
    	syn_.e = -75

  	/* I16 */  
 	apical_dendrite[6] syn_ = new MyExp2Syn(0.5)  pre_list.append(syn_)	// GABA-A	BS cells
    	syn_.tau1 = 1
    	syn_.tau2 = 8
    	syn_.e = -75

  	/* I17 */ 
  	apical_dendrite[64] syn_ = new MyExp2Syn(0.5)  pre_list.append(syn_)	// GABA-B	BS cells
    	syn_.tau1 = 35
    	syn_.tau2 = 100
    	syn_.e = -75

  	/* I18 */ 
  	apical_dendrite[60] syn_ = new MyExp2Syn(0.5)  pre_list.append(syn_)	// GABA-B	BS cells
    	syn_.tau1 = 35
    	syn_.tau2 = 100
    	syn_.e = -75

  	/* I19 */  
 	apical_dendrite[46] syn_ = new MyExp2Syn(0.5)  pre_list.append(syn_)	// GABA-B	BS cells
    	syn_.tau1 = 35
    	syn_.tau2 = 100
    	syn_.e = -75

  	/* I20 */
   	apical_dendrite[16] syn_ = new MyExp2Syn(0.5)  pre_list.append(syn_)	// GABA-B	BS cells
    	syn_.tau1 = 35
    	syn_.tau2 = 100
    	syn_.e = -75

  	/* I21 */
   	apical_dendrite[14] syn_ = new MyExp2Syn(0.5)  pre_list.append(syn_)	// GABA-B	BS cells
    	syn_.tau1 = 35
    	syn_.tau2 = 100
    	syn_.e = -75

  	/* I22 */ 
  	apical_dendrite[6] syn_ = new MyExp2Syn(0.5)  pre_list.append(syn_)	// GABA-B	BS cells
    	syn_.tau1 = 35
    	syn_.tau2 = 100
    	syn_.e = -75

    	/* E23 */ 
  	apical_dendrite[48] syn_ = new STDPE2(0.5)  pre_list.append(syn_)		// AMPA modifiable	CA3 Schaffer collaterals
	syn_.tau1 = 0.5
	syn_.tau2 = 3
	syn_.e = 0
      
        /* E24 SO spine on basal dendrite dendrite[5]*/   	
        spine_headSO5 syn_ = new MyExp2Syn(0.5)  pre_list.append(syn_)			// AMPA		CA3 Schaffer collaterals
        syn_.tau1 = 0.5
        syn_.tau2 = 3
        syn_.e = 0

        /* E25 SO spine on basal dendrite dendrite[5]*/  
        spine_headSO5 syn = new NMDAca(0.5) pre_list.append(syn)			//NMDA		CA3 Schaffer collaterals
        syn.fCa = 0.1	// fraction of Ca current (Bloodgood & Sabatini)
        syn.tcon = 3	
        syn.tcoff = 100
        syn.mgconc = 1	// (mM) standard Mg conc
        syn.gamma = 0.08	// Larkum Science 2009 (sharpens voltage curve)

        /* E26 SO spine on basal dendrite dendrite[5]*/    
	spine_headSO5 syn_ = new NMDA(0.5)  pre_list.append(syn_)			// NMDA		CA3 Schaffer collaterals
    	syn_.tcon = 2.3	
    	syn_.tcoff = 100
    	syn_.gNMDAmax = 1	// use connection weight to determine max cond
     
        /* E27 spine on apical dendrite apical_dendrite[41] */   
        spine_head41 syn_ = new MyExp2Syn(0.5)  pre_list.append(syn_)			// AMPA		CA3 Schaffer collaterals
        syn_.tau1 = 0.5
    	syn_.tau2 = 3
    	syn_.e = 0

        /* E28  spine on apical dendrite apical_dendrite[41] */   			// NMDA		CA3 Schaffer collaterals
        spine_head41 syn = new NMDAca(0.5) pre_list.append(syn)
        syn.fCa = 0.1	// fraction of Ca current (Bloodgood & Sabatini)
        syn.tcon = 3	
        syn.tcoff = 100
        syn.mgconc = 1	// (mM) standard Mg conc
        syn.gamma = 0.08	// Larkum Science 2009 (sharpens voltage curve)

        //for plotting in a shape plot	
        spine_head41 syn = new NMDAca(0.5) synapse_list.append(syn)
    
        /* E29 spine on apical_dendrite[95] */ 
    	spine_head95 syn_ = new MyExp2Syn(0.5)  pre_list.append(syn_)			// AMPA		EC input
    	syn_.tau1 = 0.5   
    	syn_.tau2 = 3
    	syn_.e = 0

        /* E30   spine on apical_dendrite[95] */    					// NMDA		CA3 Schaffer collaterals
        spine_head95 syn = new NMDAca(0.5) pre_list.append(syn)
        syn.fCa = 0.1	// fraction of Ca current (Bloodgood & Sabatini)
        syn.tcon = 3	
        syn.tcoff = 100
        syn.mgconc = 1	// (mM) standard Mg conc
        syn.gamma = 0.08	// Larkum Science 2009 (sharpens voltage curve)

        /* E31 spine on apical_dendrite[95] */   
    	spine_head95 syn_ = new STDPE2(0.5)  pre_list.append(syn_)			// AMPA modifiable	
	syn_.tau1 = 0.5
	syn_.tau2 = 3
	syn_.e = 0

  
        /*E32-E51*/ 
        //20 EC input AMPA on PC, random location
        SectionEC=$o1  
        randomseed=2
        randomize_location = new RandomLocation(SectionEC, randomseed)
        nsynEC=20
        objref synEC[nsynEC] //EC AMPA synapses on PC
     
        for i=0,nsynEC-1 {
	        synEC[i] = new MyExp2Syn(0.5)  
    		synEC[i].tau1 = 0.5
    		synEC[i].tau2 = 3
    		synEC[i].e = 0
        	randomize_location.loc(synEC[i]) 
        	pre_list.append(synEC[i])
        }

   
       /*E52-E151*/ 
       //100 CA3 input AMPA on PC, random location 
       SectionCA3=$o2  
       randomseed=2
       randomize_location = new RandomLocation(SectionCA3, randomseed)
       nsynCA3=100
       objref synCA3[nsynCA3] //CA3 AMPA synapses on PC
     
       for i=0,nsynCA3-1 {
      		synCA3[i] = new MyExp2Syn(0.5)  
    		synCA3[i].tau1 = 0.5
    		synCA3[i].tau2 = 3
    		synCA3[i].e = 0
      		randomize_location.loc(synCA3[i]) 
      		pre_list.append(synCA3[i])
       }


    
     	/*I152-I171*/     
     	//20 BS GABAA input on PC, random location
        SectionBS=$o3  
     	randomseed=2
     	randomize_location = new RandomLocation(SectionBS, randomseed)

     	nsynBSA=20
     	objref synBSA[nsynBSA] //BS GABAA synapses on PC
     
     	for i=0,nsynBSA-1 {
      		synBSA[i] = new MyExp2Syn(0.5)  
    		synBSA[i].tau1 = 1
    		synBSA[i].tau2 = 8
    		synBSA[i].e = -75
      		randomize_location.loc(synBSA[i]) 
      		pre_list.append(synBSA[i])
         }

    
        /*I172-I191*/ 
        //20 BS GABAB input on PC, random location 
        randomseed=1
        randomize_location = new RandomLocation(SectionBS, randomseed)
     	nsynBSB=20//100
     	objref synBSB[nsynBSB] //BS GABAB synapses on PC
     
     	for i=0,nsynBSB-1 {
      		synBSB[i] = new MyExp2Syn(0.5) 
    		synBSB[i].tau1 = 35
    		synBSB[i].tau2 = 100
    		synBSB[i].e = -75
      		randomize_location.loc(synBSB[i]) 
      		pre_list.append(synBSB[i])
        }

}

//-----------------------------------

func is_art() { return 0 }

//----------------------------------------------------------------------------

endtemplate PyramidalCell