//---------------------------------------------------------
CSG_String SG_Double_To_Degree(double Value)
{
SG_Char c;
int d, h;
double s;
CSG_String String;
if( Value < 0.0 )
{
Value = -Value;
c = SG_T('-');
}
else
{
c = SG_T('+');
}
Value = fmod(Value, 360.0);
d = (int)Value;
Value = 60.0 * (Value - d);
h = (int)Value;
Value = 60.0 * (Value - h);
s = Value;
String.Printf(SG_T("%c%03d\xb0%02d'%02.*f''"), c, d, h, SG_Get_Significant_Decimals(s), s);
return( String );
}
//---------------------------------------------------------
wxString Get_SignificantDecimals_String(double Value, int maxDecimals)
{
wxString s;
s.Printf(wxT("%.*f"), SG_Get_Significant_Decimals(Value, maxDecimals), Value);
return( s );
}
//---------------------------------------------------------
void CVariogram_Dialog::Set_Model(void)
{
//-----------------------------------------------------
if( m_Distance < 0 || m_Distance != m_pDistance->Get_Value() )
{
m_Distance = m_pDistance->Get_Value();
m_pModel->Clr_Data();
for(int i=0; i<m_pVariogram->Get_Count(); i++)
{
CSG_Table_Record *pRecord = m_pVariogram->Get_Record(i);
if( pRecord->asDouble(CSG_Variogram::FIELD_DISTANCE) <= m_Distance )
{
m_pModel->Add_Data(pRecord->asDouble(CSG_Variogram::FIELD_DISTANCE), pRecord->asDouble(CSG_Variogram::FIELD_VAR_EXP));
}
}
m_pModel->Get_Trend();
}
//-----------------------------------------------------
wxString s;
if( !m_pModel->Set_Formula(m_pFormula->GetValue().c_str()) )
{
s += m_pModel->Get_Error().w_str();
}
else if( !m_pModel->Get_Trend() )
{
s += _TL("function fitting failed !");
}
else
{
s += m_pModel->Get_Formula(SG_TREND_STRING_Function).w_str();
s += wxString::Format(wxT("\n%s:\t%.2f%%"), _TL("Determination") , m_pModel->Get_R2() * 100.0);
s += wxString::Format(wxT("\n%s:\t%.*f") , _TL("Fitting range") , SG_Get_Significant_Decimals(m_pDistance->Get_Value()), m_pDistance->Get_Value());
s += wxString::Format(wxT("\n%s:\t%d") , _TL("Samples in range") , m_pModel->Get_Data_Count());
s += wxString::Format(wxT("\n%s:\t%d") , _TL("Lag Classes") , m_pVariogram->Get_Count());
s += wxString::Format(wxT("\n%s:\t%.2f") , _TL("Lag Distance") , m_Settings("LAGDIST")->asDouble());
s += wxString::Format(wxT("\n%s:\t%.2f") , _TL("Maximum Distance") , m_Settings("MAXDIST")->asDouble());
m_Settings("MODEL")->Set_Value(m_pModel->Get_Formula(SG_TREND_STRING_Formula));
}
m_pParameters->SetValue(s);
m_pDiagram->m_bPairs = m_pPairs->GetValue();
m_pDiagram->Refresh(true);
}
//---------------------------------------------------------
CSG_String SG_Get_String(double Value, int Precision, bool bScientific)
{
CSG_String s;
if( Precision >= 0 )
{
s.Printf(SG_T("%.*f"), Precision, Value);
}
else if( Precision == -1 )
{
s.Printf(SG_T("%f"), Value);
}
else // if( Precision == -2 )
{
Precision = SG_Get_Significant_Decimals(Value, abs(Precision));
s.Printf(SG_T("%.*f"), SG_Get_Significant_Decimals(Value, abs(Precision)), Value);
if( Precision > 0 )
{
while( s.Length() > 1 && s[s.Length() - 1] == '0' )
{
s = s.Left(s.Length() - 1);
}
if( s.Length() > 1 && (s[s.Length() - 1] == '.' || s[s.Length() - 1] == ',') )
{
s = s.Left(s.Length() - 1);
}
}
}
s.Replace(",", ".");
return( s );
}
//---------------------------------------------------------
CSG_String CGCS_Graticule::Get_Degree(double Value, int Precision)
{
if( Precision == DEG_PREC_DEG )
{
return( SG_Get_String(Value, -12) + "\xb0" );
}
SG_Char c;
int d, h;
double s;
CSG_String String;
if( Value < 0.0 )
{
Value = -Value;
c = SG_T('-');
}
else
{
c = SG_T('+');
}
Value = fmod(Value, 360.0);
d = (int)Value;
Value = 60.0 * (Value - d);
h = (int)Value;
Value = 60.0 * (Value - h);
s = Value;
if( s > 0.0 || Precision == DEG_PREC_FULL )
{
String.Printf(SG_T("%c%d\xb0%02d'%02.*f''"), c, d, h, SG_Get_Significant_Decimals(s), s);
}
else if( h > 0 || Precision == DEG_PREC_MIN )
{
String.Printf(SG_T("%c%d\xb0%02d'" ), c, d, h);
}
else
{
String.Printf(SG_T("%c%d\xb0" ), c, d);
}
return( String );
}
