http://poj.org/problem?id=2420
题意:给n个点,求一个点使得到这个n个点的距离和最短,输出这个最短距离(n<=100)
#include <cstdio>
#include <cstdlib>
#include <cmath>
#include <algorithm>
using namespace std;
const int N=5005;
struct P { int x, y; }a[N];
int n;
inline int rand(int x, int y) { return x+(rand()%(y-x+1)); }
inline double sqr(double x) { return x*x; }
inline double dis(double x1, double y1, double x2, double y2) { return sqrt(sqr(x1-x2)+sqr(y1-y2)); }
inline double getdis(double x, double y) {
double ret=0;
for(int i=0; i<n; ++i) ret+=dis(x, y, a[i].x, a[i].y);
return ret;
}
double getnode(double x, double y, double T, double &xx, double &yy) {
double tx, ty, dis, ret=1e300;
for(int i=0; i<50; ++i) {
tx=x+((double)rand(-100, 100)/100)*T;
ty=y+((double)rand(-100, 100)/100)*T;
dis=getdis(tx, ty);
if(dis<ret) {
ret=dis;
xx=tx;
yy=ty;
}
}
return ret;
}
int main() {
srand(1998);
while(~scanf("%d", &n)) {
double x=0, y=0, T=1e20, dE, tans, ans, nans, xx, yy;
for(int i=0; i<n; ++i) scanf("%d%d", &a[i].x, &a[i].y), x+=a[i].x, y+=a[i].y;
x/=n; y/=n;
nans=ans=getdis(x, y);
while(T>0.01) {
tans=getnode(x, y, T, xx, yy);
dE=nans-tans;
if(dE>=0 || exp(dE/T)>(double)rand(1, 99999)/100000) {
nans=tans; x=xx; y=yy; ans=min(ans, nans);
}
T*=0.9;
}
printf("%.0f\n", ans);
}
return 0;
}
随机化大法好= =
学习了下模拟退火...其实就是啥玩意随机一下再随机一下QAQ
具体学习看http://www.cnblogs.com/heaad/archive/2010/12/20/1911614.html
引用一个上边的比喻:
爬山算法:兔子朝着比现在高的地方跳去。它找到了不远处的最高山峰。但是这座山不一定是珠穆朗玛峰。这就是爬山算法,它不能保证局部最优值就是全局最优值。
模拟退火:兔子喝醉了。它随机地跳了很长时间。这期间,它可能走向高处,也可能踏入平地。但是,它渐渐清醒了并朝最高方向跳去。这就是模拟退火。
现在有个退火公式= =
$$exp(dE/T)$$
其中$dE$是解的代表值之间的差,即$ans-temp$,其中$ans$是之前得到的最优解,$temp$是当前的解。$dE>=0$显然是可以取的,$dE<0$那么就要一定概率的取= =;$T$代表此时的温度,而且T是一直下降的
由于这个式子的取值在$(0, 1)$之间,所以我们在这个区间随机取一个值然后来搞就行了= =
具体看代码QAQ
upd:我发现我的模拟退火好像写错了啊...降温是在接受较差的解那里降温啊......
【POJ】2420 A Star not a Tree?的更多相关文章
-
【POJ】2420 A Star not a Tree?(模拟退火)
题目 传送门:QWQ 分析 军训完状态不好QwQ,做不动难题,于是就学了下模拟退火. 之前一直以为是个非常nb的东西,主要原因可能是差不多省选前我试着学一下但是根本看不懂? 骗分利器,但据说由于调参困 ...
-
【POJ】2069.Super Star
题解 求一个最小的半径的球,包括三维平面上所有的点,输出半径 随机移动球心,半径即为距离最远的点,移动的方式是向离的最远的那个点移动一点,之后模拟退火就好 代码 #include <iostre ...
-
【模拟退火】poj2420 A Star not a Tree?
题意:求平面上一个点,使其到给定的n个点的距离和最小,即费马点. 模拟退火的思想是随机移动,然后100%接受更优解,以一定概率接受更劣解.移动的过程中温度缓慢降低,接受更劣解的概率降低. 在网上看到的 ...
-
【POJ】1704 Georgia and Bob(Staircase Nim)
Description Georgia and Bob decide to play a self-invented game. They draw a row of grids on paper, ...
-
【POJ】1067 取石子游戏(博弈论)
Description 有两堆石子,数量任意,可以不同.游戏开始由两个人轮流取石子.游戏规定,每次有两种不同的取法,一是可以在任意的一堆中取走任意多的石子:二是可以在两堆中同时取走相同数量的石子.最后 ...
-
三分 POJ 2420 A Star not a Tree?
题目传送门 /* 题意:求费马点 三分:对x轴和y轴求极值,使到每个点的距离和最小 */ #include <cstdio> #include <algorithm> #inc ...
-
【BZOJ2002】弹飞绵羊(Link-Cut Tree)
[BZOJ2002]弹飞绵羊(Link-Cut Tree) 题面 题目描述 某天,Lostmonkey发明了一种超级弹力装置,为了在他的绵羊朋友面前显摆,他邀请小绵羊一起玩个游戏.游戏一开始,Lost ...
-
【BZOJ2588】Spoj 10628. Count on a tree 主席树+LCA
[BZOJ2588]Spoj 10628. Count on a tree Description 给定一棵N个节点的树,每个点有一个权值,对于M个询问(u,v,k),你需要回答u xor lasta ...
-
【CF600E】Lomsat gelral(dsu on tree)
[CF600E]Lomsat gelral(dsu on tree) 题面 洛谷 CF题面自己去找找吧. 题解 \(dsu\ on\ tree\)板子题 其实就是做子树询问的一个较快的方法. 对于子树 ...
随机推荐
-
[WPF系列]-基础 TextBlock
AUTOMATICALLY SHOWING TOOLTIPS ON A TRIMMED TEXTBLOCK (SILVERLIGHT + WPF)
-
django 数据库交互
修改配置文件 DATABASES = { 'default': { 'ENGINE': 'django.db.backends.mysql', 'USER':'root', 'PASSWORD':'1 ...
-
Linux下安装memcache
1.Memcache用到了libevent(这个库用于Socket的处理),需要安装libevent: (1)tar zxvf libevent.tar.gz 后进入解压后的文件夹 (2)./conf ...
-
导出Execel
//请求入口 @SuppressWarnings("serial")@ParentPackage("default") //action请求@Results( ...
-
Bernese单点定位数据准备及处理
原创作者 blog :http://yifeiyao.blog.163.com/blog/static/2058932752012669731170/1.准备所需用的数据文件,如下: 原始观测.O文件 ...
-
MySQL innotop实时监测工具
安装:wget http://innotop.googlecode.com/files/innotop-1.8.0.tar.gz# perl Makefile.PL # make install解决C ...
-
Error in .Call.graphics(C_palette2, .Call(C_palette2, NULL)) : invalid graphics state
在调用ggplpt2包画图时,出现错误 Error in .Call.graphics(C_palette2, .Call(C_palette2, NULL)) : invalid graphics ...
-
Spark笔记
Spark基础 第一节:什么是Spark?Spark的特点和结构 1.什么是Spark? Spark是一个针对大规模数据处理的快速通用引擎. 类似MapReduce,都进行数据的处理 2.Spark的 ...
-
SolrJ的使用
SolrJ的使用 1.添加依赖 <?xml version="1.0" encoding="UTF-8"?> <project xmlns=& ...
-
Windows Server 2003 添加“Resin”到“服务”出错
将“Resin”添加到[服务] 进入安装目录,执行 httpd -install 从[服务]移除 执行 httpd -remove ---------------------------------- ...