- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
- 28
- 29
- 30
- 31
- 32
- 33
- 34
- 35
- 36
- 37
- 38
- 39
- 40
- 41
- 42
- 43
- 44
- 45
- 46
- 47
- 48
- 49
- 50
- 51
- 52
- 53
- 54
- 55
- 56
- 57
- 58
- 59
- 60
- 61
void NestMathematica::DATABS(){
int ks1 = 0;
int ns1=0;
int ns=0;
ia=-1;
ia=ia+1;
b[ia]=-ak[0];
ia=ia+1;
b[ia]=alfa;
mud=1;
mld=1;
if(ks!=1){
ia=ia+1;
b[ia]=0.;
ks1=ks-1;
for(int i=0; i<ks1; i++){
ns1=ns;
ns=ns+1;
if(ns!=1){
ia=ia+1;
b[ia]=0.;
}
ia=ia+1;
b[ia]=ak[ns1];
ia=ia+1;
b[ia]=0.;
ia=ia+1;
b[ia]=-ak[ns];
ia=ia+1;
b[ia]=0.;
ia=ia+1;
b[ia]=h[ns1];
ia=ia+1;
b[ia]=1.;
ia=ia+1;
b[ia]=0.;
ia=ia+1;
b[ia]=-1.;
if(ns!=ks){
ia=ia+1;
b[ia]=0.;
}
}
mud=2;
mld=2;
ia=ia+1;
b[ia]=0.;
} //10
if(beta<0){
ia=ia+1;
b[ia]=h[ks-1];
ia=ia+1;
b[ia]=1.;
}else{
ia=ia+1;
b[ia]=ak[ks]+beta*h[ks];
ia=ia+1;
b[ia]=beta;
}
return;
}
Программист на фортране может программировать на любом языке... как на фортране.
Откуда инфа?
Да, могло бы быть и 61, но у нас годы со дня рождения считают.
А что, было бы забавно: программист и язык программирования появились одновременно, вместе росли, играли, учились :)
>>> ia=ia+1;
По-моему, это либо обфускация, либо просто кто-то писал код "от балды", чтобы на ГК залить.
Тут на каждой "итерации" присвоения происходит инкремент.
Если сначала присвоить ноль, использовать значение как индекс, не делая инкремента, выглядит некрасиво!
А у тебя друзья на чём?
всё верно.
>ia=ia+1;
Глядя на сие, думал, то ли я дзен познал, то ли я попросту свихнулся.