| | |
| | | /* vim: set ts=4 sts=4 sw=4 noet : */ |
| | | #include<stdlib.h> |
| | | #include<math.h> |
| | | #include<stdio.h> |
| | |
| | | #include "poly.h" |
| | | #include "io.h" |
| | | #include "sh.h" |
| | | #include "shcomplex.h" |
| | | |
| | | ts_vesicle *initial_distribution_dipyramid(ts_uint nshell, ts_uint ncmax1, ts_uint ncmax2, ts_uint ncmax3, ts_double stepsize){ |
| | | ts_fprintf(stdout,"Starting initial_distribution on vesicle with %u shells!...\n",nshell); |
| | |
| | | |
| | | ts_vesicle *create_vesicle_from_tape(ts_tape *tape){ |
| | | ts_vesicle *vesicle; |
| | | ts_vertex *vtx; |
| | | |
| | | vesicle=initial_distribution_dipyramid(tape->nshell,tape->ncxmax,tape->ncymax,tape->nczmax,tape->stepsize); |
| | | vesicle->tape=tape; |
| | | set_vesicle_values_from_tape(vesicle); |
| | | return vesicle; |
| | | } |
| | | |
| | | ts_bool set_vesicle_values_from_tape(ts_vesicle *vesicle){ |
| | | // Nucleus: |
| | | ts_vertex *vtx; |
| | | ts_tape *tape=vesicle->tape; |
| | | vesicle->R_nucleus=tape->R_nucleus*tape->R_nucleus; |
| | | |
| | | vesicle->clist->dmin_interspecies = tape->dmin_interspecies*tape->dmin_interspecies; |
| | |
| | | vesicle->pressure= tape->pressure; |
| | | vesicle->pswitch=tape->pswitch; |
| | | if(tape->shc>0){ |
| | | vesicle->sphHarmonics=sph_init(vesicle->vlist,tape->shc); |
| | | vesicle->sphHarmonics=complex_sph_init(vesicle->vlist,tape->shc); |
| | | } |
| | | else { |
| | | vesicle->sphHarmonics=NULL; |
| | | } |
| | | return vesicle; |
| | | return TS_SUCCESS; |
| | | |
| | | } |
| | | |