Скачать 1.46 Mb.
|
} } } //нарисовали карту needmap=0; ikad=ikad+1; if(ikad>=nkad){ikad=0; needmap=1;} setcolor(15); _rectangle_w(_GBORDER,0.0,-90.0,360.0,90.0); } //закрылся if (если надо печатать карту) } // закрылся цикл while, читающий кадр за кадром tofile: if(yesf==1) { outfile=fopen(fileout,"w"); for(ia=0;ia<=360;ia++) { for(id=0;id<=180;id++) { fprintf(outfile,"%lf,%lf,%lf\n", (double)ia,(double)(id-90),skm[ia][id]); } } fclose(outfile); if(kuda=='f' || kuda=='F')goto kud; } getch(); theend:; closegraph(); } double ffi( double aa,double dd,double aa1,double dd1, double aa2,double dd2,double aa3,double dd3) { double tt,tt1,tt2,fi1; tt=tetta(aa,dd,aa1,dd1); tt1=tetta(aa,dd,aa2,dd2); tt2=tetta(aa,dd,aa3,dd3); fi1=cos(tt1/180*pi)/sin(tt/180*pi); if(fi1>-0.9999999 && fi1<0.9999999)fi1=acos(fi1)/pi*180.0; else { if(fi1>0)fi1=0; if(fi1<0)fi1=180; } if(tt2<=90)return fi1; else return 360.0-fi1; } double tetta(double a_,double d_,double a1_,double d1_) { double tet_; tet_=acos(sin(d_/180*pi)*sin(d1_/180*pi)+ cos(d_/180*pi)*cos(d1_/180*pi)*cos(a_/180*pi-a1_/180*pi)); tet_=tet_*180.0/pi; return tet_; } char dtoa(int d) { char c; if (d<0) return('<'); if (d>9) return('>'); c=d+48; return(c); } void n1n2(float huge masx[],int ck) { int i,j,j1,j2; for(j=1;j<=90;j++) { j1=1; j2=ck; for(i=1;i<=ck;i++) { if(masx[i]>j+1){j2=i; break;} } n2[j]=j2; for(i=ck;i>=1;i--) { if(masx[i] n1[j]=j1; /* printf("%d, %d...%d\n",j,n1[j],n2[j]); getch();*/ } } double interpol(double x,double y,float huge masx[], float huge masy[],float huge masz[],int ck) { double uno,newr; double z; int iuno=-1,i,j,j1,j2; uno=1.0e100; j=(int)x; j1=n1[j]; j2=n2[j]; if(j1<1)j1=1; if(j2>ck)j2=ck; for (i=j1;i<=j2;i++) { newr=(masx[i]-x)*(masx[i]-x)+(masy[i]-y)*(masy[i]-y); if (newr<=uno) { iuno=i; uno=newr;} } z=masz[iuno]; return(z); } void find_a3_d3(void) { if(d1==0 && d2==0) {a3=a1; if((a2>a1 && (a2-a1)<180.0) || (a1 else d3=-90.0; goto finish; } if((d1-90)*(d1-90)<1e-20) { d3=0; a3=a2+90; if(a3>360)a3=a3-360; goto finish; } if((d1+90)*(d1+90)<1e-20) { d3=0; a3=a2-90; if(a3<0)a3=a3+360; goto finish; } ca1=cos(a1*pi/180.0); sa1=sin(a1*pi/180.0); cd1=cos(d1*pi/180.0); sd1=sin(d1*pi/180.0); ca2=cos(a2*pi/180.0); sa2=sin(a2*pi/180.0); cd2=cos(d2*pi/180.0); sd2=sin(d2*pi/180.0); v1=(cd2*ca2*sd1-cd1*ca1*sd2); v2=(cd1*sa1*sd2-cd2*sa2*sd1); if(v1>1e20*v2 && v2>0) { tga3=1e20; goto tga3gotov; } if(v1<-1e20*v2 && v2>0) { tga3=-1e20; goto tga3gotov; } if(v1>-1e20*v2 && v2<0) { tga3=-1e20; goto tga3gotov; } if(v1<1e20*v2 && v2<0) { tga3=1e20; goto tga3gotov; } tga3=v1/v2; tga3gotov: a3_1=atan(tga3)*180.0/pi; if(a3_1<0)a3_1=a3_1+360.0; a3_2=atan(tga3)*180.0/pi+180.0; if(a3_2>360.0)a3_2=a3_2-360.0; ca3=cos(a3_1*pi/180.0); sa3=sin(a3_1*pi/180.0); if(sd1>0.1) tgd3_1=-1.0*cd1*(ca1*ca3+sa1*sa3)/sd1; else tgd3_1=-1.0*cd2*(ca2*ca3+sa2*sa3)/sd2; ca3=cos(a3_2*pi/180.0); sa3=sin(a3_2*pi/180.0); if(sd1>0.1) tgd3_2=-1.0*cd1*(ca1*ca3+sa1*sa3)/sd1; else tgd3_2=-1.0*cd2*(ca2*ca3+sa2*sa3)/sd2; d3_1=atan(tgd3_1)*180.0/pi; d3_2=atan(tgd3_2)*180.0/pi; if(a1==a2){if(d1<0){a3=a1-90.0; if(a3<0)a3=a3+360; d3=0;} else { a3=a1+90.0; if(a3>360)a3=a3-360.0; d3=0; } goto finish;} if((a2-a1)==180.0 || (a1-a2)==180.0) { if(d1>0){a3=a1-90.0; if(a3<0)a3=a3+360; d3=0;} else { a3=a1+90.0; if(a3>360)a3=a3-360; d3=0;} goto finish;} if(a2>a1) { if((a2-a1)<180.0) { if(d3_1>0){ a3=a3_1; d3=d3_1; } else { a3=a3_2; d3=d3_2; } } else { if(d3_1>0){ a3=a3_2; d3=d3_2; } else{ a3=a3_1; d3=d3_1; } } } if(a2 { if((a1-a2)<180.0) { if(d3_1>0){ a3=a3_2; d3=d3_2; } else { a3=a3_1; d3=d3_1; } } else { if(d3_1>0){a3=a3_1; d3=d3_1; } else{ a3=a3_2; d3=d3_2; } } } finish:; } |
Реферат Отчет стр., рис., таблиц, список литературы 4 наименования Директор научно-исследовательского института ядерной физики имени Д. В. Скобельцына мгу имени М. В. Ломоносова | А. В. Брюханов летопись природы Отчет «Летопись природы национального парка «Зюраткуль» за 2002 год» содержит 187 стр., включая 6 таблиц и 5 приложений. Список использованной... | ||
Реферат Отчет 120с., 13 рис., 19 таблиц в тексте, 39 источников Фундаментальные исследования, организация управления фундаментальными исследованиями, масштабы, тенденции развития фундаментальных... | Реферат Отчет 25 стр., 1 рис Ключевые слова: космология, внегалактическая астрономия, звезды, межзвездная среда, активные ядра | ||
Реферат Отчёт изложен на 36 страницах, включает 12 таблиц, 3 рисунка,... «Мониторинг и прогнозирование состояния продовольственной безопасности на территории Калужской области. Практические рекомендации... | Реферат Требование к структуре реферату Реферат должен быть выполнен самостоятельно каждым студентом на 5 или более листах формата А4 (не включая титульный лист, содержание,... | ||
Реферат Отчет: 180 стр., 11 рис., 12 табл., 72 источника ... | Тематическое планирование стр. 7 2 Требования к уровню подготовки... В числе приоритетных целей изучения музыкального искусства в начальной школе выступают | ||
Реферат Баранов К. Г., Игнатенков А. И. Дипломный проект на тему... Общий объем проекта составляет 78 страниц. Дипломный проект содержит 1 рисунок, 16 таблиц. Список литературы представлен 30 источниками... | Реферат (18 стр., рис., 3 табл.) Объектом исследования являлись системы централизованного и локального водоотведения мо ракитинское | ||
Реферат Отчет с. 22, рис., 3 табл Объектом исследования являлись системы централизованного водоснабжения мо г п. Одоев | Реферат. Отчет…23с., рис., 4 табл Объектом исследования являлись системы централизованного и локального водоотведения мо кожинское | ||
Федеральное государственное образовательное учреждение высшего профессионального образования Отчет о нир 65 с., 2 рис., 1 табл., приложений 2, источников использованной литературы 58 | Федеральное государственное образовательное учреждение высшего профессионального образования Отчет о нир 65 с., 2 рис., 1 табл., приложений 2, источников использованной литературы 58 | ||
Федеральное государственное образовательное учреждение высшего профессионального образования Отчет о нир 65 с., 2 рис., 1 табл., приложений 2, источников использованной литературы 58 | Реферат Отчет 35 с., 3 главы, 16 рис., 1 табл., 12 источников, 5 прил Объектом разработки является программа восстановления каркасных 3D объектов по 2D проекциям |