| | |
| | | /* vim: set ts=4 sts=4 sw=4 noet : */ |
| | | #include<math.h> |
| | | #include<stdlib.h> |
| | | #include<string.h> |
| | | #include<gsl/gsl_complex.h> |
| | | #include<gsl/gsl_complex_math.h> |
| | | #include<gsl/gsl_sf_legendre.h> |
| | |
| | | char *Ulm2Complex2String(ts_vesicle *vesicle){ |
| | | ts_int i,j; |
| | | char *strng=(char *)calloc(5000, sizeof(char)); |
| | | char tmpstrng[255]; |
| | | for(i=0;i<vesicle->sphHarmonics->l;i++){ |
| | | for(j=i;j<2*i+1;j++){ |
| | | sprintf(strng,"%e ", gsl_complex_abs2(vesicle->sphHarmonics->ulmComplex[i][j])); |
| | | sprintf(tmpstrng,"%e ", gsl_complex_abs2(vesicle->sphHarmonics->ulmComplex[i][j])); |
| | | strcat(strng,tmpstrng); |
| | | } |
| | | } |
| | | sprintf(strng,"\n"); |
| | | //strcat(strng,"\n"); |
| | | |
| | | return strng; |
| | | } |