Page Menu
Home
c4science
Search
Configure Global Search
Log In
Files
F96962796
o_set_map_mc.c
No One
Temporary
Actions
Download File
Edit File
Delete File
View Transforms
Subscribe
Mute Notifications
Award Token
Subscribers
None
File Metadata
Details
File Info
Storage
Attached
Created
Wed, Jan 1, 03:43
Size
1 KB
Mime Type
text/x-c
Expires
Fri, Jan 3, 03:43 (2 d)
Engine
blob
Format
Raw Data
Handle
23300499
Attached To
R1448 Lenstool-HPC
o_set_map_mc.c
View Options
#include<stdio.h>
#include<math.h>
#include<fonction.h>
#include<constant.h>
#include<dimension.h>
#include<structure.h>
/****************************************************************/
/* nom: o_set_map_mc */
/* auteur: Ghislain Golse */
/* date: 10/00 */
/* place: Toulouse */
/* determination des parametres qui vont varier par o_run_mc */
/* pour obtenir une carte de chi2 dans le cas de */
/* l'optimisation des parametres par MC */
/****************************************************************/
void o_set_map_mc()
{
extern struct g_mode M;
extern struct g_grille G;
// extern struct g_image I;
extern struct pot lens[]; //,lmin[],lmax[],prec[];
// extern struct z_lim zlim[];
extern struct ipot ip;
extern int block[NLMAX][NPAMAX];
register int ils, ipx;//i,
ip.map = 0;
if (lens[0].type != 10)
{
for (ils = 0; ils < G.no_lens; ils++)
for (ipx = 0; ipx < ip.pmax; ipx++)
{
if (block[ils][ipx] == 1)
{
NPRINTF(stderr, "map %d %d\n", ils, ipx);
ip.lens[ip.map] = ils;
ip.para[ip.map] = ipx;
ip.map++;
}
};
}
else /* spline map */
{
}
NPRINTF(stderr, "grid for %d parameter(s)\n", ip.map);
}
Event Timeline
Log In to Comment