- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
我有大规模的QP问题,所以我在R中使用Gurobi优化器。但是,我希望使用广义的顺序最小优化算法,但我在R包中找不到它。所以我尝试调用这个 C 函数,但到目前为止失败了。
如何从 R 调用此 C 函数?
#include <math.h>
#include <stdlib.h>
#include <stdio.h>
#include <string.h>
#include <stdint.h>
#include <limits.h>
#include "libqp.h"
libqp_state_T libqp_gsmo_solver(const double* (*get_col)(uint32_t),
double *diag_H,
double *f,
double *a,
double b,
double *LB,
double *UB,
double *x,
uint32_t n,
uint32_t MaxIter,
double TolKKT,
void (*print_state)(libqp_state_T state))
{
double *col_u;
double *col_v;
double *Nabla;
double minF_up;
double maxF_low;
double tau;
double F_i;
double tau_ub, tau_lb;
double Q_P;
uint32_t i, j;
uint32_t u, v;
libqp_state_T state;
Nabla = NULL;
/* ------------------------------------------------------------ */
/* Initialization */
/* ------------------------------------------------------------ */
/* Nabla = H*x + f is gradient*/
Nabla = (double*)LIBQP_CALLOC(n, sizeof(double));
if( Nabla == NULL )
{
state.exitflag=-1;
goto cleanup;
}
/* compute gradient */
for( i=0; i < n; i++ )
{
Nabla[i] += f[i];
if( x[i] != 0 ) {
col_u = (double*)get_col(i);
for( j=0; j < n; j++ ) {
Nabla[j] += col_u[j]*x[i];
}
}
}
if( print_state != NULL)
{
state.QP = 0;
for(i = 0; i < n; i++ )
state.QP += 0.5*(x[i]*Nabla[i]+x[i]*f[i]);
print_state( state );
}
/* ------------------------------------------------------------ */
/* Main optimization loop */
/* ------------------------------------------------------------ */
state.nIter = 0;
state.exitflag = 100;
while( state.exitflag == 100 )
{
state.nIter ++;
/* find the most violating pair of variables */
minF_up = LIBQP_PLUS_INF;
maxF_low = -LIBQP_PLUS_INF;
for(i = 0; i < n; i++ )
{
F_i = Nabla[i]/a[i];
if(LB[i] < x[i] && x[i] < UB[i])
{ /* i is from I_0 */
if( minF_up > F_i) { minF_up = F_i; u = i; }
if( maxF_low < F_i) { maxF_low = F_i; v = i; }
}
else if((a[i] > 0 && x[i] == LB[i]) || (a[i] < 0 && x[i] == UB[i]))
{ /* i is from I_1 or I_2 */
if( minF_up > F_i) { minF_up = F_i; u = i; }
}
else if((a[i] > 0 && x[i] == UB[i]) || (a[i] < 0 && x[i] == LB[i]))
{ /* i is from I_3 or I_4 */
if( maxF_low < F_i) { maxF_low = F_i; v = i; }
}
}
/* check KKT conditions */
if( maxF_low - minF_up <= TolKKT )
state.exitflag = 4;
else
{
/* SMO update of the most violating pair */
col_u = (double*)get_col(u);
col_v = (double*)get_col(v);
if( a[u] > 0 )
{ tau_lb = (LB[u]-x[u])*a[u]; tau_ub = (UB[u]-x[u])*a[u]; }
else
{ tau_ub = (LB[u]-x[u])*a[u]; tau_lb = (UB[u]-x[u])*a[u]; }
if( a[v] > 0 )
{ tau_lb = LIBQP_MAX(tau_lb,(x[v]-UB[v])*a[v]); tau_ub =
LIBQP_MIN(tau_ub,(x[v]-LB[v])*a[v]); }
else
{ tau_lb = LIBQP_MAX(tau_lb,(x[v]-LB[v])*a[v]); tau_ub =
LIBQP_MIN(tau_ub,(x[v]-UB[v])*a[v]); }
tau = (Nabla[v]/a[v]-Nabla[u]/a[u])/
(diag_H[u]/(a[u]*a[u]) + diag_H[v]/(a[v]*a[v]) -
2*col_u[v]/(a[u]*a[v]));
tau = LIBQP_MIN(LIBQP_MAX(tau,tau_lb),tau_ub);
x[u] += tau/a[u];
x[v] -= tau/a[v];
/* update Nabla */
for(i = 0; i < n; i++ )
Nabla[i] += col_u[i]*tau/a[u] - col_v[i]*tau/a[v];
}
if( state.nIter >= MaxIter )
state.exitflag = 0;
if( print_state != NULL)
{
state.QP = 0;
for(i = 0; i < n; i++ )
state.QP += 0.5*(x[i]*Nabla[i]+x[i]*f[i]);
print_state( state );
}
}
/* compute primal objective value */
state.QP = 0;
for(i = 0; i < n; i++ )
state.QP += 0.5*(x[i]*Nabla[i]+x[i]*f[i]);
cleanup:
LIBQP_FREE(Nabla);
return( state );
}
最佳答案
不知道是否可以从 R 程序直接调用 C 函数,但可以尝试从 .so 文件加载符号。
您将 C 文件编译为动态库 (.so),并且使用“dlopen”和“dlsym”也许可以工作
man dlopen (C) : https://linux.die.net/man/3/dlopen
man dlsym (C) : https://linux.die.net/man/3/dlsym
我知道你可以像这样从 C++ 二进制文件调用 C 函数
关于c - 从 R 调用这个 C 函数(libqp_gsmo.c)的方法是什么?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/43785573/
#include using namespace std; class C{ private: int value; public: C(){ value = 0;
这个问题已经有答案了: What is the difference between char a[] = ?string?; and char *p = ?string?;? (8 个回答) 已关闭
关闭。此题需要details or clarity 。目前不接受答案。 想要改进这个问题吗?通过 editing this post 添加详细信息并澄清问题. 已关闭 7 年前。 此帖子已于 8 个月
除了调试之外,是否有任何针对 c、c++ 或 c# 的测试工具,其工作原理类似于将独立函数复制粘贴到某个文本框,然后在其他文本框中输入参数? 最佳答案 也许您会考虑单元测试。我推荐你谷歌测试和谷歌模拟
我想在第二台显示器中移动一个窗口 (HWND)。问题是我尝试了很多方法,例如将分辨率加倍或输入负值,但它永远无法将窗口放在我的第二台显示器上。 关于如何在 C/C++/c# 中执行此操作的任何线索 最
我正在寻找 C/C++/C## 中不同类型 DES 的现有实现。我的运行平台是Windows XP/Vista/7。 我正在尝试编写一个 C# 程序,它将使用 DES 算法进行加密和解密。我需要一些实
很难说出这里要问什么。这个问题模棱两可、含糊不清、不完整、过于宽泛或夸夸其谈,无法以目前的形式得到合理的回答。如需帮助澄清此问题以便重新打开,visit the help center . 关闭 1
有没有办法强制将另一个 窗口置于顶部? 不是应用程序的窗口,而是另一个已经在系统上运行的窗口。 (Windows, C/C++/C#) 最佳答案 SetWindowPos(that_window_ha
假设您可以在 C/C++ 或 Csharp 之间做出选择,并且您打算在 Windows 和 Linux 服务器上运行同一服务器的多个实例,那么构建套接字服务器应用程序的最明智选择是什么? 最佳答案 如
你们能告诉我它们之间的区别吗? 顺便问一下,有什么叫C++库或C库的吗? 最佳答案 C++ 标准库 和 C 标准库 是 C++ 和 C 标准定义的库,提供给 C++ 和 C 程序使用。那是那些词的共同
下面的测试代码,我将输出信息放在注释中。我使用的是 gcc 4.8.5 和 Centos 7.2。 #include #include class C { public:
很难说出这里问的是什么。这个问题是含糊的、模糊的、不完整的、过于宽泛的或修辞性的,无法以目前的形式得到合理的回答。如需帮助澄清此问题以便重新打开它,visit the help center 。 已关
我的客户将使用名为 annoucement 的结构/类与客户通信。我想我会用 C++ 编写服务器。会有很多不同的类继承annoucement。我的问题是通过网络将这些类发送给客户端 我想也许我应该使用
我在 C# 中有以下函数: public Matrix ConcatDescriptors(IList> descriptors) { int cols = descriptors[0].Co
我有一个项目要编写一个函数来对某些数据执行某些操作。我可以用 C/C++ 编写代码,但我不想与雇主共享该函数的代码。相反,我只想让他有权在他自己的代码中调用该函数。是否可以?我想到了这两种方法 - 在
我使用的是编写糟糕的第 3 方 (C/C++) Api。我从托管代码(C++/CLI)中使用它。有时会出现“访问冲突错误”。这使整个应用程序崩溃。我知道我无法处理这些错误[如果指针访问非法内存位置等,
关闭。这个问题不符合Stack Overflow guidelines .它目前不接受答案。 我们不允许提问寻求书籍、工具、软件库等的推荐。您可以编辑问题,以便用事实和引用来回答。 关闭 7 年前。
已关闭。此问题不符合Stack Overflow guidelines 。目前不接受答案。 要求我们推荐或查找工具、库或最喜欢的场外资源的问题对于 Stack Overflow 来说是偏离主题的,因为
我有一些 C 代码,将使用 P/Invoke 从 C# 调用。我正在尝试为这个 C 函数定义一个 C# 等效项。 SomeData* DoSomething(); struct SomeData {
这个问题已经有答案了: Why are these constructs using pre and post-increment undefined behavior? (14 个回答) 已关闭 6
我是一名优秀的程序员,十分优秀!