pld.fun 1.0 KB

12345678910111213141516171819202122232425262728293031
  1. #import std
  2. #import nat
  3. #import flo
  4. #import plo
  5. #import fit
  6. p = # 0%eWi* iota 15
  7. -{
  8. {{w{{gdw{{{yKzKz{{@u{gaKfzC{{{zLGj@qw_[LcnyGtj[k{zD>tR_dC?mOts^mK[bkgi{{{cieO<C
  9. u<K_K\VxLzAD{jYzKm{k{eK][ENlfsDZCzXs][lat@EyKr[co{{zLz<No_pZ\NpPg=LGxCtvJX[BKn?
  10. uD{zOmw{{\<\vA`G\K\itrlDfpfj`s\ZZIKozFL{{u{u{{{ufL^>?\?tEZiZ<zmCW<\zDmuUcgWeFZP
  11. AvEthx[Kj{z<T>D<rR<<t>^\@KPhi_M?K^eJDetw[qzG[VxMw{{{{<<=^>GC\cdFV<^X=wABt\mtDFj
  12. B{\SwMwksSmtJ{{\Av?<aELn^cgBlzY>sb\[bSuN{^Ht<s{C{{h{{t>\R?pVi\hv=@T>_<>oL=C``Z<
  13. bw=Ga>tmvrxSnz[{\FgR><\^OYr^vJiA?Dk\KuKu>x@OkkqjNZkmt<<\?^>>`=PAdr^vqIHJMyW]wb<
  14. GtMkIZo{Etf`wlPNm^Z>JePXH[=ItBgn{a@z<<zIz<@fdtJ<Z>`?PpHVIh@OL]GnRz_zL[\<>^^DuM`
  15. S>MgvAW<@EqGt>Ut<@dTLJKBA=C_SGJl^X<\<=]xrPX<<SHddGDH\jCB<<<D]U\\<}-
  16. #output dot'tex' plot
  17. pld =
  18. visualization[
  19. margin: 0.,
  20. headroom: 0.,
  21. picture_frame: ((400.,190.),(-5.,-5.)),
  22. abscissa: axis[hats: <'',''>],
  23. ordinates: <axis[hats: <'',''>]>,
  24. curves: <
  25. curve[scattered: true,points: fleq-<&l p],
  26. curve[points: ^(~&,plin p)* ari300/-10. 10.]>]