linse/sics
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

- GPIB/ECB modules completed, ecb motor driver in progress

Browse Source
This commit is contained in:
cvs
2003-01-17 16:09:34 +00:00
parent bbc0b64c43
commit f45c3ebf55
27 changed files with 2030 additions and 84 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
fourlib.c
View File

@ -188,8 +188,8 @@ void pol2det(psdDescription *psd, double gamma, double nu, int *x, int *y){
g = psd->distance*(1. + tn*tn +tn*tn*td*td);
zobs = psd->distance*(atan(tn*e) + asin(f/g));
xobs = td*(psd->distance*cos(zobs/psd->distance));
*y = (int)nint(psd->yZero + zobs/psd->yScale);
*x = (int)nint(psd->xZero + xobs/psd->xScale);
*y = (int)rint(psd->yZero + zobs/psd->yScale);
*x = (int)rint(psd->xZero + xobs/psd->xScale);
}
/*--------------- bisecting geometry code -----------------------------*/