結果

問題 No.1319 最強とんがりコーン
コンテスト
ユーザー hotman78
提出日時 2022-01-12 19:20:19
言語 C++17
(gcc 13.3.0 + boost 1.87.0)
結果
AC  
実行時間 99 ms / 2,000 ms
コード長 931 bytes
コンパイル時間 2,060 ms
コンパイル使用メモリ 199,720 KB
最終ジャッジ日時 2025-01-27 10:36:07
ジャッジサーバーID
（参考情報） 		judge4 / judge3
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample AC * 1
other AC * 70
権限があれば一括ダウンロードができます

ソースコード

diff # 

#include<bits/stdc++.h>
using namespace std;
using D=long double;

template<typename F>
D romberg_integration(int m,D a,D b,F f){
    std::vector<std::vector<D>>data(m,vector<D>(m));
    std::vector<D>h(m);
    h[0]=b-a;
    data[0][0]=(f(a)+f(b))*(b-a)/2;
    for(int i=1;i<m;++i){
        h[i]=h[i-1]/2;
        data[0][i]=data[0][i-1]/2;
        for(int j=0;j<(1<<(i-1));++j){
            data[0][i]+=h[i]*f(a+(2*j+1)*h[i]);
        }
    }
    for(int i=0;i<m-1;++i){
        for(int j=0;j<m-i-1;++j){
            data[i+1][j]=data[i][j+1]+(data[i][j+1]-data[i][j])/(pow(h[j]/h[j+1+i],2)-1);
        }
    }
    return data[m-1][0];
}

int main(){
    cout<<fixed<<setprecision(15);
    D r,h,d;
    cin>>r>>h>>d;
    auto f=[&](D z)->D{
        D r2=r*(h-z)/h;
        D t=acos(d/2/r2);
        if(r2*r2-d*d/4<0)return 0;
        return r2*r2*t-d*sqrt(r2*r2-d*d/4)/2;
    };
    cout<<romberg_integration(20,0,h,f)*2<<endl;
}
0