char *proobraz(char* input) { input = registr(input); input= ficha(input); for (int i=0;i<strlen(input);i++) { ssin(i,input); ccos(i,input); aasin(i,input); aacos(i,input); aatan(i,input); cceil(i,input); cch(i,input); eexp(i,input); aabs(i,input); ffloor(i,input); lln(i,input); llog(i,input); ssh(i,input); ssqrt(i,input); ttan(i,input); tth(i,input); cctg(i,input); aactg(i,input); ccth(i,input); } return input; }
HRESULT math_atan(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) { DOUBLE dbltemp; if(SUCCEEDED(ScriptVariant_DecimalValue(varlist[0], &dbltemp))) { double PI = 3.14159265; ScriptVariant_ChangeType(*pretvar, VT_DECIMAL); (*pretvar)->dblVal = (DOUBLE)(aatan((double)dbltemp) * 180.0 / PI); return S_OK; } *pretvar = NULL; return E_FAIL; }