利用fortran語言實現區間的線性變換

阿新 • • 發佈：2018-11-06

!.. 本程式碼的功能：將[0,1)區間線性變換到[3.5,11.2)
Program LinearTransform
    implicit none
    integer, parameter :: n = 10000
    real :: x0 = 3.5, x1 = 11.2 
    real :: x(n), tranx(n)
    
    call random_seed()
    call random_number( x )  !.. 分佈為[0,1)
    
    print*, minval(x), maxval(x)
    !.. 進行線性變換：tranx = ( max(tranx) - min(tranx) ) / ( max(x) - min(x) ) * ( x - min(x) ) + min(tranx)
    !.. x的範圍為[0,1), max(x) = 1; min(x) = 0. 所以max(x) - min(x) = 1. max(tranx) = 11.2; min(tranx) = 3.5
    !.. 所以最終式子為： tranx = x * ( max(tranx) - min(tranx) ) + min(tranx)
    !.. 當n越大，線性變換後的範圍越精確
    tranx = x * ( x1 - x0 ) + x0   !.. 分佈範圍為[3.5,11.2)    
    print*, minval(tranx), maxval(tranx)
    
End program LinearTransform

利用fortran語言實現區間的線性變換

!.. 本程式碼的功能：將[0,1)區間線性變換到[3.5,11.2) Program LinearTransform implicit none integer, parameter :: n = 10000 real :: x0 = 3.5, x1 = 11.2

利用fortran語言驗證“拋硬幣”的概率

使用ivf編譯器 Program main implicit none integer(kind=8) :: nn = 1000000000 !.. 設定拋硬幣的總次數 integer(kind=8) :: m, n, i real(kind=8) ::

資料結構C語言實現-2—線性表

Table of Contents 靜態連結串列線性表順序儲存結構 #include <stdio.h> #define OK 1 #define ERROR 0 #define TRUE 1 #define FALSE 0 #de

【人工智慧】利用C語言實現KNN演算法進行手寫數字識別

KNN演算法稱為鄰近演算法，或者說K最近鄰(kNN，k-NearestNeighbor)分類演算法。所謂K最近鄰，就是k個最近的鄰居的意思，說的是每個樣本都可以用它最接近的k個鄰居來代表。kNN演算法的核心思想是如果一個樣本在特徵空間中的k個最相鄰的樣本中的大多數屬於某一個類

利用C語言實現大數加減法

大數加法： #include <stdio.h> #include <string.h> #define M 100 //定義了數量M是100作為陣列初始化的數量 in

利用C語言實現計算機影象處理的方法

1．影象平移　　影象平移只是改變影象在螢幕上的位置，影象本身並不發生變化。　　假設原影象區域左上角座標為(x0, y0)，右下角座標為(x1, y1)，將影象分別沿x和y軸平移dx和dy，則新影象的左上角座標為(x0 ＋ dx, y0 ＋ dy)，右下角座標為(x1 ＋ dx, y1 ＋ dy)。座標平

利用C語言實現sin(x)曲線與cos(x)曲線圖形的同時顯示

在前面兩天的部落格中，我們學會了如何用C語言分別繪製sin(x)和cos(x)在0°~360°的曲線。今天我們來試試將兩條曲線同時繪製出來。要求：在螢幕上顯示0°~360°的cos(x)曲線與sin(x)曲線的疊加圖形。其中cos(x)圖形用

資料結構C語言實現——順序線性表SqList

delcaration.h #ifndef DECLARATION_H_INCLUDED #define DECLARATION_H_INCLUDED #define TRUE 1 #define FALSE 0 #define OK 1 #define ERROR 0

C語言實現線性表基本操作

style eal struct fine fin delete class logs destroy #include <stdio.h> #include <tchar.h> #include <stdlib.h> #define

數據結構-線性表的鏈式存儲相關算法（一）（C語言實現）

存儲位置 lib 方法 lis 逆序順序程序查詢 c語言鏈表的簡單介紹為什麽需要線性鏈表當然是為了克服順序表的缺點，在順序表中，做插入和刪除操作時，需要大量的移動元素，導致效率下降。線性鏈表的分類按照鏈接方式：按照實現角度：線性鏈表的創建和簡單遍歷

◮ R語言筆記(四): 向量、陣列、矩陣與資料框 + 利用矩陣求解二維線性方程組

在筆記一中已經提到了向量，這篇文章主要介紹R語言中的四中常用的結構：向量：*傳送門* 陣列矩陣資料框然後在介紹如何利用矩陣求解二維線性方程組。 ***************************************************

fortran實現正餘弦變換

本來是想正餘弦變換都做的，根據前人研究：正弦變換的結果比餘弦更精確。所以本程式碼只做了正弦變化，如果讀者想實現餘弦變換，只需要把對應的正弦變換系數改為餘弦變換系數即可。在末尾本文會給出250點正餘弦變換系數。程式碼如下： !.. 本程式碼將實現正餘弦變換 !.. 測試函式 !..

線性表及其應用C語言實現（資料結構複習最全筆記）

一、順序表的表示與實現 1.線性表的順序結構定義 #define LIST_INIT_SIZE 100 //線性表儲存空間的初始分配量 #define LISTINCREMENT 10 //線性表儲存空間的分配增量 typedef struct { ElemType* el

利用vue-i18n實現多語言切換

在angular中有ngx-translate解決i18n的需求，vue也具備這樣的能力，利用vue-i18n，我們可以實現多語言的切換，可以輕鬆搞定大部分的需求，包括中英文切換，以及詞條的變更。詞條變更在基線版本真的是經常會遇到的，本人深有體會。不扯淡了，說一下vue-i18n基本的使

C語言實現householder變換（數值計算方法課程設計）

博主系某985資訊與計算科學大三，剛除錯成功，分享給正在學習數值計算的夥伴們，有問題還請大家批評指正。 #include <stdio.h> #include <stdlib.h> #include <math.h> #define N 100 s

Fisher線性判別及R語言實現

目錄判別分析線性判別分析求Fisher線性判別函式計算判別界值資料如下 R程式碼程式碼解釋及結果分析判別分析 discriminat analysis,是多變數統計中用於判別樣品所屬類別的一種統計分析方法。它所解決的問題是在一些已知研

ML之SVM：利用Js語言設計SVM演算法(SMO演算法+線性核/高斯核)

ML之SVM：利用Js語言設計SVM演算法(SMO演算法+線性核/高斯核) 輸出結果設計思路設計程式碼(部分程式碼) var doTest = function() { loadData();

順序表(線性表的順序儲存結構)及C語言實現

1.邏輯結構上呈線性分佈的資料元素在實際的物理儲存結構中也同樣相互之間緊挨著，這種儲存結構稱為線性表的順序儲存結構。也就是說，邏輯上具有線性關係的資料按照前後的次序全部儲存在一整塊連續的記憶體空間中，之間不存在空隙，這樣的儲存結構稱為順序儲存結構。使用順序儲存結構儲存的資料，第一個元素所在的地

linux下c語言利用iconv函式實現utf-8轉unicode

由於專案中需要轉換原生unicode到ascii的功能，本來想的用的是linux或者windows自帶的寬位元組轉成窄位元組的函式，但由於本身使用了apr_iconv庫，所以直接使用庫函式來解決。期間碰到了庫函式使用一直出錯的問題，一

資料結構與演算法——線性表之順序表（JAVA語言實現）

資料結構與演算法——線性表之順序表（JAVA語言實現）線性表是由n個數據元素組成的優先序列。線性表中每個元素都必須有相同的結構，線性表是線性結構中最常用而又最簡單的一種資料結構。線性表由儲存結構是否連續可分為順序表和連結串列。順序表指線性表中每個元素按順序依次儲存，線性表中邏

利用fortran語言實現區間的線性變換

相關推薦