user: 这段汇编代码用C语言表示是什么样的？

```asm
<spgam>:
  endbr64
  push   %rbp
  mov    %rsp,%rbp
  push   %r15
  push   %r14
  push   %r13
  push   %r12
  push   %rbx
  sub    $0x668,%rsp
  mov    %rdi,-0x610(%rbp)
  mov    %fs:0x28,%rax
  mov    %rax,-0x38(%rbp)
  mov    %rsp,%rax
  cmp    %rax,%rsp
  je     L331
L246:
  sub    $0x1000,%rsp
  orq    $0x0,0xff8(%rsp)
  cmp    %rax,%rsp
  jne    L246
L331:
  sub    $0xe60,%rsp
  orq    $0x0,0xe58(%rsp)
  lea    0x7(%rsp),%rax
  mov    %rax,%rsi
  and    $0xfffffffffffffff8,%rax
  mov    %rax,-0x660(%rbp)
  shr    $0x3,%rsi
  mov    %rsp,%rax
  mov    %rsi,-0x560(%rbp)
  cmp    %rax,%rsp
  je     L411
L446:
  sub    $0x1000,%rsp
  orq    $0x0,0xff8(%rsp)
  cmp    %rax,%rsp
  jne    L446
L411:
  sub    $0xc80,%rsp
  orq    $0x0,0xc78(%rsp)
  mov    %rsp,%rax
  mov    %rsp,-0x618(%rbp)
  cmp    %rax,%rsp
  je     L268
L121:
  sub    $0x1000,%rsp
  orq    $0x0,0xff8(%rsp)
  cmp    %rax,%rsp
  jne    L121
L268:
  sub    $0xc80,%rsp
  orq    $0x0,0xc78(%rsp)
  mov    %rsp,%rax
  mov    %rsp,%r14
  cmp    %rax,%rsp
  je     L393
L349:
  sub    $0x1000,%rsp
  orq    $0x0,0xff8(%rsp)
  cmp    %rax,%rsp
  jne    L349
L393:
  sub    $0xc80,%rsp
  orq    $0x0,0xc78(%rsp)
  mov    %rsp,%rax
  mov    %rsp,-0x620(%rbp)
  cmp    %rax,%rsp
  je     L221
L358:
  sub    $0x1000,%rsp
  orq    $0x0,0xff8(%rsp)
  cmp    %rax,%rsp
  jne    L358
L221:
  sub    $0xc80,%rsp
  orq    $0x0,0xc78(%rsp)
  mov    %rsp,%rax
  mov    %rsp,-0x558(%rbp)
  cmp    %rax,%rsp
  je     L481
L424:
  sub    $0x1000,%rsp
  orq    $0x0,0xff8(%rsp)
  cmp    %rax,%rsp
  jne    L424
L481:
  sub    $0xc80,%rsp
  orq    $0x0,0xc78(%rsp)
  mov    %rsp,%r13
  mov    %rsp,%rax
L126:
  cmp    %rax,%rsp
  je     L317
  sub    $0x1000,%rsp
  orq    $0x0,0xff8(%rsp)
  jmp    L126
L317:
  sub    $0xc80,%rsp
  orq    $0x0,0xc78(%rsp)
  lea    D106(%rip),%rbx
  lea    D192(%rip),%rdi
  mov    %rbx,%rsi
  mov    %rsp,-0x568(%rbp)
  call   <fopen@plt>
  mov    %rax,%r8
  test   %rax,%rax
  jne    L220
  mov    %rax,-0x570(%rbp)
  lea    D36(%rip),%rdi
  xor    %eax,%eax
  call   <printf@plt>
  mov    -0x570(%rbp),%r8
L220:
  lea    -0x540(%rbp),%rax
  mov    %r13,-0x570(%rbp)
  lea    D394(%rip),%r12
  mov    %r8,%r13
  mov    %rax,-0x628(%rbp)
  mov    %rax,%r15
  lea    -0x4f0(%rbp),%rax
  mov    %rax,-0x608(%rbp)
L209:
  mov    %r15,%rdx
  mov    %r12,%rsi
  mov    %r13,%rdi
  add    $0x4,%r15
  call   <fscanf@plt>
  cmp    -0x608(%rbp),%r15
  jne    L209
  mov    %r13,%r8
  mov    -0x570(%rbp),%r13
  mov    %r8,%rdi
  call   <fclose@plt>
  mov    %rbx,%rsi
  lea    D94(%rip),%rdi
  call   <fopen@plt>
  mov    %rax,%rbx
  test   %rax,%rax
  je     L360
L102:
  mov    -0x608(%rbp),%rdx
  mov    %r13,-0x570(%rbp)
  lea    -0x4a0(%rbp),%r15
  mov    %rbx,%r13
  mov    %rdx,%rbx
L276:
  mov    %rbx,%rdx
  mov    %r12,%rsi
  mov    %r13,%rdi
  add    $0x4,%rbx
  call   <fscanf@plt>
  cmp    %r15,%rbx
  jne    L276
  mov    %r13,%rbx
  mov    -0x570(%rbp),%r13
  mov    %rbx,%rdi
  call   <fclose@plt>
  movss  D184(%rip),%xmm0
  xor    %eax,%eax
  movss  -0x540(%rbp),%xmm8
  mov    -0x660(%rbp),%rdi
  mov    $0x15,%ecx
  pxor   %xmm6,%xmm6
  movss  D18(%rip),%xmm2
  mulss  %xmm8,%xmm0
  pxor   %xmm9,%xmm9
  movss  -0x4f0(%rbp),%xmm7
  mov    -0x628(%rbp),%rbx
  rep stos %rax,%es:(%rdi)
  movaps %xmm2,%xmm4
  movaps %xmm2,%xmm5
  mov    -0x618(%rbp),%rdi
  divss  %xmm7,%xmm5
  mov    $0x15,%ecx
  mov    $0x1,%r11d
  cvtss2sd %xmm7,%xmm9
  rep stos %rax,%es:(%rdi)
  mov    -0x620(%rbp),%rdi
  mov    $0x15,%ecx
  lea    -0x220(%rbp),%r10
  rep stos %rax,%es:(%rdi)
  addss  %xmm2,%xmm0
  mov    -0x560(%rbp),%rax
  mov    -0x618(%rbp),%rdi
  movq   $0x0,0xa8(,%rax,8)
  lea    0xa0(%rdi),%r8
  mov    -0x620(%rbp),%rdi
  movq   $0x0,0xb0(,%rax,8)
  mov    -0x660(%rbp),%rax
  lea    0xa0(%rdi),%r9
  lea    0xb8(%rax),%rsi
  lea    -0x218(%rbp),%rax
  mov    %rax,-0x570(%rbp)
  mov    %rax,%rdx
  lea    -0x400(%rbp),%rax
  mov    %rax,-0x630(%rbp)
  lea    -0x360(%rbp),%rax
  mov    %rsi,-0x670(%rbp)
  mov    %rax,-0x640(%rbp)
  lea    -0xe0(%rbp),%rax
  mov    %rax,-0x638(%rbp)
  xor    %eax,%eax
  divss  %xmm0,%xmm4
  cvtss2sd %xmm5,%xmm5
  movsd  %xmm5,-0x220(%rbp)
  cvtss2sd %xmm4,%xmm6
  movss  %xmm4,-0x644(%rbp)
  movsd  %xmm6,-0x400(%rbp)
L11:
  movss  (%rbx,%r11,4),%xmm0
  movss  D184(%rip),%xmm1
  mov    %rsi,%rcx
  pxor   %xmm3,%xmm3
  mov    -0x630(%rbp),%rdi
  mulss  %xmm0,%xmm1
  cvtss2sd %xmm0,%xmm0
  addss  %xmm2,%xmm1
  divss  %xmm1,%xmm4
  pxor   %xmm1,%xmm1
  cvtss2sd %xmm4,%xmm1
  movsd  %xmm1,(%rdi,%r11,8)
  movapd %xmm5,%xmm1
  mov    -0x640(%rbp),%rdi
  movsd  %xmm0,(%rdi,%r11,8)
  lea    0x8(%rsi),%rdi
  and    $0xfffffffffffffff8,%rdi
  movq   $0x0,(%rsi)
  movq   $0x0,0xa0(%rsi)
  sub    %rdi,%rcx
  add    $0xa8,%ecx
  shr    $0x3,%ecx
  rep stos %rax,%es:(%rdi)
  lea    0x8(%r8),%rdi
  mov    %r8,%rcx
  movq   $0x0,(%r8)
  movq   $0x0,0xa0(%r8)
  and    $0xfffffffffffffff8,%rdi
  sub    %rdi,%rcx
  add    $0xa8,%ecx
  shr    $0x3,%ecx
  rep stos %rax,%es:(%rdi)
  lea    0x8(%r9),%rdi
  mov    %r9,%rcx
  movq   $0x0,(%r9)
  movq   $0x0,0xa0(%r9)
  and    $0xfffffffffffffff8,%rdi
  sub    %rdi,%rcx
  add    $0xa8,%ecx
  shr    $0x3,%ecx
  rep stos %rax,%es:(%rdi)
  mov    %r10,%rcx
  movq   $0x0,0xa8(%rsi)
  movq   $0x0,0xb0(%rsi)
  mov    -0x608(%rbp),%rdi
  lea    (%rdi,%r11,4),%rdi
  jmp    L219
  nopw   0x0(%rax,%rax,1)
L191:
  movsd  (%rcx),%xmm1
L219:
  pxor   %xmm0,%xmm0
  add    $0x8,%rcx
  sub    $0x4,%rdi
  cvtss2sd 0x4(%rdi),%xmm0
  mulsd  %xmm1,%xmm0
  addsd  %xmm0,%xmm3
  cmp    %rdx,%rcx
  jne    L191
  xorpd  D57(%rip),%xmm3
  mov    -0x638(%rbp),%rdi
  add    $0xb8,%rsi
  add    $0xa0,%r8
  add    $0xa0,%r9
  lea    0x8(%rcx),%rdx
  divsd  %xmm9,%xmm3
  movq   $0x0,(%rdi,%r11,8)
  add    $0x1,%r11
  movsd  %xmm3,(%rcx)
  cmp    $0x14,%r11
  jne    L11
  mov    D45(%rip),%rax
  mov    -0x558(%rbp),%rsi
  mov    %r11,-0x560(%rbp)
  xor    %edx,%edx
  movsd  D51(%rip),%xmm3
  movsd  D155(%rip),%xmm4
  mov    %rax,-0xe0(%rbp)
  mov    -0x630(%rbp),%r9
  mov    %rsi,%r8
  xor    %eax,%eax
  movsd  %xmm3,-0xd8(%rbp)
  jmp    L285
L243:
  mov    -0x628(%rbp),%rdi
  movsd  (%r9,%rdx,2),%xmm6
  movss  (%rdi,%rdx,1),%xmm8
L285:
  movapd %xmm4,%xmm0
  cvtss2sd %xmm8,%xmm8
  lea    0x8(%rsi),%rdi
  mov    %rsi,%rcx
  divsd  %xmm6,%xmm0
  and    $0xfffffffffffffff8,%rdi
  movq   $0x0,(%rsi)
  add    $0xa8,%r8
  sub    %rdi,%rcx
  add    $0xa0,%rsi
  movq   $0x0,-0x8(%rsi)
  add    $0xa0,%ecx
  shr    $0x3,%ecx
  rep stos %rax,%es:(%rdi)
  divsd  %xmm8,%xmm0
  movsd  %xmm0,-0xb0(%r8)
  movsd  -0x8(%r9,%rdx,2),%xmm0
  xorpd  D57(%rip),%xmm0
  add    $0x4,%rdx
  mulsd  %xmm4,%xmm0
  divsd  %xmm6,%xmm0
  divsd  %xmm6,%xmm0
  divsd  %xmm8,%xmm0
  movsd  %xmm0,-0xa8(%r8)
  cmp    $0x50,%rdx
  jne    L243
  mov    %r13,-0x590(%rbp)
  mov    -0x568(%rbp),%rax
  lea    -0x53c(%rbp),%r9
  lea    -0x3f8(%rbp),%rsi
  mov    -0x570(%rbp),%r13
  mov    $0x1,%edi
  mov    %r15,-0x570(%rbp)
  lea    0x8(%r10),%r11
  mov    %r14,-0x588(%rbp)
  add    $0xa0,%rax
  mov    %rsi,%r8
  mov    %r9,%r10
  movss  D186(%rip),%xmm6
  mov    -0x608(%rbp),%r14
  mov    %r9,-0x578(%rbp)
  mov    %rax,%r9
  mov    %rsi,-0x580(%rbp)
  mov    $0x10,%r12d
  mov    %rdi,%rsi
  lea    -0x4ec(%rbp),%rbx
L436:
  mov    -0x558(%rbp),%rcx
  lea    (%rsi,%rsi,4),%rax
  mov    %esi,%edi
  lea    (%rsi,%rax,4),%rax
  lea    (%rcx,%rax,8),%r15
  xor    %ecx,%ecx
  xchg   %ax,%ax
L532:
  cmp    %esi,%edi
  jl     L425
  movss  (%r14,%rcx,1),%xmm1
  mov    %r15,%rdx
  movaps %xmm7,%xmm0
  xor    %eax,%eax
  mulss  %xmm6,%xmm1
  jmp    L70
  nopl   0x0(%rax)
L58:
  movss  (%rbx,%rax,1),%xmm0
  add    $0x4,%rax
L70:
  mulss  %xmm1,%xmm0
  movsd  (%r8,%rax,2),%xmm9
  add    $0x8,%rdx
  movss  D184(%rip),%xmm8
  mulss  (%r10,%rax,1),%xmm8
  addss  %xmm2,%xmm8
  divss  %xmm8,%xmm0
  divss  %xmm8,%xmm0
  cvtss2sd %xmm0,%xmm0
  movapd %xmm0,%xmm8
  xorpd  D57(%rip),%xmm0
  mulsd  -0x8(%r8,%rax,2),%xmm0
  mulsd  %xmm4,%xmm8
  mulsd  %xmm4,%xmm0
  divsd  %xmm9,%xmm8
  divsd  %xmm9,%xmm0
  addsd  -0x10(%rdx),%xmm8
  movsd  %xmm8,-0x10(%rdx)
  divsd  %xmm9,%xmm0
  addsd  -0x8(%rdx),%xmm0
  movsd  %xmm0,-0x8(%rdx)
  cmp    %rcx,%rax
  jne    L58
L425:
  add    $0x1,%edi
  add    $0xa0,%r15
  add    $0x4,%rcx
  cmp    $0x14,%edi
  jne    L532
  lea    0x8(%r9),%rdi
  mov    %r9,%rcx
  mov    %r12d,%eax
  movq   $0x0,(%r9)
  movq   $0x0,-0x8(%r9,%rax,1)
  and    $0xfffffffffffffff8,%rdi
  xor    %eax,%eax
  sub    %rdi,%rcx
  add    %r12d,%ecx
  shr    $0x3,%ecx
  rep stos %rax,%es:(%rdi)
  mov    -0x558(%rbp),%rax
  mov    -0x560(%rbp),%rdi
  lea    (%rax,%rdi,8),%rdi
  nopl   (%rax)
L328:
  lea    (%rcx,%rdi,1),%rdx
  movapd %xmm5,%xmm0
  pxor   %xmm1,%xmm1
  mov    %r13,%rax
  jmp    L389
  nopl   0x0(%rax)
L361:
  movsd  (%rax),%xmm0
  add    $0x8,%rax
L389:
  mulsd  (%rdx),%xmm0
  sub    $0xa0,%rdx
  addsd  %xmm0,%xmm1
  cmp    %r11,%rax
  jne    L361
  movsd  %xmm1,(%r9,%rcx,1)
  add    $0x8,%rcx
  cmp    %r12,%rcx
  jne    L328
  add    $0x1,%rsi
  lea    0x8(%rcx),%r12
  lea    0x8(%rax),%r11
  add    $0x4,%r10
  addq   $0x14,-0x560(%rbp)
  add    $0xa0,%r9
  add    $0x8,%r8
  cmp    $0x14,%rsi
  jne    L436
  mov    -0x618(%rbp),%rax
  mov    -0x588(%rbp),%r14
  mov    %rsi,%rdi
  mov    $0x1,%ebx
  mov    -0x590(%rbp),%r13
  mov    -0x578(%rbp),%r9
  lea    0xa8(%rax),%r12
  mov    -0x620(%rbp),%rax
  mov    %r14,-0x560(%rbp)
  mov    -0x580(%rbp),%rsi
  movsd  D314(%rip),%xmm6
  add    $0xa8,%rax
  mov    -0x608(%rbp),%r8
  mov    -0x570(%rbp),%r15
  mov    %r13,-0x570(%rbp)
  mov    %rax,-0x558(%rbp)
  mov    %rdi,%r13
L462:
  mov    -0x558(%rbp),%r11
  mov    %r12,%r10
  mov    $0x1,%edi
  lea    -0x1(%rbx),%r14d
  nopl   0x0(%rax,%rax,1)
L238:
  lea    (%r14,%rdi,1),%eax
  cmp    %ebx,%eax
  jl     L538
  movss  D184(%rip),%xmm5
  mov    %r11,%rcx
  mov    %r10,%rdx
  xor    %eax,%eax
  mulss  -0x4(%r8,%rdi,4),%xmm5
  movaps %xmm7,%xmm9
  jmp    L324
  nopl   0x0(%rax)
L91:
  movss  (%r8,%rax,4),%xmm9
L324:
  mulss  %xmm5,%xmm9
  movsd  (%rsi,%rax,8),%xmm8
  add    $0x8,%rdx
  add    $0x8,%rcx
  movss  D184(%rip),%xmm10
  mulss  (%r9,%rax,4),%xmm10
  addss  %xmm2,%xmm10
  divss  %xmm10,%xmm9
  divss  %xmm10,%xmm9
  cvtss2sd %xmm10,%xmm10
  cvtss2sd %xmm9,%xmm9
  movapd %xmm9,%xmm0
  mulsd  %xmm4,%xmm0
  movapd %xmm0,%xmm1
  xorpd  D57(%rip),%xmm0
  divsd  %xmm8,%xmm1
  addsd  -0x10(%rdx),%xmm1
  movsd  %xmm1,-0x10(%rdx)
  movsd  -0x8(%rsi,%rax,8),%xmm1
  add    $0x1,%rax
  mulsd  %xmm1,%xmm0
  divsd  %xmm8,%xmm0
  divsd  %xmm8,%xmm0
  addsd  -0x8(%rdx),%xmm0
  movsd  %xmm0,-0x8(%rdx)
  movapd %xmm9,%xmm0
  mulsd  %xmm6,%xmm0
  divsd  %xmm10,%xmm0
  movapd %xmm0,%xmm10
  mulsd  %xmm1,%xmm0
  mulsd  %xmm4,%xmm10
  mulsd  %xmm4,%xmm0
  divsd  %xmm8,%xmm10
  divsd  %xmm8,%xmm0
  mulsd  %xmm4,%xmm10
  divsd  %xmm8,%xmm10
  divsd  %xmm8,%xmm0
  addsd  -0x10(%rcx),%xmm10
  movsd  %xmm10,-0x10(%rcx)
  mulsd  %xmm1,%xmm0
  mulsd  %xmm9,%xmm1
  mulsd  %xmm4,%xmm0
  addsd  %xmm1,%xmm1
  mulsd  %xmm4,%xmm1
  divsd  %xmm8,%xmm0
  divsd  %xmm8,%xmm1
  divsd  %xmm8,%xmm0
  divsd  %xmm8,%xmm1
  divsd  %xmm8,%xmm1
  addsd  %xmm1,%xmm0
  addsd  -0x8(%rcx),%xmm0
  movsd  %xmm0,-0x8(%rcx)
  cmp    %rdi,%rax
  jne    L91
L538:
  add    $0x1,%rdi
  add    $0xa0,%r10
  add    $0xa0,%r11
  cmp    %r13,%rdi
  jne    L238
  add    $0x1,%rbx
  lea    -0x1(%rdi),%r13
  add    $0x4,%r9
  add    $0x8,%rsi
  addq   $0xa8,-0x558(%rbp)
  add    $0xa8,%r12
  cmp    $0x14,%rbx
  jne    L462
  cmpq   $0x0,-0x610(%rbp)
  mov    -0x560(%rbp),%r14
  mov    -0x570(%rbp),%r13
  jle    L319
  mov    -0x660(%rbp),%rax
  mov    %r15,-0x5a0(%rbp)
  movq   $0x0,-0x668(%rbp)
  add    $0x18,%rax
  mov    %rax,-0x678(%rbp)
  lea    -0x180(%rbp),%rax
  mov    %rax,-0x5b0(%rbp)
  lea    -0x170(%rbp),%rax
  mov    %rax,-0x680(%rbp)
  lea    -0x2c0(%rbp),%rax
  mov    %rax,-0x650(%rbp)
  lea    -0x2b8(%rbp),%rax
  mov    %rax,-0x688(%rbp)
  mov    -0x568(%rbp),%rax
  sub    $0xa0,%rax
  mov    %rax,-0x690(%rbp)
  lea    -0x548(%rbp),%rax
  mov    %rax,-0x658(%rbp)
L366:
  mov    -0x5a0(%rbp),%rdx
  mov    -0x628(%rbp),%rcx
  mov    $0x1,%eax
  nopl   (%rax)
L42:
  pxor   %xmm0,%xmm0
  cvtss2sd (%rcx,%rax,4),%xmm0
  movsd  %xmm0,(%rdx,%rax,8)
  add    $0x1,%rax
  cmp    $0x14,%rax
  jne    L42
  mov    -0x678(%rbp),%rax
  mov    $0x1,%r12d
  mov    %r13,%r15
  movq   $0x0,-0x5d0(%rbp)
  mov    -0x688(%rbp),%rbx
  movsd  %xmm3,-0x5c0(%rbp)
  mov    %rax,-0x5a8(%rbp)
  mov    -0x660(%rbp),%rax
  movq   $0x0,-0x570(%rbp)
  mov    %rax,-0x5f0(%rbp)
  mov    -0x680(%rbp),%rax
  movl   $0x0,-0x5b8(%rbp)
  mov    %rax,-0x5e0(%rbp)
  mov    -0x690(%rbp),%rax
  mov    %rax,-0x5d8(%rbp)
  mov    -0x670(%rbp),%rax
  mov    %rax,-0x5e8(%rbp)
  xchg   %ax,%ax
L202:
  mov    -0x658(%rbp),%rsi
  mov    $0x1,%edi
  mov    %r12d,-0x5b4(%rbp)
  call   <nrandv@plt>
  mov    D288(%rip),%rax
  mov    -0x5b8(%rbp),%edi
  movq   %rax,%xmm2
  mov    D51(%rip),%rax
  cmp    $0x13,%edi
  movq   %rax,%xmm3
  jg     L52
  movslq %edi,%rax
  add    $0x1,%edi
  movsd  -0x548(%rbp),%xmm0
  mov    %edi,-0x5b8(%rbp)
  movsd  %xmm0,-0x2c0(%rbp,%rax,8)
L52:
  mov    -0x608(%rbp),%rdi
  mov    %r12,%rax
  movq   $0x0,-0x558(%rbp)
  neg    %rax
  mov    %r12,-0x580(%rbp)
  mov    %rbx,-0x578(%rbp)
  lea    (%rdi,%rax,4),%rax
  mov    -0x5a0(%rbp),%rbx
  mov    %rax,%r13
  nopl   0x0(%rax)
L262:
  movsd  (%rbx,%r12,8),%xmm5
  pxor   %xmm6,%xmm6
  cvtss2sd 0x0(%r13,%r12,4),%xmm6
  movsd  %xmm6,-0x560(%rbp)
  movapd %xmm5,%xmm0
  movsd  %xmm5,-0x568(%rbp)
  mulsd  %xmm2,%xmm0
  movapd %xmm0,%xmm1
  addsd  %xmm3,%xmm0
  mulsd  %xmm6,%xmm1
  divsd  %xmm0,%xmm1
  movapd %xmm2,%xmm0
  addsd  -0x558(%rbp),%xmm1
  movsd  %xmm1,-0x558(%rbp)
  call   <sqrt@plt>
  pxor   %xmm1,%xmm1
  mov    D288(%rip),%rdi
  movsd  -0x560(%rbp),%xmm6
  movsd  D324(%rip),%xmm7
  movsd  -0x558(%rbp),%xmm0
  cvtsi2sd %rax,%xmm1
  movq   %rdi,%xmm2
  mulsd  %xmm6,%xmm7
  mulsd  %xmm6,%xmm1
  mulsd  -0x548(%rbp),%xmm1
  subsd  %xmm7,%xmm0
  mulsd  %xmm6,%xmm0
  mulsd  %xmm2,%xmm0
  addsd  %xmm1,%xmm0
  call   <exp@plt>
  movsd  -0x568(%rbp),%xmm5
  mov    D288(%rip),%rax
  mulsd  %xmm5,%xmm0
  movq   %rax,%xmm2
  mov    D51(%rip),%rax
  movq   %rax,%xmm3
  mov    D155(%rip),%rax
  movq   %rax,%xmm4
  movsd  %xmm0,(%rbx,%r12,8)
  add    $0x1,%r12
  cmp    $0x14,%r12d
  jne    L262
  mov    -0x5a0(%rbp),%rax
  mov    -0x580(%rbp),%r12
  mov    -0x578(%rbp),%rbx
  mov    -0x5b0(%rbp),%rdi
  movsd  (%rax,%r12,8),%xmm7
  mov    -0x570(%rbp),%rax
  mov    -0x5e0(%rbp),%rcx
  mov    -0x618(%rbp),%r8
  movapd %xmm7,%xmm5
  add    $0xa0,%rax
  mov    -0x620(%rbp),%r10
  mov    -0x650(%rbp),%r11
  mulsd  %xmm2,%xmm5
  mov    %rax,-0x600(%rbp)
  mov    %rax,%rsi
  mov    -0x5d8(%rbp),%rax
  lea    0xa0(%rax),%r9
  movapd %xmm5,%xmm0
  addsd  %xmm3,%xmm0
  mulsd  -0x5c0(%rbp),%xmm0
  movsd  %xmm0,-0x5c0(%rbp)
  nopl   0x0(%rax,%rax,1)
L125:
  movsd  (%r8,%rsi,1),%xmm0
  lea    (%r9,%rsi,1),%rdx
  mov    %r11,%rax
  pxor   %xmm1,%xmm1
  mulsd  %xmm5,%xmm0
  movsd  %xmm0,(%r14,%rsi,1)
  movsd  (%r10,%rsi,1),%xmm0
  mulsd  %xmm5,%xmm0
  movsd  %xmm0,(%r15,%rsi,1)
  nopl   0x0(%rax,%rax,1)
L491:
  movsd  (%rax),%xmm0
  mulsd  (%rdx),%xmm0
  add    $0x8,%rax
  add    $0xa0,%rdx
  addsd  %xmm0,%xmm1
  cmp    %rax,%rbx
  jne    L491
  movsd  %xmm1,(%rdi)
  add    $0x8,%rdi
  add    $0x8,%rsi
  cmp    %rdi,%rcx
  jne    L125
  mov    -0x628(%rbp),%rax
  pxor   %xmm6,%xmm6
  movapd %xmm7,%xmm1
  mov    -0x630(%rbp),%rdi
  mov    -0x5a0(%rbp),%rdx
  cvtss2sd (%rax,%r12,4),%xmm6
  divsd  %xmm6,%xmm1
  movsd  (%rdi,%r12,8),%xmm5
  mov    -0x5d0(%rbp),%rax
  movapd %xmm1,%xmm0
  xorpd  D57(%rip),%xmm1
  mulsd  %xmm4,%xmm0
  divsd  %xmm5,%xmm0
  addsd  0xa0(%r14,%rax,1),%xmm0
  movsd  %xmm0,0xa0(%r14,%rax,1)
  movsd  -0x8(%rdi,%r12,8),%xmm0
  mov    -0x570(%rbp),%rdi
  mulsd  %xmm0,%xmm1
  lea    0x140(%rdi),%rsi
  mulsd  %xmm4,%xmm1
  divsd  %xmm5,%xmm1
  divsd  %xmm5,%xmm1
  addsd  0xa8(%r14,%rax,1),%xmm1
  movsd  %xmm1,0xa8(%r14,%rax,1)
  movapd %xmm7,%xmm1
  xorpd  D57(%rip),%xmm1
  mulsd  %xmm4,%xmm1
  divsd  %xmm5,%xmm1
  divsd  %xmm6,%xmm1
  mulsd  %xmm4,%xmm1
  divsd  %xmm6,%xmm1
  divsd  %xmm5,%xmm1
  addsd  0xa0(%r15,%rax,1),%xmm1
  movsd  %xmm1,0xa0(%r15,%rax,1)
  movapd %xmm0,%xmm1
  addsd  %xmm0,%xmm1
  mulsd  %xmm0,%xmm0
  mulsd  %xmm4,%xmm1
  mulsd  %xmm4,%xmm0
  divsd  %xmm5,%xmm1
  mulsd  %xmm4,%xmm0
  divsd  %xmm6,%xmm0
  divsd  %xmm5,%xmm1
  divsd  %xmm6,%xmm0
  divsd  %xmm6,%xmm1
  divsd  %xmm5,%xmm0
  divsd  %xmm5,%xmm1
  divsd  %xmm5,%xmm0
  divsd  %xmm5,%xmm0
  divsd  %xmm5,%xmm0
  pxor   %xmm5,%xmm5
  movapd %xmm5,%xmm6
  subsd  %xmm0,%xmm1
  mulsd  %xmm7,%xmm1
  addsd  0xa8(%r15,%rax,1),%xmm1
  movsd  %xmm1,0xa8(%r15,%rax,1)
  xor    %eax,%eax
L487:
  movsd  (%rdx),%xmm0
  movsd  (%r14,%rax,1),%xmm1
  add    $0x8,%rdx
  mulsd  %xmm2,%xmm0
  mulsd  %xmm2,%xmm1
  addsd  %xmm3,%xmm0
  divsd  %xmm0,%xmm1
  addsd  %xmm1,%xmm6
  movsd  (%r15,%rax,1),%xmm1
  add    $0xa0,%rax
  mulsd  %xmm2,%xmm1
  divsd  %xmm0,%xmm1
  addsd  %xmm1,%xmm5
  cmp    %rax,%rsi
  jne    L487
  movss  D184(%rip),%xmm0
  mulss  -0x644(%rbp),%xmm0
  movsd  %xmm5,-0x588(%rbp)
  movapd %xmm2,%xmm1
  movsd  -0x5c0(%rbp),%xmm5
  mov    -0x640(%rbp),%rax
  mov    -0x570(%rbp),%r13
  divsd  %xmm5,%xmm1
  cvtss2sd %xmm0,%xmm0
  movapd %xmm0,%xmm4
  movsd  (%rax,%r12,8),%xmm0
  movapd %xmm0,%xmm8
  cmpltsd %xmm7,%xmm8
  subsd  %xmm0,%xmm7
  andpd  %xmm3,%xmm8
  pxor   %xmm3,%xmm3
  maxsd  %xmm3,%xmm7
  movapd %xmm8,%xmm9
  movsd  %xmm8,-0x580(%rbp)
  mulsd  0xa0(%r14,%r13,1),%xmm9
  mulsd  %xmm7,%xmm6
  movsd  %xmm7,-0x578(%rbp)
  subsd  %xmm6,%xmm9
  movsd  -0x180(%rbp),%xmm6
  movsd  %xmm6,-0x568(%rbp)
  movsd  %xmm9,-0x570(%rbp)
  divsd  %xmm5,%xmm4
  mulsd  %xmm7,%xmm1
  movapd %xmm4,%xmm0
  movsd  %xmm4,-0x558(%rbp)
  mulsd  %xmm9,%xmm0
  addsd  %xmm0,%xmm1
  movapd %xmm2,%xmm0
  mulsd  %xmm6,%xmm1
  movsd  %xmm1,-0x560(%rbp)
  call   <sqrt@plt>
  movsd  -0x588(%rbp),%xmm5
  mov    %r13,%rsi
  movsd  0xa0(%r15,%r13,1),%xmm7
  mov    -0x638(%rbp),%rdi
  mov    $0x1,%r13d
  movsd  -0x580(%rbp),%xmm8
  add    $0xa8,%rsi
  movsd  -0x560(%rbp),%xmm1
  mov    $0xa8,%r9d
  mov    %r13,%r8
  mov    %r15,%rcx
  mulsd  %xmm8,%xmm7
  lea    (%rdi,%r12,8),%r10
  mov    %r14,%r15
  mov    %r9,%r13
  movsd  -0x570(%rbp),%xmm9
  movsd  -0x568(%rbp),%xmm6
  mov    %rsi,%r14
  mov    %rbx,-0x5f8(%rbp)
  mulsd  (%rdi,%r12,8),%xmm6
  mov    %r12,-0x560(%rbp)
  movapd %xmm7,%xmm0
  movsd  -0x578(%rbp),%xmm7
  mulsd  %xmm7,%xmm5
  subsd  %xmm5,%xmm0
  mulsd  -0x558(%rbp),%xmm0
  pxor   %xmm5,%xmm5
  cvtsi2sd %rax,%xmm5
  mov    -0x5e8(%rbp),%rax
  divsd  %xmm5,%xmm1
  addsd  %xmm1,%xmm0
  movsd  D324(%rip),%xmm1
  divsd  -0x5c0(%rbp),%xmm1
  mulsd  %xmm9,%xmm1
  addsd  %xmm1,%xmm0
  movsd  (%rax),%xmm1
  subsd  %xmm6,%xmm0
  addsd  %xmm0,%xmm1
  mulsd  %xmm0,%xmm0
  movsd  %xmm1,(%rax)
  mov    -0x5f0(%rbp),%rax
  addsd  0xe58(%rax),%xmm0
  lea    0xe50(%rax),%rdi
  mov    %rdi,%rbx
  movsd  %xmm0,0xe58(%rax)
  lea    0x1(%r12),%rax
  mov    %r10,%r12
  mov    %rax,-0x5c8(%rbp)
  mov    D288(%rip),%rax
  movq   %rax,%xmm2
  mov    D51(%rip),%rax
  movq   %rax,%xmm3
  nopl   0x0(%rax)
L364:
  pxor   %xmm6,%xmm6
  movapd %xmm6,%xmm5
  cmp    %r8d,-0x560(%rbp)
  jl     L507
  mov    -0x5a0(%rbp),%rax
  pxor   %xmm6,%xmm6
  movapd %xmm6,%xmm5
  lea    (%rax,%r8,8),%rdx
  mov    -0x5b4(%rbp),%eax
  sub    %r8d,%eax
  lea    (%rax,%rax,4),%rax
  shl    $0x5,%rax
  lea    0xa0(%r13,%rax,1),%r11
  mov    %r13,%rax
L111:
  movsd  (%rdx),%xmm0
  movsd  (%r15,%rax,1),%xmm1
  add    $0x8,%rdx
  mulsd  %xmm2,%xmm0
  mulsd  %xmm2,%xmm1
  addsd  %xmm3,%xmm0
  divsd  %xmm0,%xmm1
  addsd  %xmm1,%xmm5
  movsd  (%rcx,%rax,1),%xmm1
  add    $0xa0,%rax
  mulsd  %xmm2,%xmm1
  divsd  %xmm0,%xmm1
  addsd  %xmm1,%xmm6
  cmp    %rax,%r11
  jne    L111
L507:
  mulsd  %xmm7,%xmm5
  movapd %xmm8,%xmm1
  movapd %xmm2,%xmm0
  mov    -0x5b0(%rbp),%rax
  mov    %rcx,-0x598(%rbp)
  sub    $0x8,%r12
  sub    $0x8,%rbx
  add    $0xa8,%r13
  mulsd  (%r15,%r14,1),%xmm1
  movsd  (%rax,%r8,8),%xmm9
  mov    %r8,-0x588(%rbp)
  movsd  %xmm6,-0x590(%rbp)
  movsd  %xmm8,-0x580(%rbp)
  movsd  %xmm7,-0x578(%rbp)
  movsd  %xmm9,-0x570(%rbp)
  subsd  %xmm5,%xmm1
  mulsd  -0x558(%rbp),%xmm1
  mulsd  %xmm9,%xmm1
  movsd  %xmm1,-0x568(%rbp)
  call   <sqrt@plt>
  pxor   %xmm5,%xmm5
  movsd  -0x568(%rbp),%xmm1
  movsd  -0x580(%rbp),%xmm8
  cvtsi2sd %rax,%xmm5
  mov    -0x598(%rbp),%rcx
  movsd  -0x578(%rbp),%xmm7
  movsd  -0x590(%rbp),%xmm6
  movapd %xmm8,%xmm0
  movsd  -0x570(%rbp),%xmm9
  mulsd  (%rcx,%r14,1),%xmm0
  mov    -0x5a8(%rbp),%rax
  mulsd  %xmm7,%xmm6
  mov    D288(%rip),%rsi
  mov    -0x588(%rbp),%r8
  divsd  %xmm5,%xmm1
  mulsd  (%r12),%xmm9
  movq   %rsi,%xmm2
  mov    D51(%rip),%rsi
  movq   %rsi,%xmm3
  subsd  %xmm6,%xmm0
  mulsd  -0x558(%rbp),%xmm0
  addsd  %xmm1,%xmm0
  movsd  (%rax,%r14,1),%xmm1
  subsd  %xmm9,%xmm0
  addsd  %xmm0,%xmm1
  mulsd  %xmm0,%xmm0
  movsd  %xmm1,(%rax,%r14,1)
  addsd  0x8(%rbx),%xmm0
  add    $0x8,%r14
  lea    0x1(%r8),%rax
  movsd  %xmm0,0x8(%rbx)
  cmp    %r8,-0x560(%rbp)
  je     L123
  mov    %rax,%r8
  jmp    L364
L123:
  mov    -0x5f8(%rbp),%rbx
  mov    %r15,%r14
  addq   $0x18,-0x5a8(%rbp)
  mov    %rcx,%r15
  subq   $0xb8,-0x5f0(%rbp)
  addq   $0xb8,-0x5e8(%rbp)
  add    $0x8,%rbx
  addq   $0x8,-0x5e0(%rbp)
  subq   $0xa0,-0x5d8(%rbp)
  addq   $0xa8,-0x5d0(%rbp)
  cmpq   $0x14,-0x5c8(%rbp)
  je     L403
  mov    -0x600(%rbp),%rax
  mov    -0x5c8(%rbp),%r12
  mov    %rax,-0x570(%rbp)
  jmp    L202
L403:
  mov    -0x668(%rbp),%rax
  mov    %rcx,%r13
  lea    0x1(%rax),%rdx
  add    $0x2,%rax
  cmp    -0x610(%rbp),%rax
  jg     L319
  mov    %rdx,-0x668(%rbp)
  jmp    L366
L319:
  mov    -0x660(%rbp),%rax
  pxor   %xmm3,%xmm3
  movl   $0x1,-0x570(%rbp)
  lea    D214(%rip),%r14
  cvtsi2sdq -0x610(%rbp),%xmm3
  lea    D225(%rip),%r13
  lea    0xe58(%rax),%rsi
  lea    0xe48(%rax),%r12
  mov    %rsi,-0x578(%rbp)
  lea    0xc8(%rax),%rsi
  lea    0xf10(%rax,%rax,1),%rax
  mov    %rsi,-0x560(%rbp)
  mov    %rax,-0x580(%rbp)
  movsd  %xmm3,-0x568(%rbp)
L1:
  mov    -0x570(%rbp),%esi
  lea    D250(%rip),%rdi
  xor    %eax,%eax
  call   <printf@plt>
  mov    -0x580(%rbp),%r15
  mov    -0x578(%rbp),%rbx
  sub    %rbx,%r15
  nopl   0x0(%rax,%rax,1)
L536:
  movsd  -0x568(%rbp),%xmm7
  movsd  (%rbx),%xmm0
  add    $0x8,%r15
  sub    $0x8,%rbx
  movsd  -0x8(%r15),%xmm1
  divsd  %xmm7,%xmm1
  movapd %xmm1,%xmm2
  movsd  %xmm1,-0x558(%rbp)
  mulsd  %xmm1,%xmm2
  mulsd  %xmm7,%xmm2
  subsd  %xmm2,%xmm0
  call   <sqrt@plt>
  pxor   %xmm0,%xmm0
  movsd  -0x558(%rbp),%xmm1
  mov    %r14,%rdi
  cqto
  idivq  -0x610(%rbp)
  cvtsi2sd %rax,%xmm0
  mov    $0x1,%eax
  movsd  %xmm0,0x8(%rbx)
  movapd %xmm1,%xmm0
  call   <printf@plt>
  cmp    -0x560(%rbp),%r15
  jne    L536
  lea    D245(%rip),%rdi
  xor    %eax,%eax
  call   <printf@plt>
  mov    -0x578(%rbp),%rbx
  nopl   0x0(%rax)
L496:
  movsd  (%rbx),%xmm0
  mov    %r13,%rdi
  mov    $0x1,%eax
  sub    $0x8,%rbx
  call   <printf@plt>
  cmp    %rbx,%r12
  jne    L496
  lea    D189(%rip),%rdi
  sub    $0xc0,%r12
  call   <puts@plt>
  addl   $0x1,-0x570(%rbp)
  mov    -0x570(%rbp),%eax
  subq   $0xb8,-0x578(%rbp)
  addq   $0xc0,-0x560(%rbp)
  cmp    $0x14,%eax
  jne    L1
  mov    -0x38(%rbp),%rax
  sub    %fs:0x28,%rax
  jne    L101
  lea    -0x28(%rbp),%rsp
  pop    %rbx
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  pop    %rbp
  ret
L360:
  lea    D36(%rip),%rdi
  xor    %eax,%eax
  call   <printf@plt>
  jmp    L102
L101:
  call   <__stack_chk_fail@plt>
```

tool_calls: name: read_data
arguments: data_label: D106
type: string
name: read_data
arguments: data_label: D192
type: string
name: read_data
arguments: data_label: D36
type: string
name: read_data
arguments: data_label: D394
type: string
name: read_data
arguments: data_label: D94
type: string
name: read_data
arguments: data_label: D184
type: byte[4]
name: read_data
arguments: data_label: D18
type: f32
name: read_data
arguments: data_label: D57
type: byte[16]
name: read_data
arguments: data_label: D45
type: byte[8]
name: read_data
arguments: data_label: D51
type: byte[8]
name: read_data
arguments: data_label: D155
type: byte[8]
name: read_data
arguments: data_label: D186
type: byte[4]
name: read_data
arguments: data_label: D314
type: byte[8]
name: read_data
arguments: data_label: D288
type: byte[8]
name: read_data
arguments: data_label: D324
type: byte[8]
name: read_data
arguments: data_label: D214
type: string
name: read_data
arguments: data_label: D225
type: string
name: read_data
arguments: data_label: D250
type: string
name: read_data
arguments: data_label: D245
type: string
name: read_data
arguments: data_label: D189
type: string

tool: D106: rt

tool: D192: L0

tool: D36: File not found

tool: D394: %f

tool: D94: lambda

tool: {"D184": [0x00,0x00,0x80,0x3e]}

tool: D18: 1

tool: {"D57": [0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x80,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00]}

tool: {"D45": [0x00,0x00,0x00,0x00,0x00,0x00,0xf0,0xbf]}

tool: {"D51": [0x00,0x00,0x00,0x00,0x00,0x00,0xf0,0x3f]}

tool: {"D155": [0x00,0x00,0x00,0x00,0x00,0x00,0x10,0x40]}

tool: {"D186": [0x00,0x00,0x80,0x3d]}

tool: {"D314": [0x00,0x00,0x00,0x00,0x00,0x00,0xe0,0xbf]}

tool: {"D288": [0x00,0x00,0x00,0x00,0x00,0x00,0xd0,0x3f]}

tool: {"D324": [0x00,0x00,0x00,0x00,0x00,0x00,0xe0,0x3f]}

tool: D214: %f  

tool: D225: %f   

tool: D250: %d        

tool: D245: 
         

tool: D189: 
 

assistant: ```c
void spgam(long M1) {
  long M = (long)M1;
  float nyear = 5, delta = .25, epsilon = .25, B = 1;
  int m = 1, N = 20;
  float L0[N], lambda[N];
  FILE *file_ptr;
  int i, j, k, run, n, t, ind;
  double L[N], res[N][N + 3], z[m], B0[N], K[N], Del1[N][N], Del[N][N], Dd[N][N];
  double v, w, discount, lam, sen, Dell[N][N], zz[N], b[N], v2, Ddd[N][N], p;
  double am[N][N], vz[N];
  double con[N];
  file_ptr = fopen("L0", "rt");
  if (file_ptr == NULL) {
    printf("File not found");
  }
  for (i = 0; i < N; i++) {
    fscanf(file_ptr, "%f", &(L0[i]));
  }
  fclose(file_ptr);
  file_ptr = fopen("lambda", "rt");
  if (file_ptr == NULL) {
    printf("File not found");
  }
  for (i = 0; i < (N * m); i++) {
    fscanf(file_ptr, "%f", &(lambda[i]));
  }
  fclose(file_ptr);
  j = 0;
  B0[j] = B / (1 + delta * L0[j]);
  B = B0[j];
  K[j] = L0[j];
  for (k = 0; k < N + 1; k++) {
    res[j][k] = 0;
    Del1[j][k] = 0;
    Dd[j][k] = 0;
  }
  res[j][N + 1] = 0;
  res[j][N + 2] = 0;
  b[0] = 1 / lambda[0];
  for (j = 1; j < N; j++) {
    B0[j] = B / (1 + delta * L0[j]);
    B = B0[j];
    K[j] = L0[j];
    for (k = 0; k < N + 1; k++) {
      res[j][k] = 0;
      Del1[j][k] = 0;
      Dd[j][k] = 0;
    }
    res[j][N + 1] = 0;
    res[j][N + 2] = 0;
    v = 0;
    for (k = 0; k < j; k++) {
      v += b[k] * lambda[j - k];
    }
    b[k] = -v / lambda[0];
    con[j] = 0;
  }
  B = 1 / (1 + delta * L0[0]);
  con[0] = -1;
  con[1] = +1;
  for (i = 0; i < N; i++) {
    for (j = 0; j < N; j++) {
      Dell[i][j] = 0;
    }
    Dell[i][i - 1] = 1 / delta / B0[i] / L0[i];
    Dell[i][i] = -B0[i - 1] / delta / B0[i] / B0[i] / L0[i];
  }
  for (t = 1; t < N; t++) {
    for (i = t; i < N; i++) {
      for (j = t; j < i + 1; j++) {
        sen = epsilon * delta * lambda[(i - t)] * lambda[(j - t)] / (1 + delta * L0[j]) / (1 + delta * L0[j]);
        Dell[i][j - 1] += sen / delta / B0[j];
        Dell[i][j] += -sen * B0[j - 1] / delta / B0[j] / B0[j];
      }
    }
    for (k = 0; k < t + 1; k++) {
      am[t][k] = 0;
      for (j = 1; j < t + 1; j++) {
        am[t][k] += b[j - 1] * Dell[t + 1 - j][k];
      }
    }
  }
  for (t = 1; t < N; t++) {
    for (i = 1; i <= m; i++) {
      for (n = t; n < N; n++) {
        for (j = t; j <= n; j++) {
          v = delta * lambda[(n - t) * m + i - 1] * lambda[(j - t) * m + i - 1] / (1 + delta * L0[j]) / (1 + delta * L0[j]);
          Del1[n][j - 1] += v / delta / B0[j];
          Del1[n][j] += -v / delta * B0[j - 1] / B0[j] / B0[j];
          sen = -2 * delta * v / (1 + delta * L0[j]);
          Dd[n][j - 1] += sen / delta / B0[j] / delta / B0[j];
          Dd[n][j] += sen * B0[j - 1] / delta / B0[j] / B0[j] * B0[j - 1] / delta / B0[j] / B0[j] + v * B0[j - 1] * 2 / delta / B0[j] / B0[j] / B0[j];
        }
      }
    }
  }
  for (run = 1; run <= M; run++) {
    ind = 0;
    for (j = 1; j < N; j++) {
      L[j] = L0[j];
    }
    discount = 1.;
    for (t = 1; t < N; t++) {
      nrandv(m, z);
      for (i = 1; i <= m; i++) {
        if (ind < N) {
          zz[ind] = z[i - 1];
          ind += 1;
        }
        v = 0;
        for (n = t; n < N; n++) {
          lam = lambda[(n - t) * m + i - 1];
          v = v + (delta * L[n] * lam) / (1 + delta * L[n]);
          L[n] = L[n] * exp((-lam / 2 + v) * lam * epsilon + lam * sqrt(epsilon) * z[i - 1]);
        }
      }
      discount = discount * (1 + delta * L[t]);
      for (k = 0; k < t + 1; k++) {
        Del[t][k] = L[t] * epsilon * Del1[t][k];
        Ddd[t][k] = L[t] * epsilon * Dd[t][k];
        vz[k] = 0;
        for (j = 1; j < t + 1; j++) {
          vz[k] += zz[j - 1] * am[j][k];
        }
      }
      Del[t][t - 1] += L[t] / L0[t] / delta / B0[t];
      Del[t][t] += -L[t] / L0[t] * B0[t - 1] / delta / B0[t] / B0[t];
      Ddd[t][t - 1] += -L[t] / delta / B0[t] / L0[t] / delta / L0[t] / B0[t];
      Ddd[t][t] += L[t] * (2 * B0[t - 1] / delta / B0[t] / B0[t] / L0[t] / B0[t] - B0[t - 1] * B0[t - 1] / delta / delta / L0[t] / L0[t] / B0[t] / B0[t] / B0[t] / B0[t]);
      k = 0;
      v = 0;
      w = 0;
      for (n = k; n < t + 1; n++) {
        v += delta * Del[n][k] / (1 + delta * L[n]);
        w += delta * Ddd[n][k] / (1 + delta * L[n]);
      }
      sen = B * delta / discount * ((((L[t]) > (K[t])) ? (1) : (0)) * Del[t][k] - (((L[t] - K[t]) > (0)) ? (L[t] - K[t]) : (0)) * v) + delta / discount * (((L[t] - K[t]) > (0)) ? (L[t] - K[t]) : (0));
      p = v;
      sen = sen * vz[k] / sqrt(epsilon) + B * delta / discount * ((((L[t]) > (K[t])) ? (1) : (0)) * Ddd[t][k] - (((L[t] - K[t]) > (0)) ? (L[t] - K[t]) : (0)) * w) + 2 * delta / discount * ((((L[t]) > (K[t])) ? (1) : (0)) * Del[t][k] - (((L[t] - K[t]) > (0)) ? (L[t] - K[t]) : (0)) * p) - con[t - k] * vz[k];
      res[t][k] += sen;
      res[N - t][N + 2 - k] += sen * sen;
      for (k = 1; k < t + 1; k++) {
        v = 0;
        w = 0;
        v2 = 0;
        for (n = k; n < t + 1; n++) {
          v += delta * Del[n][k] / (1 + delta * L[n]);
          w += delta * Ddd[n][k] / (1 + delta * L[n]);
        }
        sen = B * delta / discount * ((((L[t]) > (K[t])) ? (1) : (0)) * Del[t][k] - (((L[t] - K[t]) > (0)) ? (L[t] - K[t]) : (0)) * v);
        sen = sen * vz[k] / sqrt(epsilon) + B * delta / discount * ((((L[t]) > (K[t])) ? (1) : (0)) * Ddd[t][k] - (((L[t] - K[t]) > (0)) ? (L[t] - K[t]) : (0)) * w) - con[t - k] * vz[k];
        res[t][k] += sen;
        res[N - t][N + 2 - k] += sen * sen;
      }
    }
  }
  for (i = 1; i < N; i++) {
    printf("%d        ", i);
    for (j = 0; j < i + 1; j++) {
      sen = res[i][j] / M;
      res[N - i][N + 2 - j] = sqrt(res[N - i][N + 2 - j] - sen * sen * M) / M;
      printf("%f  ", sen);
    }
    printf("\n         ");
    for (j = 0; j < i + 1; j++) {
      printf("%f   ", res[N - i][N + 2 - j]);
    }
    printf("\n \n");
  }
}
```