弹性链杆法半衬砌程序

本资料包含doc文件1个，下载需要20积分

弹性链杆法半衬砌程序DIMENSION X(31)，Y(31)，DYCS(30，4)，KB(93，94)，DRTA(93) REAL KB INTEGER JDCS(31，4)，TXFLAG(31)，CSFLAG OPEN(1，FILEINPUT.DAT，STATUSOLD) OPEN(2，FILEOUTPUT.DAT，STATUSUNKNOWN) CALL INPUT(NJ，X，Y，DYCS