| 788 |
|
{ |
| 789 |
|
if (msg != NULL) |
| 790 |
|
fprintf(stderr, "%s: Use error - %s\n\n", progname, msg); |
| 791 |
< |
fprintf(stderr, "Usage: %s month day hour [...]\n", progname); |
| 792 |
< |
fprintf(stderr, " or: %s -ang altitude azimuth [...]\n", progname); |
| 791 |
> |
fprintf(stderr, "Usage: %s month day hour [-y year] [...]\n", progname); |
| 792 |
> |
fprintf(stderr, " or: %s -ang altitude azimuth [...]\n", progname); |
| 793 |
|
fprintf(stderr, " followed by: -P epsilon delta [options]\n"); |
| 794 |
|
fprintf(stderr, " or: [-W|-L|-G] direct_value diffuse_value [options]\n"); |
| 795 |
< |
fprintf(stderr, " or: -E global_irradiance [options]\n\n"); |
| 796 |
< |
fprintf(stderr, " Description:\n"); |
| 795 |
> |
fprintf(stderr, " or: -E global_irradiance [options]\n\n"); |
| 796 |
> |
fprintf(stderr, " Description:\n"); |
| 797 |
|
fprintf(stderr, " -P epsilon delta (these are the Perez parameters) \n"); |
| 798 |
|
fprintf(stderr, " -W direct-normal-irradiance diffuse-horizontal-irradiance (W/m^2)\n"); |
| 799 |
|
fprintf(stderr, " -L direct-normal-illuminance diffuse-horizontal-illuminance (lux)\n"); |
| 1427 |
|
/* degrees into radians */ |
| 1428 |
|
double radians(double degres) |
| 1429 |
|
{ |
| 1430 |
< |
return degres*M_PI/180.0; |
| 1430 |
> |
return degres*(M_PI/180.); |
| 1431 |
|
} |
| 1432 |
|
|
| 1433 |
|
|
| 1434 |
|
/* radian into degrees */ |
| 1435 |
|
double degres(double radians) |
| 1436 |
|
{ |
| 1437 |
< |
return radians/M_PI*180.0; |
| 1437 |
> |
return radians*(180./M_PI); |
| 1438 |
|
} |
| 1439 |
|
|
| 1440 |
|
|
| 1465 |
|
buffer += (*(lv+i))*cos(radians(*(theta+i))); |
| 1466 |
|
} |
| 1467 |
|
|
| 1468 |
< |
return buffer*2*M_PI/144; |
| 1468 |
> |
return buffer*(2.*M_PI/145.); |
| 1469 |
|
} |
| 1470 |
|
|
| 1471 |
|
|
