2019年4月3日 星期三

[JAVA程式語言] 範例1-1 通過下面2點的Lagrange內插法求P(1.5)之值?

[JAVA程式語言] 範例1-1 通過下面2點的Lagrange內插法求P(1.5)之值?

/* ex1-4.java: Lagrange Interpolation Algorithm
 * Read in data file of ex1-4.dat which has n point values
 * and the value of interpolating point xa. Based on Lagrange
 * Interpolation algorithm to compute p(xa) and output its value.
 * (x[i],f[i]):given points and n+1 are number of points
 * Ln,k(x)=l=summation of (x-x[i])/(x[k]-x[i]).
 * p(x)=ff=L(x)*f(x[k])
 */
// 範例1-1 通過下面2點的Lagrange內插法求P(1.5)之值?
import java.util.Scanner;

public class Main {
    public static void main(String []args) {
        Scanner scanner = new Scanner(System.in);
        float[]  x, f ;
        float xa , l ,ff;
        int i,k,n;
        x = new float[10]; // 利用new指令產生物件
        f = new float[10]; // 利用new指令產生物件

        n=scanner.nextInt();
        xa=scanner.nextFloat();
        System.out.printf("n=%2d\txa=%2.2f",n,xa);
        System.out.println();
        for(k=0;k<=n;k++)
        {
            //Scanner scanner = new Scanner(System.in);
            x[k]=scanner.nextFloat();
            f[k]=scanner.nextFloat();
            System.out.printf("x[k]=%2.2f, f[k]=%2.2f",x[k],f[k]);
            System.out.println();
        }
       
        ff=0;
        for(k=0;k<=n;k++){
           l=1;
           i=0;
           do{
        if(i !=k) {
                l=l*(xa-x[i])/(x[k]-x[i]);
        }
        i=i+1;
        System.out.printf("l=%f n=%2d i=%2d",l, n, i);
                        System.out.println();
           } while (i<=n);
        ff=ff+l*f[k];
        System.out.printf("l=%f k=%2d The value of p(%f)=%f",l, k,xa ,ff);
        System.out.println();
        }
        System.out.printf("The value of p(%f)=%f",xa ,ff);
    }
}

輸入資料
1   1.5
1.0  0.0
2.0  0.693
輸出畫面
$javac Main.java
$java -Xmx128M -Xms16M Main
n= 1 xa=1.50
x[k]=1.00, f[k]=0.00
x[k]=2.00, f[k]=0.69
l=1.000000 n= 1 i= 1
l=0.500000 n= 1 i= 2
l=0.500000 k= 0 The value of p(1.500000)=0.000000
l=0.500000 n= 1 i= 1
l=0.500000 n= 1 i= 2
l=0.500000 k= 1 The value of p(1.500000)=0.346500
The value of p(1.500000)=0.346500

沒有留言:

張貼留言

113 學年度第 1 學期 RFID應用課程 Arduino程式

113 學年度第 1 學期 RFID應用課程 Arduino程式 https://www.mediafire.com/file/zr0h0p3iosq12jw/MFRC522+(2).7z/file 內含修改過後的 MFRC522 程式庫 (原程式有錯誤) //定義MFRC522...