856 double *dd,
tt, mx, my, rad;
880 for (dl = dl0; dl; dl = dl->
dl_next) {
896 if (ylims[0] > ylims[1]) {
901 if (dd[0] < ylims[0]) ylims[0] = dd[0];
902 if (dd[1] > ylims[1]) ylims[1] = dd[1];
909 for (dl = dl0; dl; dl = dl->
dl_next) {
912 if (ylims[0] > ylims[1]) {
917 if (dd[0] < ylims[0]) ylims[0] = dd[0];
918 if (dd[1] > ylims[1]) ylims[1] = dd[1];
923 for (dl = dl0; dl; dl = dl->
dl_next) {
953 for (dl = dl0; dl; dl = dl->
dl_next) {
969 if (xlims[0] > xlims[1]) {
974 if (dd[0] < xlims[0]) xlims[0] = dd[0];
975 if (dd[1] > xlims[1]) xlims[1] = dd[1];
982 for (dl = dl0; dl; dl = dl->
dl_next) {
985 if (xlims[0] > xlims[1]) {
990 if (dd[0] < xlims[0]) xlims[0] = dd[0];
991 if (dd[1] > xlims[1]) xlims[1] = dd[1];
994 for (dl = dl0; dl; dl = dl->
dl_next) {
1006 if ((xlims[0] == 0) && (xlims[1] == 0)) {
1010 if ((ylims[0] == 0) && (ylims[1] == 0)) {
1014 if (xlims[0] > xlims[1]) {
1016 xlims[1] = xlims[0];
1019 if (ylims[0] > ylims[1]) {
1021 ylims[1] = ylims[0];
1024 if (xlims[0] == xlims[1]) {
1025 xlims[0] *= (xlims[0] > 0) ? 0.9 : 1.1;
1026 xlims[1] *= (xlims[1] > 0) ? 1.1 : 0.9;
1028 if (ylims[0] == ylims[1]
1029 || fabs(ylims[0])/(ylims[1]-ylims[0]) > 1.0e9
1030 || fabs(ylims[1])/(ylims[1]-ylims[0]) > 1.0e9) {
1031 ylims[0] *= (ylims[0] > 0) ? 0.9 : 1.1;
1032 ylims[1] *= (ylims[1] > 0) ? 1.1 : 0.9;
1040 tt = xlims[1] - xlims[0];
1041 xlims[0] += tt * 0.001;
1042 xlims[1] -= tt * 0.001;
1046 tt = ylims[1] - ylims[0];
1047 ylims[0] += tt * 0.001;
1048 ylims[1] -= tt * 0.001;
1054 "Error: X values must be >= 0 for log scale\n");
1060 "Error: Y values must be >= 0 for log scale\n");
1067 mx = (fabs(xlims[0]) > fabs(xlims[1])) ? fabs(xlims[0]) :
1069 my = (fabs(ylims[0]) > fabs(ylims[1])) ? fabs(ylims[0]) :
1071 rad = (mx > my) ? mx : my;
1079 mx = (fabs(xlims[0]) > fabs(xlims[1])) ? fabs(xlims[0]) :
1081 my = (fabs(ylims[0]) > fabs(ylims[1])) ? fabs(ylims[0]) :
1083 rad = (mx > my) ? mx : my;
SMITH_tfm(double re, double im, double *x, double *y)
double * ft_SMITHminmax()
static struct grstuff grs