[日常摸鱼]poj2420 A Star not a Tree?

模拟退火算法求解最小距离问题
本文介绍了一个使用模拟退火算法解决特定几何问题的C++实现。该问题旨在寻找平面上的一个点,使得该点到给定n个点集合中所有点的距离之和最小。文章详细展示了算法的实现过程,包括初始化、温度衰减策略和接受新解的条件。

题意:给定$n$个点,找一个点使得这个点到所有点的距离之和最小,求出这个最小距离

 


 

 

传说中的模拟退火…

#include<cstdio>
#include<ctime>
#include<cmath>
#include<cstdlib> 
const int N=105;
struct point
{
    double x,y;
}ps[N];
int n;
double t,ans,tans,tx,ty,nx,ny,temp;

inline double get(int x){return 1.0*((rand()%x)*(rand()%x)%x);}
inline double sqr(double x){return x*x;}
inline double dis(double x,double y,point &p)
{
    return sqrt(sqr(x-p.x)+sqr(y-p.y));
}
inline double calc(double x,double y)
{
    double res=0;
    for(register int i=1;i<=n;i++)res+=dis(x,y,ps[i]);
    return res;
}
int main()
{
    scanf("%d",&n);nx=ny=0;t=100000;
    for(register int i=1;i<=n;i++)
    {
        scanf("%lf%lf",&ps[i].x,&ps[i].y);
        nx+=ps[i].x;ny+=ps[i].y;
    }
    nx/=n;ny/=n;tans=ans=calc(nx,ny);
    while(t>0.02)
    {
        tx=ty=0;
        for(register int i=1;i<=n;i++)
        {
            tx+=(ps[i].x-nx)/dis(nx,ny,ps[i]);
            ty+=(ps[i].y-ny)/dis(nx,ny,ps[i]);
        }
        temp=calc(nx+tx*t,ny+ty*t);
        if(temp<ans)
        {
            tans=ans=temp;nx+=tx*t;ny+=ty*t;
        }else if(log((temp-ans)/t)<get(10000)/10000.0)
        {
            ans=temp;nx+=tx*t;ny+=ty*t;
        }
        t*=0.9;
    }
    if(tans<ans)ans=tans;
    printf("%.0lf",ans);
    return 0;
}
View Code

 

_(:з」∠)_瞎调参数0ms过掉惹

 

转载于:https://www.cnblogs.com/yoooshinow/p/8098938.html

Delphi 12.3 作为一款面向 Windows 平台的集成开发环境,由 Embarcadero Technologies 负责其持续演进。该环境以 Object Pascal 语言为核心,并依托 Visual Component Library(VCL)框架,广泛应用于各类桌面软件、数据库系统及企业级解决方案的开发。在此生态中,Excel4Delphi 作为一个重要的社区开源项目,致力于搭建 Delphi 与 Microsoft Excel 之间的高效桥梁,使开发者能够在自研程序中直接调用 Excel 的文档处理、工作表管理、单元格操作及宏执行等功能。 该项目以库文件与组件包的形式提供,开发者将其集成至 Delphi 工程后,即可通过封装良好的接口实现对 Excel 的编程控制。具体功能涵盖创建与编辑工作簿、格式化单元格、批量导入导出数据,乃至执行内置公式与宏指令等高级操作。这一机制显著降低了在财务分析、报表自动生成、数据整理等场景中实现 Excel 功能集成的技术门槛,使开发者无需深入掌握 COM 编程或 Excel 底层 API 即可完成复杂任务。 使用 Excel4Delphi 需具备基础的 Delphi 编程知识,并对 Excel 对象模型有一定理解。实践中需注意不同 Excel 版本间的兼容性,并严格遵循项目文档进行环境配置与依赖部署。此外,操作过程中应遵循文件访问的最佳实践,例如确保目标文件未被独占锁定,并实施完整的异常处理机制,以防数据损毁或程序意外中断。 该项目的持续维护依赖于 Delphi 开发者社区的集体贡献,通过定期更新以适配新版开发环境与 Office 套件,并修复已发现的问题。对于需要深度融合 Excel 功能的 Delphi 应用而言,Excel4Delphi 提供了经过充分测试的可靠代码基础,使开发团队能更专注于业务逻辑与用户体验的优化,从而提升整体开发效率与软件质量。 资源来源于网络分享,仅用于学习交流使用,请勿用于商业,如有侵权请联系我删除!
评论
成就一亿技术人!
拼手气红包6.0元
还能输入1000个字符  | 博主筛选后可见
 
红包 添加红包
表情包 插入表情
 条评论被折叠 查看
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值