APDL語(yǔ)法案例：用APDL來(lái)編程

2016-08-24 by:CAE仿真在線(xiàn) 來(lái)源:互聯(lián)網(wǎng)

為了說(shuō)明APDL語(yǔ)法和能力,下面提供一個(gè)用APDL來(lái)編程的案例,會(huì)編程的人一眼就能看出其不俗的編程能力。

! bubble sort, ascending order

! by wang shijun, smie, xaut, Oct. 5, 2011

*del,all !刪除所有數(shù)據(jù),為運(yùn)算做準(zhǔn)備

n=10 ! 定義數(shù)組的長(zhǎng)度n

*dim, a, array, n ! 定義數(shù)組a

! 初始化數(shù)組中的數(shù)據(jù),構(gòu)造簡(jiǎn)單遞減數(shù)據(jù),9,8,7,6,...0

*do,i,1,n,1

a(i)=n-i

*enddo

! 下面通過(guò)兩個(gè)do,enddo循環(huán) 進(jìn)行冒泡排序,使其按照遞增順序排序

!冒泡排序的算法是:每次比較總是把兩個(gè)目標(biāo)值按照要求的順序(升續(xù))排序,即如果是反序則交換,每次循環(huán)都可以把剩下的目標(biāo)值,往上排序

*do,i,1,n,1

*do,j,n,2,-1

*if,a(j),lt,a(j-1),then ! 交換兩個(gè)數(shù)

buff=a(j)

a(j)=a(j-1)

a(j-1)=buff

*endif

*enddo ! do j循環(huán)的結(jié)束

*enddo ! do i循環(huán)的結(jié)束

開(kāi)放分享：優(yōu)質(zhì)有限元技術(shù)文章,助你自學(xué)成才

編輯