From a7fb2b94260897ec914f0bbf31698e166263036c Mon Sep 17 00:00:00 2001
From: Samo Penic <samo.penic@gmail.com>
Date: Mon, 13 Apr 2020 12:15:39 +0000
Subject: [PATCH] Removed some old non-essential files
---
/dev/null | 82 -----------------------------------------
1 files changed, 0 insertions(+), 82 deletions(-)
diff --git a/src/co_test.c b/src/co_test.c
deleted file mode 100644
index 0a5e23e..0000000
--- a/src/co_test.c
+++ /dev/null
@@ -1,73 +0,0 @@
-/* vim: set ts=4 sts=4 sw=4 noet : */
-#include "general.h"
-#include "sh.h"
-#include <stdlib.h>
-#include "vesicle.h"
-#include "initial_distribution.h"
-#include "frame.h"
-#include <math.h>
-
-int main(){
-ts_vesicle *vesicle=initial_distribution_dipyramid(17,60,60,60,0.15);
-//parsetape(vesicle,&i);
-
-//these four must come from parsetype!
-vesicle->dmax=1.67*1.67;
-vesicle->stepsize=0.15;
-vesicle->clist->max_occupancy=8;
-vesicle->bending_rigidity=25.0;
-fprintf(stderr,"xk=%f\n",vesicle->bending_rigidity);
-
-centermass(vesicle);
-vesicle->sphHarmonics=sph_init(vesicle->vlist, 21);
-int i,j;
-ts_double area;
-for(i=1;i<=vesicle->sphHarmonics->l;i++){
- for(j=1;j<=2*i+1;j++){
- fprintf(stderr,"co(%d,%d)=%e\n",i,j,vesicle->sphHarmonics->co[i][j]);
- }
-}
-ts_double r0;
-vesicle_volume(vesicle);
-fprintf(stderr,"Volume=%e\n",vesicle->volume);
-r0=getR0(vesicle);
-fprintf(stderr,"r0=%e\n",r0);
-area=0;
-for(i=0;i<vesicle->tlist->n;i++){
- area+=vesicle->tlist->tria[i]->area;
-}
-fprintf(stderr,"area_dipyramid=%e\n",area);
-fprintf(stderr,"Centroid=(%e,%e,%e)\n", vesicle->cm[0],vesicle->cm[1],vesicle->cm[2]);
-
-preparationSh(vesicle,r0);
-calculateYlmi(vesicle);
-/*
-ts_coord *coord=(ts_coord *)malloc(sizeof(ts_coord));
-ts_double fi, theta;
-
- for(i=0;i<vesicle->vlist->n;i++){
-
- cart2sph(coord,vesicle->vlist->vtx[i]->x, vesicle->vlist->vtx[i]->y, vesicle->vlist->vtx[i]->z);
- fi=coord->e2;
- theta=coord->e3;
-
-
- fprintf(stderr,"VTX(x,y,z,fi,theta)=%e,%e,%e,%e,%e ---> Ylmi(2,-2,%d)=%9.7e <---- data: omega=%e, r0=%e, plgndr(2,abs(-2),cos(theta))=%e, co(2,-2)=%e cos((m-l-1)*fi)=%e\n",vesicle->vlist->vtx[i]->x, vesicle->vlist->vtx[i]->y, vesicle->vlist->vtx[i]->z,fi,theta,i+1,vesicle->sphHarmonics->Ylmi[2][0][i], vesicle->vlist->vtx[i]->solAngle, vesicle->vlist->vtx[i]->relR, plgndr(2,abs(-2),cos(theta)), vesicle->sphHarmonics->co[2][1], cos(-2*fi));
-
- }
-
-free(coord);
-*/
-calculateUlm(vesicle);
-for(i=0;i<vesicle->sphHarmonics->l;i++){
- for(j=0;j<2*i+1;j++){
- fprintf(stderr,"ulm(%d,%d)=%e\n",i,j+1,vesicle->sphHarmonics->ulm[i][j]);
- }
-}
-
-storeUlm2(vesicle);
-
-sph_free(vesicle->sphHarmonics);
-vesicle_free(vesicle);
-return 0;
-}
diff --git a/src/shdiscover.c b/src/shdiscover.c
deleted file mode 100644
index cf155ac..0000000
--- a/src/shdiscover.c
+++ /dev/null
@@ -1,82 +0,0 @@
-/* vim: set ts=4 sts=4 sw=4 noet : */
-#include "general.h"
-#include "vertex.h"
-#include "initial_distribution.h"
-#include "io.h"
-#include "vesicle.h"
-#include "sh.h"
-#include "frame.c"
-#include <math.h>
-#include <stdlib.h>
-int main(int argc, char *argv[]){
-
-ts_fprintf(stdout,"SHdiscover was called with %d coefficients!\n",argc-1);
-ts_uint n,i,j,l;
-ts_int m;
-ts_double fi,theta,r,Y;
-ts_vesicle *vesicle=initial_distribution_dipyramid(17,60,60,60,0.15);
-ts_vertex_list *vlist=vesicle->vlist;
-centermass(vesicle);
-ts_fprintf(stdout,"Vesicle has a CenterMass in %f,%f,%f\n",vesicle->cm[0],vesicle->cm[1], vesicle->cm[2]);
-
-n=vlist->n;
-
-ts_fprintf(stdout,"Tests\n");
-ts_fprintf(stdout,"P(0,0,0.5)=%f (%f)\n",plgndr(0,0,0.5),1.0);
-ts_fprintf(stdout,"P(1,0,0.5)=%f (%f)\n",plgndr(1,0,0.5),0.5);
-ts_fprintf(stdout,"P(2,0,0.5)=%f (%f)\n",plgndr(2,0,0.5),0.5*(3*0.5*0.5-1));
-ts_fprintf(stdout,"P(2,2,0.5)=%f (ni to:%f)\n",plgndr(2,2,0.5),0.5*(3*0.5*0.5-1));
-
-ts_fprintf(stdout,"Y(0,0,pi/6,pi/4)=%f (%f)\n",shY(0,0,M_PI/6,M_PI/4),sqrt(1/(4*M_PI)));
-ts_fprintf(stdout,"Y(1,0,pi/6,pi/4)=%f (%f)\n",shY(1,0,M_PI/6,M_PI/4),sqrt(3/(4*M_PI))*cos(M_PI/6));
-ts_fprintf(stdout,"Y(1,0,4*pi/6,6*pi/4)=%f (%f)\n",shY(1,0,4*M_PI/6,6*M_PI/4),sqrt(3/(4*M_PI))*cos(4*M_PI/6));
-ts_fprintf(stdout,"Y(1,1,pi/6,pi/4)=%f (%f)\n",shY(1,1,M_PI/6,M_PI/4),-sqrt(3/(8*M_PI))*sin(M_PI/6)*cos(M_PI/4));
-ts_fprintf(stdout,"Y(2,0,pi/6,pi/4)=%f (%f)\n",shY(2,0,M_PI/6,M_PI/4),sqrt(5/(4*M_PI))*(3.0/2.0*cos(M_PI/6)*cos(M_PI/6)-1.0/2.0));
-ts_fprintf(stdout,"Y(2,-2,pi/6,pi/4)=%f (0)\n",shY(2,-2,M_PI/6,M_PI/4));
-ts_fprintf(stdout,"Y(2,2,pi/6,pi/3)=%f (%f)\n",shY(2,2,M_PI/6,M_PI/3), sqrt(15.0/(32.0*M_PI))*sin(M_PI/6)*sin(M_PI/6)*cos(2*M_PI/3));
-
- for(j=1;j<argc;j++){
- l=(int)sqrt(j-1); /* determine l from dataline */
- m=j-1-l*(l+1); /* determine m from dataline */
- ts_fprintf(stdout,"l=%d, m=%d, u=%s\n",l,m,argv[j]);
- }
-
-/*we calculate new position of each vertex of vesicle */
-for(i=0;i<n;i++){
- fi=atan2(vlist->vtx[i]->y, vlist->vtx[i]->x);
-/* theta=atan2(
- sqrt(vlist->vtx[i]->data->x*vlist->vtx[i]->data->x +
- vlist->vtx[i]->data->y*vlist->vtx[i]->data->y),
- vlist->vtx[i]->data->z
- ); */
- theta=acos(
- vlist->vtx[i]->z /
- sqrt(vlist->vtx[i]->x*vlist->vtx[i]->x +
- vlist->vtx[i]->y*vlist->vtx[i]->y+
- vlist->vtx[i]->z*vlist->vtx[i]->z)
-
- );
-
-
-
- r=0.0;
- for(j=1;j<argc;j++){
- l=(int)sqrt(j-1); /* determine l from dataline */
- m=j-1-l*(l+1); /* determine m from dataline */
- Y=shY(l,m,theta,fi);
- r+=fabs(atof(argv[j])*Y);
- /*ts_fprintf(stdout,"l=%d, m=%d, u=%s\n",l,m,argv[j]);*/
- }
-
- vlist->vtx[i]->z=fabs(r)*cos(theta);
- vlist->vtx[i]->x=fabs(r)*sin(theta)*cos(fi);
- vlist->vtx[i]->y=fabs(r)*sin(theta)*sin(fi);
-}
-
-write_vertex_xml_file(vesicle,0);
-write_master_xml_file("test.pvd");
-
-
-vesicle_free(vesicle);
-return 0;
-}
--
Gitblit v1.9.3