function hrap(lon,lat){
var deg2rad = function (deg) { return deg * (Math.PI / 180); };
var stlat = 60.0;
var clon = 15.0;
var rad = 6371.2;
with (Math){
var sfactor = (1+sin(deg2rad(stlat)))/(1+sin(deg2rad(lat)));
var R = rad*cos(deg2rad(lat))*sfactor;
var x = R*cos(deg2rad(lon+clon));
var y = R*sin(deg2rad(lon+clon));
var hrapx = x/4.7625 + 401;
var hrapy = y/4.7625 + 1601;
}
print(hrapx);
print(hrapy);}
hrap(-76.5633,39.7478);
hrap(-124.6132,42.7528);
ZnVuY3Rpb24gaHJhcChsb24sbGF0KXsKdmFyIGRlZzJyYWQgPSBmdW5jdGlvbiAoZGVnKSB7IHJldHVybiBkZWcgKiAoTWF0aC5QSSAvIDE4MCk7IH07CnZhciBzdGxhdCA9IDYwLjA7CnZhciBjbG9uID0gMTUuMDsKdmFyIHJhZCA9IDYzNzEuMjsKd2l0aCAoTWF0aCl7CnZhciBzZmFjdG9yID0gKDErc2luKGRlZzJyYWQoc3RsYXQpKSkvKDErc2luKGRlZzJyYWQobGF0KSkpOwp2YXIgUiA9IHJhZCpjb3MoZGVnMnJhZChsYXQpKSpzZmFjdG9yOwp2YXIgeCA9IFIqY29zKGRlZzJyYWQobG9uK2Nsb24pKTsKdmFyIHkgPSBSKnNpbihkZWcycmFkKGxvbitjbG9uKSk7CnZhciBocmFweCA9IHgvNC43NjI1ICsgNDAxOwp2YXIgaHJhcHkgPSB5LzQuNzYyNSArIDE2MDE7Cn0KcHJpbnQoaHJhcHgpOwpwcmludChocmFweSk7fQpocmFwKC03Ni41NjMzLDM5Ljc0NzgpOwpocmFwKC0xMjQuNjEzMiw0Mi43NTI4KTsg